<div dir="ltr">OK here's what I came up with, and it's not pretty. But it is useful. Should this be included in MCCacheRepository or MCFileBasedRepository as a general facility? IMO, yes, to have some poor soul going down this same route. But I want to canvas opinion first. Nte that one wpould think all one had to do was <div><div><br></div><div><span class="" style="white-space:pre"> </span>cacheRepo storeVersion: (repo versionNamed: versionName).<br></div><div><br></div><div>but MCCacheRepository defeats that simple route with</div><div><br></div><div><div>MCCacheRepository >>basicStoreVersion: aVersion</div><div><span class="" style="white-space:pre"> </span>(aVersion isCacheable not or: [self allFileNames includes: aVersion fileName])</div><div><span class="" style="white-space:pre"> </span>ifFalse: [super basicStoreVersion: aVersion]</div></div><div><br></div><div>So that leaves the brute-force:</div><div><br></div><div><div>cachedNonDiffyVersionNamed: versionName from: repo</div><div><span class="" style="white-space:pre"> </span>"Make sure that the cache contains a non-diffy version of versionName and answer it."</div><div><span class="" style="white-space:pre"> </span>| cacheRepo |</div><div><span class="" style="white-space:pre"> </span>self assert: (versionName endsWith: '.mcz').</div><div><span class="" style="white-space:pre"> </span>cacheRepo := MCCacheRepository default.</div><div><span class="" style="white-space:pre"> </span>"Make sure that at least the diffy (.mcd) version is present"</div><div><span class="" style="white-space:pre"> </span>(cacheRepo directory includesKey: versionName) ifFalse:</div><div><span class="" style="white-space:pre"> </span>[cacheRepo storeVersion: (repo versionNamed: versionName)].</div><div><span class="" style="white-space:pre"> </span>"if after storeVersion there's still no .mcz we need to create one; sigh..."</div><div><span class="" style="white-space:pre"> </span>(cacheRepo directory includesKey: versionName) ifFalse:</div><div><span class="" style="white-space:pre"> </span>[| baseName diffyVersionName diffyVersion file delete |</div><div><span class="" style="white-space:pre"> </span> baseName := versionName allButLast: 4. "strip .mcz"</div><div><span class="" style="white-space:pre"> </span> diffyVersionName := cacheRepo directory fileNames detect: [:fn| (fn endsWith: '.mcd') and: [(fn copyUpTo: $() = baseName]].</div><div><span class="" style="white-space:pre"> </span> diffyVersion := cacheRepo versionNamed: diffyVersionName.</div><div><span class="" style="white-space:pre"> </span> file := cacheRepo directory newFileNamed: versionName.</div><div><span class="" style="white-space:pre"> </span> delete := false.</div><div><span class="" style="white-space:pre"> </span> [file binary.</div><div><span class="" style="white-space:pre"> </span> [MCMczWriter fileOut: diffyVersion on: file]</div><div><span class="" style="white-space:pre"> </span>on: Error</div><div><span class="" style="white-space:pre"> </span>do: [:ex|</div><div><span class="" style="white-space:pre"> </span>delete := true. "don't leave half-formed .mcz files around to screw things up later on..."</div><div><span class="" style="white-space:pre"> </span>ex pass]]</div><div><span class="" style="white-space:pre"> </span>ensure:</div><div><span class="" style="white-space:pre"> </span>[file close.</div><div><span class="" style="white-space:pre"> </span> delete ifTrue:</div><div><span class="" style="white-space:pre"> </span>[cacheRepo directory deleteFileNamed: versionName]].</div><div><span class="" style="white-space:pre"> </span> "now delete the damn diffy version that caused all the pain in the first place"</div><div><span class="" style="white-space:pre"> </span> delete ifFalse:</div><div><span class="" style="white-space:pre"> </span>[cacheRepo directory deleteFileNamed: diffyVersionName].</div><div><span class="" style="white-space:pre"> </span> cacheRepo cacheAllFilenames].</div><div><span class="" style="white-space:pre"> </span>^cacheRepo versionNamed: versionName</div></div></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Oct 8, 2014 at 4:12 PM, Eliot Miranda <span dir="ltr"><<a href="mailto:eliot.miranda@gmail.com" target="_blank">eliot.miranda@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr">Hi All,<div><br></div><div> so *how* do I ensure I have a .mcz when there appears to only be a .mcd? I'm talking about trying to get 'Kernel-ul.875.mcz' from trunk when Kernel-ul.875(eem.872).mcd appears to be on offer. If I try <br clear="all"><div><br></div><div>MCCacheRepository default storeVersion: (trunk versionNamed: 'Kernel-ul.875.mcz') I *do not* get a 'Kernel-ul.875.mcz' in my cache repository. I'm f*&^%d until I can get this working. help, please!</div><span class="HOEnZb"><font color="#888888"><div><br>-- <br></div>best,<div>Eliot</div>
</font></span></div></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br>best,<div>Eliot</div>
</div>