- Pharo-dev - lists.pharo.org

[Pharo-project] Network training
by jannik.laval Feb. 7, 2011

Feb. 7, 2011

Hi, I am playing with Network package. I am giving a practical work to my students, in Java :( And I am doing the same in Pharo to understand the Network package :))) A first question: I use "NetNameResolver localHostAddress" to retrieve my network address. Now in computers, there are multiple addresses. I do not find a method to retrieve a collection of my address and it seems to be not possible, because it uses primLocalAddress, which is a primitive returning one local address. Does it exist something to have all my ip address? Thank you, --- Jannik Laval

8 23

Re: [Pharo-project] Hudson build for Seaside too?
by Marcus Denker Feb. 7, 2011

Feb. 7, 2011

On Feb 4, 2011, at 4:13 PM, Dale Henrichs wrote: > Marcus, > > Since I seem to be on a symbolic version kick today, may I suggest that you use symbolic versions for Hudson: > > Gofer new > squeaksource: 'MetacelloRepository'; > package: 'ConfigurationOfSeaside30'; > load. > > ((Smalltalk at: #ConfigurationOfSeaside30) project version: #stable) load. > > when you get a chance ... Done. > the above expression can be used for all of your Hudson builds regardless of pharo version. use the same, but it loads then a different *stable* for each version? and > ((Smalltalk at: #ConfigurationOfSeaside30) project version: #unstable) load. would load the latest code into e.g. 1.3? Marcus -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

3 2

[Pharo-project] [Hudson] Regression Testing
by Marcus Denker Feb. 7, 2011

Feb. 7, 2011

https://pharo-ic.lille.inria.fr/hudson/view/Pharo/job/Pharo%20Core%201.3%20… The idea is that there are lots of things that are almost never tested because the tests would take too long. *and* because the tests do something to the image that is not wanted for a normal build. Examples -> recompile everything, run tests again -> decompile everything to text, compile and install -> format everything and compile -> condense changes -> write new sources -> run without sources -> run without sources but encoded temps -> ..... what else??? The idea is that this CI Server Project runs all these after every build, but not as part of main build (so it does not lengthen the build process). For now, this just has one test that recompiled the image and does nothing else. -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

5 4

[Pharo-project] Issue 3680 in pharo: truncated file support in PNMReader
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Status: FixedWaitingToBePharoed Owner: stephane...(a)gmail.com New issue 3680 by stephane...(a)gmail.com: truncated file support in PNMReader http://code.google.com/p/pharo/issues/detail?id=3680 this was not integrated in Squeak but it may be useful. We should check the license. Name: Graphics-jdr.177 Author: jdr Time: 21 January 2011, 11:48:51.942 am UUID: 82017dd9-eb5e-4170-b183-14122bb13439 Ancestors: Graphics-jdr.176 Bug reading a truncated file, added pgm extension =============== Diff against Graphics-jdr.176 =============== Item was changed: ----- Method: PNMReadWriter class>>typicalFileExtensions (in category 'image reading/writing') ----- typicalFileExtensions "Answer a collection of file extensions (lowercase) which files that I can read might commonly have" + ^#('pbm' 'pgm' 'pnm' 'ppm' 'pam')! - ^#('pbm' 'pnm' 'ppm' 'pam')! Item was changed: ----- Method: PNMReadWriter>>cleanLine (in category 'reading') ----- cleanLine "upTo LF or CR, tab as space" | line loop b | + stream atEnd ifTrue:[self error:'End of Data']. + line := WriteStream with: ''. loop := true. [loop] whileTrue: [ b := stream next. b ifNil:[ loop := false "EOS" ] ifNotNil: [ (b = (Character cr) or:[b = Character lf]) ifTrue:[ loop := false. ] ifFalse:[ b = (Character tab) ifTrue:[b := Character space]. line nextPut: b. ] ] ]. ^line contents!

1 0

[Pharo-project] Issue 3674 in pharo: SocketStream no-timeout streams
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Status: FixedWaitingToBePharoed Owner: stephane...(a)gmail.com New issue 3674 by stephane...(a)gmail.com: SocketStream no-timeout streams http://code.google.com/p/pharo/issues/detail?id=3674 One day we will have to fix all the network package... and it may be worth to look at this. Now this should not be integrated as such. We will have to really check carefully Name: Network-mtf.105 Author: mtf Time: 15 January 2011, 8:27:54.184 pm UUID: 1b2c2f95-fc87-4b1f-a034-4dc2cb793c9b Ancestors: Network-cmm.103 the SocketStream refactor broke the semantics of no-timeout streams. no timeout is supposed to mean we wait potentially forever. It was broken to mean timeout silently rather than with a signal. =============== Diff against Network-cmm.103 =============== Item was added: + ----- Method: BrowserUrl>>retrieveContentsForBrowser: (in category 'downloading') ----- + retrieveContentsForBrowser: aBrowser + ^aBrowser browserUrlContents: locator! Item was changed: ----- Method: SocketStream>>receiveData (in category 'private-socket') ----- receiveData + self waitForData. - "Receive data. Signal exceptions and timeouts depending on #shouldSignal and #shouldTimeout. Return the position in the buffer where the new data starts, regardless if anything was read." - - socket - waitForDataFor: self timeout - ifClosed: [self shouldSignal - ifTrue:[ConnectionClosed signal: 'Connection closed while waiting for data.']] - ifTimedOut: [self shouldTimeout - ifTrue:[ConnectionTimedOut signal: 'Data receive timed out.']]. ^self receiveAvailableData! Item was added: + ----- Method: SocketStream>>signalClosed (in category 'private-socket') ----- + signalClosed + self shouldSignal ifFalse: [^ self]. + ConnectionClosed signal: 'Connection closed while waiting for data.'! Item was added: + ----- Method: SocketStream>>signalTimeout (in category 'private-socket') ----- + signalTimeout + self shouldSignal ifFalse: [^ self]. + ConnectionTimedOut signal: 'Data receive timed out.'! Item was added: + ----- Method: SocketStream>>waitForData (in category 'private-socket') ----- + waitForData + "Wait for data. If shouldTimeout, we will time out if nothing arrives, otherwise we wait indefinitely" + + self shouldTimeout + ifTrue: [socket waitForDataFor: self timeout + ifClosed: [self signalClosed] + ifTimedOut: [self signalTimeout]] + ifFalse: [socket waitForDataIfClosed: [self signalClosed]]!

1 0

[Pharo-project] Issue 3673 in pharo: do not raise an error in String >> #match: if the receiver contains '**' or '*#' as a substring
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Status: Accepted Owner: stephane...(a)gmail.com Labels: Milestone-1.3 New issue 3673 by stephane...(a)gmail.com: do not raise an error in String >> #match: if the receiver contains '**' or '*#' as a substring http://code.google.com/p/pharo/issues/detail?id=3673 Do we want this behavior? Name: Collections-ul.420 Author: ul Time: 15 January 2011, 1:57:14.662 pm UUID: aadc4c69-dd68-4f46-8370-dda4404f0153 Ancestors: Collections-mtf.419 - do not raise an error in String >> #match: if the receiver contains '**' or '*#' as a substring. - fixed the comment in String >> #match: =============== Diff against Collections-mtf.419 =============== Item was changed: ----- Method: String>>match: (in category 'comparing') ----- match: text "Answer whether text matches the pattern in this string. Matching ignores upper/lower case differences. Where this string contains #, text may contain any character. Where this string contains *, text may contain any sequence of characters." ^ self startingAt: 1 match: text startingAt: 1 " '*' match: 'zort' true '*baz' match: 'mobaz' true '*baz' match: 'mobazo' false '*baz*' match: 'mobazo' true '*baz*' match: 'mozo' false 'foo*' match: 'foozo' true 'foo*' match: 'bozo' false 'foo*baz' match: 'foo23baz' true 'foo*baz' match: 'foobaz' true 'foo*baz' match: 'foo23bazo' false 'foo' match: 'Foo' true 'foo*baz*zort' match: 'foobazort' false + 'foo*baz*zort' match: 'foobazzort' true - 'foo*baz*zort' match: 'foobazzort' false '*foo#zort' match: 'afoo3zortthenfoo3zort' true '*foo*zort' match: 'afoodezortorfoo3zort' true "! Item was changed: ----- Method: String>>startingAt:match:startingAt: (in category 'comparing') ----- startingAt: keyStart match: text startingAt: textStart "Answer whether text matches the pattern in this string. Matching ignores upper/lower case differences. Where this string contains #, text may contain any character. Where this string contains *, text may contain any sequence of characters." + | anyMatch matchStart matchEnd i matchStr j ii jj | i := keyStart. j := textStart. + + "Process consecutive *s and #s at the beginning." + anyMatch := false. + [ i <= self size and: [ + (self at: i) + caseOf: { + [ $* ] -> [ + anyMatch := true. + i := i + 1. + true ]. + [ $# ] -> [ + i := i + 1. + j := j + 1. + true ] } + otherwise: [ false ] ] ] whileTrue. + i > self size ifTrue: [ + ^j - 1 = text size or: [ "We reached the end by matching the character with a #." + anyMatch and: [ j <= text size ] "Or there was a * before the end." ] ]. + matchStart := i. - "Check for any #'s" - [i > self size ifTrue: [^ j > text size "Empty key matches only empty string"]. - (self at: i) = $#] whileTrue: - ["# consumes one char of key and one char of text" - j > text size ifTrue: [^ false "no more text"]. - i := i+1. j := j+1]. - - "Then check for *" - (self at: i) = $* - ifTrue: [i = self size ifTrue: - [^ true "Terminal * matches all"]. - "* means next match string can occur anywhere" - anyMatch := true. - matchStart := i + 1] - ifFalse: ["Otherwise match string must occur immediately" - anyMatch := false. - matchStart := i]. - "Now determine the match string" matchEnd := self size. + (ii := self indexOf: $* startingAt: matchStart) > 0 ifTrue: [ matchEnd := ii-1 ]. + (ii := self indexOf: $# startingAt: matchStart) > 0 ifTrue: [ matchEnd := matchEnd min: ii-1 ]. - (ii := self indexOf: $* startingAt: matchStart) > 0 ifTrue: - [ii = matchStart ifTrue: [self error: '** not valid -- use * instead']. - matchEnd := ii-1]. - (ii := self indexOf: $# startingAt: matchStart) > 0 ifTrue: - [ii = matchStart ifTrue: [self error: '*# not valid -- use #* instead']. - matchEnd := matchEnd min: ii-1]. matchStr := self copyFrom: matchStart to: matchEnd. "Now look for the match string" [jj := text findString: matchStr startingAt: j caseSensitive: false. anyMatch ifTrue: [jj > 0] ifFalse: [jj = j]] whileTrue: ["Found matchStr at jj. See if the rest matches..." (self startingAt: matchEnd+1 match: text startingAt: jj + matchStr size) ifTrue: [^ true "the rest matches -- success"]. "The rest did not match." anyMatch ifFalse: [^ false]. "Preceded by * -- try for a later match" j := j+1]. ^ false "Failed to find the match string"!

1 1

Re: [Pharo-project] Issue 3672 in pharo: terminate suspended compiler process on window close
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Updates: Summary: terminate suspended compiler process on window close Comment #1 on issue 3672 by stephane...(a)gmail.com: terminate suspended compiler process on window close http://code.google.com/p/pharo/issues/detail?id=3672 (No comment was entered for this change.)

1 1

Re: [Pharo-project] Issue 2146 in pharo: Fix SystemChangeNotification for traits.
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Updates: Cc: cy.delaunay Comment #4 on issue 2146 by stephane...(a)gmail.com: Fix SystemChangeNotification for traits. http://code.google.com/p/pharo/issues/detail?id=2146 Cyrille could you check if PackageOrganiser gets notified one trait creation...?

1 1

[Pharo-project] Issue 3672 in pharo: Prevent that the SyntaxError window leaves a suspended compiler process behind on window close
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Status: FixedWaitingToBePharoed Owner: stephane...(a)gmail.com Labels: Type-Squeak New issue 3672 by stephane...(a)gmail.com: Prevent that the SyntaxError window leaves a suspended compiler process behind on window close http://code.google.com/p/pharo/issues/detail?id=3672 Name: Tools-laza.291 Author: laza Time: 26 January 2011, 1:41:13.31 pm UUID: 6daf6a43-2737-ca44-90a4-ce11386f5bd1 Ancestors: Tools-mtf.290 Prevent that the SyntaxError window leaves a suspended compiler process behind on window close =============== Diff against Tools-mtf.290 =============== Item was changed: + ----- Method: SyntaxError>>category: (in category 'accessing') ----- - ----- Method: SyntaxError>>category: (in category 'initialization') ----- category: aSymbol "Record the message category of method being compiled. This is used when the user corrects the error and accepts." category := aSymbol. ! Item was added: + ----- Method: SyntaxError>>release (in category 'initialize-release') ----- + release + | p | + (debugger isNil or: [ + (p := debugger interruptedProcess) isNil or: [ + p isTerminated]]) ifTrue: [^self]. + + p terminate!

1 0

[Pharo-project] Issue 3669 in pharo: Unified API for accessing stdio streams
by pharo＠googlecode.com Feb. 6, 2011

Feb. 6, 2011

Status: FixedWaitingToBePharoed Owner: stephane...(a)gmail.com Labels: Type-Squeak 1.3 New issue 3669 by stephane...(a)gmail.com: Unified API for accessing stdio streams http://code.google.com/p/pharo/issues/detail?id=3669 Levente Uzonyi uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ul.96.mcz ==================== Summary ==================== it may be interesting for Coral and scripting. Name: Files-ul.96 Author: ul Time: 24 January 2011, 3:45:32.858 am UUID: d06be799-4c77-3b46-aff8-4abc589fafd3 Ancestors: Files-mtf.95 Stdio support changes: - Added stdio support code to FileStream. - Unified API for accessing stdio streams. All users should send #stdin, #stdout and #stderr to FileStream to access the streams. - MultiByteFileStream is used instead of CrLfFileStream. - CrLfFileStream class >> #new is now deprecated =============== Diff against Files-mtf.95 =============== Item was changed: StandardFileStream subclass: #CrLfFileStream instanceVariableNames: 'lineEndConvention' classVariableNames: 'Cr CrLf Lf LineEndDefault LineEndStrings LookAheadCount' poolDictionaries: '' category: 'Files-Kernel'! + !CrLfFileStream commentStamp: 'ul 12/26/2010 03:13' prior: 0! + This class is now obsolete, use MultiByteFileStream instead. + - !CrLfFileStream commentStamp: 'ls 11/10/2002 13:32' prior: 0! I am the same as a regular file stream, except that when I am in text mode, I will automatically convert line endings between the underlying platform's convention, and Squeak's convention of carriage-return only. The goal is that Squeak text files can be treated as OS text files, and vice versa. In binary mode, I behave identically to a StandardFileStream. To enable CrLfFileStream as the default file stream class for an entire image, modify FileStream class concreteStream . There are two caveats on programming with CrLfFileStream. First, the choice of text mode versus binary mode affects which characters are visible in Squeak, and no longer just affects whether those characters are returned as Character's or as Integer's. Thus the choice of mode needs to be made very carefully, and must be based on intent instead of convenience of representation. The methods asString, asByteArray, asCharacter, and asInteger can be used to convert between character and integer representations. (Arguably, file streams should accept either strings or characters in nextPut: and nextPutAll:, but that is not the case right now.) Second, arithmetic on positions no longer works, because one character that Squeak sees (carriage return) could map to two characters in the underlying file (carriage return plus line feed, on MS Windows and MS DOS). Comparison between positions still works. (This caveat could perhaps be fixed by maintaining a map between Squeak positions and positions in the underlying file, but it is complicated. Consider, for example, updates to the middle of the file. Also, consider that text files are rarely updated in the middle of the file, and that general random access to a text file is rarely very useful. If general random access with specific file counts is desired, then the file is starting to sound like a binary file instead of a text file.) ! Item was changed: ----- Method: CrLfFileStream class>>new (in category 'class initialization') ----- new + self deprecated: 'This class is now obsolete, use MultiByteFileStream instead.'. ^ (MultiByteFileStream new) wantsLineEndConversion: true; yourself. ! Item was removed: - ----- Method: CrLfFileStream class>>newForStdio (in category 'instance creation') ----- - newForStdio - "Circumvent CrLfFileStream new's retuning an instance of MultiBteFileStream" - ^super new! Item was removed: - ----- Method: CrLfFileStream>>openOnHandle:name:forWrite: (in category 'open/close') ----- - openOnHandle: aFileID name: streamName forWrite: writeMode - "Initialize the file with the given handle. If writeMode is true then - allow writing, otherwise put the file in read-only mode." - super openOnHandle: aFileID name: streamName forWrite: writeMode. - lineEndConvention := LineEndDefault! Item was changed: ReadWriteStream subclass: #FileStream instanceVariableNames: 'rwmode' + classVariableNames: 'EncodeAndDecodeStdioFiles Stderr Stdin StdioFiles Stdout TheStdioHandles' - classVariableNames: '' poolDictionaries: '' category: 'Files-Kernel'! !FileStream commentStamp: '<historical>' prior: 0! I represent a Stream that accesses a FilePage from a File. One use for my instance is to access larger "virtual Strings" than can be stored contiguously in main memory. I restrict the objects stored and retrieved to be Integers or Characters. An end of file pointer terminates reading; it can be extended by writing past it, or the file can be explicitly truncated. To use the file system for most applications, you typically create a FileStream. This is done by sending a message to a FileDirectory (file:, oldFile:, newFile:, rename:newName:) which creates an instance of me. Accesses to the file are then done via my instance. *** On DOS, files cannot be shortened!! *** To overwrite a file with a shorter one, first delete the old file (FileDirectory deleteFilePath: 'Hard Disk:aFolder:dataFolder:foo') or (aFileDirectory deleteFileNamed: 'foo'). Then write your new shorter version.! Item was added: + ----- Method: FileStream class>>encodeAndDecodeStdioFiles (in category 'stdio') ----- + encodeAndDecodeStdioFiles + + <preference: 'Encode and decode the contents of stdio files.' + category: 'Files' + description: 'It true, then the contents of stdin, stdout and stderr are encoded/decoded using the system default text converter.' + type: #Boolean> + ^EncodeAndDecodeStdioFiles ifNil: [ true ]! Item was added: + ----- Method: FileStream class>>encodeAndDecodeStdioFiles: (in category 'stdio') ----- + encodeAndDecodeStdioFiles: aBoolean + + EncodeAndDecodeStdioFiles := aBoolean. + self updateStdioFiles! Item was added: + ----- Method: FileStream class>>flushAndVoidStdioFiles (in category 'stdio') ----- + flushAndVoidStdioFiles + + StdioFiles ifNotNil: [ + StdioFiles do: [ :file | + file ifNotNil: [ + file isReadOnly ifFalse: [ + [ file flush ] + on: Error + do: [ :ex | "care less" ] ] ] ]. + self voidStdioFiles ]! Item was changed: ----- Method: FileStream class>>initialize (in category 'initialize-release') ----- initialize + FileServices registerFileReader: self. + EncodeAndDecodeStdioFiles := true. + TheStdioHandles := Array new: 3. + Smalltalk + addToStartUpList: self after: SecurityManager; "the intent being before: AutoStart" + addToShutDownList: self after: SecurityManager! - FileServices registerFileReader: self! Item was added: + ----- Method: FileStream class>>newForStdio (in category 'stdio') ----- + newForStdio + "This is a hook for subclasses to initialize themselves properly." + + ^self new! Item was added: + ----- Method: FileStream class>>shutDown: (in category 'system startup') ----- + shutDown: quitting + + quitting ifTrue: [ self flushAndVoidStdioFiles ]! Item was added: + ----- Method: FileStream class>>standardIOStreamNamed:forWrite: (in category 'stdio') ----- + standardIOStreamNamed: moniker forWrite: forWrite + + | index | + index := #(stdin stdout stderr) identityIndexOf: moniker. + ^((StdioFiles ifNil: [ StdioFiles := Array new: 3 ]) at: index) + ifNil: [ + StdioFiles + at: index + put: ( + (TheStdioHandles at: index) + ifNil: [ ^self error: moniker, ' is unavailable' ] + ifNotNil: [ :handle | + self stdioStreamClass newForStdio + openOnHandle: handle + name: moniker + forWrite: forWrite ]) ] + ! Item was added: + ----- Method: FileStream class>>startUp: (in category 'system startup') ----- + startUp: resuming + + resuming ifTrue: [ + self voidStdioFiles. + [ TheStdioHandles := self stdioHandles ] + on: Error + do: [:ex| + TheStdioHandles isArray ifFalse: [ + TheStdioHandles := Array new: 3 ] ] ]! Item was added: + ----- Method: FileStream class>>stderr (in category 'stdio') ----- + stderr + + ^Stderr ifNil: [ Stderr := self standardIOStreamNamed: #stderr forWrite: true ]! Item was added: + ----- Method: FileStream class>>stdin (in category 'stdio') ----- + stdin + + ^Stdin ifNil: [ Stdin := self standardIOStreamNamed: #stdin forWrite: false ]! Item was added: + ----- Method: FileStream class>>stdioHandles (in category 'stdio') ----- + stdioHandles + <primitive: 'primitiveFileStdioHandles' module: 'FilePlugin' error: ec> + self primitiveFailed! Item was added: + ----- Method: FileStream class>>stdioStreamClass (in category 'stdio') ----- + stdioStreamClass + + ^self encodeAndDecodeStdioFiles + ifTrue: [ MultiByteFileStream ] + ifFalse: [ StandardFileStream ]! Item was added: + ----- Method: FileStream class>>stdout (in category 'stdio') ----- + stdout + + ^Stdout ifNil: [ Stdout := self standardIOStreamNamed: #stdout forWrite: true ]! Item was added: + ----- Method: FileStream class>>updateStdioFiles (in category 'stdio') ----- + updateStdioFiles + "Make sure that all existing stdio files are instances of #stdioStreamClass." + + StdioFiles ifNil: [ ^self ]. + Stdin := Stdout := Stderr := nil. + StdioFiles := StdioFiles collect: [ :file | + file ifNotNil: [ + file class == self stdioStreamClass + ifTrue: [ file ] + ifFalse: [ + self stdioStreamClass newForStdio + copyFrom: file; + yourself ] ] ] + ! Item was added: + ----- Method: FileStream class>>voidStdioFiles (in category 'stdio') ----- + voidStdioFiles + + Stdin := Stdout := Stderr := StdioFiles := nil!

1 0