Squeak-dev November 2012

squeak-dev@lists.squeakfoundation.org

56 participants
115 discussions

The Inbox: Files-kfr.120.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

A new version of Files was added to project The Inbox: http://source.squeak.org/inbox/Files-kfr.120.mcz ==================== Summary ==================== Name: Files-kfr.120 Author: kfr Time: 12 November 2012, 6:23:28.531 pm UUID: 4a518133-203f-bd43-9fce-78b8dcfb337d Ancestors: Files-cmm.119 Fix for test failure on Windows =============== Diff against Files-cmm.119 =============== Item was added: + ----- Method: DosFileDirectory>>relativeNameIfAbsoluteFor: (in category 'path access') ----- + relativeNameIfAbsoluteFor: aFileName + "Answer either the relative name for aFileName, if aFileName names a file in me or + subdirectories, or aFileName's absolute path if it isn't in me or subdirectories. + P.S. Ths is what I'd expect relativeNameFor: to do, but it is taken and means + exactly the opposite, i.e. the absolute path for a relative name." + | fullNameSize fullName fileNameSize | + (aFileName isEmpty or: [aFileName first ~= self driveName first]) ifTrue: + [self error: 'this method expects an absolute filename']. + fullNameSize := (fullName := self fullName) size. + fileNameSize := aFileName size. + ^(aFileName beginsWith: fullName) + ifTrue: [(fileNameSize = fullNameSize + or: [fileNameSize - 1 = fullNameSize + and: [(aFileName at: fileNameSize) = self pathNameDelimiter]]) + ifTrue: [self class currentDirectoryNickname] + ifFalse: [aFileName copyFrom: fullNameSize + 2 to: fileNameSize]] + ifFalse: [aFileName] + + "SourceFiles asArray collect: [:sf| FileDirectory default relativeNameIfAbsoluteFor: sf fullName]" + "FileDirectory default relativeNameIfAbsoluteFor: FileDirectory default fullName" "should be dot" + "FileDirectory default relativeNameIfAbsoluteFor: FileDirectory default fullName, FileDirectory default slash" "should also be dot"!

1 0

The Trunk: System-eem.502.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.502.mcz ==================== Summary ==================== Name: System-eem.502 Author: eem Time: 12 November 2012, 9:56:10.047 am UUID: 90c6fd20-ddae-4282-9928-80869f63d8f9 Ancestors: System-eem.500, System-cwp.501 Fix merge slip with System-cwp.501. Include temp names in methods installed by BreakpointManager (i.e. toggle break on entry). =============== Diff against System-cwp.501 =============== Item was changed: ----- Method: BreakpointManager class>>compilePrototype:in: (in category 'private') ----- compilePrototype: aSymbol in: aClass "Compile and return a new method containing a break statement" | source node method | source := self breakpointMethodSourceFor: aSymbol in: aClass. node := aClass newCompiler + compile: source + in: aClass + notifying: nil + ifFail: [self error: '[breakpoint] unable to install breakpoint']. - compile: source - in: aClass - notifying: nil - ifFail: [self error: '[breakpoint] unable to install breakpoint']. node isNil ifTrue: [^nil]. + method := node generateWithTempNames. - "dunno what the arguments mean..." - method := node generate. ^method!

1 0

The Trunk: Tools-eem.427.mcz
by commits＠source.squeak.org 12 Nov '12

12 Nov '12

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.427.mcz ==================== Summary ==================== Name: Tools-eem.427 Author: eem Time: 12 November 2012, 9:50:37.504 am UUID: 119e2ba2-1a30-49db-bc40-043007618b42 Ancestors: Tools-ul.425 Include class comments when filing out recent changes =============== Diff against Tools-ul.425 =============== Item was changed: ----- Method: MessageSet>>fileOutMessage (in category 'message functions') ----- fileOutMessage "Put a description of the selected method on a file, or all methods if none selected." | fileName | self selectedMessageName ifNotNil: [^super fileOutMessage]. + fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. - fileName := self request: 'File out on which file?' initialAnswer: 'methods'. Cursor write showWhile: [| internalStream | internalStream := WriteStream on: (String new: 1000). internalStream header; timeStamp. messageList do: [:methodRef| + methodRef methodSymbol == #Comment + ifTrue: + [methodRef actualClass organization + putCommentOnFile: internalStream + numbered: 1 + moveSource: false + forClass: methodRef actualClass] + ifFalse: + [methodRef actualClass + printMethodChunk: methodRef methodSymbol + withPreamble: true + on: internalStream + moveSource: false + toFile: nil]]. - methodRef actualClass - printMethodChunk: methodRef methodSymbol - withPreamble: true - on: internalStream - moveSource: false - toFile: nil]. FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]!

1 0

From Etoys Reference Manual to refactoring Squeak
by mokurai＠earthtreasury.org 11 Nov '12

11 Nov '12

In the process of writing chunks of the Etoys Reference Manual http://booki.flossmanuals.net/etoys-reference-manual/_edit/ I have found a large number of infelicities, ranging from typos in Class comments to architectural issues. I have been directed here to talk about what is needed, and ask who might be working on bringing the latest Etoys into the standard Squeak distribution. I intend to go through Etoys systematically when the Reference Manual is completed and submit changesets. Then I intend to work on an Etoys By Example book explaining how the projects that come with Etoys can be replicated and improved. -- Edward Mokurai (默雷/निशब्दगर्ज/نشبدگرج) Cherlin Silent Thunder is my name, and Children are my nation. The Cosmos is my dwelling place, the Truth my destination. http://wiki.sugarlabs.org/go/Replacing_Textbooks

2 1

Passing a startup script to an image, on Windows
by Frank Shearar 10 Nov '12

10 Nov '12

We have CI scripts for both Linux and OSX, so I thought I'd try add something for the Windows tests. (I may have found a machine to use for CI, even if it's not able to be online all the time.) To that end I installed cygwin and pointed builtastic.sh (from the squeak-ci repo) to the Windows VM (a Cog), and just tried to run it. But I get an Error: No content to install in HTTPDownloadRequest>>contentStream, because the HTTPDownloadRequest that's created (the CodeLoader turns a file reference into one using a file:// URI) has a content of nil. I can't see where or how this "HTTP request" might be fulfilled. I can't see a call to #startRetrieval in my stack, for instance. Any ideas? What am I doing wrong with 'my/vm/path/Croquet.exe "path/to/image.image" "path/to/script.st"' (remember, on cygwin you can use / as a path delimiter, but I've also tried using \ as the path delimiter, with no difference in behaviour). frank

1 0

Re: 64-bit images (was: The Trunk: SystemReporter-dtl.20.mcz)
by Joseph J Alotta 10 Nov '12

10 Nov '12

On Nov 10, 2012, at 6:00 AM, squeak-dev-request(a)lists.squeakfoundation.org wrote: > Message: 2 > Date: Fri, 9 Nov 2012 04:10:53 -0800 (PST) > From: "Andreas.Raab" <andreas.raab(a)gmx.de> > Subject: [squeak-dev] Re: 64-bit images (was: The Trunk: > SystemReporter-dtl.20.mcz) > To: squeak-dev(a)lists.squeakfoundation.org > Message-ID: <1352463053241-4654623.post(a)n4.nabble.com> > Content-Type: text/plain; charset=us-ascii > > Hi David - > > This is great, and just in time! I wanted to play around with Squeak on my > new z820 development workstation featuring some 256GB of Memory (heh, heh) > and was wondering where I could find the right Image/VM pair. Thanks for the > post! > > Cheers, > - Andreas > It is only half-filled. You can put 512GB in it !! :-) Sincerely, Joe.

1 0

Daily Commit Log
by commits＠source.squeak.org 10 Nov '12

10 Nov '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-November/005557.h… Name: Compiler-eem.242 Ancestors: Compiler-eem.241 Further fix decompilation of to:do: loops now they return their receiver. Fixes the case where the loop is the last statement in an ifTrue:ifFalse: branch, e.g. the recompilation of Object>>#veryDeepCopyWith:. =============================================

1 0

[OT] Extremely cheap ARM handhelds was Raspberry Pi
by David Corking 10 Nov '12

10 Nov '12

tim Rowledge <tim(a)rowledge.org> wrote: > As an aside, there are literally dozens, possibly hundreds of extremely cheap ARM based tablets and laptops now > available. How does a $70 10" screen ARM CortexA9 laptop grab you? Or a $46 7" tablet? Or perhaps a > MacBookAir clone 13" screen A9 laptop? Where do fans of these devices post reviews/comparisons/supplier suggestions? (I read about these a couple of years ago, thinking of installing an OLPC clone. At the time the reviews suggested those available in the UK, pre-installed with Windows CE or equivalent, were desperately underpowered. We ended up with a more expensive but more capable Intel Atom netbook.) David

5 5

The Trunk: Compiler-eem.242.mcz
by commits＠source.squeak.org 09 Nov '12

09 Nov '12

Eliot Miranda uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-eem.242.mcz ==================== Summary ==================== Name: Compiler-eem.242 Author: eem Time: 9 November 2012, 2:22:42.152 pm UUID: 1f233dff-53b6-4ddd-977f-66550a4f0269 Ancestors: Compiler-eem.241 Further fix decompilation of to:do: loops now they return their receiver. Fixes the case where the loop is the last statement in an ifTrue:ifFalse: branch, e.g. the recompilation of Object>>#veryDeepCopyWith:. =============== Diff against Compiler-eem.241 =============== Item was changed: ----- Method: Decompiler>>convertToDoLoop (in category 'private') ----- convertToDoLoop "If statements contains the pattern var := startExpr. [var <= limit] whileTrue: [...statements... var := var + incConst] then replace this by startExpr to: limit by: incConst do: [:var | ...statements...]" | initStmt toDoStmt limitStmt | (stack notEmpty and: [stack last isAssignmentNode]) ifTrue: [initStmt := stack last. (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: [^self]. stack removeLast; addLast: toDoStmt. statements removeLast] ifFalse: [statements size < 2 ifTrue: [^self]. initStmt := statements at: statements size-1. (toDoStmt := statements last toDoFromWhileWithInit: initStmt) ifNil: [^self]. statements removeLast; removeLast; addLast: toDoStmt]. initStmt variable scope: -1. "Flag arg as block temp" "Attempt further conversion of the pattern limitVar := limitExpr. startExpr to: limitVar by: incConst do: [:var | ...statements...] to + startExpr to: limitExpr by: incConst do: [:var | ...statements...]. + The complication here is that limitVar := limitExpr's value may be used, in which case it'll + be statements last, or may not be used, in which case it'll be statements nextToLast." - startExpr to: limitExpr by: incConst do: [:var | ...statements...]" statements size < 2 ifTrue: [^ self]. + limitStmt := statements last. - limitStmt := statements at: statements size-1. ((limitStmt isMemberOf: AssignmentNode) and: [limitStmt variable isTemp + and: [limitStmt variable == toDoStmt arguments first]]) ifFalse: + [limitStmt := statements at: statements size-1. + ((limitStmt isMemberOf: AssignmentNode) + and: [limitStmt variable isTemp + and: [limitStmt variable == toDoStmt arguments first]]) ifFalse: + [^self]]. + + (self blockScopeRefersOnlyOnceToTemp: limitStmt variable fieldOffset) ifFalse: + [^self]. - and: [limitStmt variable == toDoStmt arguments first - and: [self blockScopeRefersOnlyOnceToTemp: limitStmt variable fieldOffset]]]) - ifFalse: [^ self]. toDoStmt arguments at: 1 put: limitStmt value. limitStmt variable scope: -2. "Flag limit var so it won't print" + statements last == limitStmt + ifTrue: [statements removeLast] + ifFalse: [statements removeLast; removeLast; addLast: toDoStmt]! - statements removeLast; removeLast; addLast: toDoStmt - - !

1 0

64-bit images (was: The Trunk: SystemReporter-dtl.20.mcz)
by David T. Lewis 09 Nov '12

09 Nov '12

The purpose of this change to the SystemReporter is to allow it to identify the image format and word size (64-bit or 32-bit) of the image file that is currently being run. An example SystemReporter window from a 64-bit image is attached. A 64-bit version of the trunk image can be found here: http://box3.squeak.org/job/Squeak%2064-bit%20image/ A 64-bit image is normally created directly from the normal 32-bit image using a SystemTracer. This Smalltalk script illustrates how it is done: http://box3.squeak.org/job/Squeak%2064-bit%20image/ws/TraceTo64.st To run a 64-bit image on Linux, go to http://squeakvm.org/unix/ and install both the "4.10.2.2614 Unix VM" and the "4.10.2.2614 Unix VM for 64-bit images". The /usr/local/bin/squeak script will then invoke the right VM to run your image, either 32- or 64-bit. If you prefer to compile your VM from source, use the source tarball from http://squeakvm.org/unix/ and run the platforms/unix/cmake/configure script with the "--image64" option to build a VM for running 64-bit images. Unofficial and unsupported "bleeding edge" tarballs can also be found at http://box3.squeak.org/job/InterpreterVM/ Cog VMs are not currently able to run the 64-bit image, although they certainly will do so in the future. For now, a 64-bit image on a standard interpreter VM will be much slower than the "same" 32-bit image on Cog, but will have greater address space and an ability to reach a much larger total image size. Dave On Thu, Nov 08, 2012 at 04:36:15AM +0000, commits(a)source.squeak.org wrote: > David T. Lewis uploaded a new version of SystemReporter to project The Trunk: > http://source.squeak.org/trunk/SystemReporter-dtl.20.mcz > > ==================== Summary ==================== > > Name: SystemReporter-dtl.20 > Author: dtl > Time: 7 November 2012, 11:35:58.387 pm > UUID: fb07b2ef-d22a-4054-a266-1e94e274f3ef > Ancestors: SystemReporter-cmm.19 > > Display image format and word size in #reportImage: > > =============== Diff against SystemReporter-cmm.19 =============== > > Item was changed: > ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- > reportImage: aStream > self header: 'Image' on: aStream. > aStream > nextPutAll: Smalltalk image imageName; cr; > nextPutAll: SystemVersion current version; cr; > nextPutAll: Smalltalk image lastUpdateString; cr; > + nextPutAll: Smalltalk image currentChangeSetString; cr. > + [ | imageFormat bitsPerWord | > + imageFormat := Smalltalk image imageFormatVersion. > + bitsPerWord := Smalltalk image wordSize * 8. > + aStream nextPutAll: 'Image format '; > + nextPutAll: imageFormat asString; > + nextPutAll: ' ('; > + nextPutAll: bitsPerWord asString; > + nextPutAll: ' bit)'; cr] > + on: Warning > + do: ["primitive not present in VM"]. > - nextPutAll: Smalltalk image currentChangeSetString; cr > ! >

5 5

← Newer
1
...
4
5
6
7
8
9
10
11
12
Older →