- Pharo-users - lists.pharo.org

Re: [Pharo-users] Error when trying to commit to SmalltalkHub

by StÃ©phane Ducasse

On Jan 20, 2013, at 3:33 PM, MartinW wrote: > Ok, i got the password wrong. > There could be a better error message though. I submit it to the bugtracker. Indeed :) > > > > -- > View this message in context: http://forum.world.st/Error-when-trying-to-commit-to-SmalltalkHub-tp4664285… > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. >

Jan. 20, 2013

Re: [Pharo-users] Error when trying to commit to SmalltalkHub

by MartinW

Ok, i got the password wrong. There could be a better error message though. I submit it to the bugtracker. -- View this message in context: http://forum.world.st/Error-when-trying-to-commit-to-SmalltalkHub-tp4664285… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Jan. 20, 2013

ESUG 2013: book the dates: 8 to 13 September at Annecy (FR)

by StÃ©phane Ducasse

Hi Smalltalkers I do not know if you are aware of it but ESUG 2013 will be in a lovely place with a great organization team: Annecy in France also called the little venice of the alps http://www.tourisme-annecy.net The dates are public now: from 9-13 of September with a camp day the 8th so book the dates and start to think about your presentations. We will launch another call for presentations. Please distribute :) Stef and the ESUG board.

Jan. 20, 2013

Error when trying to commit to SmalltalkHub

by MartinW

Whenever i try to commit to SmalltalkHub i get this Error: Error: Could not save Boids-MartinWalk.9.mcz: ZnHttpUnsuccessful: 400 Bad Request Probably i make something very trivial wrong, as nobody else seems to have problems? THERE_BE_DRAGONS_HERE Error: Could not save Boids-MartinWalk.9.mcz: ZnHttpUnsuccessful: 400 Bad Request 20 January 2013 3:07:44.564 pm VM: Mac OS - intel - 1082 - NBCoInterpreter NativeBoost-CogPlugin-IgorStasenko.15 uuid: 44b6b681-38f1-4a9e-b6ee-8769b499576a Nov 27 2012 NBCogit NativeBoost-CogPlugin-IgorStasenko.15 uuid: 44b6b681-38f1-4a9e-b6ee-8769b499576a Nov 27 2012 https://git.gitorious.org/cogvm/blessed.git Commit: 40ac7e7bdec6fef0e934d2c019b86db996053912 Date: 2012-11-19 18:54:49 +0100 By: Mariano Martinez Peck <marianopeck(a)gmail.com> Jenkins build #146 Image: Pharo2.0a [Latest update: #20468] MCHttpRepository(Object)>>error: Receiver: a MCHttpRepository(http://smalltalkhub.com/mc/MartinWalk/Boids/main) Arguments and temporary variables: aString: 'Could not save Boids-MartinWalk.9.mcz: ZnHttpUnsuccessful: 400 Bad Re...etc... Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://smalltalkhub.com/mc/Mar...etc... storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil location: 'http://smalltalkhub.com/mc/MartinWalk/Boids/main' user: 'MartinWalk' password: 'i replaced this for the forum post' readerCache: nil [:exception | self error: 'Could not save ' , aString , ': ' , exception printString] in [self httpClient entity: entity; ifFail: [:exception | self error: 'Could not save ' , aString , ': ' , exception printString]; url: (self urlForFileNamed: aString); put] in MCHttpRepository>>writeStreamForFileNamed:replace:do: Receiver: a MCHttpRepository(http://smalltalkhub.com/mc/MartinWalk/Boids/main) Arguments and temporary variables: aString: 'Boids-MartinWalk.9.mcz' ignoreBoolean: false aBlock: [:s | aVersion fileOutOn: s] entity: a ZnStreamingEntity(application/octet-stream 8341B) exception: ZnHttpUnsuccessful: 400 Bad Request Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://smalltalkhub.com/mc/Mar...etc... storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil location: 'http://smalltalkhub.com/mc/MartinWalk/Boids/main' user: 'MartinWalk' password: 'i replaced this for the forum post' readerCache: nil BlockClosure>>cull: Receiver: [:exception | self error: 'Could not save ' , aString , ': ' , exception printString] Arguments and temporary variables: anArg: ZnHttpUnsuccessful: 400 Bad Request Receiver's instance variables: outerContext: [self httpClient entity: entity; ifFail: [:exception | self ...etc... startpc: 95 numArgs: 1 [self exceptionHandlerBlock cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ZnHttpUnsuccessful: 400 Bad Request val: nil Receiver's instance variables: sender: [[self executeWithRetriesRemaining: self numberOfRetries] on: Error ...etc... pc: 17 stackp: 3 method: BlockClosure>>#on:do: closureOrNil: nil receiver: [self executeWithRetriesRemaining: self numberOfRetries] BlockClosure>>ensure: Receiver: [self exceptionHandlerBlock cull: exception] Arguments and temporary variables: aBlock: [self exceptionHandlerIsActive: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 99 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ZnHttpUnsuccessful: 400 Bad Request val: nil Receiver's instance variables: sender: [[self executeWithRetriesRemaining: self numberOfRetries] on: Error ...etc... pc: 17 stackp: 3 method: BlockClosure>>#on:do: closureOrNil: nil receiver: [self executeWithRetriesRemaining: self numberOfRetries] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ZnHttpUnsuccessful: 400 Bad Request val: nil Receiver's instance variables: sender: ZnClient>>executeWithRetriesRemaining: pc: 17 stackp: 3 method: BlockClosure>>#on:do: closureOrNil: nil receiver: [self executeWithRedirectsRemaining: self maxNumberOfRedirects] ZnHttpUnsuccessful(Exception)>>signal Receiver: ZnHttpUnsuccessful: 400 Bad Request Arguments and temporary variables: Receiver's instance variables: messageText: '400 Bad Request' tag: nil signaler: a ZnClient signalContext: ZnHttpUnsuccessful(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil response: a ZnResponse(400 Bad Request text/html ) ZnClient>>handleResponse Receiver: a ZnClient Arguments and temporary variables: Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport ZnClient>>executeWithRedirectsRemaining: Receiver: a ZnClient Arguments and temporary variables: redirectCount: 3 Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [self executeWithRedirectsRemaining: self maxNumberOfRedirects] in ZnClient>>executeWithRetriesRemaining: Receiver: a ZnClient Arguments and temporary variables: retryCount: 2 Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport BlockClosure>>on:do: Receiver: [self executeWithRedirectsRemaining: self maxNumberOfRedirects] Arguments and temporary variables: exception: an ExceptionSet handlerAction: [:exception | retryCount > 0 ifTrue: [self handleRetry: except...etc... handlerActive: true Receiver's instance variables: outerContext: ZnClient>>executeWithRetriesRemaining: startpc: 69 numArgs: 0 ZnClient>>executeWithRetriesRemaining: Receiver: a ZnClient Arguments and temporary variables: retryCount: 2 Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [self executeWithRetriesRemaining: self numberOfRetries] in [[self executeWithRetriesRemaining: self numberOfRetries] on: Error do: self ifFailBlock] in ZnClient>>executeWithTimeout Receiver: a ZnClient Arguments and temporary variables: Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport BlockClosure>>on:do: Receiver: [self executeWithRetriesRemaining: self numberOfRetries] Arguments and temporary variables: exception: Error handlerAction: [:exception | self error: 'Could not save ' , aString , ': ' , e...etc... handlerActive: false Receiver's instance variables: outerContext: [[self executeWithRetriesRemaining: self numberOfRetries] on: E...etc... startpc: 46 numArgs: 0 [[self executeWithRetriesRemaining: self numberOfRetries] on: Error do: self ifFailBlock] in ZnClient>>executeWithTimeout Receiver: a ZnClient Arguments and temporary variables: Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [^ block value] in ZnClient>>withTimeoutDo: Receiver: a ZnClient Arguments and temporary variables: block: [[self executeWithRetriesRemaining: self numberOfRetries] on: Error ...etc... Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [p psValueAt: index put: anObject. aBlock value] in ZnConnectionTimeout(DynamicVariable)>>value:during: Receiver: a ZnConnectionTimeout Arguments and temporary variables: anObject: 30 aBlock: [^ block value] p: a Process in nil oldValue: nil Receiver's instance variables: index: 1 BlockClosure>>ensure: Receiver: [p psValueAt: index put: anObject. aBlock value] Arguments and temporary variables: aBlock: [p psValueAt: index put: oldValue] complete: nil returnValue: nil Receiver's instance variables: outerContext: ZnConnectionTimeout(DynamicVariable)>>value:during: startpc: 62 numArgs: 0 ZnConnectionTimeout(DynamicVariable)>>value:during: Receiver: a ZnConnectionTimeout Arguments and temporary variables: anObject: 30 aBlock: [^ block value] p: a Process in nil oldValue: nil Receiver's instance variables: index: 1 ZnConnectionTimeout class(DynamicVariable class)>>value:during: Receiver: ZnConnectionTimeout Arguments and temporary variables: anObject: 30 aBlock: [^ block value] Receiver's instance variables: superclass: DynamicVariable methodDict: a MethodDictionary() format: 132 layout: nil instanceVariables: nil organization: a ClassOrganizer subclasses: nil name: #ZnConnectionTimeout classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Zinc-HTTP-Variables' traitComposition: {} localSelectors: nil hash: 972029952 soleInstance: a ZnConnectionTimeout ZnClient>>withTimeoutDo: Receiver: a ZnClient Arguments and temporary variables: block: [[self executeWithRetriesRemaining: self numberOfRetries] on: Error ...etc... Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport ZnClient>>executeWithTimeout Receiver: a ZnClient Arguments and temporary variables: Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [result := self executeWithTimeout] in ZnClient>>execute Receiver: a ZnClient Arguments and temporary variables: initialMilliseconds: 121017 result: nil Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [^ block value] in ZnClient>>withProgressDo: Receiver: a ZnClient Arguments and temporary variables: block: [result := self executeWithTimeout] Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [p psValueAt: index put: anObject. aBlock value] in ZnSignalProgress(DynamicVariable)>>value:during: Receiver: a ZnSignalProgress Arguments and temporary variables: anObject: false aBlock: [^ block value] p: a Process in nil oldValue: nil Receiver's instance variables: index: 2 BlockClosure>>ensure: Receiver: [p psValueAt: index put: anObject. aBlock value] Arguments and temporary variables: aBlock: [p psValueAt: index put: oldValue] complete: nil returnValue: nil Receiver's instance variables: outerContext: ZnSignalProgress(DynamicVariable)>>value:during: startpc: 62 numArgs: 0 ZnSignalProgress(DynamicVariable)>>value:during: Receiver: a ZnSignalProgress Arguments and temporary variables: anObject: false aBlock: [^ block value] p: a Process in nil oldValue: nil Receiver's instance variables: index: 2 ZnSignalProgress class(DynamicVariable class)>>value:during: Receiver: ZnSignalProgress Arguments and temporary variables: anObject: false aBlock: [^ block value] Receiver's instance variables: superclass: DynamicVariable methodDict: a MethodDictionary() format: 132 layout: nil instanceVariables: nil organization: a ClassOrganizer subclasses: nil name: #ZnSignalProgress classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Zinc-HTTP-Variables' traitComposition: {} localSelectors: nil hash: nil soleInstance: a ZnSignalProgress ZnClient>>withProgressDo: Receiver: a ZnClient Arguments and temporary variables: block: [result := self executeWithTimeout] Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport ZnClient>>execute Receiver: a ZnClient Arguments and temporary variables: initialMilliseconds: 121017 result: nil Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport ZnClient>>put Receiver: a ZnClient Arguments and temporary variables: Receiver's instance variables: request: a ZnRequest(PUT /mc/MartinWalk/Boids/main/Boids-MartinWalk.9.mcz) response: a ZnResponse(400 Bad Request text/html ) connection: nil lastUsed: nil options: a Dictionary(#enforceAcceptContentType->true #enforceHttpSuccess->true...etc... session: nil log: a ZnLogSupport [self httpClient entity: entity; ifFail: [:exception | self error: 'Could not save ' , aString , ': ' , exception printString]; url: (self urlForFileNamed: aString); put] in MCHttpRepository>>writeStreamForFileNamed:replace:do: Receiver: a MCHttpRepository(http://smalltalkhub.com/mc/MartinWalk/Boids/main) Arguments and temporary variables: aString: 'Boids-MartinWalk.9.mcz' ignoreBoolean: false aBlock: [:s | aVersion fileOutOn: s] entity: a ZnStreamingEntity(application/octet-stream 8341B) Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://smalltalkhub.com/mc/Mar...etc... storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil location: 'http://smalltalkhub.com/mc/MartinWalk/Boids/main' user: 'MartinWalk' password: 'i replaced this for the forum post' readerCache: nil [workBlock value] in [:bar | [workBlock value] on: HTTPProgress do: [:ex | (ex total ifNil: [true] ifNotNil: [ex amount == nil]) ifFalse: [(nextUpdateTime < Time millisecondClockValue or: [ex total = ex amount]) ifTrue: [bar current: ex amount asFloat / ex total asFloat. nextUpdateTime := Time millisecondClockValue + 100]]. ex resume]] in MCHttpRepository>>displayProgress:during: Receiver: a MCHttpRepository(http://smalltalkhub.com/mc/MartinWalk/Boids/main) Arguments and temporary variables: label: 'Uploading Boids-MartinWalk.9.mcz' workBlock: [self httpClient entity: entity; ifFail: [:exception | self err...etc... nextUpdateTime: 0 bar: a Job Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://smalltalkhub.com/mc/Mar...etc... storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil location: 'http://smalltalkhub.com/mc/MartinWalk/Boids/main' user: 'MartinWalk' password: 'i replaced this for the forum post' readerCache: nil BlockClosure>>on:do: Receiver: [workBlock value] Arguments and temporary variables: exception: HTTPProgress handlerAction: [:ex | (ex total ifNil: [true] ifNotNil: [ex amount == ni...etc... handlerActive: true Receiver's instance variables: outerContext: [:bar | [workBlock value] on: HTTPProgress do: [:ex | (ex...etc... startpc: 108 numArgs: 0 [:bar | [workBlock value] on: HTTPProgress do: [:ex | (ex total ifNil: [true] ifNotNil: [ex amount == nil]) ifFalse: [(nextUpdateTime < Time millisecondClockValue or: [ex total = ex amount]) ifTrue: [bar current: ex amount asFloat / ex total asFloat. nextUpdateTime := Time millisecondClockValue + 100]]. ex resume]] in MCHttpRepository>>displayProgress:during: Receiver: a MCHttpRepository(http://smalltalkhub.com/mc/MartinWalk/Boids/main) Arguments and temporary variables: label: 'Uploading Boids-MartinWalk.9.mcz' workBlock: [self httpClient entity: entity; ifFail: [:exception | self err...etc... nextUpdateTime: 0 bar: a Job Receiver's instance variables: creationTemplate: 'MCHttpRepository location: ''http://smalltalkhub.com/mc/Mar...etc... storeDiffs: nil cache: nil allFileNames: nil cacheFileNames: nil location: 'http://smalltalkhub.com/mc/MartinWalk/Boids/main' user: 'MartinWalk' password: 'i replaced this for the forum post' readerCache: nil BlockClosure>>cull: Receiver: [:bar | [workBlock value] on: HTTPProgress do: [:ex | (ex total ifNil: [true]...etc... Arguments and temporary variables: anArg: a Job Receiver's instance variables: outerContext: MCHttpRepository>>displayProgress:during: startpc: 103 numArgs: 1 [result := block cull: self] in [self prepareForRunning. [result := block cull: self] on: JobNotification do: [:notification | notification handle: self]] in Job>>run Receiver: a Job Arguments and temporary variables: result: nil Receiver's instance variables: block: [:bar | [workBlock value] on: HTTPProgress do: [:ex | (ex total ...etc... currentValue: 0.0 min: 0.0 max: 1.0 title: 'Uploading Boids-MartinWalk.9.mcz' children: an OrderedCollection() isRunning: true parent: nil process: a Process in nil announcer: nil BlockClosure>>on:do: Receiver: [result := block cull: self] Arguments and temporary variables: exception: JobNotification handlerAction: [:notification | notification handle: self] handlerActive: true Receiver's instance variables: outerContext: [self prepareForRunning. [result := block cull: self] on: JobN...etc... startpc: 57 numArgs: 0 -- View this message in context: http://forum.world.st/Error-when-trying-to-commit-to-SmalltalkHub-tp4664285… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Jan. 20, 2013

