- Pharo-dev - lists.pharo.org

[Pharo-project] BlockClosure>>isValid
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 27, 2009 6:02:12 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Kernel-ar.230.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-ar.230.mcz > > ==================== Summary ==================== > > Name: Kernel-ar.230 > Author: ar > Time: 26 August 2009, 9:01:37 am > UUID: d0759469-14fd-2c40-a5bd-90aab36cd9a5 > Ancestors: Kernel-ar.229 > > Implementations for BlockClosure>>isValid and > asMinimalRepresentation for compatibility of BlockClosure with the > when:evaluate: protocol. > > =============== Diff against Kernel-ar.229 =============== > > Item was added: > + ----- Method: BlockClosure>>isValid (in category 'events-support') > ----- > + isValid > + "For use in the when:evaluate: protocol, i.e., > + foo when: #bar evaluate:[self handleBar]. > + Return true." > + ^true! > > Item was added: > + ----- Method: BlockClosure>>asMinimalRepresentation (in category > 'events-support') ----- > + asMinimalRepresentation > + "For use in the when:evaluate: protocol, i.e., > + foo when: #bar evaluate:[self handleBar]. > + Return the receiver." > + ^true! > >

2 4

[Pharo-project] Tests for when:evaluate: with blocks.
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 27, 2009 6:43:27 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: System-ar.137.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-ar.137.mcz > > ==================== Summary ==================== > > Name: System-ar.137 > Author: ar > Time: 26 August 2009, 9:42:31 am > UUID: 49aa20fd-c8be-bf47-bda6-81e8a3dcdb83 > Ancestors: System-ar.136 > > Tests for when:evaluate: with blocks. Remove EventTest while we are > at it because it was a duplicate of EventManagerTest. > > =============== Diff against System-ar.136 =============== > > Item was added: > + ----- Method: EventManagerTest>>testBlockReceiverNoArgs (in > category 'running-dependent action') ----- > + testBlockReceiverNoArgs > + eventSource when: #anEvent evaluate:[self heardEvent]. > + eventSource triggerEvent: #anEvent. > + self should: [succeeded]! > > Item was added: > + ----- Method: EventManagerTest>>testBlockReceiverTwoArgs (in > category 'running-dependent action') ----- > + testBlockReceiverTwoArgs > + eventSource when: #anEvent:info: evaluate:[:arg1 :arg2| self > addArg1: arg1 addArg2: arg2]. > + eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ). > + self should: [(eventListener includes: 9) and: [eventListener > includes: 42]]! > > Item was added: > + ----- Method: EventManagerTest>>testBlockReceiverOneArg (in > category 'running-dependent action') ----- > + testBlockReceiverOneArg > + eventSource when: #anEvent: evaluate:[:arg1| eventListener add: > arg1]. > + eventSource triggerEvent: #anEvent: with: 9. > + self should: [eventListener includes: 9]! > > Item was removed: > - ----- Method: EventTest>>testReturnValueWithManyListeners (in > category 'running-dependent value') ----- > - testReturnValueWithManyListeners > - > - | value newListener | > - newListener := 'busybody'. > - eventSource > - when: #needsValue > - send: #yourself > - to: eventListener. > - eventSource > - when: #needsValue > - send: #yourself > - to: newListener. > - value := eventSource triggerEvent: #needsValue. > - self should: [value == newListener]! > > Item was removed: > - ----- Method: EventTest>>addArg1:addArg2: (in category 'private') > ----- > - addArg1: arg1 > - addArg2: arg2 > - > - eventListener > - add: arg1; > - add: arg2! > > Item was removed: > - ----- Method: EventTest>>testNoValueSupplierHasArguments (in > category 'running-broadcast query') ----- > - testNoValueSupplierHasArguments > - > - succeeded := eventSource > - triggerEvent: #needsValue: > - with: 'nelja' > - ifNotHandled: [true]. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testOneArgumentEvent (in category > 'running-dependent action') ----- > - testOneArgumentEvent > - > - eventSource when: #anEvent: send: #add: to: eventListener. > - eventSource triggerEvent: #anEvent: with: 9. > - self should: [eventListener includes: 9]! > > Item was removed: > - ----- Method: EventTest>>testReturnValueWithNoListeners (in > category 'running-dependent value') ----- > - testReturnValueWithNoListeners > - > - | value | > - value := eventSource triggerEvent: #needsValue. > - self should: [value == nil]! > > Item was removed: > - ----- Method: EventTest>>testSingleValueSupplier (in category > 'running-broadcast query') ----- > - testSingleValueSupplier > - > - eventSource > - when: #needsValue > - send: #getTrue > - to: self. > - succeeded := eventSource triggerEvent: #needsValue. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>getTrue: (in category 'private') ----- > - getTrue: anArg > - > - ^true! > > Item was removed: > - ----- Method: EventTest>>getTrue (in category 'private') ----- > - getTrue > - > - ^true! > > Item was removed: > - ----- Method: > EventTest>>testNoArgumentEventDependentSuppliedArgument (in category > 'running-dependent action supplied arguments') ----- > - testNoArgumentEventDependentSuppliedArgument > - > - eventSource when: #anEvent send: #add: to: eventListener with: > 'boundValue'. > - eventSource triggerEvent: #anEvent. > - self should: [eventListener includes: 'boundValue']! > > Item was removed: > - ----- Method: EventTest>>testNoValueSupplier (in category 'running- > broadcast query') ----- > - testNoValueSupplier > - > - succeeded := eventSource > - triggerEvent: #needsValue > - ifNotHandled: [true]. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testNoArgumentEvent (in category 'running- > dependent action') ----- > - testNoArgumentEvent > - > - eventSource when: #anEvent send: #heardEvent to: self. > - eventSource triggerEvent: #anEvent. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testTwoArgumentEvent (in category > 'running-dependent action') ----- > - testTwoArgumentEvent > - > - eventSource when: #anEvent:info: send: #addArg1:addArg2: to: self. > - eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ). > - self should: [(eventListener includes: 9) and: [eventListener > includes: 42]]! > > Item was removed: > - ----- Method: EventTest>>testReturnValueWithOneListener (in > category 'running-dependent value') ----- > - testReturnValueWithOneListener > - > - | value | > - eventSource > - when: #needsValue > - send: #yourself > - to: eventListener. > - value := eventSource triggerEvent: #needsValue. > - self should: [value == eventListener]! > > Item was removed: > - ----- Method: EventTest>>getFalse (in category 'private') ----- > - getFalse > - > - ^false! > > Item was removed: > - ----- Method: EventTest>>setUp (in category 'running') ----- > - setUp > - > - super setUp. > - eventSource := Object new. > - eventListener := Bag new. > - succeeded := false! > > Item was removed: > - TestCase subclass: #EventTest > - instanceVariableNames: 'eventSource eventListener succeeded' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'System-Object Events-Tests'! > > Item was removed: > - ----- Method: EventTest>>heardEvent (in category 'private') ----- > - heardEvent > - > - succeeded := true! > > Item was removed: > - ----- Method: EventTest>>testRemoveActionsTwiceForEvent (in > category 'running-remove actions') ----- > - testRemoveActionsTwiceForEvent > - > - eventSource > - when: #anEvent send: #size to: eventListener; > - when: #anEvent send: #getTrue to: self; > - when: #anEvent: send: #fizzbin to: self. > - eventSource removeActionsForEvent: #anEvent. > - self assert: (eventSource hasActionForEvent: #anEvent) not. > - eventSource removeActionsForEvent: #anEvent. > - self assert: (eventSource hasActionForEvent: #anEvent) not.! > > Item was removed: > - ----- Method: EventTest>>testRemoveActionsForEvent (in category > 'running-remove actions') ----- > - testRemoveActionsForEvent > - > - eventSource > - when: #anEvent send: #size to: eventListener; > - when: #anEvent send: #getTrue to: self; > - when: #anEvent: send: #fizzbin to: self. > - eventSource removeActionsForEvent: #anEvent. > - self shouldnt: [eventSource hasActionForEvent: #anEvent]! > > Item was removed: > - ----- Method: EventTest>>testMultipleValueSuppliers (in category > 'running-broadcast query') ----- > - testMultipleValueSuppliers > - > - eventSource > - when: #needsValue > - send: #getFalse > - to: self. > - eventSource > - when: #needsValue > - send: #getTrue > - to: self. > - succeeded := eventSource triggerEvent: #needsValue. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testRemoveActionsWithReceiver (in > category 'running-remove actions') ----- > - testRemoveActionsWithReceiver > - > - | action | > - eventSource > - when: #anEvent send: #size to: eventListener; > - when: #anEvent send: #getTrue to: self; > - when: #anEvent: send: #fizzbin to: self. > - eventSource removeActionsWithReceiver: self. > - action := eventSource actionForEvent: #anEvent. > - self assert: (action respondsTo: #receiver). > - self assert: ((action receiver == self) not)! > > Item was removed: > - ----- Method: > EventTest>>testMultipleValueSuppliersEventHasArgumentsWithGC (in > category 'running-broadcast query') ----- > - testMultipleValueSuppliersEventHasArgumentsWithGC > - > - eventSource > - when: #needsValue: > - send: #getFalse: > - to: self > - with: Object new. > - eventSource > - when: #needsValue: > - send: #getTrue: > - to: self > - with: Object new. > - Smalltalk garbageCollectMost. > - succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'. > - self should: [succeeded = nil] > - ! > > Item was removed: > - ----- Method: > EventTest>>testMultipleValueSuppliersEventHasArguments (in category > 'running-broadcast query') ----- > - testMultipleValueSuppliersEventHasArguments > - > - eventSource > - when: #needsValue: > - send: #getFalse: > - to: self. > - eventSource > - when: #needsValue: > - send: #getTrue: > - to: self. > - succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>tearDown (in category 'running') ----- > - tearDown > - > - eventSource releaseActionMap. > - eventSource := nil. > - eventListener := nil. > - super tearDown. > - ! > > Item was removed: > - ----- Method: EventTest>>getFalse: (in category 'private') ----- > - getFalse: anArg > - > - ^false! > > Item was removed: > - ----- Method: > EventTest>>testNoArgumentEventDependentSuppliedArguments (in > category 'running-dependent action supplied arguments') ----- > - testNoArgumentEventDependentSuppliedArguments > - > - eventSource > - when: #anEvent > - send: #addArg1:addArg2: > - to: self > - withArguments: #('hello' 'world'). > - eventSource triggerEvent: #anEvent. > - self should: [(eventListener includes: 'hello') and: > [eventListener includes: 'world']]! > >

