Packages March 2011

packages@lists.squeakfoundation.org

1 participants
447 discussions

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

30 Mar '11

Nicolas Cellier uploaded a new version of Traits to project The Trunk: http://source.squeak.org/trunk/Traits-nice.288.mcz ==================== Summary ==================== Name: Traits-nice.288 Author: nice Time: 30 March 2011, 9:47:27.896 pm UUID: 2c2016d2-acf3-448a-b3b9-836089b17a9e Ancestors: Traits-nice.287 Use #newCompiler #newParser =============== Diff against Traits-nice.287 =============== Item was changed: ----- Method: ClassDescription>>replaceSelector:withAlias:in: (in category '*Traits-NanoKernel') ----- replaceSelector: originalSelector withAlias: aliasSelector in: source "replaces originalSelector with aliasSelector in in given source code" | oldKeywords newKeywords args selectorWithArgs s | oldKeywords := originalSelector keywords. newKeywords := aliasSelector keywords. oldKeywords size = newKeywords size ifFalse:[self error: 'Keyword mismatch']. + args := (self newParser parseArgsAndTemps: source asString notifying: nil) - args := (self parserClass new parseArgsAndTemps: source asString notifying: nil) copyFrom: 1 to: originalSelector numArgs. selectorWithArgs := String streamContents: [:stream | newKeywords keysAndValuesDo: [:index :keyword | stream nextPutAll: keyword. stream space. args size >= index ifTrue: [ stream nextPutAll: (args at: index); space]]]. s := source asString readStream. oldKeywords do: [ :each | s match: each ]. args isEmpty ifFalse: [ s match: args last ]. ^selectorWithArgs withBlanksTrimmed asText , s upToEnd ! Item was changed: ----- Method: ClassDescription>>traitAddSelector:withMethod: (in category '*Traits-NanoKernel') ----- traitAddSelector: selector withMethod: traitMethod "Add a method inherited from a trait. Recompiles to avoid sharing and implement aliasing." | oldMethod source methodNode newMethod originalSelector | oldMethod := self compiledMethodAt: selector ifAbsent:[nil]. oldMethod ifNotNil:[ "The following is an important optimization as it prevents exponential growth in recompilation. If T1 is used by T2 and T2 by T3 then (without this optimization) any change in T1 would cause all methods in T2 to be recompiled and each recompilation of a method in T2 would cause T3 to be fully recompiled. The test eliminates all such situations." (oldMethod sameTraitCodeAs: traitMethod) ifTrue:[^oldMethod]. ]. originalSelector := traitMethod selector. source := traitMethod methodClass sourceCodeAt: originalSelector. originalSelector == selector ifFalse:[ "Replace source selectors for aliases" source := self replaceSelector: originalSelector withAlias: selector in: source. ]. + methodNode := self newCompiler - methodNode := self compilerClass new compile: source in: self classified: nil notifying: nil ifFail:[^nil]. newMethod := methodNode generate: self defaultMethodTrailer. newMethod putSource: source fromParseNode: methodNode inFile: 2 withPreamble: [:f | f cr; nextPut: $!!; nextChunkPut: 'Trait method'; cr]. newMethod originalTraitMethod: traitMethod. ^super addSelectorSilently: selector withMethod: newMethod.!

1 0

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

30 Mar '11

1 0

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

30 Mar '11

1 0

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: Tools-nice.302.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

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

30 Mar '11

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: ST80-nice.126.mcz
by commits＠source.squeak.org 30 Mar '11

30 Mar '11

1 0

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

30 Mar '11

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

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

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2011