Re: [Pharo-users] Fwd: Call a block inside same block for recursive requirements

by Sven Van Caekenberghe

On 19 Jan 2013, at 20:56, Igor Stasenko <siguctua(a)gmail.com> wrote: > [:param | > param >0 ifTrue: [ thisContext closure value: param - 1 ] > > ] value: 5 > > but this will be much slower than just use recursion with methods > because of this context. This is so cool, Igor. I didn't know about this trick. All in all, writing factorial like this is pretty elegant: [ :n | n < 2 ifTrue: [ 1 ] ifFalse: [ n * (thisContext closure value: n - 1) ] ] value: 5 AFAIK, this is impossible in Lisp like languages. Thanks for teaching us ! Sven -- Sven Van Caekenberghe http://stfx.eu Smalltalk is the Red Pill

Jan. 20, 2013

Re: [Pharo-users] Hapax/CodeFu changes and example script

by Tudor Girba

Thanks, indeed! It would be great to have this back in Moose. Anyone interested in looking at it? Cheers, Doru On Jan 17, 2013, at 10:43 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > Thanks hernan! > > Stef > > On Jan 17, 2013, at 5:02 PM, HernÃ¡n Morales Durand wrote: > >> >> Hi guys, >> For those working in information retrieval, for example for doing td-idf ranking, you can find adapted packages: "Hapax" and "CodeFu" in the BioSmalltalk repository http://ss3.gemstone.com/ss/BioSmalltalk.html . I have translated some VW specific code to Pharo 1.4 (under Windows requires the ProcessWrapper package) and adapted some Hapax methods to work with corpus in different languages. >> >> This is an example script for a corpus in Spanish: >> >> | corpus tdm documents | >> >> corpus := HXSpanishCorpus new. >> >> documents := 'el rÃo Danubio pasa por Viena, su color es azul >> el caudal de un rÃo asciende en Invierno >> el rÃo Rhin y el rÃo Danubio tienen mucho caudal >> si un rÃo es navegable, es porque tiene mucho caudal'. >> >> documents lines doWithIndex: [: doc : index | >> corpus >> addDocument: index asString >> with: (Terms new >> addString: doc >> using: CamelcaseScanner; >> yourself)]. >> corpus removeStopwords. >> corpus stemAll. >> tdm := TermDocumentMatrix on: corpus. >> >> Feel free to integrate to any repository. If you want to add a language just see methods with selectors including "spanish". >> Cheers, >> >> HernÃ¡n >> >> > > -- www.tudorgirba.com "Every successful trip needs a suitable vehicle."

Jan. 20, 2013

Re: [Pharo-users] [Esug-list] Pharo Association: alone we have little power, but many we are strong

by Igor Stasenko

On 19 January 2013 21:39, stephane ducasse <stephane.ducasse(a)gmail.com> wrote: > Of course I forgot the most important > http://association.smalltalkhub.com > hmm.. this one: http://association.pharo.org/ looks more correct to me. perhaps one that you giving is for testing/developing? > Stef > > On Jan 19, 2013, at 7:05 PM, StÃ©phane Ducasse wrote: > >> Hi guys >> >> Just a point: Join the Pharo association because all together we can get some power. >> For example, I would like that we brainstorm about what kind of effort the association >> want to sponsor. >> - real headless image >> - other network protocols >> -â¦ >> >> So far we are 35 but I really dream about a moment where we will be much more. >> If you find some value to Pharo and you want to encourage its evolution, this is simple. >> >> Stef >> _______________________________________________ >> Esug-list mailing list >> Esug-list(a)lists.esug.org >> http://lists.esug.org/mailman/listinfo/esug-list_lists.esug.org > > > _______________________________________________ > Esug-list mailing list > Esug-list(a)lists.esug.org > http://lists.esug.org/mailman/listinfo/esug-list_lists.esug.org -- Best regards, Igor Stasenko.

Jan. 19, 2013

Re: [Pharo-users] Fwd: Call a block inside same block for recursive requirements

by Igor Stasenko

On 19 January 2013 21:04, Benjamin <benjamin.vanryseghem.pharo(a)gmail.com> wrote: > Writing this > > block := [:val | > val >0 > ifTrue: [ > self logCr: val. > block value: val -1 ] > ifFalse: [ 'foo' ]]. > > block value: 3 > > works in a workspace :) well, this is the most trivial example. :) (frankly i didn't even thought about it as a case, because one of the requirements is to not refer to the block via variable).. in this case, you still referring to it, but just moved variable declaration outside of the block scope. But of course, this is most usable form (apart from just using method). > > Ben > > On Jan 19, 2013, at 8:56 PM, Igor Stasenko wrote: > >> On 19 January 2013 03:38, Sean P. DeNigris <sean(a)clipperadams.com> wrote: >>> gerard wrote >>>> Hi. >>>> >>>> Excuse me for my poor english. >>>> >>>> I need, for recursive requirements, call a block inside the same block. >>>> That's possible on Smalltalk? >>>> >> >> Integer>>benchFib >> >>>> For example: >>>> >>>> "fibonacci function" >>>> [:fnc :n1 :n2 :limit :numbers | numbers add: n1. (n2 < limit) ifTrue: [ >>>> fnc valueWithArguments: {fnc . n2 . (n1 + n2) . limit . numbers}. numbers >>>> ]]. >>>> >>>> The objetive is use that block without the :fnc parameter. >> >> [:param | >> param >0 ifTrue: [ thisContext closure value: param - 1 ] >> >> ] value: 5 >> >> but this will be much slower than just use recursion with methods >> because of thiscontext. >> >>>> >>>> >>>> Regards >>> >> >> >> >> >> >> >> >> -- >> Best regards, >> Igor Stasenko. >> > > -- Best regards, Igor Stasenko.

Jan. 19, 2013

Re: [Pharo-users] Fwd: Call a block inside same block for recursive requirements

by Benjamin

Writing this block := [:val | val >0 ifTrue: [ self logCr: val. block value: val -1 ] ifFalse: [ 'foo' ]]. block value: 3 works in a workspace :) Ben On Jan 19, 2013, at 8:56 PM, Igor Stasenko wrote: > On 19 January 2013 03:38, Sean P. DeNigris <sean(a)clipperadams.com> wrote: >> gerard wrote >>> Hi. >>> >>> Excuse me for my poor english. >>> >>> I need, for recursive requirements, call a block inside the same block. >>> That's possible on Smalltalk? >>> > > Integer>>benchFib > >>> For example: >>> >>> "fibonacci function" >>> [:fnc :n1 :n2 :limit :numbers | numbers add: n1. (n2 < limit) ifTrue: [ >>> fnc valueWithArguments: {fnc . n2 . (n1 + n2) . limit . numbers}. numbers >>> ]]. >>> >>> The objetive is use that block without the :fnc parameter. > > [:param | > param >0 ifTrue: [ thisContext closure value: param - 1 ] > > ] value: 5 > > but this will be much slower than just use recursion with methods > because of thiscontext. > >>> >>> >>> Regards >> > > > > > > > > -- > Best regards, > Igor Stasenko. >

Jan. 19, 2013

Re: [Pharo-users] Fwd: Call a block inside same block for recursive requirements

by Igor Stasenko

On 19 January 2013 03:38, Sean P. DeNigris <sean(a)clipperadams.com> wrote: > gerard wrote >> Hi. >> >> Excuse me for my poor english. >> >> I need, for recursive requirements, call a block inside the same block. >> That's possible on Smalltalk? >> Integer>>benchFib >> For example: >> >> "fibonacci function" >> [:fnc :n1 :n2 :limit :numbers | numbers add: n1. (n2 < limit) ifTrue: [ >> fnc valueWithArguments: {fnc . n2 . (n1 + n2) . limit . numbers}. numbers >> ]]. >> >> The objetive is use that block without the :fnc parameter. [:param | param >0 ifTrue: [ thisContext closure value: param - 1 ] ] value: 5 but this will be much slower than just use recursion with methods because of thiscontext. >> >> >> Regards > -- Best regards, Igor Stasenko.

Jan. 19, 2013