1 1

[Pharo-project] BlockClosure>>asMinimalRepresentation
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 27, 2009 6:45:17 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Kernel-ar.231.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-ar.231.mcz > > ==================== Summary ==================== > > Name: Kernel-ar.231 > Author: ar > Time: 26 August 2009, 9:44:33 am > UUID: 0fa0cc93-b060-8546-b78f-afa7b8429e80 > Ancestors: Kernel-ar.230 > > BlockClosure>>asMinimalRepresentation needs to return self, just > like the comment says. > > =============== Diff against Kernel-ar.230 =============== > > Item was changed: > ----- Method: BlockClosure>>asMinimalRepresentation (in category > 'events-support') ----- > asMinimalRepresentation > "For use in the when:evaluate: protocol, i.e., > foo when: #bar evaluate:[self handleBar]. > Return the receiver." > + ^self! > - ^true! > >

1 1

[Pharo-project] Compiled Method The Trunk: Kernel-ar.229.mcz
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 27, 2009 5:43:57 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Kernel-ar.229.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-ar.229.mcz > > ==================== Summary ==================== > > Name: Kernel-ar.229 > Author: ar > Time: 26 August 2009, 8:42:37 am > UUID: fad5617c-3a41-4c4e-80af-d8b2234cca10 > Ancestors: Kernel-dtl.226, Kernel-djr.228 > > Merging Kernel-djr.228: > > CompiledMethod>>= seems to be broken. Attempt to fix it. > > MethodProperties>>analogousCodeTo: calls Pragma>>analogousCodeTo: > which does not exist. > > Further assume when both properties are nil and both pragmas are > empty, its equal. > > =============== Diff against Kernel-dtl.226 =============== > > Item was changed: > ----- Method: MethodProperties>>analogousCodeTo: (in category > 'testing') ----- > analogousCodeTo: aMethodProperties > pragmas > ifNil: [aMethodProperties pragmas notEmpty ifTrue: [^false]] > ifNotNil: > + [pragmas size ~= aMethodProperties pragmas size ifTrue: > - [aMethodProperties pragmas isEmpty ifTrue: [^false]. > - pragmas size ~= aMethodProperties pragmas size ifTrue: > [^false]. > pragmas with: aMethodProperties pragmas do: > [:mine :others| > (mine analogousCodeTo: others) ifFalse: [^false]]]. > + (self propertiesIsNil and: [aMethodProperties propertiesIsNil]) > ifTrue: [^true]. > ^(self hasAtLeastTheSamePropertiesAs: aMethodProperties) > and: [aMethodProperties hasAtLeastTheSamePropertiesAs: self]! > > Item was added: > + ----- Method: MethodProperties>>propertiesIsNil (in category > 'testing') ----- > + propertiesIsNil > + ^ properties isNil! > > Item was added: > + ----- Method: MethodProperties>>keysAndValuesDo: (in category > 'accessing') ----- > + keysAndValuesDo: aBlock > + properties keysAndValuesDo: aBlock! > > Item was added: > + ----- Method: Pragma>>analogousCodeTo: (in category 'testing') ----- > + analogousCodeTo: aPragma > + ^ (self arguments = aPragma arguments) & > + (self keyword = aPragma keyword)! > >

1 1

[Pharo-project] compiler notification :)
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 26, 2009 6:27:44 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Compiler-cwp.73.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-cwp.73.mcz > > ==================== Summary ==================== > > Name: Compiler-cwp.73 > Author: cwp > Time: 25 August 2009, 8:45:22 am > UUID: 0fc4552f-d0c6-481a-8fa0-2bea842240b2 > Ancestors: Compiler-rss.72 > > The compiler now uses notifications to signal that a correctable > error has been found in the method source, rather than interacting > directly with the user. > > =============== Diff against Compiler-rss.72 =============== > > Item was added: > + ----- Method: ParserNotification>>setName: (in category 'as yet > unclassified') ----- > + setName: aString > + name _ aString! > > Item was changed: > SystemOrganization addCategory: #'Compiler-Kernel'! > SystemOrganization addCategory: #'Compiler-ParseNodes'! > SystemOrganization addCategory: #'Compiler-Support'! > SystemOrganization addCategory: #'Compiler-Tests'! > SystemOrganization addCategory: #'Compiler-Syntax'! > + SystemOrganization addCategory: #'Compiler-Exceptions'! > > Item was added: > + TestCase subclass: #CompilerExceptionsTest > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Compiler-Tests'! > > Item was added: > + ----- Method: ParserNotification>>defaultAction (in category 'as > yet unclassified') ----- > + defaultAction > + > + self openMenuIn: > + [:labels :lines :caption | > + UIManager default chooseFrom: labels lines: lines title: caption]! > > Item was added: > + ----- Method: UndeclaredVariable class>>signalFor:name:inRange: > (in category 'as yet unclassified') ----- > + signalFor: aParser name: aString inRange: anInterval > + ^ (self new setParser: aParser name: aString range: anInterval) > signal! > > Item was added: > + ----- Method: ParserNotification>>openMenuIn: (in category 'as yet > unclassified') ----- > + openMenuIn: aBlock > + self subclassResponsibility! > > Item was changed: > ----- Method: > Parser>>correctSelector:wordIntervals:exprInterval:ifAbort: (in > category 'error correction') ----- > correctSelector: proposedKeyword wordIntervals: spots exprInterval: > expInt ifAbort: abortAction > "Correct the proposedKeyword to some selector symbol, correcting > the original text if such action is indicated. abortAction is > invoked if the proposedKeyword couldn't be converted into a valid > selector. Spots is an ordered collection of intervals within the > test stream of the for each of the keyword parts." > > + | correctSelector userSelection | > - | alternatives aStream choice correctSelector userSelection lines > firstLine | > "If we can't ask the user, assume that the keyword will be defined > later" > self interactive ifFalse: [ ^ proposedKeyword asSymbol ]. > > + userSelection _ requestor selectionInterval. > - userSelection := requestor selectionInterval. > requestor selectFrom: spots first first to: spots last last. > requestor select. > - alternatives := Symbol possibleSelectorsFor: proposedKeyword. > - self flag: #toBeFixed. > - "alternatives addAll: (MultiSymbol possibleSelectorsFor: > proposedKeyword)." > > + correctSelector _ UnknownSelector name: proposedKeyword. > + correctSelector ifNil: [ ^ abortAction value ]. > - aStream := WriteStream on: (String new: 200). > - aStream nextPutAll: (proposedKeyword contractTo: 35); cr. > - firstLine := 1. > - alternatives do: > - [:sel | aStream nextPutAll: (sel contractTo: 35); nextPut: > Character cr]. > - aStream nextPutAll: 'cancel'. > - lines := Array with: firstLine with: (alternatives size + > firstLine). > - > - choice := (UIManager default > - chooseFrom: (aStream contents substrings) > - lines: lines > - title: 'Unknown selector, please\confirm, correct, or cancel' > withCRs). > - > - (choice = 0) | (choice > (lines at: 2)) > - ifTrue: [ ^ abortAction value ]. > > requestor deselect. > requestor selectInvisiblyFrom: userSelection first to: > userSelection last. > > - choice = 1 ifTrue: [ ^ proposedKeyword asSymbol ]. > - correctSelector := alternatives at: choice - 1. > self substituteSelector: correctSelector keywords wordIntervals: > spots. > + ((proposedKeyword last ~~ $:) and: [correctSelector last == $:]) > ifTrue: [ > - ((proposedKeyword last ~= $:) and: [correctSelector last == $:]) > ifTrue: [ > ^ abortAction value]. > ^ correctSelector. > ! > > Item was added: > + ----- Method: UnknownSelector>>openMenuIn: (in category 'as yet > unclassified') ----- > + openMenuIn: aBlock > + | alternatives labels lines caption choice | > + alternatives _ Symbol possibleSelectorsFor: name. > + labels _ Array streamContents: > + [:s | s nextPut: name; nextPutAll: alternatives; nextPut: > 'cancel']. > + lines _ {1. alternatives size + 1}. > + caption _ 'Unknown selector, please\confirm, correct, or cancel' > withCRs. > + > + choice _ aBlock value: labels value: lines value: caption. > + choice = 0 ifTrue: [self resume: nil]. > + choice = 1 ifTrue: [self resume: name asSymbol]. > + choice = labels size ifTrue: [self resume: nil]. > + self resume: (alternatives at: choice - 1).! > > Item was added: > + ParserNotification subclass: #UnknownSelector > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Compiler-Exceptions'! > > Item was changed: > ----- Method: Parser>>queryUndefined (in category 'error > correction') ----- > queryUndefined > | varStart varName | > + varName _ parseNode key. > + varStart _ self endOfLastToken + requestorOffset - varName size + > 1. > - varName := parseNode key. > - varStart := self endOfLastToken + requestorOffset - varName size > + 1. > requestor selectFrom: varStart to: varStart + varName size - 1; > select. > + (UndefinedVariable name: varName) ifFalse: [^ self fail]! > - (UIManager default chooseFrom: #('yes' 'no') title: > - ((varName , ' appears to be > - undefined at this point. > - Proceed anyway?') asText makeBoldFrom: 1 to: varName size)) > - = 1 ifFalse: [^ self fail]! > > Item was added: > + ----- Method: CompilerExceptionsTest>>selectFrom:to: (in category > 'emulating') ----- > + selectFrom: start to: end > + ! > > Item was added: > + ----- Method: ParserNotification class>>name: (in category 'as yet > unclassified') ----- > + name: aString > + ^ (self new setName: aString) signal! > > Item was added: > + ----- Method: CompilerExceptionsTest>>testUnknownSelector (in > category 'tests') ----- > + testUnknownSelector > + self > + should: > + [self class > + compile: 'griffle self reallyHopeThisIsntImplementedAnywhere' > + notifying: self] > + raise: UnknownSelector! > > Item was changed: > ----- Method: Parser>>correctVariable:interval: (in category 'error > correction') ----- > + correctVariable: proposedVariable interval: spot > - correctVariable: proposedVariable interval: spot > "Correct the proposedVariable to a known variable, or declare it > as a new > variable if such action is requested. We support declaring > lowercase > variables as temps or inst-vars, and uppercase variables as > Globals or > ClassVars, depending on whether the context is nil > (class=UndefinedObject). > Spot is the interval within the test stream of the variable. > rr 3/4/2004 10:26 : adds the option to define a new class. " > > - | tempIvar labels actions lines alternatives binding > userSelection choice action | > - > "Check if this is an i-var, that has been corrected already (ugly)" > - (encoder classEncoding allInstVarNames includes: > proposedVariable) ifTrue: [ > - ^InstanceVariableNode new > - name: proposedVariable > - index: (encoder classEncoding allInstVarNames indexOf: > proposedVariable)]. > - > - "If we can't ask the user for correction, make it undeclared" > - self interactive > - ifFalse: [ ^encoder undeclared: proposedVariable ]. > - > - "First check to see if the requestor knows anything about the > variable" > - tempIvar := proposedVariable first canBeNonGlobalVarInitial. > - (tempIvar and: [ (binding := requestor bindingOf: > proposedVariable) notNil ]) > - ifTrue: [ ^encoder global: binding name: proposedVariable ]. > - userSelection := requestor selectionInterval. > - requestor selectFrom: spot first to: spot last. > - requestor select. > - > - "Build the menu with alternatives" > - labels := OrderedCollection new. actions := OrderedCollection > new. lines := OrderedCollection new. > - alternatives := encoder possibleVariablesFor: proposedVariable. > - tempIvar > - ifTrue: [ > - labels add: 'declare temp'. > - actions add: [ self declareTempAndPaste: proposedVariable ]. > - labels add: 'declare instance'. > - actions add: [ self declareInstVar: proposedVariable ] ] > - ifFalse: [ > - labels add: 'define new class'. > - actions add: [self defineClass: proposedVariable]. > - labels add: 'declare global'. > - actions add: [ self declareGlobal: proposedVariable ]. > - encoder classEncoding == UndefinedObject ifFalse: [ > - labels add: 'declare class variable'. > - actions add: [ self declareClassVar: proposedVariable ] ] ]. > - lines add: labels size. > - alternatives do: [ :each | > - labels add: each. > - actions add: [ > - self substituteWord: each wordInterval: spot offset: 0. > - encoder encodeVariable: each ] fixTemps ]. > - lines add: labels size. > - labels add: 'cancel'. > > "Display the pop-up menu" > + > + | tempIvar binding userSelection action | > + (encoder classEncoding instVarNames includes: proposedVariable) > + ifTrue: > + [^(LiteralVariableNode new) > + name: proposedVariable > + index: (encoder classEncoding instVarNames indexOf: > proposedVariable) - 1 > + type: 1; > + yourself]. > + > + "If we can't ask the user for correction, make it undeclared" > + self interactive ifFalse: [^encoder undeclared: proposedVariable]. > + > + "First check to see if the requestor knows anything about the > variable" > + tempIvar := proposedVariable first isLowercase. > + (tempIvar and: [(binding := requestor bindingOf: > proposedVariable) notNil]) > + ifTrue: [^encoder global: binding name: proposedVariable]. > + userSelection := requestor selectionInterval. > + requestor selectFrom: spot first to: spot last. > + requestor select. > + > + "Build the menu with alternatives" > + action := UndeclaredVariable > + signalFor: self > + name: proposedVariable > + inRange: spot. > + action ifNil: [^self fail]. > - choice := (UIManager default chooseFrom: labels asArray lines: > lines asArray > - title: 'Unknown variable: ', proposedVariable, ' please > correct, or cancel:'). > - action := actions at: choice ifAbsent: [ ^self fail ]. > > "Execute the selected action" > requestor deselect. > requestor selectInvisiblyFrom: userSelection first to: > userSelection last. > ^action value! > > Item was added: > + ParserNotification subclass: #UndeclaredVariable > + instanceVariableNames: 'parser interval' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Compiler-Exceptions'! > > Item was added: > + ParserNotification subclass: #UndefinedVariable > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Compiler-Exceptions'! > > Item was added: > + Notification subclass: #ParserNotification > + instanceVariableNames: 'name' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Compiler-Exceptions'! > > Item was added: > + ----- Method: UndeclaredVariable>>openMenuIn: (in category 'as yet > unclassified') ----- > + openMenuIn: aBlock > + | alternatives labels actions lines caption choice | > + alternatives := parser possibleVariablesFor: name. > + labels := OrderedCollection new. > + actions := OrderedCollection new. > + lines := OrderedCollection new. > + name first isLowercase > + ifTrue: > + [labels add: 'declare temp'. > + actions add: [parser declareTempAndPaste: name]. > + labels add: 'declare instance'. > + actions add: [parser declareInstVar: name]] > + ifFalse: > + [labels add: 'define new class'. > + actions add: [parser defineClass: name]. > + labels add: 'declare global'. > + actions add: [parser declareGlobal: name]. > + parser canDeclareClassVariable > + ifTrue: > + [labels add: 'declare class variable'. > + actions add: [parser declareClassVar: name]]]. > + lines add: labels size. > + alternatives do: > + [:each | > + labels add: each. > + actions add: [parser subsituteVariable: each atInterval: > interval] fixTemps]. > + lines add: labels size. > + labels add: 'cancel'. > + caption := 'Unknown variable: ' , name , ' please correct, or > cancel:'. > + choice := aBlock value: labels value: lines value: caption. > + self resume: (actions at: choice ifAbsent: [nil])! > > Item was added: > + ----- Method: CompilerExceptionsTest>>select (in category > 'emulating') ----- > + select > + ! > > Item was added: > + ----- Method: Parser>>canDeclareClassVariable (in category 'error > correction') ----- > + canDeclareClassVariable > + ^encoder classEncoding ~~ UndefinedObject! > > Item was added: > + ----- Method: UndefinedVariable>>openMenuIn: (in category 'as yet > unclassified') ----- > + openMenuIn: aBlock > + | labels caption index | > + labels _ #('yes' 'no'). > + caption _ name, ' appears to be > + undefined at this point. > + Proceed anyway?'. > + > + index _ aBlock value: labels value: #() value: caption. > + ^ self resume: index = 1! > > Item was added: > + ----- Method: CompilerExceptionsTest>>selectionInterval (in > category 'emulating') ----- > + selectionInterval > + ^ 1 to: 0! > > Item was added: > + ----- Method: CompilerExceptionsTest>>griffle (in category 'as yet > unclassified') ----- > + griffle | goo |! > > Item was changed: > ----- Method: Parser>>removeUnusedTemps (in category 'error > correction') ----- > removeUnusedTemps > "Scan for unused temp names, and prompt the user about the > prospect of removing each one found" > > | str end start madeChanges | > + madeChanges _ false. > + str _ requestor text string. > - madeChanges := false. > - str := requestor text string. > ((tempsMark between: 1 and: str size) > and: [(str at: tempsMark) = $|]) ifFalse: [^ self]. > encoder unusedTempNames do: > [:temp | > + (UnusedVariable name: temp) ifTrue: > - (UIManager default chooseFrom: #('yes' 'no') title: > - ((temp , ' appears to be\unused in this method.\OK to remove > it?' withCRs) asText makeBoldFrom: 1 to: temp size)) > - = 1 > - ifTrue: > [(encoder encodeVariable: temp) isUndefTemp > ifTrue: > + [end _ tempsMark. > - [end := tempsMark. > ["Beginning at right temp marker..." > + start _ end - temp size + 1. > - start := end - temp size + 1. > end < temp size or: [temp = (str copyFrom: start to: end) > and: [(str at: start-1) isSeparator & (str at: end+1) > isSeparator]]] > + whileFalse: > + ["Search left for the unused temp" > + end _ requestor nextTokenFrom: end direction: -1]. > - whileFalse: > - ["Search left for the unused temp" > - end := requestor nextTokenFrom: end direction: -1]. > end < temp size ifFalse: > + [(str at: start-1) = $ ifTrue: [start _ start-1]. > - [(str at: start-1) = $ ifTrue: [start := start-1]. > requestor correctFrom: start to: end with: ''. > + str _ str copyReplaceFrom: start to: end with: ''. > + madeChanges _ true. > + tempsMark _ tempsMark - (end-start+1)]] > - str := str copyReplaceFrom: start to: end with: ''. > - madeChanges := true. > - tempsMark := tempsMark - (end-start+1)]] > ifFalse: > [self inform: > + 'You''ll first have to remove the > + statement where it''s stored into']]]. > + madeChanges ifTrue: [ParserRemovedUnusedTemps signal]! > - 'You''ll first have to remove the\statement where it''s stored > into' withCRs]]]. > - madeChanges ifTrue: [ReparseAfterSourceEditing signal]! > > Item was added: > + ParserNotification subclass: #UnusedVariable > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Compiler-Exceptions'! > > Item was added: > + ----- Method: CompilerExceptionsTest>>testUndeclaredVariable (in > category 'tests') ----- > + testUndeclaredVariable > + self > + should: > + [self class > + compile: 'griffle ^ goo' > + notifying: self] > + raise: UndeclaredVariable! > > Item was added: > + ----- Method: UnusedVariable>>openMenuIn: (in category 'as yet > unclassified') ----- > + openMenuIn: aBlock > + | labels caption index | > + labels _ #('yes' 'no'). > + caption _ name , ' appears to be > + unused in this method. > + OK to remove it?'. > + > + index _ aBlock value: labels value: #() value: caption. > + self resume: index = 1! > > Item was added: > + ----- Method: CompilerExceptionsTest>>testUndefinedVariable (in > category 'tests') ----- > + testUndefinedVariable > + self > + should: > + [self class > + compile: 'griffle | goo | ^ goo' > + notifying: self] > + raise: UndefinedVariable! > > Item was added: > + ----- Method: Parser>>subsituteVariable:atInterval: (in category > 'error correction') ----- > + subsituteVariable: each atInterval: anInterval > + self > + substituteWord: each > + wordInterval: anInterval > + offset: 0. > + ^encoder encodeVariable: each! > > Item was added: > + ----- Method: CompilerExceptionsTest>>unusedVariableSource (in > category 'private') ----- > + unusedVariableSource > + ^ 'griffle > + | goo | > + ^ nil'! > > Item was added: > + ----- Method: UndeclaredVariable>>setParser:name:range: (in > category 'as yet unclassified') ----- > + setParser: aParser name: aString range: anInterval > + parser := aParser. > + name := aString. > + interval := anInterval! > > Item was added: > + ----- Method: CompilerExceptionsTest>>text (in category > 'emulating') ----- > + text > + ^ self unusedVariableSource! > > Item was added: > + ----- Method: Parser>>possibleVariablesFor: (in category 'error > correction') ----- > + possibleVariablesFor: proposedVariable > + ^encoder possibleVariablesFor: proposedVariable! > > Item was added: > + ----- Method: CompilerExceptionsTest>>testUnusedVariable (in > category 'tests') ----- > + testUnusedVariable > + self > + should: > + [self class > + compile: self unusedVariableSource > + notifying: self] > + raise: UnusedVariable! > >

