Squeak-dev June 2010

squeak-dev@lists.squeakfoundation.org

96 participants
269 discussions

Re: [Pharo-project] ESUG will sponsor the XMLRPC project!
by Germán Arduino 27 Jun '10

27 Jun '10

Hi Philippe: What is bad with xmlrpc? A lot of sites are using it to expose its data.... Cheers. Germán. 2010/6/27 Philippe Marschall <kustos(a)gmx.net>: > On 26.06.2010 19:27, Germán Arduino wrote: >> Hi Folks, >> >> I'm very happy of announce that ESUG will be sponsoring my work to >> develop a XMLRPC client interface, as I comment on my blog: >> http://germanarduino.blogspot.com/2010/06/esug-will-sponsor-xmlrpc-project.…. >> >> I want to thank publicly to Stéphane Ducasse, Alain Plantec, Nuory >> Bouraqadi and ESUG, as they are sponsoring this initiative under the >> "support your project" program, described in >> http://www.esug.org/Promotion/Project . Thanks you very much ESUG. >> >> Any comment or suggestion to this project is more than welcomed. > > WTF?! It's 2010 and you're implementing XMLRPC. Srsly guys? What's next > CORBA? > > Cheers > Philippe > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project -- ================================================= Germán S. Arduino <gsa @ arsol.net> Twitter: garduino Arduino Software & Web Hosting http://www.arduinosoftware.com PasswordsPro http://www.passwordspro.com =================================================

2 1

ESUG will sponsor the XMLRPC project!
by Germán Arduino 26 Jun '10

26 Jun '10

Hi Folks, I'm very happy of announce that ESUG will be sponsoring my work to develop a XMLRPC client interface, as I comment on my blog: http://germanarduino.blogspot.com/2010/06/esug-will-sponsor-xmlrpc-project.…. I want to thank publicly to Stéphane Ducasse, Alain Plantec, Nuory Bouraqadi and ESUG, as they are sponsoring this initiative under the "support your project" program, described in http://www.esug.org/Promotion/Project . Thanks you very much ESUG. Any comment or suggestion to this project is more than welcomed. Cheers. -- ================================================= Germán S. Arduino <gsa @ arsol.net> Twitter: garduino Arduino Software & Web Hosting http://www.arduinosoftware.com PasswordsPro http://www.passwordspro.com =================================================

2 2

Re: [Vm-dev] COG, Trunk, and squeak.org
by Michael Haupt 26 Jun '10

26 Jun '10

Hi, I'm sending this response to squeak-dev as well, as that is the more appropriate place ... Cog works well with trunk images; you need to have the latest updates in there, though. If I understand your message correctly, you seem to be unable to update to the latest trunk, right? Have you set the update site to http://source.squeak.org/trunk in the preferences (under Monticello)? Once all the updates are in, Cog starts up my trunk image, and I'm enjoying the speedup. :-) Pre-built releases take time to prepare, and please bear in mind that Cog was released just some few days ago. Also, Cog does have its glitches (I experience some difficulties with bytecode simulation, but also with stepping in the debugger - report upcoming) and is probably not 100 % stable for all purposes that the non-Cog VMs were well suited for. To summarise, while Cog is the "latest and greatest", as you put it, it should be considered beta. The stable Squeak release is 4.1 plus the latest VM, and in my actually not so humble opinion it is completely sufficient to provide pre-built releases for *that*. Perhaps I misunderstood you here and there: apologies for that, then. Best, Michael On Fri, Jun 25, 2010 at 10:29 AM, Squeak List <squeaklist(a)yahoo.com> wrote: > > First, MANY thanks to everyone for bringing Cog to Squeak :) > > yet, i go to: > "og, a Squeak JIT VM with 2x-10x Speedup Released > Eliot Miranda announced that Teleplace released under a MIT license his work on a long awaited and anticipated new JIT virtual engine for Squeak and friends called Cog, with 2x-10x improvement in performance. It is available on our ftp site." > > and find no way to get Cog working at all with Trunk... it seems like update options were released some time ago for 4.1, when folks were having similar problems - but i cannot get cog to accept any update preferences... > > what happened to the COMPLETELY PRE-BUILT releases???? > > i think this is what confuses/infuriates some folks: expectation is to click a link and download the COMPLETE latest and greatest: here you have cog and functioning options INCLUDED in what you download from squeak.org, that allow you to choose from whatever update stream you choose... at least Trunk... > > windows vista 32 bit here. > > i cannot find how to make cog update from TRUNK: the BUTTONS do not work in the preferences... and i am amazed that i should have to look ANYWHERE beyond SQUEAK.ORG to waste time... the program works (except the updating via TRUNK) - did i miss the message that explains how to fix this (possibly/probably) - and if/since i did miss that clearly spelled out message, why on earth is it not spelled out clearly on squeak.org??? or did i miss it there also? > > otherwise, it all is very interesting :) > > and it seems that is working very well (cog) for some folks. > > i would just like to ask someone to CLEARLY EXPLAIN how to get the new Cog system working in Windows: so that i can use Trunk updates. > > sorry, but it just seems like when i download the Cog from squeak.org, it should not have problems connecting to Trunk... and that updating from Trunk should be a built in option in preferences... to me at least... something that you could turn off if you were not interested.... > > thanx all, > > ken > > > > >

