[Moose-dev] Re: Licence for Symbol>>asSortBlock?

Hi, asSortBlock is implemented in CodeFoo and CodeFoo is apparently under MIT (see the bundle comments in VW). anyway, another implementation would be: ^ [:a :b | (a value: self) <= (b value: self)]

Cheers, Doru On 30 Mar 2009, at 19:55, Simon Denier wrote: > I need the following method from VW to run some tests in SqMoose. > Does anybody have an idea about its licence? Does not seem to be > part of our own extensions :( > > It's not especially difficult to reimplement one, anyone can come > up with a Squeak/Pharo equivalent (although it works as is under > Pharo, perhaps there is a better way) > > Symbol>>asSortBlock > "Answer a sort block, which evaluates this symbol for both arguments > and compares the resulting values" > > | stream | > stream := (String new: self size * 2 + 14) writeStream. > stream > nextPutAll: '[:a :b | a '; > nextPutAll: self; > nextPutAll: ' <=b '; > nextPutAll: self; > nextPut: $]. > ^Compiler evaluate: stream contents > > -- > Simon > > > > _______________________________________________ > Moose-dev mailing list > Moose-dev(a)iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev -- www.tudorgirba.com "Every now and then stop and ask yourself if the war you're fighting is the right one." _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev