September 2019 - Pharo-users

My Pharo Wiki
by Sean P. DeNigris Sept. 19, 2019

Sept. 19, 2019

I've been collecting Pharo tidbits that I found interesting for quite a while. I was aggregating everything today and realized that it had grown into a small "cookbook" which has some useful information not otherwise easily available. I share it in case it is of help: https://github.com/seandenigris/pharo/wiki NB it was written for my personal use so it may be rough around the edges. Feel free to ask questions if I can clarify anything. ----- Cheers, Sean -- Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html

3 2

Stream >> <<
by Herby VojÄÃk Sept. 19, 2019

Sept. 19, 2019

Hello! In Pharo 7.0.4, Array streamContents: [ :s | s << 10 << '10' << #(10 '10') ] >>> #($1 $0 $1 $0 10 '10') Bug or feature? Herby

21 44

Re: [Pharo-users] uFFI ExternalAddress challenges
by TomaÅ¾ Turk Sept. 17, 2019

Sept. 17, 2019

> We are interested in it :) > If I recall well Pablo got one version somewhere. Me too :-) Unfortunately, I only have time for 'weekend' projects, and any help is appreciated :-) Regarding the uFFI calls, is it possible to pass Win32WideString in a similar fashion as a String - or where to look to implement that? Best wishes, Tomaz

5 7

Re: [Pharo-users] Could not resolve ConfigurationOfJSON
by Offray Vladimir Luna CÃ¡rdenas Sept. 16, 2019

Sept. 16, 2019

Hi Todd, Thanks for your interes in Grafoscopio. I would like to know more about your project and your feedback on how Grafoscopio suited your project (or not) is pretty valuable, so keep me posted. Grafoscopio should be working with Pharo 7, but I have been recently updating documentation that still doesn't end in the User Manual (but is already linked to SmalltalkHub and the English web page). Did you tried the procedure on: https://mutabit.com/repos.fossil/grafoscopio/doc/tip/readme.md.html#overvie… Let us know how the installation goes with those instructions. After that, the Panama Papers example should be available from the `Grafoscopio > Help & Docs > Dataviz` submenu, at the top bar (you may need to update Documentation and the Dataviz package before, from the `Grafoscopio > Update` menu). Cheers, Offray On 15/09/19 2:06 p.Â m., Todd Blanchard via Pharo-users wrote:

1 0

Could not resolve ConfigurationOfJSON
by Todd Blanchard Sept. 15, 2019

Sept. 15, 2019

Trying to check out Grafoscopio and I keep running into this error. Tried with Pharo 5 and 7. Any suggestions?

1 0

uFFI ExternalAddress challenges
by TomaÅ¾ Turk Sept. 11, 2019

Sept. 11, 2019

Dear all, I'm struggling with passing an ExternalAddress to a c function call with uFFI. Firstly, I get the ExternalAddress from this method: myFFI>>create: aString ^ self ffiCall: #(void * CreateObject (String aString) ) [in c: void* CreateObject(char* szProgId)] The method that uses the resulting ExternalAddress is defined as: myFFI>>ask: anExternalAddress ^ self ffiCall: #(void CallMethod (void * anExternalAddress) ) [in c: void CallMethod(void* myObj)] In playground I have | w | w := myFFI create: 'Word.Application'. myFFI ask: w . w gets a "nice", properly looking external address, however the last line crushes Pharo, its window gets closed. I went through the uFFI book, however I cannot find the answer. I'm on Windows 10 x64, Pharo 7.0.4 32-bit. Best wishes, Tomaz

2 6

The most upvoted stackoverflow question - also holds for Pharo
by Kasper Ãsterbye Sept. 11, 2019

Sept. 11, 2019

The most upvoted question/answer on stackoverflow is this one: https://stackoverflow.com/questions/11227809/why-is-processing-a-sorted-arr… I wanted to see if the results could be reproduced in Pharo, and indeed they can (though I only get a factor 2-3 difference). The following method does the trick: branchPrediction | size data rnd sum start | size := 32768. data := ByteArray new: size. rnd := Random new: 0. 1 to: size do: [ :i | data at: i put: (rnd nextInt: 256) - 1 ]. âsorting the array makes the loop faster" data sort. sum := 0. start := DateAndTime current. 10000 timesRepeat: [ 1 to: size do: [ :i | (data at: i) > 128 ifTrue: [ sum := sum + (data at: i) ] ] ]. ^ {(DateAndTime current - start) asMilliSeconds. sum} Though it is old news, it is still kind of cool. Best, Kasper

