Squeak-dev March 2011

squeak-dev@lists.squeakfoundation.org

84 participants
416 discussions

The Trunk: Tools-nice.302.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.302.mcz ==================== Summary ==================== Name: Tools-nice.302 Author: nice Time: 30 March 2011, 9:46:08.165 pm UUID: d076ded9-2b09-4e05-8a12-f8e0cd6ec0cc Ancestors: Tools-eem.301 Use #newCompiler #newParser =============== Diff against Tools-eem.301 =============== Item was changed: ----- Method: Browser>>defineMessageFrom:notifying: (in category 'message functions') ----- defineMessageFrom: aString notifying: aController "Compile the expressions in aString. Notify aController if a syntax error occurs. Install the compiled method in the selected class classified under the currently selected message category name. Answer the selector obtained if compilation succeeds, nil otherwise." | selectedMessageName selector category oldMessageList | selectedMessageName := self selectedMessageName. oldMessageList := self messageList. contents := nil. + selector := (self selectedClassOrMetaClass newParser parseSelector: aString). - selector := (self selectedClassOrMetaClass parserClass new parseSelector: aString). (self metaClassIndicated and: [(self selectedClassOrMetaClass includesSelector: selector) not and: [Metaclass isScarySelector: selector]]) ifTrue: ["A frist-time definition overlaps the protocol of Metaclasses" (self confirm: ((selector , ' is used in the existing class system. Overriding it could cause serious problems. Is this really what you want to do?') asText makeBoldFrom: 1 to: selector size)) ifFalse: [^nil]]. selector := self selectedClassOrMetaClass compile: aString classified: (category := self selectedMessageCategoryName) notifying: aController. selector == nil ifTrue: [^ nil]. contents := aString copy. selector ~~ selectedMessageName ifTrue: [category = ClassOrganizer nullCategory ifTrue: [self changed: #classSelectionChanged. self changed: #classList. self messageCategoryListIndex: 1]. self setClassOrganizer. "In case organization not cached" (oldMessageList includes: selector) ifFalse: [self changed: #messageList]. self messageListIndex: (self messageList indexOf: selector)]. ^ selector! Item was changed: ----- Method: ChangeList>>removeExistingMethodVersions (in category 'menu actions') ----- removeExistingMethodVersions "Remove all up to date version of entries from the receiver" | newChangeList newList | newChangeList := OrderedCollection new. newList := OrderedCollection new. changeList with: list do:[:chRec :strNstamp | | str keep cls sel | keep := true. (cls := chRec methodClass) ifNotNil:[ str := chRec string. + sel := cls newParser parseSelector: str. - sel := cls parserClass new parseSelector: str. keep := (cls sourceCodeAt: sel ifAbsent:['']) asString ~= str. ]. keep ifTrue:[ newChangeList add: chRec. newList add: strNstamp]]. newChangeList size < changeList size ifTrue: [changeList := newChangeList. list := newList. listIndex := 0. listSelections := Array new: list size withAll: false]. self changed: #list! Item was changed: ----- Method: ChangeList>>scanCategory:class:meta:stamp: (in category 'scanning') ----- scanCategory: category class: class meta: meta stamp: stamp | itemPosition method selector | [itemPosition := file position. method := file nextChunk. file skipStyleChunk. method size > 0] "done when double terminators" whileTrue: [self addItem: (ChangeRecord new file: file position: itemPosition type: #method class: class category: category meta: meta stamp: stamp) text: 'method: ' , class , (meta ifTrue: [' class '] ifFalse: [' ']) + , ((selector := (Smalltalk at: class ifAbsent: [Object]) newParser parseSelector: method) isNil - , ((selector := (Smalltalk at: class ifAbsent: [Object]) parserClass new parseSelector: method) isNil ifTrue: ['unparsableSelector'] ifFalse: [selector]) , (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp])]! Item was changed: ----- Method: ChangedMessageSet>>contents:notifying: (in category 'acceptance') ----- contents: aString notifying: aController "Accept the string as new source for the current method, and make certain the annotation pane gets invalidated" | existingSelector existingClass superResult newSelector | existingSelector := self selectedMessageName. existingClass := self selectedClassOrMetaClass. superResult := super contents: aString notifying: aController. superResult ifTrue: "succeeded" + [newSelector := existingClass newParser parseSelector: aString. - [newSelector := existingClass parserClass new parseSelector: aString. newSelector ~= existingSelector ifTrue: "Selector changed -- maybe an addition" [self reformulateList. self changed: #messageList. self messageList doWithIndex: [:aMethodReference :anIndex | (aMethodReference actualClass == existingClass and: [aMethodReference methodSymbol == newSelector]) ifTrue: [self messageListIndex: anIndex]]]]. ^ superResult! Item was changed: ----- Method: CodeHolder>>decompiledSourceIntoContentsWithTempNames: (in category 'message list') ----- decompiledSourceIntoContentsWithTempNames: showTempNames "Obtain a source string by decompiling the method's code, and place that source string into my contents. Also return the string. Get temps from source file if showTempNames is true." | tempNames class selector method | class := self selectedClassOrMetaClass. selector := self selectedMessageName. "Was method deleted while in another project?" method := class compiledMethodAt: selector ifAbsent: [^ '']. currentCompiledMethod := method. (showTempNames not or: [method fileIndex > 0 and: [(SourceFiles at: method fileIndex) isNil]]) ifTrue: [ "Emergency or no source file -- decompile without temp names " contents := (class decompilerClass new decompile: selector in: class method: method) decompileString] + ifFalse: [tempNames := (class newCompiler - ifFalse: [tempNames := (class compilerClass new parse: method getSourceFromFile asString in: class notifying: nil) generate: CompiledMethodTrailer defaultMethodTrailer; schematicTempNamesString. contents := ((class decompilerClass new withTempNames: tempNames) decompile: selector in: class method: method) decompileString]. contents := contents asText makeSelectorBoldIn: class. ^ contents copy! Item was changed: ----- Method: CodeHolder>>validateMessageSource:forSelector:inClass: (in category 'message list') ----- validateMessageSource: sourceString forSelector: aSelector inClass: theClass "Check whether there is evidence that method source is invalid" + (theClass newParser parseSelector: sourceString asString) = aSelector - (theClass parserClass new parseSelector: sourceString asString) = aSelector ifFalse: [self informPossiblyCorruptSource].! Item was changed: ----- Method: Debugger>>contents:notifying: (in category 'accessing') ----- contents: aText notifying: aController "The retrieved information has changed and its source must now be updated. In this case, the retrieved information is the method of the selected context." | result selector classOfMethod category h ctxt newMethod | contextStackIndex = 0 ifTrue: [^false]. self selectedContext isExecutingBlock ifTrue: [h := self selectedContext activeHome. h ifNil: [self inform: 'Method for block not found on stack, can''t edit and continue'. ^false]. (self confirm: 'I will have to revert to the method from\which this block originated. Is that OK?' withCRs) ifFalse: [^false]. self resetContext: h. result := self contents: aText notifying: aController. self contentsChanged. ^result]. classOfMethod := self selectedClass. category := self selectedMessageCategoryName. + selector := self selectedClass newParser parseSelector: aText. - selector := self selectedClass parserClass new parseSelector: aText. (selector == self selectedMessageName or: [(self selectedMessageName beginsWith: 'DoIt') and: [selector numArgs = self selectedMessageName numArgs]]) ifFalse: [self inform: 'can''t change selector'. ^false]. selector := classOfMethod compile: aText classified: category notifying: aController. selector ifNil: [^false]. "compile cancelled" contents := aText. newMethod := classOfMethod compiledMethodAt: selector. newMethod isQuick ifTrue: [self down. self selectedContext jump: (self selectedContext previousPc - self selectedContext pc)]. ctxt := interruptedProcess popTo: self selectedContext. ctxt == self selectedContext ifFalse: [self inform: 'Method saved, but current context unchanged\because of unwind error. Click OK to see error' withCRs] ifTrue: [newMethod isQuick ifFalse: [interruptedProcess restartTopWith: newMethod; stepToSendOrReturn]. contextVariablesInspector object: nil]. self resetContext: ctxt. Smalltalk isMorphic ifTrue: [World addAlarm: #changed: withArguments: #(contentsSelection) for: self at: (Time millisecondClockValue + 200)]. ^true! Item was changed: ----- Method: Debugger>>selectedMessage (in category 'context stack (message list)') ----- selectedMessage "Answer the source code of the currently selected context." + | aContext | + ^contents := (aContext := self selectedContext) debuggerMap sourceText asText makeSelectorBoldIn: aContext home receiver class! - ^contents := self selectedContext debuggerMap sourceText asText makeSelectorBold! Item was changed: ----- Method: MethodHolder>>contents:notifying: (in category 'contents') ----- contents: input notifying: aController | selector | + (selector := methodClass newParser parseSelector: input asText) ifNil: - (selector := methodClass parserClass new parseSelector: input asText) ifNil: [self inform: 'Sorry - invalid format for the method name and arguments -- cannot accept.'. ^ false]. selector == methodSelector ifFalse: [self inform: 'You cannot change the name of the method here -- it must continue to be ', methodSelector. ^ false]. selector := methodClass compile: input asText classified: self selectedMessageCategoryName notifying: aController. selector == nil ifTrue: [^ false]. contents := input asString copy. currentCompiledMethod := methodClass compiledMethodAt: methodSelector. ^ true! Item was changed: ----- Method: SyntaxError>>setClass:code:debugger:doitFlag: (in category 'accessing') ----- setClass: aClass code: aString debugger: aDebugger doitFlag: flag | types printables badChar | class := aClass. debugger := aDebugger. + selector := aClass newParser parseSelector: aString. - selector := aClass parserClass new parseSelector: aString. types := Scanner classPool at: #TypeTable. "dictionary" printables := '!!@#$%&*-_=+<>{}?/\,·£¢§¶ªºÚæÚ¯×¿«»`~`' asSet. badChar := aString detect: [:aChar | (types at: aChar asciiValue ifAbsent: [#xLetter]) == #xBinary and: [ (printables includes: aChar) not]] ifNone: [nil]. contents := badChar ifNil: [aString] ifNotNil: ['<<<This string contains a character (ascii value ', badChar asciiValue printString, ') that is not normally used in code>>> ', aString]. category ifNil: [category := aClass organization categoryOfElement: selector]. category ifNil: [category := ClassOrganizer default]. doitFlag := flag!

1 0

The Trunk: ST80-nice.126.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-nice.126.mcz ==================== Summary ==================== Name: ST80-nice.126 Author: nice Time: 30 March 2011, 9:34:56.706 pm UUID: 5c20c89b-78d2-468c-9679-6d50ae37b2d1 Ancestors: ST80-dtl.125 Use #newParser =============== Diff against ST80-dtl.125 =============== Item was changed: ----- Method: ParagraphEditor>>explainTemp: (in category 'explain') ----- explainTemp: string "Is string the name of a temporary variable (method or block argument or temporary)?" | selectedClass methodNode tempNode | (model respondsTo: #selectedMessageName) ifFalse: [^ nil]. model selectedMessageName ifNil: [^nil]. "not in a method" selectedClass := model selectedClassOrMetaClass. + methodNode := selectedClass newParser parse: model selectedMessage class: selectedClass. - methodNode := selectedClass parserClass new parse: model selectedMessage class: selectedClass. tempNode := methodNode encoder tempNodes detect: [:n| n name = string] ifNone: [^nil]. ^(tempNode isArg ifTrue: ['"is an argument to this '] ifFalse: ['"is a temporary variable in this ']), (tempNode isDeclaredAtMethodLevel ifTrue: ['method"'] ifFalse: ['block"'])!

1 0

The Trunk: Morphic-nice.526.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.526.mcz ==================== Summary ==================== Name: Morphic-nice.526 Author: nice Time: 30 March 2011, 9:29:10.003 pm UUID: 27e938fd-2a8b-4cb5-a6a0-75c76e62cdbb Ancestors: Morphic-dtl.525 Use #newCompiler #newParser =============== Diff against Morphic-dtl.525 =============== Item was changed: ----- Method: TextEditor>>explainTemp: (in category 'explain') ----- explainTemp: string "Is string the name of a temporary variable (method or block argument or temporary)?" | selectedClass methodNode tempNode | (model respondsTo: #selectedMessageName) ifFalse: [^ nil]. model selectedMessageName ifNil: [^nil]. "not in a method" selectedClass := model selectedClassOrMetaClass. + methodNode := selectedClass newParser parse: model selectedMessage class: selectedClass. - methodNode := selectedClass parserClass new parse: model selectedMessage class: selectedClass. tempNode := methodNode encoder tempNodes detect: [:n| n name = string] ifNone: [^nil]. ^(tempNode isArg ifTrue: ['"is an argument to this '] ifFalse: ['"is a temporary variable in this ']), (tempNode isDeclaredAtMethodLevel ifTrue: ['method"'] ifFalse: ['block"'])! Item was changed: ----- Method: TextEditor>>prettyPrint: (in category 'menu messages') ----- prettyPrint: decorated "Reformat the contents of the receiver's view (a Browser)." | selectedClass newText | selectedClass := model selectedClassOrMetaClass. selectedClass ifNil: [ ^ morph flash ]. + newText := selectedClass newCompiler - newText := selectedClass compilerClass new format: self text in: selectedClass notifying: self decorated: decorated. newText ifNotNil: [ self deselect ; selectInvisiblyFrom: 1 to: paragraph text size. self replaceSelectionWith: (newText asText makeSelectorBoldIn: selectedClass). self selectAt: self text size + 1 ]!

1 0

The Trunk: Kernel-nice.563.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.563.mcz ==================== Summary ==================== Name: Kernel-nice.563 Author: nice Time: 30 March 2011, 9:20:36.797 pm UUID: 8550c4d6-b22a-409a-91d7-68a3c9ad6a7b Ancestors: Kernel-nice.562 As previously discussed in squeak-dev, implement two utilities: #newCompiler #newParser (self newCompiler) is a replacement for (self compilerClass new), except it arranges to have the compiler initialized with proper Parser. Advantage 1: This way, you can define only parserClass rather than a pair compilerClass/parserClass for experimenting alternate syntax. Also, this may later simplify Compiler initialization of parser inst. var. Advantage 2: If any special initialization is required for YourOwnCompiler/parser instance, then just refine #newCompiler/Parser rather than hacking each and every #compilerClass/parserClass sender. Disadvantage 1: Encouraging experimentations of alternate Parser might show the limits of some tools (MC RB etc...). Bet we wouldn't put such experimentations in trunk, would we ? Disadvantage 2: none foreseen, but you tell me. =============== Diff against Kernel-nice.562 =============== Item was changed: ----- Method: Behavior>>compile:classified:notifying:trailer:ifFail: (in category 'compiling') ----- compile: code classified: category notifying: requestor trailer: bytes ifFail: failBlock "Compile code without logging the source in the changes file" | methodNode | + methodNode := self newCompiler - methodNode := self compilerClass new compile: code in: self classified: category notifying: requestor ifFail: failBlock. ^ CompiledMethodWithNode generateMethodFromNode: methodNode trailer: bytes.! Item was changed: ----- Method: Behavior>>compressedSourceCodeAt: (in category 'accessing method dictionary') ----- compressedSourceCodeAt: selector "(Paragraph compressedSourceCodeAt: #displayLines:affectedRectangle:) size 721 1921 Paragraph selectors inject: 0 into: [:tot :sel | tot + (Paragraph compressedSourceCodeAt: sel) size] 13606 31450" | rawText parse | rawText := (self sourceCodeAt: selector) asString. + parse := self newCompiler parse: rawText in: self notifying: nil. - parse := self compilerClass new parse: rawText in: self notifying: nil. ^ rawText compressWithTable: ((selector keywords , parse tempNames , self instVarNames , #(self super ifTrue: ifFalse:) , ((0 to: 7) collect: [:i | String streamContents: [:s | s cr. i timesRepeat: [s tab]]]) , (self compiledMethodAt: selector) literalStrings) asSortedCollection: [:a :b | a size > b size])! Item was changed: ----- Method: Behavior>>firstPrecodeCommentFor: (in category 'accessing method dictionary') ----- firstPrecodeCommentFor: selector "If there is a comment in the source code at the given selector that preceeds the body of the method, return it here, else return nil" | parser source tree | "Behavior firstPrecodeCommentFor: #firstPrecodeCommentFor:" (#(Comment Definition Hierarchy) includes: selector) ifTrue: ["Not really a selector" ^ nil]. source := self sourceCodeAt: selector asSymbol ifAbsent: [^ nil]. + parser := self newParser. - parser := self parserClass new. tree := parser parse: (ReadStream on: source) class: self noPattern: false context: nil notifying: nil ifFail: [^ nil]. ^ (tree comment ifNil: [^ nil]) first! Item was changed: ----- Method: Behavior>>formalParametersAt: (in category 'accessing method dictionary') ----- formalParametersAt: aSelector "Return the names of the arguments used in this method." | source | source := self sourceCodeAt: aSelector ifAbsent: [^ #()]. "for now" + ^self newParser parseParameterNames: source! - ^(self parserClass new) parseParameterNames: source! Item was changed: ----- Method: Behavior>>methodHeaderFor: (in category 'accessing method dictionary') ----- methodHeaderFor: selector "Answer the string corresponding to the method header for the given selector" | sourceString parser | sourceString := self ultimateSourceCodeAt: selector ifAbsent: [self standardMethodHeaderFor: selector]. + (parser := self newParser) parseSelector: sourceString. - (parser := self parserClass new) parseSelector: sourceString. ^ sourceString asString copyFrom: 1 to: (parser endOfLastToken min: sourceString size) "Behavior methodHeaderFor: #methodHeaderFor: " ! Item was added: + ----- Method: Behavior>>newCompiler (in category 'compiling') ----- + newCompiler + "Answer a Compiler suitable for compiling this Behavior" + ^self compilerClass new parser: self newParser! Item was added: + ----- Method: Behavior>>newParser (in category 'compiling') ----- + newParser + "Answer a Parser suitable for parsing source code in this Behavior" + ^self parserClass new! Item was changed: ----- Method: Behavior>>recompile:from: (in category 'compiling') ----- recompile: selector from: oldClass "Compile the method associated with selector in the receiver's method dictionary." "ar 7/10/1999: Use oldClass compiledMethodAt: not self compiledMethodAt:" | method trailer methodNode | method := oldClass compiledMethodAt: selector. trailer := method trailer. + methodNode := self newCompiler - methodNode := self compilerClass new compile: (oldClass sourceCodeAt: selector) in: self notifying: nil ifFail: [^ self]. "Assume OK after proceed from SyntaxError" selector == methodNode selector ifFalse: [self error: 'selector changed!!']. self basicAddSelector: selector withMethod: (methodNode generate: trailer). ! Item was changed: ----- Method: Behavior>>recompileNonResidentMethod:atSelector:from: (in category 'compiling') ----- recompileNonResidentMethod: method atSelector: selector from: oldClass "Recompile the method supplied in the context of this class." | trailer methodNode | trailer := method trailer. + methodNode := self newCompiler - methodNode := self compilerClass new compile: (method getSourceFor: selector in: oldClass) in: self notifying: nil ifFail: ["We're in deep doo-doo if this fails (syntax error). Presumably the user will correct something and proceed, thus installing the result in this methodDict. We must retrieve that new method, and restore the original (or remove) and then return the method we retrieved." ^ self error: 'see comment']. selector == methodNode selector ifFalse: [self error: 'selector changed!!']. ^ methodNode generate: trailer ! Item was changed: ----- Method: Behavior>>sourceMatchesBytecodeAt: (in category 'testing') ----- sourceMatchesBytecodeAt: selector "Answers true if the source code at the selector compiles to the bytecode at the selector, and false otherwise. Implemented to detect an error where Monticello did not recompile sources when the class shape changed" "This code was copied from #recompile:from:, with few changes. Several methods would benefit from a method which turned a selector and class into a CompiledMethod, without installing it into the methodDictionary" | method trailer methodNode | method := self compiledMethodAt: selector. trailer := method trailer. + methodNode := self newCompiler - methodNode := self compilerClass new compile: (self sourceCodeAt: selector) in: self notifying: nil ifFail: [^ false]. "Assume OK after proceed from SyntaxError" selector == methodNode selector ifFalse: [self error: 'selector changed!!']. ^ (methodNode generate: trailer) = method! Item was changed: ----- Method: ClassCategoryReader>>scanFromNoCompile: (in category 'fileIn/Out') ----- scanFromNoCompile: aStream "Just move the source code for the methods from aStream." | methodText selector | [methodText := aStream nextChunkText. methodText size > 0] whileTrue: [(SourceFiles at: 2) ifNotNil: [ + selector := class newParser parseSelector: methodText. - selector := class parserClass new parseSelector: methodText. (class compiledMethodAt: selector) putSource: methodText fromParseNode: nil class: class category: category withStamp: changeStamp inFile: 2 priorMethod: nil]]! Item was changed: ----- Method: ClassDescription>>replaceSilently:to: (in category 'instance variables') ----- replaceSilently: old to: new "text-replace any part of a method. Used for class and pool variables. Don't touch the header. Not guaranteed to work if name appears in odd circumstances" | oldName newName | oldName := old asString. newName := new asString. self withAllSubclasses do: [:cls | | sels | sels := cls selectors copyWithoutAll: #(DoIt DoItIn:). sels do: [:sel | | oldCode newCode parser header body | oldCode := cls sourceCodeAt: sel. "Don't make changes in the method header" + (parser := cls newParser) parseSelector: oldCode. - (parser := cls parserClass new) parseSelector: oldCode. header := oldCode copyFrom: 1 to: (parser endOfLastToken min: oldCode size). body := header size > oldCode size ifTrue: [''] ifFalse: [oldCode copyFrom: header size+1 to: oldCode size]. newCode := header , (body copyReplaceTokens: oldName with: newName). newCode ~= oldCode ifTrue: [cls compile: newCode classified: (cls organization categoryOfElement: sel) notifying: nil]]. cls isMeta ifFalse: [| oldCode newCode | oldCode := cls comment. newCode := oldCode copyReplaceTokens: oldName with: newName. newCode ~= oldCode ifTrue: [cls comment: newCode]]]! Item was changed: ----- Method: CompiledMethod>>methodNode (in category 'decompiling') ----- methodNode "Return the parse tree that represents self. If parsing fails, decompile the method." | aClass source | aClass := self methodClass. source := self getSourceFor: (self selector ifNil: [self defaultSelector]) in: aClass. + ^[(aClass newParser - ^[(aClass parserClass new encoderClass: (self isBlueBookCompiled ifTrue: [EncoderForV3] ifFalse: [EncoderForV3PlusClosures]); parse: source class: aClass) sourceText: source; yourself] on: SyntaxErrorNotification do: [:ex | ex return: self decompile].! Item was changed: ----- Method: CompiledMethod>>methodNodeFormattedAndDecorated: (in category 'decompiling') ----- methodNodeFormattedAndDecorated: decorate "Answer a method node made from pretty-printed (and colorized, if decorate is true) source text." | class source node | source := self getSourceFromFile. class := self methodClass ifNil: [self sourceClass]. source ifNil: [^self decompile]. source := class prettyPrinterClass format: source in: class notifying: nil decorated: decorate. + node := class newParser parse: source class: class. - node := class parserClass new parse: source class: class. node sourceText: source. ^node! Item was changed: ----- Method: CompiledMethod>>replace:with:in: (in category 'private') ----- replace: oldSelector with: newSelector in: aText | oldKeywords newKeywords args newSelectorWithArgs startOfSource lastSelectorToken | oldKeywords := oldSelector keywords. newKeywords := (newSelector ifNil: [self defaultSelector]) keywords. self assert: oldKeywords size = newKeywords size. + args := (self methodClass newParser - args := (self methodClass parserClass new parseArgsAndTemps: aText string notifying: nil) copyFrom: 1 to: self numArgs. newSelectorWithArgs := String streamContents: [:stream | newKeywords withIndexDo: [:keyword :index | stream nextPutAll: keyword. stream space. args size >= index ifTrue: [ stream nextPutAll: (args at: index); space]]]. lastSelectorToken := args isEmpty ifFalse: [args last] ifTrue: [oldKeywords last]. startOfSource := (aText string indexOfSubCollection: lastSelectorToken startingAt: 1) + lastSelectorToken size. ^newSelectorWithArgs withBlanksTrimmed asText , (aText copyFrom: startOfSource to: aText size)! Item was changed: ----- Method: CompiledMethod>>sourceSelector (in category 'source code management') ----- sourceSelector "Answer my selector extracted from my source. If no source answer nil" | sourceString | sourceString := self getSourceFromFile ifNil: [^ nil]. + ^self methodClass newParser parseSelector: sourceString! - ^self methodClass parserClass new parseSelector: sourceString!

1 0

I will run in the Squeak Oversight Board election
by Merik Voswinkel 30 Mar '11

30 Mar '11

Dear Squeakers, I will run in the Squeak Oversight Board election. My name is Merik Voswinkel and I have been involved with Squeak since 1997. Although I don't have a single line of code in any official Squeak release (yet), I feel that I have been able to contribute a bit with my efforts to get funding for Squeak programmers and in describing new applications and possible future extensions to Squeak. My contribution to the Squeak Oversight Board last year was to offer hosting mirrors of all the websites, ftp, wiki, and Monticello repositories. I build up a large collection of files for a Squeak museum. If I am elected I would like to continue stimulating the merging of the separate code bases of OpenCobalt, Etoys, Scratch, Ometa, Worlds, RoarVM, SqueakNOS, Cuis, Seaside, Pier, Pharo, Aida, Morphic III, Croquet and many others. Now that the organizational structure of the Squeak organization is completed, I want to contribute on getting funding for future Squeak projects to further strengthen the health of the Squeak trunk image. I am writing an extensive 'Future directions for Squeak: messages all the way down' paper as a step towards creating a scalable modular parallel distributes Squeak in line with the teachings of Alan Kay. I maintain a large number of LinkedIn groups for professional Squeakers. I hosted and participated in weekly group Skype conferences, a great way to collaborate, lecture, tutor and pair program and would like to introduce that to the Squeak community. I hope that soon we can replace Skype with OpenCobalt for this. To demonstrate my deep interest in the success of Squeak I need to tell you a bit about my work on Squeak hardware en software. I founded Morphle, a research institute and a small startup company with Jecel. We are working to release SiliconSqueak this year, a many- core microprocessor that can execute bytecodes so it can run a Squeak image directly. It is reprogrammable to allow for special ALU matrix, graphics and floating point processors. We are building Morph, a scalable Squeak supercomputer and Morphy, a cheap parallel touchpad for children in spirit of the Dynabook. We offer hosting of Seaside, Pier, Cobalt, Lively Kernel on the internet that we hope will evolve into a complete cloud platform. I had intended to run next year, after the release of SiliconSqueak. By then people would know about my work in Squeak and would know where I stand on issues. If you want me to go into more details before the election, I would be happy to write some more on future directions for Squeak. Cheers, -- Merik About our research and startup: http://www.morphle.org/ http://www.siliconsqueak.org/ About me: http://www.linkedin.com/in/merikvoswinkel (in Dutch, written by others) http://nl.wikipedia.org/wiki/Merik_Voswinkel

2 1

XSD Decoding/Encoding
by Udo Schneider 30 Mar '11

30 Mar '11

All, I'm a bit stuck on decoding/encoding data based on existing XSDs. I assumed this should be possible with SoapOpera ... but I don't really know where to start. Does anybody have a small example of encoding/decoding Smalltalk Objects based on exiting XSDs? Thanks, Udo

2 1

Source diffs and change sets
by Bert Freudenberg 30 Mar '11

30 Mar '11

Hi folks, I added a feature to our source.squeak.org server. When viewing a version, you now get the option to show the commit diff (same as posted to the mailing list). For large packages this is pretty slow, and the result is not cached. But it might still be handy. Also, I added an option to download a change set equivalent to the diff (or almost equivalent). This is useful to get changes from trunk into other images that either do not use Monticello, or have too different packages. The change set is built from MCDs (which are cached), so this is a lot faster after the first time. - Bert -

4 4

unable to get past update 178 to get to a current image
by merlyn＠stonehenge.com 30 Mar '11

30 Mar '11

I had a pre-4.2 trunk that I thought it would be a good time to update. It failed when I got to update 178. First, I got asked for initials. Never a good sign on an update stream. Then, I get stuck at a pop-up for "Merging Monticello-cmm.440". No idea what to do with that. So I figured I'd just download a new image that was post 4.2, just in case. The only ones I know about are at http://ftp.squeak.org/trunk/. The -10779 image there fails ** at exactly the same place **. Help. How do I get a current image? And why is this broken? -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <merlyn(a)stonehenge.com> <URL:http://www.stonehenge.com/merlyn/> Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc. See http://methodsandmessages.posterous.com/ for Smalltalk discussion

6 9

Squeak vision and goals 2011/2012 (Re: [squeak-dev] Squeak Vision ~2000)
by Hannes Hirzel 30 Mar '11

30 Mar '11

On 3/29/11, JASON HOGUE <thej(a)shaw.ca> wrote: > That document was published in 2001. > > What is the CURRENT VISION for Squeak ? > What will Squeak/Pharo/Cuis/Open Cobalt look like in 1/2/3 years? > What are the "key" projects currently underway that will take Squeak > forward? > +1 Maybe some of the candidates for the board could try to give answers. And then for the immediate time frame: What seems to be doable in the upcoming year? --Hannes

1 0

The Inbox: Tools-fbs.333.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.333.mcz ==================== Summary ==================== Name: Tools-fbs.333 Author: fbs Time: 30 March 2011, 8:55:49.369 am UUID: ca634461-e430-8f4f-acda-32f1428552f6 Ancestors: Tools-fbs.332 The start of removing messageCategoryListIndex: inserting the new instvar in parallel with the existing one. =============== Diff against Tools-fbs.332 =============== Item was changed: CodeHolder subclass: #Browser + instanceVariableNames: 'systemOrganizer classOrganizer metaClassOrganizer messageCategoryListIndex editSelection metaClassIndicated selectedSystemCategory selectedClassName selectedMessageName selectedMessageCategoryName' - instanceVariableNames: 'systemOrganizer classOrganizer metaClassOrganizer messageCategoryListIndex editSelection metaClassIndicated selectedSystemCategory selectedClassName selectedMessageName' classVariableNames: 'ListClassesHierarchically RecentClasses' poolDictionaries: '' category: 'Tools-Browser'! !Browser commentStamp: '<historical>' prior: 0! I represent a query path into the class descriptions, the software of the system.! Item was changed: ----- Method: Browser>>addCategory (in category 'message category functions') ----- addCategory "Present a choice of categories or prompt for a new category name and add it before the current selection, or at the end if no current selection" + | labels reject lines menuIndex oldIndex newName oldCategory | - | labels reject lines menuIndex oldIndex newName | self okToChange ifFalse: [^ self]. self hasClassSelected ifFalse: [^ self]. labels := OrderedCollection with: 'new...'. reject := Set new. reject addAll: self selectedClassOrMetaClass organization categories; add: ClassOrganizer nullCategory; add: ClassOrganizer default. lines := OrderedCollection new. self selectedClassOrMetaClass allSuperclasses do: [:cls | | cats | cls = Object ifFalse: [ cats := cls organization categories reject: [:cat | reject includes: cat]. cats isEmpty ifFalse: [ lines add: labels size. labels addAll: cats asSortedCollection. reject addAll: cats]]]. newName := (labels size = 1 or: [ menuIndex := (UIManager default chooseFrom: labels lines: lines title: 'Add Category'). menuIndex = 0 ifTrue: [^ self]. menuIndex = 1]) ifTrue: [ self request: 'Please type new category name' initialAnswer: 'category name'] ifFalse: [ labels at: menuIndex]. oldIndex := messageCategoryListIndex. + oldCategory := self selectedMessageCategoryName. newName isEmpty ifTrue: [^ self] ifFalse: [newName := newName asSymbol]. self classOrMetaClassOrganizer addCategory: newName before: (messageCategoryListIndex = 0 ifTrue: [nil] ifFalse: [self selectedMessageCategoryName]). self changed: #messageCategoryList. self messageCategoryListIndex: (oldIndex = 0 ifTrue: [self classOrMetaClassOrganizer categories size + 1] ifFalse: [oldIndex]). + " self selectMessageCategoryNamed: (oldCategory ifNil: [self messageCategoryList last] ifNotNil: [oldCategory])." self changed: #messageCategoryList. ! Item was changed: ----- Method: Browser>>classHierarchy (in category 'multi-window support') ----- classHierarchy | behavior newBrowser | (behavior := self selectedClassOrMetaClass) isNil ifTrue: [^self]. (self isPackage "PackageBrowser pains can't support a hierarchy browser; not sure why." or: [multiWindowState isNil]) ifTrue: [^super classHierarchy]. (newBrowser := HierarchyBrowser new initHierarchyForClass: behavior) + selectMessageCategoryNamed: self selectedMessageCategoryName; - messageCategoryListIndex: messageCategoryListIndex; selectMessageNamed: self selectedMessageName; editSelection: editSelection. multiWindowState addWindow: newBrowser ! Item was changed: ----- Method: Browser>>fileOutMessageCategories (in category 'message category functions') ----- fileOutMessageCategories "Print a description of the selected message category of the selected class onto an external file." Cursor write showWhile: + [self hasMessageCategorySelected - [messageCategoryListIndex ~= 0 ifTrue: [self selectedClassOrMetaClass fileOutCategory: self selectedMessageCategoryName]]! Item was changed: ----- Method: Browser>>messageCategoryListIndex: (in category 'message category list') ----- messageCategoryListIndex: anInteger "Set the selected message category to be the one indexed by anInteger." messageCategoryListIndex := anInteger. + selectedMessageCategoryName := nil. selectedMessageName := nil. self changed: #messageCategorySelectionChanged. self changed: #messageCategoryListIndex. "update my selection" self changed: #messageList. self editSelection: (anInteger > 0 ifTrue: [#newMessage] ifFalse: [self hasClassSelected ifTrue: [#editClass] ifFalse: [#newClass]]). contents := nil. self contentsChanged.! Item was changed: ----- Method: Browser>>metaClassIndicated: (in category 'metaclass') ----- metaClassIndicated: trueOrFalse "Indicate whether browsing instance or class messages." metaClassIndicated := trueOrFalse. self setClassOrganizer. self hasSystemCategorySelected ifTrue: [self editSelection: (self hasClassSelected ifFalse: [metaClassIndicated ifTrue: [#none] ifFalse: [#newClass]] ifTrue: [#editClass])]. messageCategoryListIndex := 0. + selectedMessageCategoryName := nil. selectedMessageName := nil. contents := nil. self changed: #classSelectionChanged. self changed: #messageCategoryList. self changed: #messageList. self changed: #contents. self changed: #annotation. self decorateButtons ! Item was changed: ----- Method: Browser>>printOutMessageCategories (in category 'message category functions') ----- printOutMessageCategories "Print a description of the selected message category of the selected class onto an external file in Html format." Cursor write showWhile: + [self hasMessageCategorySelected - [messageCategoryListIndex ~= 0 ifTrue: [self selectedClassOrMetaClass fileOutCategory: self selectedMessageCategoryName asHtml: true]]! Item was changed: ----- Method: Browser>>removeMessageCategory (in category 'message category functions') ----- removeMessageCategory "If a message category is selected, create a Confirmer so the user can verify that the currently selected message category should be removed from the system. If so, remove it." | messageCategoryName | + self hasMessageCategorySelected ifFalse: [^ self]. - messageCategoryListIndex = 0 ifTrue: [^ self]. self okToChange ifFalse: [^ self]. messageCategoryName := self selectedMessageCategoryName. (self messageList size = 0 or: [self confirm: 'Are you sure you want to remove this method category and all its methods?']) ifTrue: [self selectedClassOrMetaClass removeCategory: messageCategoryName. + self selectMessageCategoryNamed: nil. - self messageCategoryListIndex: 0. self changed: #classSelectionChanged]. self changed: #messageCategoryList. ! Item was changed: ----- Method: Browser>>renameCategory (in category 'message category functions') ----- renameCategory "Prompt for a new category name and add it before the current selection, or at the end if no current selection" + | oldName newName | - | oldIndex oldName newName | self hasClassSelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. + self hasMessageCategorySelected ifFalse: [^ self]. + - (oldIndex := messageCategoryListIndex) = 0 ifTrue: [^ self]. oldName := self selectedMessageCategoryName. newName := self request: 'Please type new category name' initialAnswer: oldName. newName isEmpty ifTrue: [^ self] ifFalse: [newName := newName asSymbol]. newName = oldName ifTrue: [^ self]. self classOrMetaClassOrganizer renameCategory: oldName toBe: newName. self selectClassNamed: selectedClassName. + self selectMessageCategoryNamed: oldName. - self messageCategoryListIndex: oldIndex. self changed: #messageCategoryList. ! Item was changed: ----- Method: Browser>>selectClassNamed: (in category 'class list') ----- selectClassNamed: aSymbolOrString | className currentMessageCategoryName currentMessageName | currentMessageCategoryName := [self selectedMessageCategoryName] on: Error do: [:ex| ex return: nil]. currentMessageName := [self selectedMessageName] on: Error do: [:ex| ex return: nil]. selectedClassName := aSymbolOrString ifNotNil: [ aSymbolOrString asSymbol ]. self setClassOrganizer. "Try to reselect the category and/or selector if the new class has them." messageCategoryListIndex := self messageCategoryList indexOf: currentMessageCategoryName ifAbsent: [0]. self selectMessageNamed: (self hasMessageCategorySelected ifTrue: [ currentMessageName ] ifFalse: [ nil ]). self hasMessageSelected ifTrue: [self editSelection: #editMessage] ifFalse: + [self hasMessageCategorySelected ifTrue: - [self messageCategoryListIndex ~= 0 ifTrue: [self editSelection: #newMessage] ifFalse: [self classCommentIndicated ifTrue: [] ifFalse: [self editSelection: (self hasClassSelected not ifTrue: [(metaClassIndicated or: [ self hasSystemCategorySelected not ]) ifTrue: [#none] ifFalse: [#newClass]] ifFalse: [#editClass])]]]. contents := nil. self selectedClass isNil ifFalse: [className := self selectedClass name. (RecentClasses includes: className) ifTrue: [RecentClasses remove: className]. RecentClasses addFirst: className. RecentClasses size > 16 ifTrue: [RecentClasses removeLast]]. self changed: #classSelectionChanged. self changed: #classCommentText. self changed: #classListIndex. "update my selection" self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged! Item was changed: ----- Method: Browser>>selectOriginalCategoryForCurrentMethod (in category 'message category list') ----- selectOriginalCategoryForCurrentMethod "private - Select the message category for the current method. Note: This should only be called when somebody tries to save a method that they are modifying while ALL is selected. Returns: true on success, false on failure." | aSymbol selectorName | aSymbol := self categoryOfCurrentMethod. selectorName := self selectedMessageName. (aSymbol notNil and: [aSymbol ~= ClassOrganizer allCategory]) ifTrue: [messageCategoryListIndex := (self messageCategoryList indexOf: aSymbol). + selectedMessageCategoryName := aSymbol. selectedMessageName := selectorName. self changed: #messageCategorySelectionChanged. self changed: #messageCategoryListIndex. "update my selection" self changed: #messageList. self changed: #messageListIndex. ^ true]. ^ false! Item was changed: ----- Method: Browser>>selectSystemCategory: (in category 'system category list') ----- selectSystemCategory: aSymbol "Set the selected system category. Update all other selections to be deselected." selectedSystemCategory := aSymbol. selectedClassName := nil. messageCategoryListIndex := 0. + selectedMessageCategoryName := nil. selectedMessageName := nil. self editSelection: ( aSymbol isNil ifTrue: [#none] ifFalse: [#newClass]). metaClassIndicated := false. self setClassOrganizer. contents := nil. self changed: #systemCategorySelectionChanged. self changed: #systemCategoryListIndex. "update my selection" self changed: #classList. self changed: #messageCategoryList. self changed: #messageList. self changed: #relabel. self contentsChanged! Item was changed: ----- Method: Browser>>setOriginalCategoryIndexForCurrentMethod (in category 'message category list') ----- setOriginalCategoryIndexForCurrentMethod "private - Set the message category index for the currently selected method. Note: This should only be called when somebody tries to save a method that they are modifying while ALL is selected." + messageCategoryListIndex := self messageCategoryList indexOf: self categoryOfCurrentMethod. + selectedMessageCategoryName := self categoryOfCurrentMethod.! - messageCategoryListIndex := self messageCategoryList indexOf: self categoryOfCurrentMethod - ! Item was changed: ----- Method: Browser>>systemOrganizer: (in category 'initialize-release') ----- systemOrganizer: aSystemOrganizer "Initialize the receiver as a perspective on the system organizer, aSystemOrganizer. Typically there is only one--the system variable SystemOrganization." contents := nil. systemOrganizer := aSystemOrganizer. selectedSystemCategory := nil. + selectedMessageCategoryName := nil. selectedClassName := nil. messageCategoryListIndex := 0. selectedMessageName := nil. metaClassIndicated := false. self setClassOrganizer. self editSelection: #none.! Item was changed: ----- Method: Browser>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier "Copy all of my instance variables. Some need to be not copied at all, but shared. See DeepCopier class comment." super veryDeepInner: deepCopier. "systemOrganizer := systemOrganizer. clone has the old value. we share it" "classOrganizer := classOrganizer clone has the old value. we share it" "metaClassOrganizer := metaClassOrganizer clone has the old value. we share it" selectedSystemCategory := selectedSystemCategory veryDeepCopyWith: deepCopier. selectedClassName := selectedClassName veryDeepCopyWith: deepCopier. messageCategoryListIndex := messageCategoryListIndex veryDeepCopyWith: deepCopier. + selectedMessageCategoryName := selectedMessageCategoryName veryDeepCopyWith: deepCopier. selectedMessageName := selectedMessageName veryDeepCopyWith: deepCopier. editSelection := editSelection veryDeepCopyWith: deepCopier. metaClassIndicated := metaClassIndicated veryDeepCopyWith: deepCopier. ! Item was changed: ----- Method: FileContentsBrowser>>removeMessageCategory (in category 'removing') ----- removeMessageCategory "If a message category is selected, create a Confirmer so the user can verify that the currently selected message category should be removed from the system. If so, remove it." | messageCategoryName | + self hasMessageCategorySelected ifFalse: [^ self]. - messageCategoryListIndex = 0 ifTrue: [^ self]. self okToChange ifFalse: [^ self]. messageCategoryName := self selectedMessageCategoryName. (self messageList size = 0 or: [self confirm: 'Are you sure you want to remove this method category and all its methods?']) ifFalse: [^ self]. self selectedClassOrMetaClass removeCategory: messageCategoryName. self messageCategoryListIndex: 0. self changed: #messageCategoryList.! Item was changed: ----- Method: HierarchyBrowser>>assureSelectionsShow (in category 'class list') ----- assureSelectionsShow "This is a workaround for the fact that a hierarchy browser, when launched, often does not show the selected class" + | saveMsgName saveCatName | + saveCatName := self selectedMessageCategoryName. - | saveCatIndex saveMsgName | - saveCatIndex := messageCategoryListIndex. saveMsgName := self selectedMessageName. self selectClassNamed: selectedClassName. + self selectMessageCategoryNamed: saveCatName. - self messageCategoryListIndex: saveCatIndex. self selectMessageNamed: saveMsgName! Item was changed: ----- Method: PackagePaneBrowser>>packageListIndex: (in category 'package list') ----- packageListIndex: anInteger "Set anInteger to be the index of the current package selection." packageListIndex := anInteger. anInteger = 0 ifFalse: [package := self packageList at: packageListIndex]. messageCategoryListIndex := 0. + selectedMessageCategoryName := nil. self selectSystemCategory: nil. - messageListIndex := 0. selectedMessageName := nil. selectedClassName := nil. self setClassOrganizer. self changed: #packageSelectionChanged. self changed: #packageListIndex. "update my selection" self changed: #systemCategoryList. "update the category list" self selectSystemCategory: nil. "update category list selection" !

1 0

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

Jump to page: