- Pharo-users - lists.pharo.org

Re: [Pharo-users] HMAC-SHA512

by Sven Van Caekenberghe

> On 10 Dec 2017, at 10:01, Ben Coman <btc(a)openinworld.com> wrote: > > Can anyone recommend libraries (native Smalltalk or via FFI) > to do generate a HMAC-SHA512 ? > > cheers -ben Well Pharo itself of course ! (HMAC on: SHA256) key: (ByteArray new: 32); digestMessage: #[1 2 3]. SHA256 new hmac key: (ByteArray new: 32); digestMessage: #[1 2 3]. Sven PS: You might like this one too https://medium.com/concerning-pharo/the-code-behind-google-authenticator-9c…

Dec. 10, 2017

Re: [Pharo-users] REST client hints

by Sven Van Caekenberghe

> On 10 Dec 2017, at 04:45, Ben Coman <btc(a)openinworld.com> wrote: > > > On 5 December 2017 at 20:44, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > > > On 5 Dec 2017, at 13:33, Ben Coman <btc(a)openinworld.com> wrote: > > > @sven, I started reading Enterprise Pharo a couple of hours ago. > > I don't quite get your section references. I presume you > > don't mean "chapter 11 Persisting Objects with Voyage, 11.3 Enhancing Storage" > > That seems off topic. And "chapter 4 Zinc HTTP: The Client Side, 4.11 Headers" > > doesn't have a sub-part "3". > > I meant 11.3 in this page https://ci.inria.fr/pharo-contribution/job/EnterprisePharoBook/lastSuccessf… a section called 11.3. A Zinc Client. > > > I guess part of what I'm interested in are patterns for hooking > > NeoJSON up to parse a REST response into objects to build a wrapper > > around a REST service. I see a chapter in Enterprise Pharo, which I'll > > get to that soon. Perhaps I was premature asking before reading that, > > but its good to have a few paths to explore. > > Here is a recent example http://forum.world.st/Another-example-of-invoking-a-REST-JSON-web-service-r… > > > Thanks Sven. That helped a lot. I'd like to report success. > It may be useful to others to see how to progressively build up to parsing a Nested JSON REST > > > 1. First parse the JSON into simple Dictionaries... > > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | NeoJSONReader fromString: entity contents ]; > get) inspect. > > ==>Dictionary( > 'success' ==> true > 'message' ==> '' > 'result ' ==> an Array(a Dictionary('BaseCurrency'->'BTC' 'BaseCurrencyLong'->'Bitcoin') > ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') > > > > 2. Then parse the first level response into a real object... > > Object subclass: #BittrexResponse > instanceVariableNames: 'success message result' > classVariableNames: '' > package: 'Bittrex' > > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | > (NeoJSONReader on: entity readStream) > mapInstVarsFor: BittrexResponse ; > nextAs: BittrexResponse ]; > get) inspect. > > ==>BittrexResponse > success => true > message => '' > result => an Array(a Dictionary('BaseCurrency'->'BTC' 'BaseCurrencyLong'->'Bitcoin') > ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') > > > Or alternatively... > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | |reader| > reader := (NeoJSONReader on: entity readStream). > reader for: BittrexResponse do: [:m| > m mapInstVar: #success. > m mapInstVar: #message. > m mapInstVar: #result ]. > reader nextAs: BittrexResponse ]; > get) inspect. > > ==>BittrexResponse > success => true > message => '' > result => an Array(a Dictionary('BaseCurrency'->'BTC' 'BaseCurrencyLong'->'Bitcoin') > ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') > > > 3. Finally parse into real objects the nested level holding the data you really want... > > Object subclass: #Market > instanceVariableNames: 'MarketCurrency BaseCurrency MarketCurrencyLong BaseCurrencyLong MinTradeSize MarketName IsActive Created Notice IsSponsored LogoUrl' > classVariableNames: '' > package: 'Bittrex' > > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | |reader| > reader := (NeoJSONReader on: entity readStream). > reader for: BittrexResponse do: [:m| > m mapInstVar: #success. > m mapInstVar: #message. > (m mapInstVar: #result) valueSchema: #ArrayOfMarkets]. > reader for: #ArrayOfMarkets customDo: [ :mapping | mapping listOfElementSchema: Market ]. > reader mapInstVarsFor: Market. > reader nextAs: BittrexResponse ]; > get) inspect. > > ==>BittrexResponse > success => true > message => '' > result => an Array(a Market(LTC) a Market(DOGE) a Market(VTC) a Market(PPC) a Market(FTC) a Market(RDD) > ... Market(POWR) a Market(BTG) a Market(BTG) a Market(BTG) a Market(ADA) a Market(ENG) a Market(ENG)) > > > WhooHoo! Great, I'm glad you're happy. > A couple of things remaining: > > * The instance variables of Market currently start with an upper-case to match the JSON fields. > Lower-casing the first letter breaks things. > What strategies can be used to conform here to Smalltalk conventions? > Or is it easy enough to live with it? You can map properties (the key/values in JSON maps) using different mechanisms. Directly via instance variables, via accessors and via blocks. In the first two cases, the first approach is indeed to match the names literally. But there are also the variants #mapInstVar:to: and #mapAccessor:to: to have a different name. mapping mapInstVar: #markerCurrency to: #MarketCurrency > * In various posts I've seen mention of a class-side method #neoJsonMapping: > but there is no explanation of this in the Enterprise Book. > How might #neoJsonMapping: come into the picture for my use case above? A mapper (reader or writer) looks for mappings in itself (like how you used it) but also on the class side of schema/class names. So instead of doing the mapping in the construction of the reader/writer you can write a fixed on the class side. Look for implementors of #neoJsonMapping: The difference is mainly that scope: per reader/writer allows for different mappings depending on use case, while the class side #neoJsonMapping: is global. Some people like a schema definition in one place, other like a distributed one (with inheritance options). Sven > cheers -ben >

Dec. 10, 2017

HMAC-SHA512

by Ben Coman

Can anyone recommend libraries (native Smalltalk or via FFI) to do generate a HMAC-SHA512 ? cheers -ben

Dec. 10, 2017

Re: [Pharo-users] REST client hints

by Ben Coman

On 10 December 2017 at 15:27, Stephane Ducasse <stepharo.self(a)gmail.com> wrote: > Tx for your report :) > > https://wordpress.com/post/pharoweekly.wordpress.com/2347 > > Did you look at SmartShackles? on our inria github repo. Because > Santiago is extracting information from blockchains. > > I would hesitate to call where I'm up to right now as blockchain related. Its just the trading api of one exchange where the items traded happen to be bitcoins. But I have a growing interest in blockchains, so thanks for the tip... I didn't see anything relevant here... https://github.com/INRIA but with that product name I found... https://github.com/sbragagnolo/SmartShackle cheers -ben

Dec. 10, 2017

Re: [Pharo-users] REST client hints

by Stephane Ducasse

Tx for your report :) https://wordpress.com/post/pharoweekly.wordpress.com/2347 Did you look at SmartShackles? on our inria github repo. Because Santiago is extracting information from blockchains. On Sun, Dec 10, 2017 at 4:45 AM, Ben Coman <btc(a)openinworld.com> wrote: > > On 5 December 2017 at 20:44, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: >> >> >> > On 5 Dec 2017, at 13:33, Ben Coman <btc(a)openinworld.com> wrote: >> >> > @sven, I started reading Enterprise Pharo a couple of hours ago. >> > I don't quite get your section references. I presume you >> > don't mean "chapter 11 Persisting Objects with Voyage, 11.3 Enhancing >> > Storage" >> > That seems off topic. And "chapter 4 Zinc HTTP: The Client Side, 4.11 >> > Headers" >> > doesn't have a sub-part "3". >> >> I meant 11.3 in this page >> https://ci.inria.fr/pharo-contribution/job/EnterprisePharoBook/lastSuccessf… >> a section called 11.3. A Zinc Client. >> >> > I guess part of what I'm interested in are patterns for hooking >> > NeoJSON up to parse a REST response into objects to build a wrapper >> > around a REST service. I see a chapter in Enterprise Pharo, which I'll >> > get to that soon. Perhaps I was premature asking before reading that, >> > but its good to have a few paths to explore. >> >> Here is a recent example >> http://forum.world.st/Another-example-of-invoking-a-REST-JSON-web-service-r… > > > > Thanks Sven. That helped a lot. I'd like to report success. > It may be useful to others to see how to progressively build up to parsing a > Nested JSON REST > > > 1. First parse the JSON into simple Dictionaries... > > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | NeoJSONReader fromString: entity contents ]; > get) inspect. > > ==>Dictionary( > 'success' ==> true > 'message' ==> '' > 'result ' ==> an Array(a Dictionary('BaseCurrency'->'BTC' > 'BaseCurrencyLong'->'Bitcoin') > ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') > > > > 2. Then parse the first level response into a real object... > > Object subclass: #BittrexResponse > instanceVariableNames: 'success message result' > classVariableNames: '' > package: 'Bittrex' > > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | > (NeoJSONReader on: entity readStream) > mapInstVarsFor: BittrexResponse ; > nextAs: BittrexResponse ]; > get) inspect. > > ==>BittrexResponse > success => true > message => '' > result => an Array(a Dictionary('BaseCurrency'->'BTC' > 'BaseCurrencyLong'->'Bitcoin') > ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') > > > Or alternatively... > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | |reader| > reader := (NeoJSONReader on: entity readStream). > reader for: BittrexResponse do: [:m| > m mapInstVar: #success. > m mapInstVar: #message. > m mapInstVar: #result ]. > reader nextAs: BittrexResponse ]; > get) inspect. > > ==>BittrexResponse > success => true > message => '' > result => an Array(a Dictionary('BaseCurrency'->'BTC' > 'BaseCurrencyLong'->'Bitcoin') > ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') > > > 3. Finally parse into real objects the nested level holding the data you > really want... > > Object subclass: #Market > instanceVariableNames: 'MarketCurrency BaseCurrency MarketCurrencyLong > BaseCurrencyLong MinTradeSize MarketName IsActive Created Notice IsSponsored > LogoUrl' > classVariableNames: '' > package: 'Bittrex' > > (ZnClient new > url: 'https://bittrex.com/api/v1.1/public/getmarkets'; > enforceHttpSuccess: true; > accept: ZnMimeType applicationJson; > contentReader: [ :entity | |reader| > reader := (NeoJSONReader on: entity readStream). > reader for: BittrexResponse do: [:m| > m mapInstVar: #success. > m mapInstVar: #message. > (m mapInstVar: #result) valueSchema: #ArrayOfMarkets]. > reader for: #ArrayOfMarkets customDo: [ :mapping | mapping > listOfElementSchema: Market ]. > reader mapInstVarsFor: Market. > reader nextAs: BittrexResponse ]; > get) inspect. > > ==>BittrexResponse > success => true > message => '' > result => an Array(a Market(LTC) a Market(DOGE) a Market(VTC) a > Market(PPC) a Market(FTC) a Market(RDD) > ... Market(POWR) a Market(BTG) a Market(BTG) a Market(BTG) a Market(ADA) a > Market(ENG) a Market(ENG)) > > > WhooHoo! > > > A couple of things remaining: > > * The instance variables of Market currently start with an upper-case to > match the JSON fields. > Lower-casing the first letter breaks things. > What strategies can be used to conform here to Smalltalk conventions? > Or is it easy enough to live with it? > > * In various posts I've seen mention of a class-side method #neoJsonMapping: > but there is no explanation of this in the Enterprise Book. > How might #neoJsonMapping: come into the picture for my use case above? > > cheers -ben >