1 0

..LCK
by ian Sept. 10, 2019

Sept. 10, 2019

Hi All, I am not able to start my stone as I inadvertantly deleted the ..LCK file. :) Is there a way to fix this? Thanks,

2 1

Set >> collect:thenDo:
by Herby VojÄÃk Sept. 10, 2019

Sept. 10, 2019

Hello! ---- (#(1 2 3) asSet collect: #odd) do: [ :each | Transcript show: each; cr ] > true > false ---- #(1 2 3) asSet collect: #odd thenDo: [ :each | Transcript show: each; cr ] > true > false > true ---- Bug or feature? Herby

7 14

uFFI Structure Problem
by Georg Hagn Sept. 9, 2019

Sept. 9, 2019

I have to implemet following external structure (extrakt from the german api Doku): typedef struct { /**@brief MUST be always 2. */ uint32_t version; /** @brief Pointer to KeyStore -- Verweis auf den KeyStore, see EricGetHandleToCertificate(). */ EricZertifikatHandle zertifikatHandle; /** @brief PIN fÃ¼r den KeyStore.*/ const char *pin; /** * @brief MUST be NULL in my context Dieser muss ... In allen anderen FÃ¤llen muss hier NULL Ã¼bergeben werden. Der Parameter abrufCode besteht aus 2 x 5 Zeichen, die mit "-" verbunden sind. Beispiel: "K6FG5-RS32P" */ const char *abrufCode; } eric_verschluesselungs_parameter_t; My Problem is, that i have to assign a NULL - value to the attribute abrufCode. I have tried varies possibilities but I get always the error, that the attribute abrufCode must have the value NULL. " Extract from log-file: 019-09-05 17:08:52,257709[0x00007fe036a2f050] ERROR: FÃ¼r die Ã¼bermittelte Datenart ist die Angabe eines Abrufcodes nicht zulÃ¤ssig, daher muss fÃ¼r den Abrufcode der Wert NULL Ã¼bergeben werden. 610001029" How do I assign a NULL value to an attribute in a FFIExternalStructure? Following my last attempt (extracted from the Pharo Booklet Colletion "Calling Foreign Functions with Pharo May 31,2018") I assign values not directly with the generated attributes but with "api???" attributes. FFIExternalStructure subclass: #ERiCVerschluesselungsParameter instanceVariableNames: '' classVariableNames: 'OFFSET_ABRUFCODE OFFSET_PIN OFFSET_VERSION OFFSET_ZERTIFIKATHANDLE' package: 'Bajoras-ERiC'! ERiCVerschluesselungsParameter class >> fieldsDesc [ "ERiCVerschluesselungsParameter rebuildFieldAccessors" ^ #( uint32 version; ERiCZertifikatHandle * zertifikatHandle; char * pin; char * abrufCode; ) ] ERiCVerschluesselungsParameter >> initialize [ self apiVersion: 2; apiAbrufCode: nil; apiPin: 'mySecret'. ] ERiCVerschluesselungsParameter >> accessorMethods for: pin, version, abrufCode, zertifikatHandle ("This method were automatically generated") ERiCVerschluesselungsParameter >> apiAbrufCode: aCode [ | codeSize anAbrufCode | codeSize := 11. anAbrufCode := FFIExternalArray externalNewType: 'char' size: codeSize. 1 to: codeSize do: [ :idx | anAbrufCode at: idx put: Character null ] . aCode ifNotNil: [ aCode doWithIndex: [ :char :i | anAbrufCode at: i put: char ]. ]. self abrufCode: anAbrufCode. ] ERiCVerschluesselungsParameter >> apiPin: aPin [ | newPin | newPin := FFIExternalArray externalNewType: 'char' size: aPin size. aPin doWithIndex: [ :char :i | newPin at: i put: char ]. self pin: newPin. ] ERiCVerschluesselungsParameter >> apiVersion: aVersion [ | cryptoVersion | cryptoVersion := 2. self version: cryptoVersion. ] Thanks, Georg Hagn

2 2