Squeak-dev March 2013

squeak-dev@lists.squeakfoundation.org

73 participants
283 discussions

Daily Commit Log
by commits＠source.squeak.org 28 Mar '13

28 Mar '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-March/005820.html Name: SUnit-eem.93 Ancestors: SUnit-cmm.92 Move ClassTestCase to SUnit-Extensions from Tests. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-March/005821.html Name: Tests-eem.193 Ancestors: Tests-fbs.192 Tests minus ClassTestCase now moved to SUnit (SUnit-eem.93) =============================================

1 0

Re: [squeak-dev] The Trunk: Graphics-tpr.206.mcz
by Bert Freudenberg 27 Mar '13

27 Mar '13

Isn't it a bit premature to it this way? This will make these operations slower than before for everyone who does not have the plugin. Which is pretty much everyone. - Bert - On 2013-03-25, at 22:40, commits(a)source.squeak.org wrote: > tim Rowledge uploaded a new version of Graphics to project The Trunk: > http://source.squeak.org/trunk/Graphics-tpr.206.mcz > > ==================== Summary ==================== > > Name: Graphics-tpr.206 > Author: tpr > Time: 25 March 2013, 3:39:44.074 pm > UUID: 3475831d-5338-41ce-ab44-41981bd4daeb > Ancestors: Graphics-tpr.204 > > Change Form>pixelValueAt: to make use of the new primitivePixelValueAt > Change the users of bitPeekerFromForm: to take advantage of that. > Leave bitPeekerFromForm: to support any externally stored code we can't see right now. > Passes the tests in BitBltTest as of 20130325 > > =============== Diff against Graphics-tpr.204 =============== > > Item was removed: > - ----- Method: ColorForm>>pixelValueAt: (in category 'pixel accessing') ----- > - pixelValueAt: aPoint > - "Return the raw pixel value at the given point. Typical clients use colorAt: to get a Color." > - "Details: To get the raw pixel value, be sure the peeker's colorMap is nil." > - > - ^ (BitBlt bitPeekerFromForm: self) colorMap: nil; pixelAt: aPoint > - ! > > Item was changed: > ----- Method: Form>>floodFill2:at: (in category 'filling') ----- > floodFill2: aColor at: interiorPoint > "Fill the shape (4-connected) at interiorPoint. The algorithm is based on Paul Heckbert's 'A Seed Fill Algorithm', Graphic Gems I, Academic Press, 1990. > NOTE: This is a less optimized variant for flood filling which is precisely along the lines of Heckbert's algorithm. For almost all cases #floodFill:at: will be faster (see the comment there) but this method is left in both as reference and as a fallback if such a strange case is encountered in reality." > + | poker stack old new x y top x1 x2 dy left goRight | > - | peeker poker stack old new x y top x1 x2 dy left goRight | > - peeker := BitBlt bitPeekerFromForm: self. > poker := BitBlt bitPokerToForm: self. > stack := OrderedCollection new: 50. > "read old pixel value" > + old := self pixelAt: interiorPoint. > - old := peeker pixelAt: interiorPoint. > "compute new value" > new := self pixelValueFor: aColor. > old = new ifTrue:[^self]. "no point, is there?!!" > > x := interiorPoint x. > y := interiorPoint y. > (y >= 0 and:[y < height]) ifTrue:[ > stack addLast: {y. x. x. 1}. "y, left, right, dy" > stack addLast: {y+1. x. x. -1}]. > [stack isEmpty] whileFalse:[ > top := stack removeLast. > y := top at: 1. x1 := top at: 2. x2 := top at: 3. dy := top at: 4. > y := y + dy. > "Segment of scanline (y-dy) for x1 <= x <= x2 was previously filled. > Now explore adjacent pixels in scanline y." > x := x1. > + [x >= 0 and:[(self pixelAt: x@y) = old]] whileTrue:[ > - [x >= 0 and:[(peeker pixelAt: x@y) = old]] whileTrue:[ > poker pixelAt: x@y put: new. > x := x - 1]. > goRight := x < x1. > left := x+1. > (left < x1 and:[y-dy >= 0 and:[y-dy < height]]) > ifTrue:[stack addLast: {y. left. x1-1. 0-dy}]. > goRight ifTrue:[x := x1 + 1]. > [ > goRight ifTrue:[ > + [x < width and:[(self pixelAt: x@y) = old]] whileTrue:[ > - [x < width and:[(peeker pixelAt: x@y) = old]] whileTrue:[ > poker pixelAt: x@y put: new. > x := x + 1]. > (y+dy >= 0 and:[y+dy < height]) > ifTrue:[stack addLast: {y. left. x-1. dy}]. > (x > (x2+1) and:[y-dy >= 0 and:[y-dy >= 0]]) > ifTrue:[stack addLast: {y. x2+1. x-1. 0-dy}]]. > + [(x := x + 1) <= x2 and:[(self pixelAt: x@y) ~= old]] whileTrue. > - [(x := x + 1) <= x2 and:[(peeker pixelAt: x@y) ~= old]] whileTrue. > left := x. > goRight := true. > x <= x2] whileTrue. > ]. > ! > > Item was changed: > ----- Method: Form>>pixelValueAt: (in category 'pixel access') ----- > pixelValueAt: aPoint > "Return the raw pixel value at the given point. This pixel value depends on the receiver's depth. Typical clients use colorAt: to get a Color. " > > + ^ self primPixelValueAtX: aPoint x y: aPoint y! > - ^ (BitBlt bitPeekerFromForm: self) pixelAt: aPoint > - ! > > Item was changed: > ----- Method: Form>>primPixelValueAtX:y: (in category 'pixel access') ----- > primPixelValueAtX: x y: y > + "Return the raw pixel value at the given point. This pixel value depends on the receiver's depth. Typical clients use colorAt: to get a Color. Make sure the colorMap is nil for ColorForms " > - "Return the raw pixel value at the given point. This pixel value depends on the receiver's depth. Typical clients use colorAt: to get a Color. " > > <primitive: 'primitivePixelValueAt' module:'PixelValuePeekPlugin'> > + ^(BitBlt bitPeekerFromForm: self) colorMap: nil; pixelAt: x@y! > - ^(BitBlt bitPeekerFromForm: self) pixelAtX: x y: y! > > Item was changed: > ----- Method: PNMReadWriter>>nextPutGray: (in category 'writing') ----- > nextPutGray: aForm > + | myType val | > - | myType peeker val | > cols := aForm width. > rows := aForm height. > depth := aForm depth. > "stream position: 0." > aForm depth = 1 ifTrue:[myType := $4] ifFalse:[myType := $5]. > self writeHeader: myType. > - peeker := BitBlt bitPeekerFromForm: aForm. > 0 to: rows-1 do: [:y | > 0 to: cols-1 do: [:x | > + val := aForm pixelAt: x@y. > - val := peeker pixelAt: x@y. > stream nextPut: val. > ] > ]. > ! > > Item was changed: > ----- Method: PNMReadWriter>>nextPutRGB: (in category 'writing') ----- > nextPutRGB: aForm > + | myType f shift mask | > - | myType peeker f shift mask | > cols := aForm width. > rows := aForm height. > depth := aForm depth. > f := aForm. > depth < 16 ifTrue:[ > f := aForm asFormOfDepth: 32. > depth := 32. > ]. > myType := $6. > "stream position: 0." > self writeHeader: myType. > depth = 32 ifTrue:[shift := 8. mask := 16rFF] ifFalse:[shift := 5. mask := 16r1F]. > - peeker := BitBlt bitPeekerFromForm: f. > 0 to: rows-1 do: [:y | > 0 to: cols-1 do: [:x | | p r g b | > + p := f pixelAt: x@y. > - p := peeker pixelAt: x@y. > b := p bitAnd: mask. p := p >> shift. > g := p bitAnd: mask. p := p >> shift. > r := p bitAnd: mask. > stream nextPut: r. > stream nextPut: g. > stream nextPut: b. > ] > ]. > ! > > Item was changed: > ----- Method: Pen>>print:withFont: (in category 'operations') ----- > print: str withFont: font > "Print the given string in the given font at the current heading" > | lineStart scale wasDown | > scale := sourceForm width. > wasDown := penDown. > lineStart := location. > str do: > [:char | > char = Character cr ifTrue: > [self place: lineStart; up; turn: 90; go: font height*scale; turn: -90; down] > ifFalse: > + [ | charStart pix rowStart form backgroundCode | > - [ | charStart pix rowStart form bb backgroundCode | > form := font characterFormAt: char. > backgroundCode := 1<< (form depth // 3 * 3) - 1. > charStart := location. > wasDown ifTrue: [ > self up; turn: -90; go: font descent*scale; turn: 90; down. > 0 to: form height-1 do: > [:y | > rowStart := location. > - bb := BitBlt bitPeekerFromForm: form. > pix := RunArray newFrom: > + ((0 to: form width-1) collect: [:x | form pixelAt: x@y]). > - ((0 to: form width-1) collect: [:x | bb pixelAt: x@y]). > pix runs with: pix values do: > [:run :value | > value = backgroundCode > ifTrue: [self up; go: run*scale; down] > ifFalse: [self go: run*scale]]. > self place: rowStart; up; turn: 90; go: scale; turn: -90; down]. > ]. > self place: charStart; up; go: form width*scale; down]. > ]. > wasDown ifFalse: [self up] > " > Display restoreAfter: > [Pen new squareNib: 2; color: Color red; turn: 45; > print: 'The owl and the pussycat went to sea > in a beautiful pea green boat.' withFont: TextStyle defaultFont] > "! > > Item was changed: > ----- Method: WarpBlt>>warpBitsSmoothing:sourceMap: (in category 'primitives') ----- > warpBitsSmoothing: n sourceMap: sourceMap > + | deltaP12 deltaP43 pA pB deltaPAB sp fixedPtOne poker pix nSteps | > - | deltaP12 deltaP43 pA pB deltaPAB sp fixedPtOne picker poker pix nSteps | > <primitive: 'primitiveWarpBits' module: 'BitBltPlugin'> > > "Check for compressed source, destination or halftone forms" > ((sourceForm isForm) and: [sourceForm unhibernate]) > ifTrue: [^ self warpBitsSmoothing: n sourceMap: sourceMap]. > ((destForm isForm) and: [destForm unhibernate]) > ifTrue: [^ self warpBitsSmoothing: n sourceMap: sourceMap]. > ((halftoneForm isForm) and: [halftoneForm unhibernate]) > ifTrue: [^ self warpBitsSmoothing: n sourceMap: sourceMap]. > > (width < 1) | (height < 1) ifTrue: [^ self]. > fixedPtOne := 16384. "1.0 in fixed-pt representation" > n > 1 ifTrue: > [(destForm depth < 16 and: [colorMap == nil]) > ifTrue: ["color map is required to smooth non-RGB dest" > ^ self primitiveFail]. > pix := Array new: n*n]. > > nSteps := height-1 max: 1. > deltaP12 := (self deltaFrom: p1x to: p2x nSteps: nSteps) > @ (self deltaFrom: p1y to: p2y nSteps: nSteps). > pA := (self startFrom: p1x to: p2x offset: nSteps*deltaP12 x) > @ (self startFrom: p1y to: p2y offset: nSteps*deltaP12 y). > deltaP43 := (self deltaFrom: p4x to: p3x nSteps: nSteps) > @ (self deltaFrom: p4y to: p3y nSteps: nSteps). > pB := (self startFrom: p4x to: p3x offset: nSteps*deltaP43 x) > @ (self startFrom: p4y to: p3y offset: nSteps*deltaP43 y). > > - picker := BitBlt bitPeekerFromForm: sourceForm. > poker := BitBlt bitPokerToForm: destForm. > poker clipRect: self clipRect. > nSteps := width-1 max: 1. > destY to: destY+height-1 do: > [:y | > deltaPAB := (self deltaFrom: pA x to: pB x nSteps: nSteps) > @ (self deltaFrom: pA y to: pB y nSteps: nSteps). > sp := (self startFrom: pA x to: pB x offset: nSteps*deltaPAB x) > @ (self startFrom: pA y to: pB y offset: nSteps*deltaPAB x). > destX to: destX+width-1 do: > [:x | > n = 1 > ifTrue: > [poker pixelAt: x@y > + put: (sourceForm pixelAt: sp // fixedPtOne asPoint)] > - put: (picker pixelAt: sp // fixedPtOne asPoint)] > ifFalse: > [0 to: n-1 do: > [:dx | 0 to: n-1 do: > [:dy | > pix at: dx*n+dy+1 put: > + (sourceForm pixelAt: sp > - (picker pixelAt: sp > + (deltaPAB*dx//n) > + (deltaP12*dy//n) > // fixedPtOne asPoint)]]. > poker pixelAt: x@y put: (self mixPix: pix > sourceMap: sourceMap > destMap: colorMap)]. > sp := sp + deltaPAB]. > pA := pA + deltaP12. > pB := pB + deltaP43]! > >

3 6

The Trunk: Tests-eem.193.mcz
by commits＠source.squeak.org 27 Mar '13

27 Mar '13

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.193.mcz ==================== Summary ==================== Name: Tests-eem.193 Author: eem Time: 27 March 2013, 12:39:06.474 pm UUID: 6843d697-b8a7-49fd-88fa-05a98c9ce96f Ancestors: Tests-fbs.192 Tests minus ClassTestCase now moved to SUnit (SUnit-eem.93) =============== Diff against Tests-fbs.192 =============== Item was removed: - TestCase subclass: #ClassTestCase - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Utilities'! - - !ClassTestCase commentStamp: 'brp 7/26/2003 16:57' prior: 0! - This class is intended for unit tests of individual classes and their metaclasses. - - It provides methods to determine the coverage of the unit tests. - - Subclasses are expected to re-implement #classesToBeTested and #selectorsToBeIgnored. - - They should also implement to confirm that all methods have been tested. - - #testCoverage - - super testCoverage. - - ! Item was removed: - ----- Method: ClassTestCase class>>isAbstract (in category 'Testing') ----- - isAbstract - "Override to true if a TestCase subclass is Abstract and should not have - TestCase instances built from it" - - ^self name = #ClassTestCase - ! Item was removed: - ----- Method: ClassTestCase class>>mustTestCoverage (in category 'Testing') ----- - mustTestCoverage - - ^ false! Item was removed: - ----- Method: ClassTestCase>>categoriesForClass: (in category 'private') ----- - categoriesForClass: aClass - - ^ aClass organization allMethodSelectors collect: - [:each | aClass organization categoryOfElement: each]. - ! Item was removed: - ----- Method: ClassTestCase>>classToBeTested (in category 'coverage') ----- - classToBeTested - - self subclassResponsibility! Item was removed: - ----- Method: ClassTestCase>>selectorsNotTested (in category 'coverage') ----- - selectorsNotTested - - ^ self selectorsToBeTested difference: self selectorsTested. - ! Item was removed: - ----- Method: ClassTestCase>>selectorsTested (in category 'Coverage') ----- - selectorsTested - | literals | - literals := Set new. - self class - selectorsAndMethodsDo: [ :s :m | (s beginsWith: 'test') - ifTrue: [ literals addAll: (m messages)] ]. - ^ literals asSortedArray! Item was removed: - ----- Method: ClassTestCase>>selectorsToBeIgnored (in category 'coverage') ----- - selectorsToBeIgnored - ^ #(#DoIt #DoItIn:)! Item was removed: - ----- Method: ClassTestCase>>selectorsToBeTested (in category 'coverage') ----- - selectorsToBeTested - - ^ ( { self classToBeTested. self classToBeTested class } gather: [:c | c selectors]) - difference: self selectorsToBeIgnored! Item was removed: - ----- Method: ClassTestCase>>targetClass (in category 'private') ----- - targetClass - |className| - - className := self class name asText copyFrom: 0 to: self class name size - 4. - ^ Smalltalk at: (className asString asSymbol). - ! Item was removed: - ----- Method: ClassTestCase>>testClassComment (in category 'tests') ----- - testClassComment - self shouldnt: [self targetClass organization hasNoComment].! Item was removed: - ----- Method: ClassTestCase>>testCoverage (in category 'tests') ----- - testCoverage - - | untested | - self class mustTestCoverage ifTrue: - [ untested := self selectorsNotTested. - self assert: untested isEmpty - description: untested size asString, ' selectors are not covered' ]! Item was removed: - ----- Method: ClassTestCase>>testNew (in category 'tests') ----- - testNew - self shouldnt: [self targetClass new] raise: Error.! Item was removed: - ----- Method: ClassTestCase>>testUnCategorizedMethods (in category 'tests') ----- - testUnCategorizedMethods - | categories slips | - categories := self categoriesForClass: self targetClass. - slips := categories select: [:each | each = #'as yet unclassified']. - self should: [slips isEmpty]. !

1 0

The Trunk: SUnit-eem.93.mcz
by commits＠source.squeak.org 27 Mar '13

27 Mar '13

Eliot Miranda uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-eem.93.mcz ==================== Summary ==================== Name: SUnit-eem.93 Author: eem Time: 27 March 2013, 12:34:18.106 pm UUID: daa99dec-920c-4091-978e-600a5d57deb3 Ancestors: SUnit-cmm.92 Move ClassTestCase to SUnit-Extensions from Tests. =============== Diff against SUnit-cmm.92 =============== Item was added: + TestCase subclass: #ClassTestCase + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SUnit-Extensions'! + + !ClassTestCase commentStamp: 'brp 7/26/2003 16:57' prior: 0! + This class is intended for unit tests of individual classes and their metaclasses. + + It provides methods to determine the coverage of the unit tests. + + Subclasses are expected to re-implement #classesToBeTested and #selectorsToBeIgnored. + + They should also implement to confirm that all methods have been tested. + + #testCoverage + + super testCoverage. + + ! Item was added: + ----- Method: ClassTestCase class>>isAbstract (in category 'Testing') ----- + isAbstract + "Override to true if a TestCase subclass is Abstract and should not have + TestCase instances built from it" + + ^self name = #ClassTestCase + ! Item was added: + ----- Method: ClassTestCase class>>mustTestCoverage (in category 'Testing') ----- + mustTestCoverage + + ^ false! Item was added: + ----- Method: ClassTestCase>>categoriesForClass: (in category 'private') ----- + categoriesForClass: aClass + + ^ aClass organization allMethodSelectors collect: + [:each | aClass organization categoryOfElement: each]. + ! Item was added: + ----- Method: ClassTestCase>>classToBeTested (in category 'coverage') ----- + classToBeTested + + self subclassResponsibility! Item was added: + ----- Method: ClassTestCase>>selectorsNotTested (in category 'coverage') ----- + selectorsNotTested + + ^ self selectorsToBeTested difference: self selectorsTested. + ! Item was added: + ----- Method: ClassTestCase>>selectorsTested (in category 'Coverage') ----- + selectorsTested + | literals | + literals := Set new. + self class + selectorsAndMethodsDo: [ :s :m | (s beginsWith: 'test') + ifTrue: [ literals addAll: (m messages)] ]. + ^ literals asSortedArray! Item was added: + ----- Method: ClassTestCase>>selectorsToBeIgnored (in category 'coverage') ----- + selectorsToBeIgnored + ^ #(#DoIt #DoItIn:)! Item was added: + ----- Method: ClassTestCase>>selectorsToBeTested (in category 'coverage') ----- + selectorsToBeTested + + ^ ( { self classToBeTested. self classToBeTested class } gather: [:c | c selectors]) + difference: self selectorsToBeIgnored! Item was added: + ----- Method: ClassTestCase>>targetClass (in category 'private') ----- + targetClass + |className| + + className := self class name asText copyFrom: 0 to: self class name size - 4. + ^ Smalltalk at: (className asString asSymbol). + ! Item was added: + ----- Method: ClassTestCase>>testClassComment (in category 'tests') ----- + testClassComment + self shouldnt: [self targetClass organization hasNoComment].! Item was added: + ----- Method: ClassTestCase>>testCoverage (in category 'tests') ----- + testCoverage + + | untested | + self class mustTestCoverage ifTrue: + [ untested := self selectorsNotTested. + self assert: untested isEmpty + description: untested size asString, ' selectors are not covered' ]! Item was added: + ----- Method: ClassTestCase>>testNew (in category 'tests') ----- + testNew + self shouldnt: [self targetClass new] raise: Error.! Item was added: + ----- Method: ClassTestCase>>testUnCategorizedMethods (in category 'tests') ----- + testUnCategorizedMethods + | categories slips | + categories := self categoriesForClass: self targetClass. + slips := categories select: [:each | each = #'as yet unclassified']. + self should: [slips isEmpty]. !

1 0

ClassTestCase should be in SUnit not in Tests, agree?
by Eliot Miranda 27 Mar '13

27 Mar '13

Hi All, I'm trying to load NetworkTests into a Newspeak image. This image doesn't include Tests, but does contain SUnit and SUnitGUI. I can't load NetworkTests because it depends on ClassTestCase which is in Tests-Utilities. IMO ClassTestCase should be in SUnit. Any disagreements? Any agreements? Mind if I move it there? -- best, Eliot

2 2

Reimplementing CI with Rake: status report
by Frank Shearar 27 Mar '13

27 Mar '13

I got fed up really quickly with writing shell scripts, so I started an experiment to use Ruby's Rake to run tests. https://travis-ci.org/frankshearar/squeak-ci/builds/5835209 shows the latest build, which * builds a custom Interpreter VM (because the CI runs on several unsupported platforms - CentOS on build.squeak.org (unsupported because it uses an ancient glibc) and Travis (unsupported because it's an x86_64 platform)), * use Cog if available, * prepare a test image (update the image under test, load the HudsonBuildTools), * and then run a bunch of external packages on a copy of the updated image. In particular, we run AndreasSystemProfiler, Control, FFI, Nebraska, Nutcracker, OSProcess, Quaternion, Phexample, RoelTyper, SqueakCheck, Universes, WebClient, XML-Parser and Zippers against each of Squeak 4.3, 4.4 and 4.5. You can run this same build script on multiple platforms: CentOS, Ubuntu 10.04, whatever Travis is running, Windows 7. It ought to work anywhere that Ruby works and the code compiles. I haven't tested it on OS X yet, and it almost certainly won't work on FreeBSD because the Interpreter doesn't compile there [1]. I still use the old shell scripts for the SqueakTrunk and ReleaseSqueakTrunk jobs, but these could be replaced with Rake, simply by running `rake release` instead of `rake test`. frank [1] http://build.squeak.org/job/SqueakTrunkOnInterpreterFreeBSD/18/console shows an issue with libuuid (of course). This particular problem's been solved on the Cog branch, but Eliot and I have yet to get Cog compiling on FreeBSD (for other reasons).

3 3

Squeak 4.3 Installer update
by Frank Shearar 27 Mar '13

27 Mar '13

I could run all my ExternalPackage tests against 4.3... if I updated 4.3's Installer a bit. What's the best way of doing this? I could just fire up 4.3, load Installer-Core-fbs.361 and commit that to squeak43, but I'm not sure that's the best thing to do. frank

3 6

Re: Please add the platform code for Andreas' SqueakSSL to SVN for trunk and oscog
by Eliot Miranda 27 Mar '13

27 Mar '13

On Thu, Mar 21, 2013 at 7:12 PM, David T. Lewis <lewis(a)mail.msen.com> wrote: > Ian, Eliot: > > When you get a chance, could you please add the platform support code for > Andreas' SqueakSSL plugin to the Squeak trunk and oscog branches? Source > files attached. This is Andreas' work (not mine) but I have placed the > files in > directories to match the platforms tree structure. > In progress, not checked in. I've integrated but so far only tested on Mac OS. Rather disappointing. Three errors, 1 failing test, 2 successes, and 8 expected failures. Anyone got any suggestions re the Mac support code or the tests? > Background: > > There has been some interest recently in getting Andreas' SqueakSSL plugin > incorporated into the standard VMs. For tracking purposes I opened an entry > at http://bugs.squeak.org/view.php?id=7751. > > Andreas' Smalltalk code is at http://www.squeaksource.com/SqueakSSL, and I > have added this to the update map for trunk VMMaker. Ian, for the standard > interpreter, you should be able to do "VMMaker updateFromServer" followed > by "VMMakerTool forUnix" to have it added to your standard unix > configuration. > Eliot, you can add the plugin from http://www.squeaksource.com/SqueakSSLto > your build recipe if you have not already done so. > > The platform support code is at http://www.squeaksource.com/SqueakSSL. I > made > a copy of that code, rearranging the directories to match the structure of > our > SVN platforms tree, attached as SqueakSSL-platforms.tar.gz. > > What needs to be done: > > Ian: This is all new code that can simply be added to the repository > without > side effects. I can confirm that the unix code compiles, but I have not > functionally > tested it. There are compiler warnings when compiling -m64, and errors for > --image64, but I expect that a 32 bit compile is probably OK. There is > platform > support code for unix, win32, and Mac OS. I think we can assume that win32 > is in > good shape, and that unix is probably OK. I don't know about the Mac OS > code > but we should check it in regardless, and follow up on any issues as > needed. > Overall I do expect that some type declarations will need to be tidied up, > but > we should start with Andreas' code unmodified and make any necessary > patches > as updates to that base. > > Eliot: I think that the attached platforms code is more recent and more > complete > than what is currently in the oscog platforms tree. If so you can update > your > platforms code with the attached, which I believe is Andreas' most up to > date > work for SqueakSSLPlugin for unix, win32 and Mac OS. > > Thanks, > Dave > > -- best, Eliot

2 1

Daily Commit Log
by commits＠source.squeak.org 27 Mar '13

27 Mar '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-March/005819.html Name: Graphics-tpr.208 Ancestors: Graphics-tpr.207 Correct some idiotic bugs in Graphics-tpr.206 - the method intended to call the new pixel peeker bitblt prim wasn't doing so - several places where pixelAt: was used should have been pixelValueAt: (and how stupid we have two variants to get confused) =============================================

1 0

REPLs (was Re: [squeak-dev] The Trunk: Graphics-tpr.205.mcz)
by Frank Shearar 27 Mar '13

27 Mar '13

On 26 March 2013 22:49, Nicolas Cellier <nicolas.cellier.aka.nice(a)gmail.com> wrote: > 2013/3/26 Frank Shearar <frank.shearar(a)gmail.com>: >> Thanks very much Chris, I'll give this a whirl. >> >> Indeed, my _primary_ goal is to run things headless, which requires >> decent error reporting to stdout/stderr. >> >> However, I do really like REPLs (I use Clojure's, Python's and Ruby's >> just about every day), and having such a thing for Smalltalk would >> make me very happy. It would aid my ambassadorship greatly as well. >> >> frank >> > > But isn't REPL is more demanding than just read-eval-print? > > Without a decent class/message discovery mechanism (replacing the browser) > - on line help > - autocompletion > - ... > nor decent error reporting and debugging services, > could your ambassadorship sustain comparison to above references? Sure. But saying to people "sorry but you have no easy way to test something short of running inside this special UI unlike anything you've ever used, with special keybindings like nothing you've ever used" doesn't win me anything. It'd take a fair amount of work before one could compete with SLIME, but Python's and Ruby's REPLs are pretty primitive. And I don't suggest reimplementing all of this: Camillo Bruni and co have done a lot of work in this area already. frank > Nicolas > >> On 26 March 2013 21:40, Chris Muller <asqueaker(a)gmail.com> wrote: >>> Forwarding to your personal email as I have a feeling squeak-dev is >>> going to bounce my message due to being a whopping 130K attachment. >>> >>> >>> ---------- Forwarded message ---------- >>> From: Chris Muller <asqueaker(a)gmail.com> >>> Date: Tue, Mar 26, 2013 at 4:38 PM >>> Subject: Re: [squeak-dev] The Trunk: Graphics-tpr.205.mcz >>> To: The general-purpose Squeak developers list >>> <squeak-dev(a)lists.squeakfoundation.org> >>> >>> >>> Here is my little wrapper for handling running .st scripts from the >>> command-line and outputting Notifications and SyntaxErrors to stdOut >>> and Errors to stdErr. I use this every day, at one time I had wanted >>> to integrate this into the trunk. >>> >>> I've never found interacting back-and-forth with an image via >>> command-line in the style of Camillo's tool useful. I don't know when >>> one would want to do that. However certainly I do need to kick off >>> Smalltalk jobs from the command-line, headless or not, by passing in >>> .st scripts and that sounds like what you're wanting to do with a >>> build server. >>> >>> MaCommandLineProcessor in the attached package is 11 methods total -- >>> it thinly wraps Squeaks existing capability so that some of the >>> "gotcha's" are taken care of -- for example like the fact that if you >>> try to print an Error's signalerContext's longStack, it's full of CR's >>> rather than the platform line-ending making it unreadable in the host >>> OS. MaCommandLineProcessor in the attached package fixes that. >>> >>> Comments welcome -- maybe you'll see some tips at least.. >>> >>> >>> >>> On Tue, Mar 26, 2013 at 1:49 AM, Frank Shearar <frank.shearar(a)gmail.com> wrote: >>>> On 26 March 2013 00:27, tim Rowledge <tim(a)rowledge.org> wrote: >>>>> Starting from a fresh image from the Jenkins server that claimed to be completely clean and up to date >>>> >>>> That's going to be the best we have, for the moment. Mainly because >>>> * we never have a green build, >>>> * Squeak has very limited command line support >>>> ** you need to feed it a chunk-formatted startup script, or a script >>>> with no !s in it >>>> ** exceptions mean debuggers pop up, rather than dumping stack traces to stdout >>>> >>>> But otherwise, if the resulting image is _not_ completely clean & up >>>> to date, it's my fault, and please yell at me. Preferably in the form >>>> of a nice bug report :) >>>> >>>> frank >>>> >>>>>, making the changes to get rid of the obsolete 'BitBlt current' idiom for everything visible, I have now committed about half-a-dozen packages that seem to be correct. >>>>> >>>>> I also committed a VMMaker change to >>>>> a) move BitBltSImulation under SmartSyntaxPlugin >>>>> b) move the pixel-peeker primitive into BitBltSimulation >>>>> c) update the comment a bit to include some combination rules added about ten years ago >>>>> >>>>> A VM built from this passes the BitBltTests in TestRunner and appears to run everything normally. >>>>> >>>>> tim >>>>> -- >>>>> tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim >>>>> Strange OpCodes: SD: Self Destruct >>>>> >>>>> >>>>> >>>> >> >

2 1

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

Jump to page: