- Pharo-users - lists.pharo.org

Re: [Pharo-users] ZnClient GET, but just the content of the <head> tag?

by PBKResearch

Paul Further to my previous post, I have found a way to use XMLHTMLParser to give what you want (more or less). The method is pretty hackish, and I am sure it could be tidied up, but here it is: par := XMLHTMLParser onURL: 'http://pharo.org'. par parseDocumentUntil: [|top| (top := par topNode) notNil and: [ top isDocument not and: [ top isNamed: 'body']]]. (par parsingResult descendantElementsNamed: 'head') first inspect. You will see that I cheat by scanning until the opening tag of the body is found, so the resulting parse contains all the head plus an empty body. There may be a way to stop at the </head> tag, but I haven't found it. As written, it depends on the input having both a head and a body. I have tried this in a playground, and it works as expected. The parse stops after the end of the head. I don't know how to check whether the reading stops at the same point; I suppose that depends on the method 'parseDocumentUntil' behaving sensibly. Hope this helps Peter Kenny From: Pharo-users [mailto:pharo-users-bounces@lists.pharo.org] On Behalf Of Jan KurÅ¡ Sent: 27 November 2016 18:47 To: Any question about pharo is welcome <pharo-users(a)lists.pharo.org> Subject: Re: [Pharo-users] ZnClient GET, but just the content of the <head> tag? Hi, PetitParser2 [1] supports parsing of streams. I have been experimenting with ZnClient and come up with the following solution: 1) Create a PP2 stream from ZnClient stream: byteStream := ZnClient new url: 'http://pharo.org'; streaming: true; get. stream := PP2CharacterStream on: byteStream encoder: ZnUTF8Encoder new. 2) Create a parser for header: head := '<head>' asPParser, #any asPParser starLazy, '</head>' asPParser. 3) Create a parser that reads everything up till header or body (in case header is not present) and parse the header: headStart := '<head' asPParser. bodyStart := '<body' asPParser. parser := (#any asPParser starLazy: (headStart / bodyStart)), head ==> #second. result := parser optimize parse: stream. 4) Finally, the contents of header is a collection of characters, I don't know what is the best way to convert it into a string, perhaps this: text := (result second inject: (WriteStream on: '') into: [ :stream :char | stream nextPut: char. stream ]) contents Cheers, Jan [1]: https://github.com/kursjan/petitparser2 On Sun, Nov 27, 2016 at 1:38 PM PBKResearch <peter(a)pbkresearch.co.uk <mailto:peter@pbkresearch.co.uk> > wrote: Paul Not sure if this is helpful - I have not tried it out, but it may give you a pointer. As Sven says, you need to parse a stream and be able to stop when you reach the desired point. If instead of Soup you use XMLHTMLParser, this has streaming siblings called SAXHTMLHandler and SAX2HTMLParser. I think it should be possible to use one or the other to stop when you reach the </head> tag. Personally I find the output of XMLHTMLParser easier to follow than that of Soup, but this may be a matter of taste. Hope this helps Peter Kenny -----Original Message----- From: Pharo-users [mailto:pharo-users-bounces@lists.pharo.org <mailto:pharo-users-bounces@lists.pharo.org> ] On Behalf Of Sven Van Caekenberghe Sent: 26 November 2016 18:19 To: Any question about pharo is welcome <pharo-users(a)lists.pharo.org <mailto:pharo-users@lists.pharo.org> > Subject: Re: [Pharo-users] ZnClient GET, but just the content of the <head> tag? Paul, > On 26 Nov 2016, at 18:31, PAUL DEBRUICKER <pdebruic(a)gmail.com <mailto:pdebruic@gmail.com> > wrote: > > This is a micro optimization if there ever was one but I wondered if it was possible to stop downloading and get the entity once the </head> tag has been received. > > Right now I download the whole page, parse it with Soup, then extract the tags I want from the head. Which works fine. e.g. > > head:=((Soup fromString: (ZnEasy get: 'http://pharo.org') entity) > findChildTag: 'html') findChildTag: 'head'. This would only be useful for large pages. Dealing with the content of resources (like parsing HTML) is outside the scope of Zinc. However, I can help you get started. What you want to do is use streaming. That gives you access to the content of a resource using a direct stream, so you could decide to stop reading (but then you have to close the connection, else you need to read everything anyway). Start by having a look at ZnClient>>#downloadTo: and ZnStreamingEntity. What you want to do is more or less the following. ZnClient new url: 'http://pharo.org'; streaming: true; get. At this point, the request is done, the response is in, but the entity of the response is not yet read. When you ask for the entity, you get a ZnStreamingEntity which holds the stream that you then have to read from. You can check the response (and its header) for meta info. Your next challenge then is to process this stream so that you can parse it in a real streaming fashion. I don't know if Soup can do this. Sven