Dec. 10, 2017

Re: [Pharo-users] KeyNotFound: key #nil not found in SystemDicitonary

by Ben Coman

Depends on how you downloaded Pharo. * With PharoLauncher, just right click a template and "Create image" * If you downloaded a Zip, extract it again, or specifically delete Pharo.image and Pharo.changes and replace with a fresh copy from the zip. * If via Zeroconf, unfortunately it removes the zip after it extracts it, so usually after it finishes I zip up my own local copy prior to working with it. cheers -ben On 10 December 2017 at 10:22, Seth <dekathexis(a)gmail.com> wrote: > Thanks Ben. > > I did the file out part. How do I start start a fresh image? > > On Sun, Dec 10, 2017 at 11:16 AM, Ben Coman <btc(a)openinworld.com> wrote: > >> hi Seth, >> >> I've never heard of that error before, and others are better placed to >> advise on session handling, >> but just to provide an escape path... >> >> Right-click on your package and choose "File Out", and it will inform you >> of the created file name. >> Then in a fresh image go World > Tools > File Browser, find the file and >> right-click on it then "FileIn entire file" >> >> cheers -ben >> >> >> On 10 December 2017 at 09:54, Seth <dekathexis(a)gmail.com> wrote: >> >>> So, I've been trying to save and close my image for a while now. >>> >>> It won't even just close without saving, it constantly pops up the error >>> from this subject. >>> >>> I'm fairly new to all this, but I followed it to I think an Array of >>> ClassSessionHandlers one of which is ClassSessionHandlers(nil) but I >>> don't >>> know how to get rid of it, I also opened the process browser and found a >>> Morphic UI Process: nil which i tried to terminate. None of which seems >>> to >>> work. How to I get this nil value out of my image save / shutdown >>> process? >>> >>> >>> >>> -- >>> Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html >>> >>> >> >

Dec. 10, 2017

Re: [Pharo-users] REST client hints

by Ben Coman

On 5 December 2017 at 20:44, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > > > > On 5 Dec 2017, at 13:33, Ben Coman <btc(a)openinworld.com> wrote: > > > @sven, I started reading Enterprise Pharo a couple of hours ago. > > I don't quite get your section references. I presume you > > don't mean "chapter 11 Persisting Objects with Voyage, 11.3 Enhancing > Storage" > > That seems off topic. And "chapter 4 Zinc HTTP: The Client Side, 4.11 > Headers" > > doesn't have a sub-part "3". > > I meant 11.3 in this page https://ci.inria.fr/pharo-contribution/job/ > EnterprisePharoBook/lastSuccessfulBuild/artifact/ > book-result/Zinc-HTTP-Server/Zinc-HTTP-Server.html a section called 11.3. > A Zinc Client. > > > I guess part of what I'm interested in are patterns for hooking > > NeoJSON up to parse a REST response into objects to build a wrapper > > around a REST service. I see a chapter in Enterprise Pharo, which I'll > > get to that soon. Perhaps I was premature asking before reading that, > > but its good to have a few paths to explore. > > Here is a recent example http://forum.world.st/Another- > example-of-invoking-a-REST-JSON-web-service-resolving- > User-Agent-strings-tt5017489.html Thanks Sven. That helped a lot. I'd like to report success. It may be useful to others to see how to progressively build up to parsing a Nested JSON REST 1. First parse the JSON into simple Dictionaries... (ZnClient new url: 'https://bittrex.com/api/v1.1/public/getmarkets'; enforceHttpSuccess: true; accept: ZnMimeType applicationJson; contentReader: [ :entity | NeoJSONReader fromString: entity contents ]; get) inspect. ==>Dictionary( 'success' ==> true 'message' ==> '' 'result ' ==> an Array(a Dictionary('BaseCurrency'->'BTC' 'BaseCurrencyLong'->'Bitcoin') ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') 2. Then parse the first level response into a real object... Object subclass: #BittrexResponse instanceVariableNames: 'success message result' classVariableNames: '' package: 'Bittrex' (ZnClient new url: 'https://bittrex.com/api/v1.1/public/getmarkets'; enforceHttpSuccess: true; accept: ZnMimeType applicationJson; contentReader: [ :entity | (NeoJSONReader on: entity readStream) mapInstVarsFor: BittrexResponse ; nextAs: BittrexResponse ]; get) inspect. ==>BittrexResponse success => true message => '' result => an Array(a Dictionary('BaseCurrency'->'BTC' 'BaseCurrencyLong'->'Bitcoin') ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') Or alternatively... (ZnClient new url: 'https://bittrex.com/api/v1.1/public/getmarkets'; enforceHttpSuccess: true; accept: ZnMimeType applicationJson; contentReader: [ :entity | |reader| reader := (NeoJSONReader on: entity readStream). reader for: BittrexResponse do: [:m| m mapInstVar: #success. m mapInstVar: #message. m mapInstVar: #result ]. reader nextAs: BittrexResponse ]; get) inspect. ==>BittrexResponse success => true message => '' result => an Array(a Dictionary('BaseCurrency'->'BTC' 'BaseCurrencyLong'->'Bitcoin') ... a Dictionary('BaseCurrency'->'ETH' 'BaseCurrencyLong'->'Ethereum') 3. Finally parse into real objects the nested level holding the data you really want... Object subclass: #Market instanceVariableNames: 'MarketCurrency BaseCurrency MarketCurrencyLong BaseCurrencyLong MinTradeSize MarketName IsActive Created Notice IsSponsored LogoUrl' classVariableNames: '' package: 'Bittrex' (ZnClient new url: 'https://bittrex.com/api/v1.1/public/getmarkets'; enforceHttpSuccess: true; accept: ZnMimeType applicationJson; contentReader: [ :entity | |reader| reader := (NeoJSONReader on: entity readStream). reader for: BittrexResponse do: [:m| m mapInstVar: #success. m mapInstVar: #message. (m mapInstVar: #result) valueSchema: #ArrayOfMarkets]. reader for: #ArrayOfMarkets customDo: [ :mapping | mapping listOfElementSchema: Market ]. reader mapInstVarsFor: Market. reader nextAs: BittrexResponse ]; get) inspect. ==>BittrexResponse success => true message => '' result => an Array(a Market(LTC) a Market(DOGE) a Market(VTC) a Market(PPC) a Market(FTC) a Market(RDD) ... Market(POWR) a Market(BTG) a Market(BTG) a Market(BTG) a Market(ADA) a Market(ENG) a Market(ENG)) WhooHoo! A couple of things remaining: * The instance variables of Market currently start with an upper-case to match the JSON fields. Lower-casing the first letter breaks things. What strategies can be used to conform here to Smalltalk conventions? Or is it easy enough to live with it? * In various posts I've seen mention of a class-side method #neoJsonMapping: but there is no explanation of this in the Enterprise Book. How might #neoJsonMapping: come into the picture for my use case above? cheers -ben

Dec. 10, 2017

Re: [Pharo-users] KeyNotFound: key #nil not found in SystemDicitonary

by Seth

Thanks Ben. I did the file out part. How do I start start a fresh image? On Sun, Dec 10, 2017 at 11:16 AM, Ben Coman <btc(a)openinworld.com> wrote: > hi Seth, > > I've never heard of that error before, and others are better placed to > advise on session handling, > but just to provide an escape path... > > Right-click on your package and choose "File Out", and it will inform you > of the created file name. > Then in a fresh image go World > Tools > File Browser, find the file and > right-click on it then "FileIn entire file" > > cheers -ben > > > On 10 December 2017 at 09:54, Seth <dekathexis(a)gmail.com> wrote: > >> So, I've been trying to save and close my image for a while now. >> >> It won't even just close without saving, it constantly pops up the error >> from this subject. >> >> I'm fairly new to all this, but I followed it to I think an Array of >> ClassSessionHandlers one of which is ClassSessionHandlers(nil) but I don't >> know how to get rid of it, I also opened the process browser and found a >> Morphic UI Process: nil which i tried to terminate. None of which seems to >> work. How to I get this nil value out of my image save / shutdown process? >> >> >> >> -- >> Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html >> >> >

Dec. 10, 2017

Re: [Pharo-users] KeyNotFound: key #nil not found in SystemDicitonary

by Ben Coman

hi Seth, I've never heard of that error before, and others are better placed to advise on session handling, but just to provide an escape path... Right-click on your package and choose "File Out", and it will inform you of the created file name. Then in a fresh image go World > Tools > File Browser, find the file and right-click on it then "FileIn entire file" cheers -ben On 10 December 2017 at 09:54, Seth <dekathexis(a)gmail.com> wrote: > So, I've been trying to save and close my image for a while now. > > It won't even just close without saving, it constantly pops up the error > from this subject. > > I'm fairly new to all this, but I followed it to I think an Array of > ClassSessionHandlers one of which is ClassSessionHandlers(nil) but I don't > know how to get rid of it, I also opened the process browser and found a > Morphic UI Process: nil which i tried to terminate. None of which seems to > work. How to I get this nil value out of my image save / shutdown process? > > > > -- > Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html > >

Dec. 10, 2017

KeyNotFound: key #nil not found in SystemDicitonary

by Seth

So, I've been trying to save and close my image for a while now. It won't even just close without saving, it constantly pops up the error from this subject. I'm fairly new to all this, but I followed it to I think an Array of ClassSessionHandlers one of which is ClassSessionHandlers(nil) but I don't know how to get rid of it, I also opened the process browser and found a Morphic UI Process: nil which i tried to terminate. None of which seems to work. How to I get this nil value out of my image save / shutdown process? -- Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html

Dec. 10, 2017