January 2013 - Pharo-users - lists.pharo.org

TTCFont and Pharo 2.0
by Sean P. DeNigris Jan. 21, 2013

Jan. 21, 2013

What's the replacement for "TTCFont familyName: 'BitstreamVeraSans' pointSize: 11 emphasis: 3" in 2.0? Thanks, Sean -- View this message in context: http://forum.world.st/TTCFont-and-Pharo-2-0-tp4664409.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

1 0

PetitMarkdown
by Sven Van Caekenberghe Jan. 20, 2013

Jan. 20, 2013

Hi, I loaded PetitMarkdown from SS3 in Pharo 2.0 using (ConfigurationOfPetitMarkdown project version: #bleedingEdge) load which loaded a MetacelloFetchingMCSpecLoader(linear load : explicit load : 0.1-baseline [ConfigurationOfPetitMarkdown] load : ConfigurationOfPetitParser-TudorGirba.26 linear load : 0.1-baseline [ConfigurationOfPetitMarkdown] atomic load : minimal [ConfigurationOfPetitParser] load : PetitParser-lr.228 load : PetitTests-lr.43 load : PetitAnalyzer-lr.40 load : PetitMarkdown-Nodes-IgorStasenko.12 load : PetitMarkdown-Core-CamilloBruni.20 load : PetitMarkdown-Tests-CamilloBruni.28) I was trying to parse some real files PPMarkdownParser parse: 'http://raw.github.com/svenvc/docs/master/neo/neo-json-paper.md' asZnUrl retrieveContents this works, but gives me empty verbatim elements while PPMarkdownLineParser parse: 'http://raw.github.com/svenvc/docs/master/neo/neo-json-paper.md' asZnUrl retrieveContents give me a MessageNotUnderstood: PPMarkdownVerbatim>>appendIndentLine:in: What am I doing wrong ? What is the difference between the two parsers ? Also, what is the #visit: contract ? I guess I could find out using trial and errorâ¦ Isn't there a simple example doing HTML conversion ? Thx, Sven -- Sven Van Caekenberghe http://stfx.eu Smalltalk is the Red Pill

2 1

Error when trying to commit to SmalltalkHub
by MartinW Jan. 20, 2013

Jan. 20, 2013

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.

2 2

ESUG 2013: book the dates: 8 to 13 September at Annecy (FR)
by StÃ©phane Ducasse Jan. 20, 2013

Jan. 20, 2013

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.

1 0

Fwd: Call a block inside same block for recursive requirements
by Sean P. DeNigris Jan. 20, 2013

Jan. 20, 2013

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? > > 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. > > > Regards -- View this message in context: http://forum.world.st/Fwd-Call-a-block-inside-same-block-for-recursive-requ… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

4 4

Hapax/CodeFu changes and example script
by HernÃ¡n Morales Durand Jan. 20, 2013

Jan. 20, 2013

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

3 2

Re: [Pharo-users] [Esug-list] Pharo Association: alone we have little power, but many we are strong
by Igor Stasenko Jan. 19, 2013

Jan. 19, 2013

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.

1 0

Jan. 19, 2013

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

1 0

HTML parser
by Norbert Hartl Jan. 19, 2013

Jan. 19, 2013

What is the most actual HTML parser to date? Researching gave me [1]. All of the discussions were in 2010. So the situation might have changed. Anything newer? better? Anything petit parsers based? thanks, Norbert [1] http://www.squeaksource.com/htmlcssparser.html

5 7

[ANN] Headless support for Cog Cocoa VM
by Mariano Martinez Peck Jan. 18, 2013

Jan. 18, 2013

Hello there, For a long time, Pharaoers and Squakers have been asking for headless support in the Cocoa VMs just as we have with Carbon VMs. Carbon is becoming a legacy framework so people needed this. I wanted to thanks Square [i] International <http://www.square-i.net/> for sponsoring me to implement such a support. Not only have they sponsored the development but they have also agreed to release it under MIT license for the community. This headless support will be included in the official Pharo VM and will be, therefore, accessible to everybody. The project is not yet finished but I do have a demo/prototype that I wanted to share with you so that you can test it and give me feedback. This VM should only work starting at OSX 10.6. *How to use it?* Basically it works this way: to have headless, just edit the Info.plist and set the flag LSBackgroundOnly to 1 (add the key if it is not present): <key>LSBackgroundOnly</key> <true/> When doing this, you don't even need the -headless anymore since, setting LSBackgroundOnly to 1, will cause the same effect (being the flag almost mandatory). If you don't want headless, put it to false or don't even put the key. If you don't set LSBackgroundOnly to 1 but send -headless, the VM will still be headless but you will see a little flash. If this flash bothers you, then set the flag. I am trying to get a way to avoid the "flash" while also avoiding to set LSBackgroundOnly to 1, but I still couldn't find it. Anyway, I think we can live with the current situation. *How to test it?* You should run the image with something like RFB or Seaside or whatever you can and then confirm if it is working even if you are headless. As a matter of testing, I saved an image with seaside running in the port 5555. You can get both, this Seaside image and the VM with headless from: https://www.dropbox.com/sh/r7qk49bxywk2xce/6N7-fdyx6V So if you run the VM headless with that image and go to localhost:5555, you should see that Seaside is running. I would appreciate if you can test it. And please let me know in which version of OSX you tried. Of course, the more of you who can test it, the better. Notice that this VM was compiled with LLVM GCC 4.2 and it may have some problems in older OSX versions (but I think it shouldn't). I still couldn't compile a VM with GNU GCC 4.2 as I get a crash :( *Expected results?* In headless mode, anything should be displayed (no window, no menu, no item in the dock and nothing appear when switching apps). When running headfull, everything should be normal. *Where is the code? *The code I have modified to the VM is committed to my own fork of the VM: https://gitorious.org/~marianopeck/cogvm/marianopecks-blessed Once the code is ready, I will do a pull request so that it can be integrated. Thanks everyone for the testing and feedback. Once again, thanks Square [i] International for sponsoring this great feature. Also thanks Esteban Lorenzano and Mark Smith for their incredible help. This was just the first prototype. I will keep you informed about possible progress. Best regards, -- Mariano http://marianopeck.wordpress.com

2 1