Nov. 29, 2016

Pharo 5 and retina displays in 2016?

by Tim Mackinnon

Hi Guys - its been a while since Iâve had a chance to get back into some coding in Smalltalk, and took the plunge again with a new laptop and Pharo 5, however the screen is really blurry? Doing a google search, I can see this same question raised back in 2012, but has there been no progress in this intervening years or has a workaround not been documented for google to find? Or has everyone just got used to it, and I need to hand in there... I have tried using a different font - but not sure what constitutes a true-type font (are these the same as free-type mentioned in the Settings Browser?). Has anyone found a font that makes everything look crisp (I tried Helvetica but its only marginally better). Or is this still the same issue thatâs been hanging around for a long time as its hard to easily fix? Tim

Nov. 29, 2016

Re: [Pharo-users] Flashing short duration images in a window

by phil＠highoctane.be

WorldState MinCycleLapse: 16 will make it 60 FPS. Much smoother on Windows. Ok, some CPU is used. Phil On Mon, Nov 28, 2016 at 9:53 PM, Henrik Nergaard <henrik.nergaard(a)uia.no> wrote: > | image morph | > > > > image := Form fromFileNamed: 'path/(.jpg|.png)'. > > morph := image asMorph. > > morph openCenteredInWorld. > > morph addAlarm: #delete after: 2000 "ms". > > > > ---------------------------- > > Ps. Pharo UI runs at 50Hz > > > > Best regards, > > Henrik > > > > *From:* Pharo-users [mailto:pharo-users-bounces@lists.pharo.org] *On > Behalf Of *William L. Cleveland > *Sent:* Monday, November 28, 2016 9:43 PM > *To:* pharo-users(a)lists.pharo.org > *Subject:* [Pharo-users] Flashing short duration images in a window > > > > I want to write code to flash a color image of a person in a window for a > short period of time. The duration of the flash is important, not the > frequency of the flashes, which will be low and probably controlled by > pressing a key. > > > > Ideally, the duration should be an integral number of frames, starting > from 1 and increasing to a much larger number. With a 60 Hz monitor, one > frame would be 0.0167 seconds. The images would be low to moderate > resolution, e.g. 70K to 1 Mb > > > > Can this be done entirely in Pharo or would it be necessary to use the > Unified FFI with operating system commands? If it can be done in Pharo, > what are the classes needed to display an image filed in from the hard > drive? > > > > I am using a 27 inch iMAC (10.11.6) with 4GHz, 8 GB ram, and AMD Radeon > R9 M395X 4096 MB video card. Pharos is new to me but I wrote Smalltalk code > with VisualWorks a few years back. > > > > Thanks very much. > > > > Lou Cleveland >

Nov. 28, 2016

Re: [Pharo-users] Flashing short duration images in a window

by Dimitris Chloupis

Flashing is basically animation. All you need is an ImageMorph and to add stepping using the step method. step is the method that does the animation loop (step = frame) stepTime you return how much time will be spend be spend per step this is my step method from my project ChronosManager which basically does the seconds indicator animation, each second basically display a different image that is appropriate for that second. step "super step." self managerModel mode = 'clock' ifTrue: [ time := DateAndTime current. timeStr color: Color white ]. self managerModel mode = 'timer' | (self managerModel mode = 'stopwatch') ifTrue: [ time := ('0:' , self managerModel timeDisplay) asDuration minutes asDuration. self managerModel phase = 'work' ifTrue: [ timeStr color: Color green ]. self managerModel phase = 'break' ifTrue: [ timeStr color: Color red ] ]. secondsTimer form: (self secondsTimerForm at: time seconds + 1). self setTimeLabel. World submorphs do: [ :each| (each isKindOf: TaskbarMorph) ifTrue: [each updateTaskButtons]] stepTime ^ 1000 you use the form: message to change the image of the morph form is create like this Form fromFileNamed: wp / ('images/panels/mainPanel/secondsTimer/secondsTimer0001.png') wd here references the pharo directory (working directory) which you can assign like this wd := FileSystem disk workingDirectory . On Mon, Nov 28, 2016 at 10:43 PM William L. Cleveland <wlc1(a)columbia.edu> wrote: > I want to write code to flash a color image of a person in a window for a > short period of time. The duration of the flash is important, not the > frequency of the flashes, which will be low and probably controlled by > pressing a key. > > Ideally, the duration should be an integral number of frames, starting > from 1 and increasing to a much larger number. With a 60 Hz monitor, one > frame would be 0.0167 seconds. The images would be low to moderate > resolution, e.g. 70K to 1 Mb > > Can this be done entirely in Pharo or would it be necessary to use the > Unified FFI with operating system commands? If it can be done in Pharo, > what are the classes needed to display an image filed in from the hard > drive? > > I am using a 27 inch iMAC (10.11.6) with 4GHz, 8 GB ram, and AMD Radeon > R9 M395X 4096 MB video card. Pharos is new to me but I wrote Smalltalk code > with VisualWorks a few years back. > > Thanks very much. > > Lou Cleveland >