4 9

Daily Commit Log
by commits＠source.squeak.org 26 Jun '10

26 Jun '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-June/003490.html Name: Graphics-nice.140 Ancestors: Graphics-cmm.138 Replace some underscore assignments... =============================================

1 0

iOS folder in squeak VM source tree.
by John M McIntosh 25 Jun '10

25 Jun '10

I've moved the source code for the iOS (iPhone/iPad/iPod touch platforms) and the Cocoa based V5 MacintoshSqueak VM to the squeakvm.org SVN tree from the isqueak.org SVN server. Future updates to that code base will only be pushed to the squeakvm.org tree So for building the V4.x.x series of Macintosh Carbon VM's use the "Mac OS" folder, for the 5.x series, or the iPhone/IPad flavour use the iOS folder. -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

2 1

The Trunk: Graphics-nice.140.mcz
by commits＠source.squeak.org 25 Jun '10

25 Jun '10

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.140.mcz ==================== Summary ==================== Name: Graphics-nice.140 Author: nice Time: 25 June 2010, 11:09:20.113 pm UUID: a1f90174-88db-499e-858e-5e58b7222015 Ancestors: Graphics-cmm.138 Replace some underscore assignments... =============== Diff against Graphics-cmm.138 =============== Item was changed: ----- Method: PNMReadWriter>>nextImage (in category 'reading') ----- nextImage "read one image" | data p | first ifNil:[ + first := false. + data := stream contentsOfEntireFile. + stream := (RWBinaryOrTextStream with: data) reset. - first _ false. - data _ stream contentsOfEntireFile. - stream _ (RWBinaryOrTextStream with: data) reset. ] ifNotNil:[ type < 4 ifTrue:[ self error:'Plain PBM, PGM or PPM have only one image' ]. ]. stream ascii. + p := stream next. + type := (stream next) asInteger - 48. - p _ stream next. - type _ (stream next) asInteger - 48. (p = $P and:[type > 0 and:[type < 8]]) ifFalse:[ self error:'Not a PNM file' ]. type = 7 ifTrue:[ self readHeaderPAM ] ifFalse: [ self readHeader ]. type caseOf: { [1] -> [^self readPlainBW]. [2] -> [^self readPlainGray]. [3] -> [^self readPlainRGB]. [4] -> [^self readBWreverse: false]. [5] -> [^self readGray]. [6] -> [^self readRGB]. [7] -> [ "PAM" (tupleType asUppercase) caseOf: { ['BLACKANDWHITE'] -> [^self readBWreverse: true]. ['GRAYSCALE'] -> [^self readGray]. ['RGB'] -> [^self readRGB]. ['RGB_ALPHA'] -> [^self error:'Not implemented']. ['GRAYSCALE_ALPHA'] -> [^self error:'Not implemented']. } otherwise: [^self readData]. ] }! Item was changed: ----- Method: BDFFontReader>>read (in category 'reading') ----- read | xTable strikeWidth glyphs ascent descent minAscii maxAscii maxWidth chars charsNum height form encoding bbx array width blt lastAscii pointSize ret stream | + form := encoding := bbx := nil. - form _ encoding _ bbx _ nil. self readAttributes. + height := Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). + ascent := Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. + descent := Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. + pointSize := (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. - height _ Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). - ascent _ Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. - descent _ Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. - pointSize _ (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. + maxWidth := 0. + minAscii := 9999. + strikeWidth := 0. + maxAscii := 0. - maxWidth _ 0. - minAscii _ 9999. - strikeWidth _ 0. - maxAscii _ 0. + charsNum := Integer readFromString: (properties at: #CHARS) first. + chars := Set new: charsNum. - charsNum _ Integer readFromString: (properties at: #CHARS) first. - chars _ Set new: charsNum. 1 to: charsNum do: [:i | + array := self readOneCharacter. + stream := ReadStream on: array. + form := stream next. + encoding := stream next. + bbx := stream next. - array _ self readOneCharacter. - stream _ ReadStream on: array. - form _ stream next. - encoding _ stream next. - bbx _ stream next. form ifNotNil: [ + width := bbx at: 1. + maxWidth := maxWidth max: width. + minAscii := minAscii min: encoding. + maxAscii := maxAscii max: encoding. + strikeWidth := strikeWidth + width. - width _ bbx at: 1. - maxWidth _ maxWidth max: width. - minAscii _ minAscii min: encoding. - maxAscii _ maxAscii max: encoding. - strikeWidth _ strikeWidth + width. chars add: array. ]. ]. + chars := chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. + charsNum := chars size. "undefined encodings make this different" - chars _ chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. - charsNum _ chars size. "undefined encodings make this different" charsNum > 256 ifTrue: [ "it should be 94x94 charset, and should be fixed width font" + strikeWidth := 94*94*maxWidth. + maxAscii := 94*94. + minAscii := 0. + xTable := XTableForFixedFont new. - strikeWidth _ 94*94*maxWidth. - maxAscii _ 94*94. - minAscii _ 0. - xTable _ XTableForFixedFont new. xTable maxAscii: 94*94. xTable width: maxWidth. ] ifFalse: [ + xTable := (Array new: 258) atAllPut: 0. - xTable _ (Array new: 258) atAllPut: 0. ]. + glyphs := Form extent: strikeWidth@height. + blt := BitBlt toForm: glyphs. + lastAscii := 0. - glyphs _ Form extent: strikeWidth@height. - blt _ BitBlt toForm: glyphs. - lastAscii _ 0. charsNum > 256 ifTrue: [ 1 to: charsNum do: [:i | + stream := ReadStream on: (chars at: i). + form := stream next. + encoding := stream next. + bbx := stream next. + encoding := ((encoding // 256) - 33) * 94 + ((encoding \\ 256) - 33). - stream _ ReadStream on: (chars at: i). - form _ stream next. - encoding _ stream next. - bbx _ stream next. - encoding _ ((encoding // 256) - 33) * 94 + ((encoding \\ 256) - 33). blt copy: ((encoding * maxWidth)@0 extent: maxWidth@height) from: 0@0 in: form. ]. ] ifFalse: [ 1 to: charsNum do: [:i | + stream := ReadStream on: (chars at: i). + form := stream next. + encoding := stream next. + bbx := stream next. - stream _ ReadStream on: (chars at: i). - form _ stream next. - encoding _ stream next. - bbx _ stream next. lastAscii+1 to: encoding-1 do: [:a | xTable at: a+2 put: (xTable at: a+1)]. blt copy: (((xTable at: encoding+1)@(ascent - (bbx at: 2) - (bbx at: 4))) extent: (bbx at: 1)@(bbx at: 2)) from: 0@0 in: form. xTable at: encoding+2 put: (xTable at: encoding+1)+(bbx at: 1). + lastAscii := encoding. - lastAscii _ encoding. ] ]. + ret := Array new: 8. - ret _ Array new: 8. ret at: 1 put: xTable. ret at: 2 put: glyphs. ret at: 3 put: minAscii. ret at: 4 put: maxAscii. ret at: 5 put: maxWidth. ret at: 6 put: ascent. ret at: 7 put: descent. ret at: 8 put: pointSize. ^ret. " ^{xTable. glyphs. minAscii. maxAscii. maxWidth. ascent. descent. pointSize}" ! Item was changed: ----- Method: StrikeFont>>makeAssignArrow (in category 'make arrows') ----- makeAssignArrow "Replace the underline character with an arrow for this font" | arrowForm arrowCanvas arrowY arrowLeft arrowRight arrowHeadLength | + arrowForm := (self characterFormAt: $_) copy. + arrowCanvas := arrowForm getCanvas. - arrowForm _ (self characterFormAt: $_) copy. - arrowCanvas _ arrowForm getCanvas. arrowCanvas fillColor: Color white. + arrowY := arrowForm height // 2. + arrowLeft := 0. + arrowRight := arrowForm width - 2. + arrowHeadLength := (arrowRight - arrowLeft) * 2 // 5. - arrowY _ arrowForm height // 2. - arrowLeft _ 0. - arrowRight _ arrowForm width - 2. - arrowHeadLength _ (arrowRight - arrowLeft) * 2 // 5. "Draw the lines" arrowCanvas line: (arrowLeft@arrowY) to: (arrowRight@arrowY) color: Color black. arrowCanvas line: (arrowLeft@arrowY) to: ((arrowLeft + arrowHeadLength)@(arrowY - arrowHeadLength)) color: Color black. arrowCanvas line: (arrowLeft@arrowY) to: ((arrowLeft + arrowHeadLength)@(arrowY + arrowHeadLength)) color: Color black. "Replace the glyph" self characterFormAt: $_ put: arrowForm. ! Item was changed: ----- Method: XBMReadWriter>>readHeader (in category 'private') ----- readHeader "Set width and height, and position stream at start of bytes" | number setwidth setheight fieldName | + setwidth := setheight := false. - setwidth _ setheight _ false. [((stream atEnd) or: [setwidth and: [setheight]])] whileFalse: [ self skipCComments. (stream nextMatchAll: '#define ') ifFalse: [^ false]. (stream skipTo: $_) ifFalse: [^ false]. + fieldName := String streamContents: - fieldName _ String streamContents: [:source | [(stream atEnd) or: [ stream peek isSeparator ]] whileFalse: [ source nextPut: stream next]]. (fieldName = 'width') ifTrue: [ stream skipSeparators. + number := Integer readFrom: stream. - number _ Integer readFrom: stream. (number > 0) ifTrue: [setwidth _true]. + width := number.]. - width _ number.]. (fieldName = 'height') ifTrue: [ stream skipSeparators. + number := Integer readFrom: stream. + (number > 0) ifTrue: [setheight := true]. + height := number. - number _ Integer readFrom: stream. - (number > 0) ifTrue: [setheight _ true]. - height _ number. ]. ]. (setwidth & setheight) ifFalse: [^ false]. ^ stream skipTo: ${ ! Item was changed: ----- Method: PNGReadWriter class>>test1 (in category 'as yet unclassified') ----- test1 "PNGReadWriter test1" | d0 d1 fileInfo book d2 f | + Debugging := true. - Debugging _ true. 1 = 1 ifTrue: [ + book := BookMorph new. - book _ BookMorph new. book setProperty: #transitionSpec toValue: {'silence'. #none. #none}. ]. + d0 := FileDirectory default. + d1 := d0 directoryNamed: 'PngSuite Folder'. + d2 := d0 directoryNamed: 'BIG PNG'. - d0 _ FileDirectory default. - d1 _ d0 directoryNamed: 'PngSuite Folder'. - d2 _ d0 directoryNamed: 'BIG PNG'. {d0. d1. d2}. "keep compiler quiet" "== citrus_none_sub.png citrus_adm7_adap.png citrus_adm7_aver.png citrus_adm7_non.png citrus_adm7_paeth.png pngs-img-ie5mac.png ==" + fileInfo := { - fileInfo _ { d2. {'citrus_adm7_adap.png'}. "d1. d1 fileNames." }. fileInfo pairsDo: [ :dir :fileNames | fileNames do: [ :each | | error data t | Transcript cr; show: each. + data := (dir fileNamed: each) contentsOfEntireFile. + error := ''. - data _ (dir fileNamed: each) contentsOfEntireFile. - error _ ''. MessageTally spyOn: [ + t := [ | result | + result := self createAFormFrom: data. - t _ [ | result | - result _ self createAFormFrom: data. f_ result first. + error := result second. - error _ result second. ] timeToRun.]. self insertMorph: f asMorph named: each into: book. Transcript show: each,' ',data size printString,' = ',t printString,' ms',error; cr. ]. ]. book ifNotNil: [book openInWorld]. + Debugging := false.! - Debugging _ false.! Item was changed: ----- Method: BDFFontReader>>readChars (in category 'reading') ----- readChars | strikeWidth ascent descent minAscii maxAscii maxWidth chars charsNum height form encoding bbx array width pointSize stream | + form := encoding := bbx := nil. - form _ encoding _ bbx _ nil. self readAttributes. + height := Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). + ascent := Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. + descent := Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. + pointSize := (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. - height _ Integer readFromString: ((properties at: #FONTBOUNDINGBOX) at: 2). - ascent _ Integer readFromString: (properties at: 'FONT_ASCENT' asSymbol) first. - descent _ Integer readFromString: (properties at: 'FONT_DESCENT' asSymbol) first. - pointSize _ (Integer readFromString: (properties at: 'POINT_SIZE' asSymbol) first) // 10. + maxWidth := 0. + minAscii := 9999. + strikeWidth := 0. + maxAscii := 0. - maxWidth _ 0. - minAscii _ 9999. - strikeWidth _ 0. - maxAscii _ 0. + charsNum := Integer readFromString: (properties at: #CHARS) first. + chars := Set new: charsNum. - charsNum _ Integer readFromString: (properties at: #CHARS) first. - chars _ Set new: charsNum. 1 to: charsNum do: [:i | + array := self readOneCharacter. + stream := ReadStream on: array. + form := stream next. + encoding := stream next. + bbx := stream next. - array _ self readOneCharacter. - stream _ ReadStream on: array. - form _ stream next. - encoding _ stream next. - bbx _ stream next. form ifNotNil: [ + width := bbx at: 1. + maxWidth := maxWidth max: width. + minAscii := minAscii min: encoding. + maxAscii := maxAscii max: encoding. + strikeWidth := strikeWidth + width. - width _ bbx at: 1. - maxWidth _ maxWidth max: width. - minAscii _ minAscii min: encoding. - maxAscii _ maxAscii max: encoding. - strikeWidth _ strikeWidth + width. chars add: array. ]. ]. + chars := chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. - chars _ chars asSortedCollection: [:x :y | (x at: 2) <= (y at: 2)]. ^ chars. !

1 0

Pushed Cocoa Macintosh VM Squeak 64-32 5.7b1
by John M McIntosh 25 Jun '10

25 Jun '10

Squeak 64-32 5.7b1.app.zip Follow the macintosh link from http://www.squeakvm.org/index.html This VM is built using the current (June 15th, 2010 version of VMMaker. This VM is setup to run in 32bit mode with a 32bit image. This VM uses the same plugins (excluding the 32/64bit FT2Plugin) as the 4.2.5b1 VM. I would suggest people take it for a spin, observe menu handling, drawing, sockets, file i/o, drag and drop, cmd line interface & sound. I'd like to move away from the 4.x.x VM to 5.x.x as we move towards getting things running on the iPad. So your help is needed to shake out the bugs. I've set the get Info to say to launch in 32bit Mode. This lets us use the existing plugins. If you really want to flip to 64bit execution mode you can uncheck the box. You will get a dialog at startup, and only the FT2Plugin is certified to work in 64bit mode. Things will run slower but maybe you'll think it's faster... Features: On resize we mangle the window bits (oh well). No doubt some more reading is required. We don't support 8bit video mode, oh likely only 32bit works. -- =========================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com ===========================================================================

2 5

Daily Commit Log
by commits＠source.squeak.org 25 Jun '10

25 Jun '10

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2010-June/003487.html Name: Morphic-ar.447 Ancestors: Morphic-cmm.446 Make windows resizable along their edges. Add preference covering the behavior. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-June/003488.html Name: Morphic-bf.448 Ancestors: Morphic-ar.447 - when dragging after a ctrl-halo click, resize instead of move the target ============================================= http://lists.squeakfoundation.org/pipermail/packages/2010-June/003489.html Name: Morphic-bf.449 Ancestors: Morphic-bf.448 - grow equally in all directions on ctrl-halo drag =============================================

1 0

Interesting survey about smalltalk
by Igor Stasenko 25 Jun '10

25 Jun '10

http://therighttool.hammerprinciple.com/items/smalltalk I think this could be used as a good guide for us to make an effort to move some low-ranked items into a high ranked ones :) -- Best regards, Igor Stasenko AKA sig.

10 21

WebClient-Monticello
by Sven Van Caekenberghe 25 Jun '10

25 Jun '10

Hi, I wrote a proof-of-concept Monticello server implementation called MCWebServer, using WebServer from Andreas Raab's WebClient package. I think this is a nice example of how to use WebServer for something useful and real. It also documents the MC HTTP client/server protocol with working code. It is available from http://www.squeaksource.com/ADayAtTheBeach as WebClient-Monticello.x.n.mcz. Load the code using Gofer (the code was written in Pharo but should be portable) (alternatively use Installer or do it manually): Gofer new squeaksource: 'WebClient'; package: 'WebClient-Core'; load. Gofer new squeaksource: 'ADayAtTheBeach'; package: 'WebClient-Monticello'; load. Setting up your own minimal MC source code repository is now very easy: (MCWebServer reset default) directory: (FileDirectory on: '/tmp/monticello/'); addUser: 'john' withPassword: 'secret'; listenOn: 8800. Make sure the specified directory exists. Choose a server port that is unused. Access with the following specification: MCHttpRepository location: 'http://localhost:8800' user: 'john' password: 'secret'. Enjoy, Sven -- Sven Van Caekenberghe - http://homepage.mac.com/svc Beta Nine - software engineering - http://www.beta9.be

4 5

← Newer
1
2
3
4
5
6
7
8
9
...
27
Older →

Jump to page: