Squeak-dev October 2013

squeak-dev@lists.squeakfoundation.org

35 participants
262 discussions

The Trunk: System-cmm.608.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.608.mcz ==================== Summary ==================== Name: System-cmm.608 Author: cmm Time: 25 October 2013, 3:38:27.908 pm UUID: c3198c63-1008-493a-8e6b-b63886ab70cf Ancestors: System-ul.607 Convenience method for passing .st scripts as arguments to image. In the .st script, use Smalltalk do: [ :arg1 :arg2 :etc | ] to start servers, #doAndQuit: [ :args | ... ] for batch jobs, and #do:snapshot:andQuit: for jobs that "build" new images (e.g., for testing and/or deployment). Arguments from the command-line are passed as arguments to the block. In all cases, Notifications and Errors are logged to stdout and stderr, respectively. =============== Diff against System-ul.607 =============== Item was added: + ----- Method: SmalltalkImage>>do: (in category 'command line') ----- + do: aBlock + [ [ aBlock valueWithAllPossibleArguments: self arguments ] + on: ProgressInitiationException + do: + [ : pie | "Don't want to log this notification." + pie defaultAction ] ] + on: Notification , Warning + do: + [ : noti | StandardFileStream stdout + nextPutAll: DateAndTime now asString ; + space ; + nextPutAll: noti description ; + cr. + noti resume ] + on: SyntaxErrorNotification + do: + [ : err | StandardFileStream stdout + nextPutAll: err errorCode ; + cr. + self haltOrQuit ] + on: Error + do: + [ : err | err printVerboseOn: StandardFileStream stderr. + self haltOrQuit. + err isResumable ifTrue: [ err resume ] ]! Item was added: + ----- Method: SmalltalkImage>>do:snapshotAs:andQuit: (in category 'command line') ----- + do: aBlock snapshotAs: imageName andQuit: shouldQuit + self do: aBlock. + imageName + ifNil: + [ shouldQuit ifTrue: + [ self + snapshot: false + andQuit: shouldQuit ] ] + ifNotNil: + [ | correctName | + correctName := (imageName endsWith: '.image') + ifTrue: [ imageName ] + ifFalse: [ imageName , '.image' ]. + (FileDirectory default fullNameFor: correctName) = self imageName + ifTrue: + [ self + snapshot: true + andQuit: shouldQuit ] + ifFalse: + [ self saveAs: imageName. + "Avoid instant-quit when relaunching by resaving." + shouldQuit ifTrue: + [ self + snapshot: true + andQuit: shouldQuit ] ] ]! Item was added: + ----- Method: SmalltalkImage>>doAndQuit: (in category 'command line') ----- + doAndQuit: aBlock + self + do: aBlock + snapshotAs: nil + andQuit: true! Item was added: + ----- Method: SmalltalkImage>>haltOrQuit (in category 'command line') ----- + haltOrQuit + Smalltalk isHeadless + ifTrue: + [ self + snapshot: false + andQuit: true ] + ifFalse: [ self halt ]!

1 0

Re: [squeak-dev] The Inbox: Kernel-cmm.814.mcz
by Levente Uzonyi 25 Oct '13

25 Oct '13

We already have two methods for this: #valueWithEnoughArguments: and #valueWitPossibleArgs:. I think we should keep the first, and deprecate the second. Levente On Fri, 25 Oct 2013, commits(a)source.squeak.org wrote: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-cmm.814.mcz > > ==================== Summary ==================== > > Name: Kernel-cmm.814 > Author: cmm > Time: 25 October 2013, 2:27:37.722 pm > UUID: c757a2a8-26b1-422b-8b8b-4bf6640efbb4 > Ancestors: Kernel-cmm.813 > > Added BlockClosure>>#valueWithAllPossibleArguments: to support passing a variable number of arguments to the image from the command-line. > > =============== Diff against Kernel-cmm.813 =============== > > Item was changed: > + ----- Method: BlockClosure>>valueOtherwise: (in category 'evaluating') ----- > - ----- Method: BlockClosure>>valueOtherwise: (in category 'events-support') ----- > valueOtherwise: aBlock > "Send the message and answer the return value" > > ^self value! > > Item was added: > + ----- Method: BlockClosure>>valueWithAllPossibleArguments: (in category 'evaluating') ----- > + valueWithAllPossibleArguments: anArray > + "Same as valueWithPossibleArgs: except when the receiver takes just one-argument, and more than one argument is specified by anArray, then pass all of anArray as THE argument to the receiver block > + This is used to allow a large, variable number of arguments to be passed." > + ^numArgs = 0 > + ifTrue: [self value] > + ifFalse: > + [self valueWithArguments: > + (numArgs = anArray size > + ifTrue: [anArray] > + ifFalse: > + [numArgs > anArray size > + ifTrue: [anArray, (Array new: numArgs - anArray size)] > + ifFalse: > + [numArgs = 1 > + ifTrue: [Array with: anArray] > + ifFalse: [anArray copyFrom: 1 to: numArgs]]])]! > > Item was changed: > + ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'evaluating') ----- > - ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'events-support') ----- > valueWithArguments: anArray otherwise: aBlock > > ^ self valueWithArguments: anArray! > > Item was changed: > + ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'evaluating') ----- > - ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'events-support') ----- > valueWithEnoughArguments: anArray > "call me with enough arguments from anArray" > | args | > (anArray size == self numArgs) > ifTrue: [ ^self valueWithArguments: anArray ]. > > args := Array new: self numArgs. > args replaceFrom: 1 > to: (anArray size min: args size) > with: anArray > startingAt: 1. > > ^ self valueWithArguments: args! > > >

2 3

The Trunk: Kernel-cmm.814.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.814.mcz ==================== Summary ==================== Name: Kernel-cmm.814 Author: cmm Time: 25 October 2013, 2:27:37.722 pm UUID: c757a2a8-26b1-422b-8b8b-4bf6640efbb4 Ancestors: Kernel-cmm.813 Added BlockClosure>>#valueWithAllPossibleArguments: to support passing a variable number of arguments to the image from the command-line. =============== Diff against Kernel-cmm.813 =============== Item was changed: + ----- Method: BlockClosure>>valueOtherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueOtherwise: (in category 'events-support') ----- valueOtherwise: aBlock "Send the message and answer the return value" ^self value! Item was added: + ----- Method: BlockClosure>>valueWithAllPossibleArguments: (in category 'evaluating') ----- + valueWithAllPossibleArguments: anArray + "Same as valueWithPossibleArgs: except when the receiver takes just one-argument, and more than one argument is specified by anArray, then pass all of anArray as THE argument to the receiver block + This is used to allow a large, variable number of arguments to be passed." + ^numArgs = 0 + ifTrue: [self value] + ifFalse: + [self valueWithArguments: + (numArgs = anArray size + ifTrue: [anArray] + ifFalse: + [numArgs > anArray size + ifTrue: [anArray, (Array new: numArgs - anArray size)] + ifFalse: + [numArgs = 1 + ifTrue: [Array with: anArray] + ifFalse: [anArray copyFrom: 1 to: numArgs]]])]! Item was changed: + ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'events-support') ----- valueWithArguments: anArray otherwise: aBlock ^ self valueWithArguments: anArray! Item was changed: + ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'events-support') ----- valueWithEnoughArguments: anArray "call me with enough arguments from anArray" | args | (anArray size == self numArgs) ifTrue: [ ^self valueWithArguments: anArray ]. args := Array new: self numArgs. args replaceFrom: 1 to: (anArray size min: args size) with: anArray startingAt: 1. ^ self valueWithArguments: args!

1 0

The Trunk: Kernel-cmm.813.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.813.mcz ==================== Summary ==================== Name: Kernel-cmm.813 Author: cmm Time: 23 October 2013, 9:04:14.522 pm UUID: e1fe264f-55e3-4702-bd82-e7344a07e982 Ancestors: Kernel-cmm.812 - When printing stack traces, the line-end preferences should be set externally. =============== Diff against Kernel-cmm.812 =============== Item was changed: ----- Method: Error>>printVerboseOn: (in category 'printing') ----- printVerboseOn: aStream aStream - wantsLineEndConversion: true ; setToEnd ; nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; cr ; nextPutAll: 'The time is ', DateAndTime now asString ; cr. "Allow applications to optionally print extra details without overriding a base package." (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. aStream nextPutAll: self signalerContext longStack ; cr ; nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; cr!

1 0

The Trunk: Kernel-cmm.812.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.812.mcz ==================== Summary ==================== Name: Kernel-cmm.812 Author: cmm Time: 23 October 2013, 3:13:11.812 pm UUID: 68690126-9bc1-4cbc-b97e-75280610af28 Ancestors: Kernel-nice.811 Printing utilities for Blocks which include the source code of the block, and Errors which include the description and stack-trace. =============== Diff against Kernel-nice.811 =============== Item was changed: ----- Method: BlockClosure>>fullPrintOn: (in category 'printing') ----- + fullPrintOn: aStream + aStream + print: self ; + cr. + self printSourceOn: aStream! - fullPrintOn: aStream - aStream print: self; cr. - (self decompile ifNil: ['--source missing--']) printOn: aStream indent: 0! Item was added: + ----- Method: BlockClosure>>printSourceOn: (in category 'printing') ----- + printSourceOn: aStream + self decompile + ifNil: [ aStream nextPutall: '--source missing--' ] + ifNotNil: + [ : parseNode | parseNode statements anyOne + printOn: aStream + indent: 0 ]! Item was added: + ----- Method: BlockClosure>>sourceString (in category 'printing') ----- + sourceString + ^ String streamContents: [ : stream | self printSourceOn: stream ]! Item was added: + ----- Method: Error>>printVerboseOn: (in category 'printing') ----- + printVerboseOn: aStream + aStream + wantsLineEndConversion: true ; + setToEnd ; + nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ; + cr ; + nextPutAll: 'The time is ', DateAndTime now asString ; + cr. + "Allow applications to optionally print extra details without overriding a base package." + (self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ]. + aStream + nextPutAll: self signalerContext longStack ; + cr ; + nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ; + cr!

1 0

The Trunk: KernelTests-cmm.254.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Chris Muller uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-cmm.254.mcz ==================== Summary ==================== Name: KernelTests-cmm.254 Author: cmm Time: 25 October 2013, 3:01:47.351 pm UUID: 7ab6a8b8-b2d1-414c-a1f9-c164e489eef9 Ancestors: KernelTests-nice.253 Test for valueWithAllPossibleArguments:. =============== Diff against KernelTests-nice.253 =============== Item was added: + ----- Method: BlockContextTest>>testValueWithAllPossibleArgs (in category 'tests - evaluating') ----- + testValueWithAllPossibleArgs + | block blockWithArg blockWith2Arg | + + block := [1]. + blockWithArg := [:arg | arg]. + blockWith2Arg := [:arg1 :arg2 | {arg1. arg2}]. + + self assert: (block valueWithAllPossibleArguments: #()) = 1. + self assert: (block valueWithAllPossibleArguments: #(1)) = 1. + + self assert: (blockWithArg valueWithAllPossibleArguments: #()) = nil. + self assert: (blockWithArg valueWithAllPossibleArguments: #(1)) = 1. + self assert: (blockWithArg valueWithAllPossibleArguments: #(1 2)) = #(1 2). + + self assert: (blockWith2Arg valueWithAllPossibleArguments: #()) = {nil .nil}. + self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1)) = {1 . nil}. + self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1 2)) = #(1 2). + self assert: (blockWith2Arg valueWithAllPossibleArguments: #(1 2 3)) = #(1 2). + + + !

1 0

The Inbox: Kernel-cmm.814.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.814.mcz ==================== Summary ==================== Name: Kernel-cmm.814 Author: cmm Time: 25 October 2013, 2:27:37.722 pm UUID: c757a2a8-26b1-422b-8b8b-4bf6640efbb4 Ancestors: Kernel-cmm.813 Added BlockClosure>>#valueWithAllPossibleArguments: to support passing a variable number of arguments to the image from the command-line. =============== Diff against Kernel-cmm.813 =============== Item was changed: + ----- Method: BlockClosure>>valueOtherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueOtherwise: (in category 'events-support') ----- valueOtherwise: aBlock "Send the message and answer the return value" ^self value! Item was added: + ----- Method: BlockClosure>>valueWithAllPossibleArguments: (in category 'evaluating') ----- + valueWithAllPossibleArguments: anArray + "Same as valueWithPossibleArgs: except when the receiver takes just one-argument, and more than one argument is specified by anArray, then pass all of anArray as THE argument to the receiver block + This is used to allow a large, variable number of arguments to be passed." + ^numArgs = 0 + ifTrue: [self value] + ifFalse: + [self valueWithArguments: + (numArgs = anArray size + ifTrue: [anArray] + ifFalse: + [numArgs > anArray size + ifTrue: [anArray, (Array new: numArgs - anArray size)] + ifFalse: + [numArgs = 1 + ifTrue: [Array with: anArray] + ifFalse: [anArray copyFrom: 1 to: numArgs]]])]! Item was changed: + ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithArguments:otherwise: (in category 'events-support') ----- valueWithArguments: anArray otherwise: aBlock ^ self valueWithArguments: anArray! Item was changed: + ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'evaluating') ----- - ----- Method: BlockClosure>>valueWithEnoughArguments: (in category 'events-support') ----- valueWithEnoughArguments: anArray "call me with enough arguments from anArray" | args | (anArray size == self numArgs) ifTrue: [ ^self valueWithArguments: anArray ]. args := Array new: self numArgs. args replaceFrom: 1 to: (anArray size min: args size) with: anArray startingAt: 1. ^ self valueWithArguments: args!

1 0

What is an 'embedded' image?
by Chris Muller 25 Oct '13

25 Oct '13

I just came across SmalltalkImage>>#saveAsEmbeddedImage. The comment for the method states: "Save the current state of the system as an embedded image" Brilliant! Could someone please elaborate for me?

5 8

Re: [squeak-dev] The Trunk: System-cmm.606.mcz
by Chris Muller 25 Oct '13

25 Oct '13

testRevertMostRecentRemovesLatestVersion is still failing -- could use a little help on that one. On Fri, Oct 25, 2013 at 10:41 AM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-cmm.606.mcz > > ==================== Summary ==================== > > Name: System-cmm.606 > Author: cmm > Time: 25 October 2013, 10:41:38.197 am > UUID: 6a901946-a756-42d8-a453-f727b8dfad32 > Ancestors: System-dtl.605 > > - Correct initialization of RecentMessages in case a new instance is ever made (and for the test cases). > - Fix revertMostRecent. > > =============== Diff against System-dtl.605 =============== > > Item was changed: > ----- Method: RecentMessages>>initialize (in category 'initialize-release') ----- > initialize > super initialize. > + methodReferences := OrderedCollection new: (maximumSubmissionCount := 30). > + isSuspended := false! > - methodReferences := OrderedCollection new: 30! > > Item was changed: > ----- Method: RecentMessages>>revertMostRecent (in category 'accessing') ----- > revertMostRecent > "If the most recent method submission was a method change, revert > that change, and if it was a submission of a brand-new method, > remove that method." > | changeRecords lastSubmission theClass theSelector | > methodReferences ifEmpty: [ ^ Beeper beep ]. > + lastSubmission := self mostRecent. > - lastSubmission := methodReferences last. > theClass := lastSubmission actualClass ifNil: [ ^ Beeper beep ]. > theSelector := lastSubmission methodSymbol. > changeRecords := theClass changeRecordsAt: theSelector. > changeRecords isEmptyOrNil ifTrue: [ ^ Beeper beep ]. > changeRecords size = 1 > ifTrue: [ "method has no prior version, so reverting in this case means removing" > theClass removeSelector: theSelector ] > ifFalse: [ changeRecords second fileIn ] > ! > >

2 1

The Trunk: System-ul.607.mcz
by commits＠source.squeak.org 25 Oct '13

25 Oct '13

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.607.mcz ==================== Summary ==================== Name: System-ul.607 Author: ul Time: 25 October 2013, 6:47:30.844 pm UUID: 5d2174eb-547d-44d1-8466-98c855eff27e Ancestors: System-cmm.606 ChangeRecord >> #fileIn: must use the environment to look up the methodClass. RecentMessages >> #revertMostRecent must pass the environment to the changeRecord, otherwise it can't be filed in. =============== Diff against System-cmm.606 =============== Item was changed: ----- Method: ChangeRecord>>fileIn: (in category 'initialization') ----- fileIn: anEnvironment "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!" Cursor read showWhile: [| s cls aSelector | type == #doIt ifTrue: [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]] ifFalse: + [cls := self methodClass: anEnvironment. - [cls := self methodClass. type == #method ifTrue: [[cls compile: self text classified: category withStamp: stamp notifying: nil] on: EnvironmentRequest do: [:e | e resume: anEnvironment]. (aSelector := self methodSelector) ifNotNil: [RecentMessages default recordSelector: aSelector forClass: cls inEnvironment: anEnvironment]]. type == #classComment ifTrue: [cls comment: self text stamp: stamp. RecentMessages default recordSelector: #Comment forClass: cls inEnvironment: anEnvironment]. type == #reorganize ifTrue: [cls organization changeFromString: self text]]]! Item was changed: ----- Method: RecentMessages>>revertMostRecent (in category 'accessing') ----- revertMostRecent "If the most recent method submission was a method change, revert that change, and if it was a submission of a brand-new method, remove that method." | changeRecords lastSubmission theClass theSelector | methodReferences ifEmpty: [ ^ Beeper beep ]. lastSubmission := self mostRecent. theClass := lastSubmission actualClass ifNil: [ ^ Beeper beep ]. theSelector := lastSubmission methodSymbol. changeRecords := theClass changeRecordsAt: theSelector. changeRecords isEmptyOrNil ifTrue: [ ^ Beeper beep ]. changeRecords size = 1 ifTrue: [ "method has no prior version, so reverting in this case means removing" theClass removeSelector: theSelector ] + ifFalse: [ changeRecords second fileIn: lastSubmission environment ] - ifFalse: [ changeRecords second fileIn ] !

1 0

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

Jump to page: