Squeak-dev September 2010

squeak-dev@lists.squeakfoundation.org

110 participants
401 discussions

[Informal Report] Building the next FunSqueak using Cog - 3
by Edgar J. De Cleene 02 Sep '10

02 Sep '10

Trying to load Movies from Ladrillos success but his experimental VM lack Plugins so when I open MPEGMoviePlayerMorph, locate a valid file and hit Play button have: > Error: primFileValidMPEG: failed > 2 September 2010 7:09:39.627 am > > VM: Mac OS - Smalltalk > Image: Squeak4.2alpha [latest update: #10423] > > SecurityManager state: > Restricted: false > FileAccess: true > SocketAccess: true > Working Dir /Users/edgar/imagesZip/Squeak4.2-10160-alpha > Trusted Dir /foobar/tooBar/forSqueak/bogus/ > Untrusted Dir /foobar/tooBar/forSqueak/bogus/ > > MPEGFile class(Object)>>error: > Receiver: MPEGFile > Arguments and temporary variables: > aString: 'primFileValidMPEG: failed' > Receiver's instance variables: > superclass: Object > methodDict: a > MethodDictionary(#audioChannels:->(MPEGFile>>#audioChannels: "a C...etc... > format: 140 > instanceVariables: #('pathToFile' 'fileBits' 'fileIndex' > 'endianness' 'buffer')...etc... > organization: ('audio' audioChannels: audioGetSample: > audioPlayerForChannel: au...etc... > subclasses: nil > name: #MPEGFile > classPool: a Dictionary(#Registry->nil ) > sharedPools: nil > environment: Smalltalk globals "a SystemDictionary with lots of > globals" > category: #'Movies-Kernel' > > etc > > Collateral minor trouble, seems on each project must have show hared flaps > selected, in the past we do once for all > > Edgar

1 0

The Inbox: Network-fbs.85.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

A new version of Network was added to project The Inbox: http://source.squeak.org/inbox/Network-fbs.85.mcz ==================== Summary ==================== Name: Network-fbs.85 Author: fbs Time: 2 September 2010, 11:04:22.63 am UUID: c0254710-c450-e04a-b5c1-8190fe463e62 Ancestors: Network-ar.84 Configurable scheme->Url class mapping. "Url registerUrlClass: HttpUrl forScheme: 'http'" lets 'http://localhost/' asUrl return an HttpUrl. If no explicit mapping exists, foo asUrl returns a GenericUrl. =============== Diff against Network-ar.84 =============== Item was changed: ----- Method: Url class>>urlClassForScheme: (in category 'parsing') ----- urlClassForScheme: scheme + ^ schemeRegistry at: scheme ifAbsent: [GenericUrl].! - (scheme isNil or: [scheme = 'http']) ifTrue: [^HttpUrl]. - scheme = 'https' ifTrue: [^HttpUrl]. - scheme = 'ftp' ifTrue: [^FtpUrl]. - scheme = 'file' ifTrue: [^FileUrl]. - scheme = 'mailto' ifTrue: [^MailtoUrl]. - scheme = 'browser' ifTrue: [^BrowserUrl]. - ^GenericUrl! Item was added: + ----- Method: Url class>>registerUrlClass:forScheme: (in category 'class initialization') ----- + registerUrlClass: aClass forScheme: aString + schemeRegistry at: aString put: aClass.! Item was changed: Object subclass: #Url instanceVariableNames: 'fragment' classVariableNames: '' poolDictionaries: '' category: 'Network-Url'! + Url class + instanceVariableNames: 'schemeRegistry'! !Url commentStamp: '<historical>' prior: 0! A Uniform Resource Locator. It specifies the location of a document on the Internet. The base class is abstract; child classes break different types of URLs down in ways appropriate for that type.! + Url class + instanceVariableNames: 'schemeRegistry'! Item was added: + ----- Method: Url class>>initialize (in category 'class initialization') ----- + initialize + super initialize. + schemeRegistry := Dictionary new. + schemeRegistry + at: 'browser' put: BrowserUrl; + at: 'file' put: FileUrl; + at: 'ftp' put: FtpUrl; + at: 'http' put: HttpUrl; + at: 'https' put: HttpUrl; + at: 'mailto' put: MailtoUrl.!

1 0

[Informal Report] Buildin the next FunSqueak using Cog
by Edgar J. De Cleene 02 Sep '10

02 Sep '10

As we can¹t use older .pr , we need know how ³rescue² old . Step 1 Create a new .pr using the DockingBar Gop into Add MCHttpRepository location: 'http://www.squeaksource.com/Ladrillos' user: 'squeak' password: 'squeak' Locate MorphicGames-edc.1, loads without complains. Then go to objects (o) item of World menu. Locate Games, punt into the World the games you like. As in the previous, I choose ChineseCheckers, Chess, FreeCell as representative ones. Play a little and collapse windows For window shows the right name, open ChangeSorter and navigate to Morphic-Games, make changes go to me I provisory name FunSqueakCog4.2-10423-alpha.image, but if some have best I change it. As Hannes suggest, could save each step, maybe this should be FunSqueakCog4.2-10423-alpha.1.image ? Edgar

2 1

Squeak on Ubuntu reloaded
by Alexander Lazarević 02 Sep '10

02 Sep '10

I just updated my article about Squeak on Ubuntu<http://blog.blobworks.com/2010/08/16/squeak-on-ubuntu-reloaded/>, which is aimed at the more infrequent Ubuntu/Squeak user. Any comments are welcome. Thanks, Alex

2 3

The Trunk: Compression-ar.21.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-ar.21.mcz ==================== Summary ==================== Name: Compression-ar.21 Author: ar Time: 1 September 2010, 11:32:08.32 pm UUID: fa1a526b-c5a4-4b43-a077-c53bf02c65da Ancestors: Compression-ar.20 Break the dependency between the Collection and the Compression package. =============== Diff against Compression-ar.20 =============== Item was added: + ----- Method: PositionableStream>>asZLibReadStream (in category '*Compression') ----- + asZLibReadStream + ^ZLibReadStream on: collection from: position+1 to: readLimit! Item was added: + ----- Method: ReadWriteStream>>isZipArchive (in category '*Compression') ----- + isZipArchive + "Determine if this appears to be a valid Zip archive" + | sig | + self binary. + sig := self next: 4. + self position: self position - 4. "rewind" + ^ZipArchive validSignatures includes: sig! Item was added: + ----- Method: ReadWriteStream>>asUnZippedStream (in category '*Compression') ----- + asUnZippedStream + | isGZip outputStream first strm archive which | + "Decompress this file if needed, and return a stream. No file is written. File extension may be .gz or anything else. Also works on archives (.zip, .gZip)." + + strm := self binary. + strm isZipArchive ifTrue: [ + archive := ZipArchive new readFrom: strm. + which := archive members detect: [:any | any fileName asLowercase endsWith: '.ttf'] + ifNone: [nil]. + which ifNil: [archive close. + ^ self error: 'Can''t find .ttf file in archive']. + strm := which contentStream. + archive close]. + + first := strm next. + isGZip := (strm next * 256 + first) = (GZipConstants gzipMagic). + strm skip: -2. + isGZip + ifTrue: [outputStream := (MultiByteBinaryOrTextStream with: + (GZipReadStream on: strm) upToEnd) reset. + strm close] + ifFalse: [outputStream := strm]. + ^ outputStream! Item was added: + ----- Method: String>>unzipped (in category '*Compression') ----- + unzipped + | magic1 magic2 | + magic1 := (self at: 1) asInteger. + magic2 := (self at: 2) asInteger. + (magic1 = 16r1F and:[magic2 = 16r8B]) ifFalse:[^self]. + ^(GZipReadStream on: self) upToEnd! Item was added: + ----- Method: String>>zipped (in category '*Compression') ----- + zipped + | stream gzstream | + + stream := RWBinaryOrTextStream on: String new. + + gzstream := GZipWriteStream on: stream. + gzstream nextPutAll: self. + gzstream close. + stream reset. + + ^ stream contents. + !

1 0

The Trunk: Collections-ar.377.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.377.mcz ==================== Summary ==================== Name: Collections-ar.377 Author: ar Time: 1 September 2010, 11:31:12.782 pm UUID: d93b436b-d8ab-d545-bbf1-ef78a2d76915 Ancestors: Collections-ar.376 Break the dependency between the Collection and the Compression package. =============== Diff against Collections-ar.376 =============== Item was removed: - ----- Method: ReadWriteStream>>asUnZippedStream (in category 'converting') ----- - asUnZippedStream - | isGZip outputStream first strm archive which | - "Decompress this file if needed, and return a stream. No file is written. File extension may be .gz or anything else. Also works on archives (.zip, .gZip)." - - strm := self binary. - strm isZipArchive ifTrue: [ - archive := ZipArchive new readFrom: strm. - which := archive members detect: [:any | any fileName asLowercase endsWith: '.ttf'] - ifNone: [nil]. - which ifNil: [archive close. - ^ self error: 'Can''t find .ttf file in archive']. - strm := which contentStream. - archive close]. - - first := strm next. - isGZip := (strm next * 256 + first) = (GZipConstants gzipMagic). - strm skip: -2. - isGZip - ifTrue: [outputStream := (MultiByteBinaryOrTextStream with: - (GZipReadStream on: strm) upToEnd) reset. - strm close] - ifFalse: [outputStream := strm]. - ^ outputStream! Item was removed: - ----- Method: PositionableStream>>asZLibReadStream (in category 'converting') ----- - asZLibReadStream - ^ZLibReadStream on: collection from: position+1 to: readLimit! Item was removed: - ----- Method: String>>unzipped (in category 'converting') ----- - unzipped - | magic1 magic2 | - magic1 := (self at: 1) asInteger. - magic2 := (self at: 2) asInteger. - (magic1 = 16r1F and:[magic2 = 16r8B]) ifFalse:[^self]. - ^(GZipReadStream on: self) upToEnd! Item was removed: - ----- Method: String>>zipped (in category 'converting') ----- - zipped - | stream gzstream | - - stream := RWBinaryOrTextStream on: String new. - - gzstream := GZipWriteStream on: stream. - gzstream nextPutAll: self. - gzstream close. - stream reset. - - ^ stream contents. - ! Item was removed: - ----- Method: ReadWriteStream>>isZipArchive (in category 'testing') ----- - isZipArchive - "Determine if this appears to be a valid Zip archive" - | sig | - self binary. - sig := self next: 4. - self position: self position - 4. "rewind" - ^ZipArchive validSignatures includes: sig!

1 0

The Trunk: Network-ar.84.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ar.84.mcz ==================== Summary ==================== Name: Network-ar.84 Author: ar Time: 1 September 2010, 11:22:10.22 pm UUID: fb5ae3bf-66f0-c041-aab6-f1e007f8dc8e Ancestors: Network-ar.83 Push asUrl into the Network package. =============== Diff against Network-ar.83 =============== Item was added: + ----- Method: FileStream>>asUrl (in category '*network-url') ----- + asUrl + "Convert my path into a file:// type url - a FileUrl." + + ^FileUrl pathParts: (self directory pathParts copyWith: self localName)! Item was added: + ----- Method: FileDirectory>>asUrl (in category '*network-url') ----- + asUrl + "Convert my path into a file:// type url - a FileUrl." + + ^FileUrl pathParts: (self pathParts copyWith: '')! Item was added: + ----- Method: Text>>asUrlRelativeTo: (in category '*network-url') ----- + asUrlRelativeTo: aUrl + ^self asString asUrlRelativeTo: aUrl! Item was added: + ----- Method: Text>>asUrl (in category '*network-url') ----- + asUrl + ^self asString asUrl!

1 0

The Trunk: Files-ar.86.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-ar.86.mcz ==================== Summary ==================== Name: Files-ar.86 Author: ar Time: 1 September 2010, 11:20:42.643 pm UUID: 69fc97d4-23dd-4046-a4ad-821e087372ba Ancestors: Files-ul.85 Push asUrl into the Network package. =============== Diff against Files-ul.85 =============== Item was removed: - ----- Method: FileStream>>asUrl (in category 'file accessing') ----- - asUrl - "Convert my path into a file:// type url - a FileUrl." - - ^FileUrl pathParts: (self directory pathParts copyWith: self localName)! Item was removed: - ----- Method: FileDirectory>>asUrl (in category 'file name utilities') ----- - asUrl - "Convert my path into a file:// type url - a FileUrl." - - ^FileUrl pathParts: (self pathParts copyWith: '')!

1 0

The Trunk: Collections-ar.376.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ar.376.mcz ==================== Summary ==================== Name: Collections-ar.376 Author: ar Time: 1 September 2010, 11:19:13.783 pm UUID: 8f3dfd78-1053-3844-92a5-ad8843700c9a Ancestors: Collections-ar.375 Push asUrl into the Network package. =============== Diff against Collections-ar.375 =============== Item was removed: - ----- Method: Text>>asUrl (in category 'converting') ----- - asUrl - ^self asString asUrl! Item was removed: - ----- Method: Text>>asUrlRelativeTo: (in category 'converting') ----- - asUrlRelativeTo: aUrl - ^self asString asUrlRelativeTo: aUrl!

1 0

The Trunk: Network-ar.83.mcz
by commits＠source.squeak.org 02 Sep '10

02 Sep '10

Andreas Raab uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ar.83.mcz ==================== Summary ==================== Name: Network-ar.83 Author: ar Time: 1 September 2010, 11:05:48.237 pm UUID: 5ff7dff1-bc6c-a748-8c44-739c0b72729f Ancestors: Network-ar.82 Reclassify methods to fix various package dependencies. =============== Diff against Network-ar.82 =============== Item was added: + ----- Method: String>>asAlphaNumeric:extraChars:mergeUID: (in category '*network-uuid') ----- + asAlphaNumeric: totalSize extraChars: additionallyAllowed mergeUID: minimalSizeOfRandomPart + "Generates a String with unique identifier ( UID ) qualities, the difference to a + UUID is that its beginning is derived from the receiver, so that it has a meaning + for a human reader. + + Answers a String of totalSize, which consists of 3 parts + 1.part: the beginning of the receiver only consisting of + a-z, A-Z, 0-9 and extraChars in Collection additionallyAllowed ( which can be nil ) + 2.part: a single _ + 3.part: a ( random ) UID of size >= minimalSizeOfRandomPart consisting of + a-z, A-Z, 0-9 + + Starting letters are capitalized. + TotalSize must be at least 1. + Exactly 1 occurrence of $_ is guaranteed ( unless additionallyAllowed includes $_ ). + The random part has even for small sizes good UID qualitites for many practical purposes. + If only lower- or uppercase letters are demanded, simply convert the answer with + say #asLowercase. The probability of a duplicate will rise only moderately ( see below ). + + Example: + size of random part = 10 + in n generated UIDs the chance p of having non-unique UIDs is + n = 10000 -> p < 1e-10 if answer is reduced to lowerCase: p < 1.4 e-8 + n = 100000 -> p < 1e-8 + at the bottom is a snippet for your own calculations + Note: the calculated propabilites are theoretical, + for the actually used random generator they may be much worse" + + | stream out sizeOfFirstPart index ascii ch skip array random | + totalSize > minimalSizeOfRandomPart + ifFalse: [ self errorOutOfBounds ]. + stream := ReadStream on: self. + out := WriteStream on: ( String new: totalSize ). + index := 0. + skip := true. + sizeOfFirstPart := totalSize - minimalSizeOfRandomPart - 1. + [ stream atEnd or: [ index >= sizeOfFirstPart ]] + whileFalse: [ + ((( ascii := ( ch := stream next ) asciiValue ) >= 65 and: [ ascii <= 90 ]) or: [ + ( ascii >= 97 and: [ ascii <= 122 ]) or: [ + ch isDigit or: [ + additionallyAllowed notNil and: [ additionallyAllowed includes: ch ]]]]) + ifTrue: [ + skip + ifTrue: [ out nextPut: ch asUppercase ] + ifFalse: [ out nextPut: ch ]. + index := index + 1. + skip := false ] + ifFalse: [ skip := true ]]. + out nextPut: $_. + array := Array new: 62. + 1 to: 26 do: [ :i | + array at: i put: ( i + 64 ) asCharacter. + array at: i + 26 put: ( i + 96 ) asCharacter ]. + 53 to: 62 do: [ :i | + array at: i put: ( i - 5 ) asCharacter ]. + random := UUIDGenerator default randomGenerator. + totalSize - index - 1 timesRepeat: [ + out nextPut: ( array atRandom: random )]. + ^out contents + + " calculation of probability p for failure of uniqueness in n UIDs + Note: if answer will be converted to upper or lower case replace 62 with 36 + | n i p all | + all := 62 raisedTo: sizeOfRandomPart. + i := 1. + p := 0.0 . + n := 10000. + [ i <= n ] + whileTrue: [ + p := p + (( i - 1 ) / all ). + i := i + 1 ]. + p + + approximation formula: n squared / ( 62.0 raisedTo: sizeOfRandomPart ) / 2 + " + + "'Crop SketchMorphs and Grab Screen Rect to JPG' + asAlphaNumeric: 31 extraChars: nil mergeUID: 10 + 'CropSketchMorphsAndG_iOw94jquN6' + 'Monticello' + asAlphaNumeric: 31 extraChars: nil mergeUID: 10 + 'Monticello_kp6aV2l0IZK9uBULGOeG' + 'version-', ( '1.1.2' replaceAll: $. with: $- ) + asAlphaNumeric: 31 extraChars: #( $- ) mergeUID: 10 + 'Version-1-1-2_kuz2tMg2xX9iRLDVR'" + ! Item was added: + ----- Method: String>>asUrlRelativeTo: (in category '*network-url') ----- + asUrlRelativeTo: aUrl + ^aUrl newFromRelativeText: self! Item was added: + ----- Method: String>>asUrl (in category '*network-url') ----- + asUrl + "convert to a Url" + "'http://www.cc.gatech.edu/' asUrl" + "msw://chaos.resnet.gatech.edu:9000/' asUrl" + ^Url absoluteFromText: self!

1 0

Jump to page: