February 2013 - Pharo-dev - lists.pharo.org

[Pharo-project] Another stupid question
by Torsten Bergmann Feb. 14, 2013

Feb. 14, 2013

Hi Benjamin, from your example I guess you know how to convert from decimal (base 10) to binary (base 2): 9 printStringBase: 2 gives you the binary representation/bit string: '1001'. If I understand your post correctly you want the other way around and you want to get the decimal value for a bit pattern: This is simple since Smalltalk is able to work with numbers in any arbitrary base - such a number is written BASErNUMBER, i.e. the base an 'r' followed by the number. So you can write 2r1001 in a workspace to represent the decimal 9 And to solve your problem just use: |bitCombination| bitCombination :='1001'. ('2r', bitCombination) asNumber Note that finder would have give you the answer very simply. Just enter '2r1001'. 9 in the finder field and finder will tell you to use #asNumber This works with any abitrary base, for instance hexadecimal: |htmlColorValue| htmlColorValue:='FF0000'. ('16r', htmlColorValue) asNumber The FUN thing is that Java is completely behind the moon when working with other bases for literal numbers. In old version Java already had support for hexadecimal literals: 0xFF Java also has octal representation using a leading 0 (zero) digit. In current Java version 7 they now after years added binary number system using 0b1001: http://docs.oracle.com/javase/7/docs/technotes/guides/language/binary-liter… So "x" is hexadecimal and "b" is now binary and octal using a leading 0. Inconsistent and confusing! BUT what if I'm an alien with 7 fingers and want to work with base 7 or other bases? In Smalltalk it is easy to represent: 7r12 no need to wait for a vendor or a new version. Thats why I like Smalltalk: it's simple, consistent and yet powerfull! Lesson learned: there are no stupid questions - but sometimes stupid language designers around. Bye Torsten

1 0

[Pharo-project] Wow... we've closed a lot of issues
by Sean P. DeNigris Feb. 14, 2013

Feb. 14, 2013

I was just doing some housecleaning, deleting some old bug fix images and I was struck by how many important things we've accomplished. I'm still dumbfounded that a community of our size has resolved 1548 issues since 1.4. Cheers, Sean -- View this message in context: http://forum.world.st/Wow-we-ve-closed-a-lot-of-issues-tp4669901.html Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

4 5

[Pharo-project] OneClick for 2.0 available again
by Torsten Bergmann Feb. 14, 2013

Feb. 14, 2013

Hannes wrote >Thorsten, > >reading what you have written, am I right that we just need a > NBCog.ini > >file for MSwindows? We already have an INI file in the Pharo 2.0 one-click. This INI file contains the correct entry about where to find the image file. But it is named "CogVM.ini" instead of "NBCog.ini" since according to the naming convention it has to be named like the VM (which is currently NBCog.exe). So as I wrote just rename CogVM.ini into NBCog.ini and it works. Bye Torsten (without h)

3 3

[Pharo-project] Rectangle>>intersects: change Rationale
by Nicolas Cellier Feb. 14, 2013

Feb. 14, 2013

Rectangle>>intersects: has been changed recently (GuillermoPolito 2/8/2013) rCorner x < origin x ifTrue: [ ^ false ]. rCorner y < origin y ifTrue: [ ^ false ]. rOrigin x > corner x ifTrue: [ ^ false ]. rOrigin y > corner y ifTrue: [ ^ false ]. these inequalities have been transformed into <= and >= Can someone point me to the issue number documenting this change? Nicolas

5 32

[Pharo-project] [update 2.0] #20546
by Marcus Denker Feb. 14, 2013

Feb. 14, 2013

20546 ----- Issue 7505: do #cleanUpForRelease for every build http://code.google.com/p/pharo/issues/detail?id=7505 Diff information: http://ss3.gemstone.com/ss/Pharo20/UpdateStreamer-Core-MarcusDenker.10.diff

1 0

[Pharo-project] Regex with $? not working?
by Mariano Martinez Peck Feb. 14, 2013

Feb. 14, 2013

Hi guys. I am trying some regex expressions that involve '?' and they do not work. Try for example: '/<(\w+?)>([^<]+)/m' asRegex or '<([^/>]+)>([^<]*?)<\1>' asRegex and they all throw an error with the ? saying: 'RegexSyntaxError: nullable closure' Am I doing something wrong? Thanks, -- Mariano http://marianopeck.wordpress.com

2 1

[Pharo-project] [update 2.0] #20545
by Marcus Denker Feb. 14, 2013

Feb. 14, 2013

20545 ----- Issue 7467: SystemReporter should not include SUnit Results http://code.google.com/p/pharo/issues/detail?id=7467 Issue 7495: Failing test: FLCreateTraitSerializationTest>>#testCreateWithInstance http://code.google.com/p/pharo/issues/detail?id=7495 Issue 7498: RPackage>>extensionMethodsForClass forget methods http://code.google.com/p/pharo/issues/detail?id=7498 Issue 7507: location is undefined for a SmalltalkHub repository in MCHttpRepository>>password http://code.google.com/p/pharo/issues/detail?id=7507 Diff information: http://ss3.gemstone.com/ss/Pharo20/Tools-MarcusDenker.1040.diff http://ss3.gemstone.com/ss/Pharo20/RPackage-Core-MarcusDenker.212.diff http://ss3.gemstone.com/ss/Pharo20/Monticello-MarcusDenker.769.diff http://ss3.gemstone.com/ss/Pharo20/FuelMetalevelTests-MarcusDenker.56.diff

1 0

[Pharo-project] bug metacello toolbox / pharo2
by Christophe Demarey Feb. 14, 2013

Feb. 14, 2013

Hi, Pharo 2.0 is shipped with Metacello. Metacello version installed is based on the stable version (1.0-beta.31.1.5). This version loads Metacello-ToolBox-dkh.130 but strangely, the Metacello-ToolBox package shipped in Pharo 2.0 is Metacello-ToolBox-MarkusDenker.135. Its ancestor is Metacello-ToolBox-dkh131 but Metacello-ToolBox-dkh.130 is not its ancestor. It seems that Metacello-ToolBox-dkh131 is another branch and that Pharo 2.0 does not ship the right version of Metacello Toolbox. I found this with tests using the toolbox. They failed because the method configurationNameFrom behavior is not the same : Metacello-ToolBox-dkh.130>>Metacello-ToolBox>>configurationNameFrom: baseName "Return the fully-qualified configuration class name." <apiDocumentation> ^ (baseName indexOfSubCollection: 'ConfigurationOf') > 0 ifTrue: [ baseName ] ifFalse: [ 'ConfigurationOf' , baseName ] Metacello-ToolBox-MarkusDenker.135>>Metacello-ToolBox>>configurationNameFrom: baseName "Return the fully-qualified configuration class name." <apiDocumentation> self flag: 'More work needed based on MetacelloScriptEngine'. ^ baseName' => Here it is strange because the basename of a Configuration is the name without 'ConfigurationOf' and e expect to have as result 'ConfigurationOfXXX' So, 2 questions : is the Metacello-ToolBox-MarkusDenker.135 working? should we not use the same base version of Metacello-ToolBox as the one declared (Metacello-ToolBox-dkh.130) in Metacello 1.0-beta.31.1.5 configuration? Regards, Christophe.

2 1

[Pharo-project] [update 2.0] #20544
by Marcus Denker Feb. 14, 2013

Feb. 14, 2013

20544 ----- Issue 7291: Monticello asks for credentials when none are required http://code.google.com/p/pharo/issues/detail?id=7291 Issue 7503: MC Browser System Category Order Changes http://code.google.com/p/pharo/issues/detail?id=7503 Issue 7014: downloadSources without Zinc http://code.google.com/p/pharo/issues/detail?id=7014 Diff information: http://ss3.gemstone.com/ss/Pharo20/Zinc-System-Support-MarcusDenker.2.diff http://ss3.gemstone.com/ss/Pharo20/System-Support-MarcusDenker.786.diff http://ss3.gemstone.com/ss/Pharo20/Monticello-MarcusDenker.767.diff

1 0

Feb. 14, 2013

I repost the mail to the mailing-list since I do not see it in the vm-dev Stef > > Hi > > I was reading the following method in the VM code and I have a couple of questions: > > - I do not understand why lookupMethodInClass: may return a class. I was thinking that it would return a method. > > - what is the invariant? > that currentclass always point to the currently looked up class and > newMethod is the found method? > > - why lookupMethodFor: selector InDictionary: dictionary is defined in StackInterpreter but never used > only in CoInterpreter? > > Thanks > > > lookupMethodInClass: class > | currentClass dictionary found | > <inline: false> > self assert: class ~= objectMemory nilObject. > currentClass := class. > [currentClass ~= objectMemory nilObject] > whileTrue: > [dictionary := objectMemory fetchPointer: MethodDictionaryIndex ofObject: currentClass. > > *** trick with the cannotInterpret *** > dictionary = objectMemory nilObject ifTrue: > ["MethodDict pointer is nil (hopefully due a swapped out stub) > -- raise exception #cannotInterpret:." > self createActualMessageTo: class. > messageSelector := objectMemory splObj: SelectorCannotInterpret. > self sendBreak: messageSelector + BaseHeaderSize > point: (objectMemory lengthOf: messageSelector) > receiver: nil. > ^self lookupMethodInClass: (self superclassOf: currentClass)]. > *** trick with the cannotInterpret end *** > > found := self lookupMethodInDictionary: dictionary. > found ifTrue: [^currentClass]. > ^^^^^^^^^^^^^^^^^^^^^^^^^ > > currentClass := self superclassOf: currentClass]. > > "Could not find #doesNotUnderstand: -- unrecoverable error." > messageSelector = (objectMemory splObj: SelectorDoesNotUnderstand) ifTrue: > [self error: 'Recursive not understood error encountered']. > > "Cound not find a normal message -- raise exception #doesNotUnderstand:" > self createActualMessageTo: class. > messageSelector := objectMemory splObj: SelectorDoesNotUnderstand. > self sendBreak: messageSelector + BaseHeaderSize > point: (objectMemory lengthOf: messageSelector) > receiver: nil. > ^self lookupMethodInClass: class > > > if (found) { > return currentClass; > } > > > static sqInt > lookupMethodInClass(sqInt class) > { > // StackInterpreter>>#lookupMethodInClass: DECL_MAYBE_SQ_GLOBAL_STRUCT > sqInt currentClass; > sqInt dictionary; > sqInt found; > sqInt header; > sqInt index; > sqInt length; > sqInt mask; > sqInt methodArray; > sqInt nextSelector; > sqInt sz; > sqInt wrapAround; > > assert(class != (nilObject())); > currentClass = class; > while (currentClass != GIV(nilObj)) { > dictionary = longAt((currentClass + BaseHeaderSize) + (MethodDictionaryIndex << ShiftForWord)); > if (dictionary == GIV(nilObj)) { > > /* ifTrue: */ > > createActualMessageTo(class); > GIV(messageSelector) = longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (SelectorCannotInterpret << ShiftForWord)); > sendBreakpointreceiver(GIV(messageSelector) + BaseHeaderSize, lengthOf(GIV(messageSelector)), null); > return lookupMethodInClass(longAt((currentClass + BaseHeaderSize) + (SuperclassIndex << ShiftForWord))); > } > /* begin lookupMethodInDictionary: */ > /* begin fetchWordLengthOf: */ > /* begin sizeBitsOf: */ > header = longAt(dictionary); > sz = ((header & TypeMask) == HeaderTypeSizeAndClass > ? (longAt(dictionary - (BytesPerWord * 2))) & LongSizeMask > : header & SizeMask); > length = ((usqInt) (sz - BaseHeaderSize)) >> ShiftForWord; > mask = (length - SelectorStart) - 1; > > /* messageSelector */ > > index = SelectorStart + (mask & (((GIV(messageSelector) & 1) > ? (GIV(messageSelector) >> 1) > : (((usqInt) (longAt(GIV(messageSelector)))) >> HashBitsOffset) & HashMaskUnshifted))); > wrapAround = 0; > while (1) { > nextSelector = longAt((dictionary + BaseHeaderSize) + (index << ShiftForWord)); > if (nextSelector == GIV(nilObj)) { > found = 0; > goto l1; > } > if (nextSelector == GIV(messageSelector)) { > methodArray = longAt((dictionary + BaseHeaderSize) + (MethodArrayIndex << ShiftForWord)); > GIV(newMethod) = longAt((methodArray + BaseHeaderSize) + ((index - SelectorStart) << ShiftForWord)); > found = 1; > goto l1; > } > index += 1; > if (index == length) { > if (wrapAround) { > found = 0; > goto l1; > } > wrapAround = 1; > index = SelectorStart; > } > } > found = 0; > l1: /* end lookupMethodInDictionary: */; > if (found) { > return currentClass; > } > currentClass = longAt((currentClass + BaseHeaderSize) + (SuperclassIndex << ShiftForWord)); > } > if (GIV(messageSelector) == (longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (SelectorDoesNotUnderstand << ShiftForWord)))) { > error("Recursive not understood error encountered"); > } > createActualMessageTo(class); > GIV(messageSelector) = longAt((GIV(specialObjectsOop) + BaseHeaderSize) + (SelectorDoesNotUnderstand << ShiftForWord)); > sendBreakpointreceiver(GIV(messageSelector) + BaseHeaderSize, lengthOf(GIV(messageSelector)), null); > return lookupMethodInClass(class); > } > > > >

4 6