Nov. 28, 2016

Re: [Pharo-users] Flashing short duration images in a window

by Henrik Nergaard

| image morph | image := Form fromFileNamed: 'path/(.jpg|.png)'. morph := image asMorph. morph openCenteredInWorld. morph addAlarm: #delete after: 2000 "ms". ---------------------------- Ps. Pharo UI runs at 50Hz Best regards, Henrik From: Pharo-users [mailto:pharo-users-bounces@lists.pharo.org] On Behalf Of William L. Cleveland Sent: Monday, November 28, 2016 9:43 PM To: pharo-users(a)lists.pharo.org Subject: [Pharo-users] Flashing short duration images in a window I want to write code to flash a color image of a person in a window for a short period of time. The duration of the flash is important, not the frequency of the flashes, which will be low and probably controlled by pressing a key. Ideally, the duration should be an integral number of frames, starting from 1 and increasing to a much larger number. With a 60 Hz monitor, one frame would be 0.0167 seconds. The images would be low to moderate resolution, e.g. 70K to 1 Mb Can this be done entirely in Pharo or would it be necessary to use the Unified FFI with operating system commands? If it can be done in Pharo, what are the classes needed to display an image filed in from the hard drive? I am using a 27 inch iMAC (10.11.6) with 4GHz, 8 GB ram, and AMD Radeon R9 M395X 4096 MB video card. Pharos is new to me but I wrote Smalltalk code with VisualWorks a few years back. Thanks very much. Lou Cleveland

Nov. 28, 2016

Flashing short duration images in a window

by William L. Cleveland

I want to write code to flash a color image of a person in a window for a short period of time. The duration of the flash is important, not the frequency of the flashes, which will be low and probably controlled by pressing a key. Ideally, the duration should be an integral number of frames, starting from 1 and increasing to a much larger number. With a 60 Hz monitor, one frame would be 0.0167 seconds. The images would be low to moderate resolution, e.g. 70K to 1 Mb Can this be done entirely in Pharo or would it be necessary to use the Unified FFI with operating system commands? If it can be done in Pharo, what are the classes needed to display an image filed in from the hard drive? I am using a 27 inch iMAC (10.11.6) with 4GHz, 8 GB ram, and AMD Radeon R9 M395X 4096 MB video card. Pharos is new to me but I wrote Smalltalk code with VisualWorks a few years back. Thanks very much. Lou Cleveland

Nov. 28, 2016

Re: [Pharo-users] Execute a script from command line save image and exit

by Dimitris Chloupis

On Mon, Nov 28, 2016 at 3:43 PM Thierry Goubier <thierry.goubier(a)gmail.com> wrote: > > if the code is passed as eval it works fine. I assume here is because ! is > used to define metadata inside a st file. > > > Yes, I'd guess that you are triggering the !! delimited reading when you > give a .st. In short, giving a .st file as an argument triggers a FileIn > operation, not an execute smalltalk script. > > It just happens that FileIn is an executable format (sort of), so you can > use it as a script engine until you reach such issues. > > Thierry > yeap and I found the solution a second ! escapes the first one :) so this strings creates an error 'Hello World!' but this one works fine 'Hello World!!' and prints Hello World! so that problem solved too :)

Nov. 28, 2016

Re: [Pharo-users] Execute a script from command line save image and exit

by Sven Van Caekenberghe

> On 28 Nov 2016, at 15:08, Damien Pollet <damien.pollet+pharo(a)gmail.com> wrote: > > Soâ¦ if I read that code correctly, when you pass both --save and --quit, the image will first save itself and quit (with an unspecified return code, or the one picked by the snapshot code). Then, next time you run this image, it will resume execution and exit immediately (that time with an explicit success return code). > > *Â¬_Â¬ not sure if stupid code or stupid me* Yeah, it does not add up, I think the last expression/test should not be there. This save&quit / resume is sometimes hard to reason about (BTW, I am looking at this in 4.0). > On 28 November 2016 at 13:23, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > Hi Dimitris, > > According to > > STCommandLineHandler>>#end > | quit | > > quit := self commandLine hasOption: 'quit'. > > (self commandLine hasOption: 'save') > ifTrue: [ Smalltalk snapshot: true andQuit: quit ]. > > quit > ifTrue: [ self exitSuccess ]. > > You should be able to combine --quit and --save to get the desired effect but I haven't tested it. > > BTW, command line usage of Pharo works very well (and has been working well for years). > > Sven > > > On 28 Nov 2016, at 12:13, Dimitris Chloupis <kilon.alios(a)gmail.com> wrote: > > > > How to execute a script from command line , then save the image and exit ? > > > > I use the st command but it offers either --save which saves but keeps image opened or --exit the exits the image without saving > > > > ./pharo Ephestos.image st --save test.st > > >

Nov. 28, 2016

Re: [Pharo-users] Execute a script from command line save image and exit

by Damien Pollet

Soâ¦ if I read that code correctly, when you pass both --save and --quit, the image will first save itself and quit (with an unspecified return code, or the one picked by the snapshot code). Then, next time you run this image, it will resume execution and exit immediately (that time with an explicit success return code). *Â¬_Â¬ not sure if stupid code or stupid me* On 28 November 2016 at 13:23, Sven Van Caekenberghe <sven(a)stfx.eu> wrote: > Hi Dimitris, > > According to > > STCommandLineHandler>>#end > | quit | > > quit := self commandLine hasOption: 'quit'. > > (self commandLine hasOption: 'save') > ifTrue: [ Smalltalk snapshot: true andQuit: quit ]. > > quit > ifTrue: [ self exitSuccess ]. > > You should be able to combine --quit and --save to get the desired effect > but I haven't tested it. > > BTW, command line usage of Pharo works very well (and has been working > well for years). > > Sven > > > On 28 Nov 2016, at 12:13, Dimitris Chloupis <kilon.alios(a)gmail.com> > wrote: > > > > How to execute a script from command line , then save the image and exit > ? > > > > I use the st command but it offers either --save which saves but keeps > image opened or --exit the exits the image without saving > > > > ./pharo Ephestos.image st --save test.st > > >

Nov. 28, 2016

Re: [Pharo-users] Execute a script from command line save image and exit

by Thierry Goubier

2016-11-28 14:28 GMT+01:00 Dimitris Chloupis <kilon.alios(a)gmail.com>: > > > On Mon, Nov 28, 2016 at 2:13 PM Thierry Goubier <thierry.goubier(a)gmail.com> > wrote: > >> The GitFileTree-MergeDriver is a good place for that since it has a >> Makefile[1] with smalltalk scripting inside ("eval"), and a command line >> handler[2] to handle being used on the command line[3] by git. >> >> > yeah problem is eval works fine for me too. > > " I have been doing like this: > > #!/bin/bash > ./pharo Pharo.image save Builder > ./pharo Builder.image LoadBuilder.st --quit > > and LoadBuilder.st contains > > <code to load configurations and other thing> > Smalltalk saveSession. > > Worked for me in a 3.0, so should still be fine. > > I could then to a set of images with various names and builders so one > could have all the prerequisites and the last step just loaded my code fast > on my CI." > > Yeap that works but I found a nasty bug, pharo has issues when ! is > contained inside a string so this code works > > ```Smalltalk > > Object subclass:#HelloWorld. > HelloWorld class compile: > 'run > Transcript show: ''Hello World'' ;cr. > Transcript show: ''Yes we did it again'' ;cr. > ^self ' classified: #run. > HelloWorld run. > Smalltalk saveSession. > > ``` > > but this code produces an error if contained in a st file > > ```Smalltalk > > Object subclass:#HelloWorld. > HelloWorld class compile: > 'run > Transcript show: ''Hello World'' ;cr. > Transcript show: ''Yes we did it again!'' ;cr. > ^self ' classified: #run. > HelloWorld run. > Smalltalk saveSession. > > ``` > if the code is passed as eval it works fine. I assume here is because ! is > used to define metadata inside a st file. > Yes, I'd guess that you are triggering the !! delimited reading when you give a .st. In short, giving a .st file as an argument triggers a FileIn operation, not an execute smalltalk script. It just happens that FileIn is an executable format (sort of), so you can use it as a script engine until you reach such issues. Thierry

Nov. 28, 2016