2 2

[Pharo-project] Using VMMaker on Pharo
by jean baptiste arnaud Aug. 27, 2009

Aug. 27, 2009

Hi, just a few feedback, about VMMaker, on Pharo some plugin like (GeniePlugin) can't be used because, when generate on pharo they raise a error "InvalidDirectoryError". see with : Last Image Core PharoCore-1.0-10414-BETA.zip<http://gforge.inria.fr/frs/download.php/22770/PharoCore-1.0-10414-BETA.zip> . clean install : FFI with ScriptLoader loadFFI. install from squeaksource of Speech and VMMaker. -- Arnaud Jean Baptiste PhD Student - Rmod Team - INRIA http://rmod.lille.inria.fr

4 3

[Pharo-project] New Pharo based on core 10418
by Damien Cassou Aug. 26, 2009

Aug. 26, 2009

Here is a fresh new Pharo http://pharo-project.org/pharo-download This version contains the two browsers: one based on the categories and one based on packages. To change the default one, open a browser and click on the right-most button in the title bar. Happy Pharoing -- Damien Cassou http://damiencassou.seasidehosting.st "Lambdas are relegated to relative obscurity until Java makes them popular by not having them." James Iry

4 3

[Pharo-project] new socket API
by Philippe Marschall Aug. 26, 2009

Aug. 26, 2009

Uhm, guys I really appreciate that I can use IPv6 but: Yesterday I spent some time trying to open a socket given that I know the IP address and the port. The lack of documentation or suggested types sure wasn't helpful and I wished Pharo was statically typed so that I at least knew what I had to pass in. That's what I came up with: hostIP := (SocketAddressInformation forHost: anIpString service: '' flags: 0 addressFamily: SocketAddressInformation addressFamilyINET4 socketType: SocketAddressInformation socketTypeStream protocol: SocketAddressInformation protocolTCP) first socketAddress. socket := Socket new. socket connectTo: hostIP port: portNumber. There's gotta be a better way to do this. The whole API with arrays where you have to know the index, ByteArray objects, integer flags and so forth seems like a blast from the past. Cheers Philippe

5 10

Aug. 26, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 22, 2009 5:25:58 PM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Kernel-bf.225.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Bert Freudenberg uploaded a new version of Kernel to project The > Trunk: > http://source.squeak.org/trunk/Kernel-bf.225.mcz > > ==================== Summary ==================== > > Name: Kernel-bf.225 > Author: bf > Time: 22 August 2009, 5:25:40 am > UUID: f47aa5b7-b450-4ed2-8237-26841337ce18 > Ancestors: Kernel-ar.217 > > Clarify the meaning of #asOop in Squeak. > > =============== Diff against Kernel-ar.217 =============== > > Item was changed: > ----- Method: Object>>asOop (in category 'system primitives') ----- > asOop > + "This method is for compatibility only. > + In Smalltalk, this used to return an integer unique to each object. > + In Squeak, OOPs are internal to the VM. Accessing an OOP would > be useless anyway since it changes when the object is moved during > garbage collection." > - "Primitive. Answer a SmallInteger whose value is half of the > receiver's > - object pointer (interpreting object pointers as 16-bit signed > quantities). > - Fail if the receiver is a SmallInteger. Essential. See Object > documentation > - whatIsAPrimitive." > > + ^self identityHash! > - <primitive: 75> > - self primitiveFailed! > > Item was removed: > - ----- Method: SmallInteger>>asOop (in category 'system > primitives') ----- > - asOop > - "Answer an object pointer as an integer, return negative number > for SmallInteger" > - > - ^ self! > >

1 0

[Pharo-project] [ANN] Aida/Web 6.0 with tree-like control flow released
by Janko MivÅ¡ek Aug. 26, 2009

Aug. 26, 2009

Dear Smalltalkers, After a long journey the Aida 6.0 web framework and application server is released today on Squeak, Pharo and VisualWorks. To download it visit our website http://www.aidaweb.si and its download section. Come also on ESUG Aida tutorial next Thursday to get a feel of all new features. Major new features since previous 5.6: 1.Tree-like control flow (see WebDemoApp control flow examples) as the final step to close gap to the support of all kinds of web applications from those with an usual graph-like navigation to those with a tree-like control flow as found in GUI-like web apps. 2.Introduction of web execution contexts . These contexts give a scope to the "execution" of web request and are the precondition for controlling this flow of execution. 3.Translation support for text on the web apps, to allow the multilingual text on the pages, besides multilingual content, 4.Caching (memcached like) to improve performance of serving the content, which otherwise doesn't change frequently. About tree-like control flow in action with a help of the attached image: in Aida action method you want to confirm a delete by asking the user with a popup dialog window. Execution is there interrupted until the YES or NO button is pressed on dialog. At that time the execution of action method continue and delete is done if YES button was pressed. Best regards Janko MivÅ¡ek -- Janko MivÅ¡ek AIDA/Web Smalltalk Web Application Server http://www.aidaweb.si

1 0