July 2012 - Pharo-users - lists.pharo.org

Re: [Pharo-users] The opposite of encodeForHTTP

by Sven Van Caekenberghe

String>>#unescapePercents On 18 Jul 2012, at 12:42, Davide Varvello wrote: > Hi there, > Does exist the opposite method of String>>encodeForHTTP somewhere? > TIA > Davide > > -- > View this message in context: http://forum.world.st/The-opposite-of-encodeForHTTP-tp4640491.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. >

July 18, 2012

The opposite of encodeForHTTP

by Davide Varvello

Hi there, Does exist the opposite method of String>>encodeForHTTP somewhere? TIA Davide -- View this message in context: http://forum.world.st/The-opposite-of-encodeForHTTP-tp4640491.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

July 18, 2012

Re: [Pharo-users] Smalltalk Quine

by Sven Van Caekenberghe

On 18 Jul 2012, at 09:24, Bernat Romagosa wrote: > Cool one! A much shorter "famous" quine in Smalltalk is: > > [ :s | Transcript show: s; show: s printString ] value: '[ :s | Transcript show: s; show: s printString ] value: ' Aah, that one is so much better, really. I suspected there would be other, but I never saw them. Thanks! > 2012/7/17 Sven Van Caekenberghe <sven(a)beta9.be> > Now that I actually read the Wikipedia article, I made the code smaller and more elegant ;-) > > String streamContents: [ :stream | | lines | > lines := #( > 'String streamContents: [ :stream | | lines |' > ' lines := #(' > ' ).' > ' (lines first: 2) do: [ :each | stream << each; cr ].' > ' lines do: [ :each | stream tab: 2; print: each; cr ].' > ' (lines allButFirst: 2) do: [ :each | stream << each; cr ].' > ' stream nextPut: $]; cr.' > ). > (lines first: 2) do: [ :each | stream << each; cr ]. > lines do: [ :each | stream tab: 2; print: each; cr ]. > (lines allButFirst: 2) do: [ :each | stream << each; cr ]. > stream nextPut: $]; cr. > ] > > On 17 Jul 2012, at 19:03, Sven Van Caekenberghe wrote: > > > By accident I visited the following website today > > > > http://igoro.com/archive/how-to-write-a-self-printing-program/ > > > > It is about writing a self-printing program, also known as a quine > > > > http://en.wikipedia.org/wiki/Quine_(computing) > > > > This has probably been done before, but I had to try to do it in Pharo Smalltalk. > > Paste the following in a Workspace and either print or inspect it. > > > > String streamContents: [ :stream | | lines | > > lines := #( > > 'String streamContents: [ :stream | | lines |' > > ' lines := #(' > > ' ).' > > ' stream' > > ' << ''String streamContents: [ :stream | | lines |''; cr;' > > ' tab; << ''lines := #(''; cr.' > > ' lines do: [ :each | stream tab; tab; print: each; cr ].' > > ' stream tab; << '').''; cr.' > > ' (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ].' > > ' stream tab; << '']''; cr.' > > ). > > stream > > << 'String streamContents: [ :stream | | lines |'; cr; > > tab; << 'lines := #('; cr. > > lines do: [ :each | stream tab; tab; print: each; cr ]. > > stream tab; << ').'; cr. > > (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. > > stream tab; << ']'; cr. > > ] > > > > The result _is_ the same, but it is a bit hard to see because String>>#printString renders the printed representation (doubling quotes). To check you can inspect the string and print it on the transcript (after opening it) > > > > Transcript show: self > > > > or you can ask the compiler for help > > > > Compiler evaluate: self readStream > > > > if you inspect the result of the above expression, you can keep on doing this forever. > > > > It is also pretty easy to extend the example with your own code. > > > > String streamContents: [ :stream | | lines | > > lines := #( > > 'String streamContents: [ :stream | | lines |' > > ' lines := #(' > > ' ).' > > ' stream' > > ' << ''String streamContents: [ :stream | | lines |''; cr;' > > ' tab; << ''lines := #(''; cr.' > > ' lines do: [ :each | stream tab; tab; print: each; cr ].' > > ' stream tab; << '').''; cr.' > > ' (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ].' > > ' stream tab; << '']''; cr.' > > ' self inform: ''Cool, no ?''' > > ). > > stream > > << 'String streamContents: [ :stream | | lines |'; cr; > > tab; << 'lines := #('; cr. > > lines do: [ :each | stream tab; tab; print: each; cr ]. > > stream tab; << ').'; cr. > > (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. > > stream tab; << ']'; cr. > > self inform: 'Cool, no ?' > > ] > > > > Just add the extra code twice. > > > > Enjoy! > > > > Sven > > > > > > -- > > Sven Van Caekenberghe > > http://stfx.eu > > Smalltalk is the Red Pill > > > > > > > > > > > > > > > > -- > Bernat Romagosa.

July 18, 2012

Re: [Pharo-users] Smalltalk Quine

by Bernat Romagosa

Cool one! A much shorter "famous" quine in Smalltalk is: [ :s | Transcript show: s; show: s printString ] value: '[ :s | Transcript show: s; show: s printString ] value: ' Cheers, 2012/7/17 Sven Van Caekenberghe <sven(a)beta9.be> > Now that I actually read the Wikipedia article, I made the code smaller > and more elegant ;-) > > String streamContents: [ :stream | | lines | > lines := #( > 'String streamContents: [ :stream | | lines |' > ' lines := #(' > ' ).' > ' (lines first: 2) do: [ :each | stream << each; cr > ].' > ' lines do: [ :each | stream tab: 2; print: each; cr > ].' > ' (lines allButFirst: 2) do: [ :each | stream << > each; cr ].' > ' stream nextPut: $]; cr.' > ). > (lines first: 2) do: [ :each | stream << each; cr ]. > lines do: [ :each | stream tab: 2; print: each; cr ]. > (lines allButFirst: 2) do: [ :each | stream << each; cr ]. > stream nextPut: $]; cr. > ] > > On 17 Jul 2012, at 19:03, Sven Van Caekenberghe wrote: > > > By accident I visited the following website today > > > > http://igoro.com/archive/how-to-write-a-self-printing-program/ > > > > It is about writing a self-printing program, also known as a quine > > > > http://en.wikipedia.org/wiki/Quine_(computing) > > > > This has probably been done before, but I had to try to do it in Pharo > Smalltalk. > > Paste the following in a Workspace and either print or inspect it. > > > > String streamContents: [ :stream | | lines | > > lines := #( > > 'String streamContents: [ :stream | | lines |' > > ' lines := #(' > > ' ).' > > ' stream' > > ' << ''String streamContents: [ :stream | | > lines |''; cr;' > > ' tab; << ''lines := #(''; cr.' > > ' lines do: [ :each | stream tab; tab; print: each; > cr ].' > > ' stream tab; << '').''; cr.' > > ' (lines allButFirst: 3) do: [ :each | stream tab; > << each; cr ].' > > ' stream tab; << '']''; cr.' > > ). > > stream > > << 'String streamContents: [ :stream | | lines |'; cr; > > tab; << 'lines := #('; cr. > > lines do: [ :each | stream tab; tab; print: each; cr ]. > > stream tab; << ').'; cr. > > (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. > > stream tab; << ']'; cr. > > ] > > > > The result _is_ the same, but it is a bit hard to see because > String>>#printString renders the printed representation (doubling quotes). > To check you can inspect the string and print it on the transcript (after > opening it) > > > > Transcript show: self > > > > or you can ask the compiler for help > > > > Compiler evaluate: self readStream > > > > if you inspect the result of the above expression, you can keep on doing > this forever. > > > > It is also pretty easy to extend the example with your own code. > > > > String streamContents: [ :stream | | lines | > > lines := #( > > 'String streamContents: [ :stream | | lines |' > > ' lines := #(' > > ' ).' > > ' stream' > > ' << ''String streamContents: [ :stream | | > lines |''; cr;' > > ' tab; << ''lines := #(''; cr.' > > ' lines do: [ :each | stream tab; tab; print: each; > cr ].' > > ' stream tab; << '').''; cr.' > > ' (lines allButFirst: 3) do: [ :each | stream tab; > << each; cr ].' > > ' stream tab; << '']''; cr.' > > ' self inform: ''Cool, no ?''' > > ). > > stream > > << 'String streamContents: [ :stream | | lines |'; cr; > > tab; << 'lines := #('; cr. > > lines do: [ :each | stream tab; tab; print: each; cr ]. > > stream tab; << ').'; cr. > > (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. > > stream tab; << ']'; cr. > > self inform: 'Cool, no ?' > > ] > > > > Just add the extra code twice. > > > > Enjoy! > > > > Sven > > > > > > -- > > Sven Van Caekenberghe > > http://stfx.eu > > Smalltalk is the Red Pill > > > > > > > > > > > > > -- Bernat Romagosa.

July 18, 2012

Re: [Pharo-users] WaveFront File importer on Pharo

by Tudor Girba

Very nice! Doru On 17 Jul 2012, at 14:21, Jean Baptiste Arnaud wrote: > Hi, > Under the pressure of Camillo i publish the code. > I beginning to do a Wavefront (human readable standard for 3d Obj Model ) importer on Pharo. > > So i made a importer. > Not all the case are manage, only the case I need to import the current Obj model. > > And a drawer which is in Alpha version. > face and normal vector are manage. > Missing color (in progress), and texturing. > > You need .obj file and all the .mtl related (open you blender and make it nice). > > If you are not running on Mac os comment this code in GLWorldTest>>#render, the > > display makeCurrent. > > else if you running on mac os implement it in > NBMSAAOffscreenDisplay>>#makeCurrent > ^driver makeCurrent. > > My code can be find on JBARepo on squeaksource > ObjModel Package but you need NBOpenGL (i do a configuration in same place i just need to be motivated for keep it up to date). > > So > put on same folder of the .image your .obj and .mtl file (i am lazy) (maybe it is VM folder i do not know). > open a workspace and do > > "s := ObjImporter importFrom: 'xwing-map.obj'. > s parse. > object := s objects. > > w := GLWorldTest new. > object do: [:e | w addElement: e]. > w openInWorld." > > 3d result with normal > <Screen Shot 2012-07-17 at 1.59.22 PM.png> > > > With normal and color but not texture : > > <Screen Shot 2012-07-17 at 1.58.18 PM.png> > > Enjoy > > > > > Best Regards > Jean Baptiste Arnaud > jbaptiste.arnaud(a)gmail.com > > > > > > > -- www.tudorgirba.com "To utilize feedback, you first have to acquire it."

July 18, 2012

Re: [Pharo-users] WaveFront File importer on Pharo

by StÃ©phane Ducasse

On Jul 17, 2012, at 2:21 PM, Jean Baptiste Arnaud wrote: > Hi, > Under the pressure of Camillo i publish the code. Thanks camillo :) > I beginning to do a Wavefront (human readable standard for 3d Obj Model ) importer on Pharo. > > So i made a importer. > Not all the case are manage, only the case I need to import the current Obj model. you relax from PhD writing :). > > And a drawer which is in Alpha version. > face and normal vector are manage. > Missing color (in progress), and texturing. > > You need .obj file and all the .mtl related (open you blender and make it nice). > > If you are not running on Mac os comment this code in GLWorldTest>>#render, the > > display makeCurrent. > > else if you running on mac os implement it in > NBMSAAOffscreenDisplay>>#makeCurrent > ^driver makeCurrent. > > My code can be find on JBARepo on squeaksource > ObjModel Package but you need NBOpenGL (i do a configuration in same place i just need to be motivated for keep it up to date). Keep it up to date. > > So > put on same folder of the .image your .obj and .mtl file (i am lazy) (maybe it is VM folder i do not know). > open a workspace and do > > "s := ObjImporter importFrom: 'xwing-map.obj'. > s parse. > object := s objects. > > w := GLWorldTest new. > object do: [:e | w addElement: e]. > w openInWorld." > > 3d result with normal > <Screen Shot 2012-07-17 at 1.59.22 PM.png> > > > With normal and color but not texture : > > <Screen Shot 2012-07-17 at 1.58.18 PM.png> > > Enjoy > > > > > Best Regards > Jean Baptiste Arnaud > jbaptiste.arnaud(a)gmail.com > > > > > > >

July 18, 2012

Re: [Pharo-users] Smalltalk Quine

by Sven Van Caekenberghe

Now that I actually read the Wikipedia article, I made the code smaller and more elegant ;-) String streamContents: [ :stream | | lines | lines := #( 'String streamContents: [ :stream | | lines |' ' lines := #(' ' ).' ' (lines first: 2) do: [ :each | stream << each; cr ].' ' lines do: [ :each | stream tab: 2; print: each; cr ].' ' (lines allButFirst: 2) do: [ :each | stream << each; cr ].' ' stream nextPut: $]; cr.' ). (lines first: 2) do: [ :each | stream << each; cr ]. lines do: [ :each | stream tab: 2; print: each; cr ]. (lines allButFirst: 2) do: [ :each | stream << each; cr ]. stream nextPut: $]; cr. ] On 17 Jul 2012, at 19:03, Sven Van Caekenberghe wrote: > By accident I visited the following website today > > http://igoro.com/archive/how-to-write-a-self-printing-program/ > > It is about writing a self-printing program, also known as a quine > > http://en.wikipedia.org/wiki/Quine_(computing) > > This has probably been done before, but I had to try to do it in Pharo Smalltalk. > Paste the following in a Workspace and either print or inspect it. > > String streamContents: [ :stream | | lines | > lines := #( > 'String streamContents: [ :stream | | lines |' > ' lines := #(' > ' ).' > ' stream' > ' << ''String streamContents: [ :stream | | lines |''; cr;' > ' tab; << ''lines := #(''; cr.' > ' lines do: [ :each | stream tab; tab; print: each; cr ].' > ' stream tab; << '').''; cr.' > ' (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ].' > ' stream tab; << '']''; cr.' > ). > stream > << 'String streamContents: [ :stream | | lines |'; cr; > tab; << 'lines := #('; cr. > lines do: [ :each | stream tab; tab; print: each; cr ]. > stream tab; << ').'; cr. > (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. > stream tab; << ']'; cr. > ] > > The result _is_ the same, but it is a bit hard to see because String>>#printString renders the printed representation (doubling quotes). To check you can inspect the string and print it on the transcript (after opening it) > > Transcript show: self > > or you can ask the compiler for help > > Compiler evaluate: self readStream > > if you inspect the result of the above expression, you can keep on doing this forever. > > It is also pretty easy to extend the example with your own code. > > String streamContents: [ :stream | | lines | > lines := #( > 'String streamContents: [ :stream | | lines |' > ' lines := #(' > ' ).' > ' stream' > ' << ''String streamContents: [ :stream | | lines |''; cr;' > ' tab; << ''lines := #(''; cr.' > ' lines do: [ :each | stream tab; tab; print: each; cr ].' > ' stream tab; << '').''; cr.' > ' (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ].' > ' stream tab; << '']''; cr.' > ' self inform: ''Cool, no ?''' > ). > stream > << 'String streamContents: [ :stream | | lines |'; cr; > tab; << 'lines := #('; cr. > lines do: [ :each | stream tab; tab; print: each; cr ]. > stream tab; << ').'; cr. > (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. > stream tab; << ']'; cr. > self inform: 'Cool, no ?' > ] > > Just add the extra code twice. > > Enjoy! > > Sven > > > -- > Sven Van Caekenberghe > http://stfx.eu > Smalltalk is the Red Pill > > > > >

July 17, 2012

Smalltalk Quine

by Sven Van Caekenberghe

By accident I visited the following website today http://igoro.com/archive/how-to-write-a-self-printing-program/ It is about writing a self-printing program, also known as a quine http://en.wikipedia.org/wiki/Quine_(computing) This has probably been done before, but I had to try to do it in Pharo Smalltalk. Paste the following in a Workspace and either print or inspect it. String streamContents: [ :stream | | lines | lines := #( 'String streamContents: [ :stream | | lines |' ' lines := #(' ' ).' ' stream' ' << ''String streamContents: [ :stream | | lines |''; cr;' ' tab; << ''lines := #(''; cr.' ' lines do: [ :each | stream tab; tab; print: each; cr ].' ' stream tab; << '').''; cr.' ' (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ].' ' stream tab; << '']''; cr.' ). stream << 'String streamContents: [ :stream | | lines |'; cr; tab; << 'lines := #('; cr. lines do: [ :each | stream tab; tab; print: each; cr ]. stream tab; << ').'; cr. (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. stream tab; << ']'; cr. ] The result _is_ the same, but it is a bit hard to see because String>>#printString renders the printed representation (doubling quotes). To check you can inspect the string and print it on the transcript (after opening it) Transcript show: self or you can ask the compiler for help Compiler evaluate: self readStream if you inspect the result of the above expression, you can keep on doing this forever. It is also pretty easy to extend the example with your own code. String streamContents: [ :stream | | lines | lines := #( 'String streamContents: [ :stream | | lines |' ' lines := #(' ' ).' ' stream' ' << ''String streamContents: [ :stream | | lines |''; cr;' ' tab; << ''lines := #(''; cr.' ' lines do: [ :each | stream tab; tab; print: each; cr ].' ' stream tab; << '').''; cr.' ' (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ].' ' stream tab; << '']''; cr.' ' self inform: ''Cool, no ?''' ). stream << 'String streamContents: [ :stream | | lines |'; cr; tab; << 'lines := #('; cr. lines do: [ :each | stream tab; tab; print: each; cr ]. stream tab; << ').'; cr. (lines allButFirst: 3) do: [ :each | stream tab; << each; cr ]. stream tab; << ']'; cr. self inform: 'Cool, no ?' ] Just add the extra code twice. Enjoy! Sven -- Sven Van Caekenberghe http://stfx.eu Smalltalk is the Red Pill

July 17, 2012

WaveFront File importer on Pharo

by Jean Baptiste Arnaud

Hi, Under the pressure of Camillo i publish the code. I beginning to do a Wavefront (human readable standard for 3d Obj Model ) importer on Pharo. So i made a importer. Not all the case are manage, only the case I need to import the current Obj model. And a drawer which is in Alpha version. face and normal vector are manage. Missing color (in progress), and texturing. You need .obj file and all the .mtl related (open you blender and make it nice). If you are not running on Mac os comment this code in GLWorldTest>>#render, the display makeCurrent. else if you running on mac os implement it in NBMSAAOffscreenDisplay>>#makeCurrent ^driver makeCurrent. My code can be find on JBARepo on squeaksource ObjModel Package but you need NBOpenGL (i do a configuration in same place i just need to be motivated for keep it up to date). So put on same folder of the .image your .obj and .mtl file (i am lazy) (maybe it is VM folder i do not know). open a workspace and do "s := ObjImporter importFrom: 'xwing-map.obj'. s parse. object := s objects. w := GLWorldTest new. object do: [:e | w addElement: e]. w openInWorld." 3d result with normal With normal and color but not texture : Enjoy Best Regards Jean Baptiste Arnaud jbaptiste.arnaud(a)gmail.com

July 17, 2012

Re: [Pharo-users] Seaside - Is it worth my time investment or is it already dead...

by Dale Henrichs

Nelson, Seaside has not been abandoned. If the Seaside model of web development is appealing to you[1], then it is worth spending the time learning it... Dale [1] http://book.seaside.st/book/introduction/what-is-seaside ----- Original Message ----- | From: "Nelson Pingitore" <pingitorenelson(a)gmail.com> | To: pharo-users(a)lists.gforge.inria.fr | Sent: Friday, July 13, 2012 6:44:57 PM | Subject: [Pharo-users] Seaside - Is it worth my time investment or is it already dead... | | Is learning Seaside worth my time and effort or has it been abandoned | already? I did not see much change happening at the Seaside web home | page.

July 14, 2012