Packages July 2008

packages@lists.squeakfoundation.org

2 participants
65 discussions

SystemEditor: SystemEditor-mtf.106.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jul '08

11 Jul '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.106.mcz ==================== Summary ==================== Name: SystemEditor-mtf.106 Author: mtf Time: 11 July 2008, 1:04:45 pm UUID: a50dbaff-7f4e-4770-a72d-9ecb2c462d7d Ancestors: SystemEditor-mtf.105 some more refactoring to move stuff into AbstractEditor. Editor creation is now in there mostly =============== Diff against SystemEditor-mtf.105 =============== Item was changed: + ----- Method: ClassEditor class>>forNewClassNamed: (in category '*SystemEditor-Tests') ----- - ----- Method: ClassEditor class>>forNewClassNamed: (in category 'instance creation') ----- forNewClassNamed: aSymbol ^ self named: aSymbol for: SystemEditor new! Item was added: + ----- Method: AbstractEditor>>edPrepareMigration: (in category 'building') ----- + edPrepareMigration: txn + "Adds migrators to the given MigrationTransaction, as necessary to support converting my subject to my product" + ^ self! Item was added: + ----- Method: AbstractEditor>>edRegisterEditor (in category 'initialize-release') ----- + edRegisterEditor + "Register myself with my container, which is presumed to be a DictionaryEditor" + self environment edRegisterEditor: self! Item was changed: ----- Method: AbstractEditor class>>on:ifNotHandled: (in category 'as yet unclassified') ----- + on: subject ifNotHandled: aBlock + ^ self on: subject for: nil ifNotHandled: aBlock! - on: anObject ifNotHandled: aBlock - ^ self on: anObject for: nil ifNotHandled: aBlock! Item was changed: ----- Method: SystemEditor>>edRegisterEditor: (in category 'building') ----- + edRegisterEditor: anEditor + editors at: anEditor name put: anEditor! - edRegisterEditor: aClassEditor - editors at: aClassEditor name put: aClassEditor! Item was changed: ----- Method: AbstractEditor class>>on:for:ifNotHandled: (in category 'as yet unclassified') ----- + on: subject for: collectionEditor ifNotHandled: aBlock - on: anObject for: collectionEditor ifNotHandled: aBlock "Try to find the most specialized subclass willing to edit, for extensibility" | editor | self subclassesDo: [:class | + editor := class on: subject for: collectionEditor ifNotHandled: [nil]. - editor := class on: anObject for: collectionEditor ifNotHandled: [nil]. editor ifNotNil: [^ editor]]. + (subject isNil "nil subject is always permitted; it means new object" + or: [self canEdit: subject for: collectionEditor]) + ifTrue: [^ self new on: subject for: collectionEditor]. - (self canEdit: anObject for: collectionEditor) ifTrue: [^ self new on: anObject for: collectionEditor]. ^ aBlock value! Item was added: + ----- Method: AbstractEditor class>>named:for: (in category 'as yet unclassified') ----- + named: aName for: aDictionaryEditor + "Answers a new or existing instance with the given name, and installs it, if necessary" + ^ aDictionaryEditor at: aName ifAbsent: [ + (self on: nil for: aDictionaryEditor) + setName: aName; + edRegisterEditor; + yourself]! Item was changed: ----- Method: AbstractEditor class>>on:for: (in category 'as yet unclassified') ----- + on: subject for: collectionEditor + ^ self on: subject for: collectionEditor ifNotHandled: [self error: + self class name, ' does not know how to edit ', subject printString]! - on: anObject for: collectionEditor - ^ self on: anObject for: collectionEditor ifNotHandled: [self error: - self class name, ' does not know how to edit ', anObject printString]! Item was removed: - ----- Method: ClassEditor>>edRegisterEditor (in category 'initialize-release') ----- - edRegisterEditor - - system edRegisterEditor: self! Item was removed: - ----- Method: ClassEditor class>>named:for: (in category 'instance creation') ----- - named: aSymbol for: aSystemEditor - | subject inst | - subject := aSystemEditor edClassAt: aSymbol ifAbsent: [nil]. - inst := self on: subject for: aSystemEditor. - subject ifNil: [inst setName: aSymbol]. - inst edRegisterEditor. - ^ inst!

1 0

SystemEditor: TraitEditor-mtf.5.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jul '08

11 Jul '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.5.mcz ==================== Summary ==================== Name: TraitEditor-mtf.5 Author: mtf Time: 11 July 2008, 12:16:37 am UUID: e288e4b8-5df4-4a64-808c-8870a94e0d4c Ancestors: TraitEditor-mtf.4 implemented some instance creation methods =============== Diff against TraitEditor-mtf.4 =============== Item was added: + ----- Method: TraitCompositionDecorator>>buildFor: (in category 'as yet unclassified') ----- + buildFor: aClassEditor + ^ self! Item was added: + ----- Method: TraitEditor class>>named:uses:category: (in category 'instance creation') ----- + named: aSymbol uses: aTraitCompositionOrCollection category: aString + ^self + named: aSymbol + uses: aTraitCompositionOrCollection + category: aString + env: SystemEditor new! Item was changed: + AbstractEditor subclass: #TraitDescriptionEditor - Object subclass: #TraitDescriptionEditor instanceVariableNames: 'subject product system methods organization' classVariableNames: '' poolDictionaries: '' category: 'TraitEditor'! !TraitDescriptionEditor commentStamp: 'mtf 6/20/2008 22:21' prior: 0! A base class for both TraitEditor and ClassTraitEditor! Item was added: + ----- Method: TraitEditor class>>named:uses:category:env: (in category 'instance creation') ----- + named: aSymbol uses: aTraitCompositionOrCollection category: aString env: anEnvironment + + | editor | + editor := anEnvironment at: aSymbol ifAbsent: [self on: nil for: anEnvironment]. + editor traitComposition: aTraitCompositionOrCollection. + editor category: aString. + editor edRegisterEditor. + ^ editor! Item was changed: ----- Method: ClassEditor>>named:uses:category: (in category '*TraitEditor') ----- named: aName uses: aTraitComposition category: aCategory "This allows the following doit to be executed in the context of a SystemEditor: Trait named: uses: category: " self name == #Trait ifFalse: [self shouldNotImplement]. + ^ TraitEditor named: aName uses: aTraitComposition category: aCategory env: self environment! - ^ TraitEditor named: aName uses: aTraitComposition category: aCategory!

1 0

SystemEditor: SystemEditor-mtf.105.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jul '08

11 Jul '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.105.mcz ==================== Summary ==================== Name: SystemEditor-mtf.105 Author: mtf Time: 11 July 2008, 12:15:04 am UUID: e7814739-a28b-47b3-a3b4-a00aec85ce64 Ancestors: SystemEditor-mtf.104 created AbstractEditor to handle editor classes in an extensible manner =============== Diff against SystemEditor-mtf.104 =============== Item was changed: ----- Method: SystemEditor>>at:ifAbsent: (in category 'reflecting') ----- at: aSymbol ifAbsent: aBlock + | newEditor | (removals includes: aSymbol) ifTrue: [^ aBlock value]. editors at: aSymbol ifPresent: [:editor | ^ editor]. + subject at: aSymbol ifPresent: [:obj | + newEditor := AbstractEditor on: obj for: self ifNotHandled: [^ obj]. + ^ newEditor edRegisterEditor]. - subject at: aSymbol ifPresent: - [:class | - ^ class isBehavior - ifTrue: [(ClassEditor on: class for: self) edRegisterEditor ] - ifFalse: [class]]. ^ aBlock value! Item was changed: + AbstractEditor subclass: #ClassEditor - Object subclass: #ClassEditor instanceVariableNames: 'subject product system superEditor name type instVarNames classVarNames sharedPools methods category organization properties decorators' classVariableNames: 'ReservedNames' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was added: + ----- Method: ClassEditor class>>canEdit:for: (in category 'instance creation') ----- + canEdit: anObject for: anEditor + ^ anObject isBehavior! Item was added: + ----- Method: ClassEditor class>>new (in category 'instance creation') ----- + new + ^ MetaclassEditor new new! Item was added: + ----- Method: ClassEditor>>on:for: (in category 'initialize-release') ----- + on: aClass for: aSystemEditor + ^ self setSubject: aClass system: aSystemEditor! Item was added: + ----- Method: AbstractEditor class>>canEdit: (in category 'as yet unclassified') ----- + canEdit: anObject + ^ self canEdit: anObject for: nil! Item was added: + ----- Method: AbstractEditor class>>on: (in category 'as yet unclassified') ----- + on: anObject + ^ self on: anObject for: nil! Item was added: + ----- Method: AbstractEditor class>>on:ifNotHandled: (in category 'as yet unclassified') ----- + on: anObject ifNotHandled: aBlock + ^ self on: anObject for: nil ifNotHandled: aBlock! Item was added: + ----- Method: AbstractEditor class>>canEdit:for: (in category 'as yet unclassified') ----- + canEdit: anObject for: containerEditor + ^ false! Item was added: + Object subclass: #AbstractEditor + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Editors'! Item was added: + ----- Method: AbstractEditor class>>on:for:ifNotHandled: (in category 'as yet unclassified') ----- + on: anObject for: collectionEditor ifNotHandled: aBlock + "Try to find the most specialized subclass willing to edit, for extensibility" + | editor | + self subclassesDo: [:class | + editor := class on: anObject for: collectionEditor ifNotHandled: [nil]. + editor ifNotNil: [^ editor]]. + (self canEdit: anObject for: collectionEditor) ifTrue: [^ self new on: anObject for: collectionEditor]. + ^ aBlock value! Item was added: + ----- Method: AbstractEditor class>>on:for: (in category 'as yet unclassified') ----- + on: anObject for: collectionEditor + ^ self on: anObject for: collectionEditor ifNotHandled: [self error: + self class name, ' does not know how to edit ', anObject printString]! Item was removed: - ----- Method: ClassEditor class>>on: (in category 'instance creation') ----- - on: aClass - ^ (self on: aClass for: SystemEditor new) edRegisterEditor ! Item was removed: - ----- Method: ClassEditor class>>on:for: (in category 'instance creation') ----- - on: aClass for: aSystemEditor - | meta instance | - meta := MetaclassEditor new. - instance := meta new. - instance setSubject: aClass system: aSystemEditor. - ^ instance!

1 0

Tasks: Tasks-Squeak3.10-kph.9.mcz
by squeaksource-noreply＠iam.unibe.ch 09 Jul '08

09 Jul '08

A new version of Tasks-Squeak3.10 was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Squeak3.10-kph.9.mcz ==================== Summary ==================== Name: Tasks-Squeak3.10-kph.9 Author: kph Time: 9 July 2008, 5:55:35 pm UUID: 69311fac-8195-41ed-b769-b7292fd22037 Ancestors: Tasks-Squeak3.10-kph.8 added fixSMTPClient =============== Diff against Tasks-Squeak3.10-kph.8 =============== Item was added: + ----- Method: TasksReleaseAfterSqueak310 class>>fixSMTPClient (in category 'as yet unclassified') ----- + fixSMTPClient + + ^ self define: [ :task | + + task dependsOn: { + '6843'. + '6768' + }. + + ].! Item was added: + ----- Method: TasksReleaseAfterSqueak310 class>>buildGenerateTestCandidate (in category 'as yet unclassified') ----- + buildGenerateTestCandidate + + ^ self define: [ :task | + + task dependsOn: { + self taskSetPreferences. + self taskLoadPackageIntoKernel: 'Kernel-Extensions'. + self taskReorganizeCategories. + self taskReorganizePackages. + "apply latest" + self fixSMTPClient. + + "tidy up" + self taskCleanDeprecated. + self taskMarkNewlyDeprecated. + self taskCleanExcess. + }. + + task action: [ + + + ] + ].! Item was changed: ----- Method: TasksReleaseAfterSqueak310 class>>taskCleanExcess (in category 'as yet unclassified') ----- taskCleanExcess ^ self define: [ :task | task dependsOn: { (Packages current named: 'Universes') unload. (Packages current named: 'YAXO') unload. (Packages current named: 'SqueakMap2 loader') unload. (Packages current named: 'SqueakMap2 base') unload. }. task action: [ Installer mc unload: 'ReleaseBuilder'. Installer mc unload: 'ScriptLoader'. Installer mc unload: 'ToolBuilder-MVC'. Installer mc unload: 'ToolBuilder-SUnit'. Installer mc unload: 'OB-Standard'. "an empty project" - (MCPackage named: 'PackageInfo') workingCopy unregister. - (MCPackage named: 'Installer') workingCopy unregister. ] ].! Item was removed: - ----- Method: TasksReleaseAfterSqueak310 class>>taskGenerateTestCandidate (in category 'as yet unclassified') ----- - taskGenerateTestCandidate - - ^ self define: [ :task | - - task dependsOn: { - self taskSetPreferences. - self taskLoadPackageIntoKernel: 'Kernel-Extensions'. - self taskReorganizeCategories. - self taskReorganizePackages. - "apply latest" - self taskCleanDeprecated. - self taskMarkNewlyDeprecated. - self taskCleanExcess. - }. - - task action: [ - - - ] - ].!

1 0

Tasks: Tasks-Common-kph.8.mcz
by squeaksource-noreply＠iam.unibe.ch 09 Jul '08

09 Jul '08

A new version of Tasks-Common was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Common-kph.8.mcz ==================== Summary ==================== Name: Tasks-Common-kph.8 Author: kph Time: 9 July 2008, 5:54:55 pm UUID: a1f6fe52-f7a7-4a27-89f0-700aa7f7eb89 Ancestors: Tasks-Common-kph.7 categorize doc methods =============== Diff against Tasks-Common-kph.7 =============== Item was changed: ----- Method: TasksRelease class>>taskEnsureFix: (in category 'as yet unclassified') ----- taskEnsureFix: aFixNumberOrString | theBugPage theBugScript | ^ self define: [ :task | task action: [ "install the fix and record its details for posterity" theBugPage := Installer mantis bug: aFixNumberOrString. theBugScript := Installer mantis bugScript: aFixNumberOrString. + self at: 'm', aFixNumberOrString asString category: nil putMethod: theBugScript doc: theBugPage. - self at: 'm', aFixNumberOrString putMethod: theBugScript doc: theBugPage. self isOnline ifTrue: [ Installer mantis ensureFix: aFixNumberOrString ] ]. ]!

1 0

Installer: Installer-Core-kph.211.mcz
by squeaksource-noreply＠iam.unibe.ch 09 Jul '08

09 Jul '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.211.mcz ==================== Summary ==================== Name: Installer-Core-kph.211 Author: kph Time: 9 July 2008, 10:39:42 am UUID: 59eec3aa-e3e5-4b4b-838d-6fba52742970 Ancestors: Installer-Core-kph.210 view all files attached to a mantis report =============== Diff against Installer-Core-kph.210 =============== Item was added: + ----- Method: Installer>>bugFilesView: (in category 'mantis') ----- + bugFilesView: aBugNo + + + (self bugFiles: aBugNo) do: [ :ea | self bug: aBugNo view: ea ].!

1 0

Packages: Packages-Squeak310-kph.42.mcz
by squeaksource-noreply＠iam.unibe.ch 09 Jul '08

09 Jul '08

A new version of Packages-Squeak310 was added to project Packages: http://www.squeaksource.com/Packages/Packages-Squeak310-kph.42.mcz ==================== Summary ==================== Name: Packages-Squeak310-kph.42 Author: kph Time: 9 July 2008, 10:34:58 am UUID: e0f668a7-4dc9-48d8-8f0e-ee485e77967b Ancestors: Packages-Squeak310-kph.41 update kernel extensions =============== Diff against Packages-Squeak310-kph.41 =============== Item was changed: ----- Method: PackagesSqueak310U>>KernelExtkph (in category 'Kernel') ----- KernelExtkph self name: 'KernelExt-kph'. + self version: '3.10.53'. - self version: '3.10.29'. info category: 'Kernel'. info description: 'Adds split and join to collections/strings, with tests Adds firstOrNil. Adds << for streaming. Adds Null logger Object-log'. info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/311/Kernel-Extensions-kph.53.mcz'. - info url: 'http://www.squeaksource.com/311/Kernel-Extensions-kph.29.mcz'. self provides: #('Null'). self dependsOn: #(). self load: [ + Installer installUrl:'http://www.squeaksource.com/311/Kernel-Extensions-kph.53.mcz'. - Installer installUrl:'http://www.squeaksource.com/311/Kernel-Extensions-kph.29.mcz'. ]. self unload: [ Installer mc unload: 'KernelExt-kph'. ].! Item was changed: ----- Method: PackagesSqueak310U>>Squeakdevimage (in category 'Squeak Distributions') ----- Squeakdevimage self name: 'Squeak-dev image'. + self version: '0.161'. - self version: '0.159'. info category: 'Squeak Distributions'. info description: 'This package creates a squeak image made for developers. If you update a squeak-dev image, you can execute ''DEVImageCreator default install''.'. + info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. - info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com'. info homepage: 'http://damien.cassou.free.fr/'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.161.mcz'. - info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.159.mcz'. self provides: #(). self dependsOn: #('Squeak dev packages'). self load: [ + Installer installUrl:'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.161.mcz'. - Installer installUrl:'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.159.mcz'. ]. self unload: [ Installer mc unload: 'Squeak-dev image'. ].! Item was removed: - ----- Method: PackagesSqueak310>>KernelExtkph (in category 'Kernel') ----- - KernelExtkph - - self name: 'KernelExt-kph'. - self version: '3.10.37'. - - info category: 'Kernel'. - info description: - 'Adds split and join to collections/strings, with tests - Adds firstOrNil. - Adds << for streaming. - Adds Null logger Object-log'. - info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. - info homepage: ''. - info squeakMapID: ''. - info url: 'http://www.squeaksource.com/311/Kernel-Extensions-kph.29.mcz'. - self provides: #('Null'). - - self dependsOn: #(). - - self load: [ - Installer installUrl:'http://www.squeaksource.com/311/Kernel-Extensions-kph.37.mcz'. - ]. - - self unload: [ - Installer mc unload: 'Kernel-Extensions'. - ].!

1 0

Packages: Packages-Squeak39-kph.19.mcz
by squeaksource-noreply＠iam.unibe.ch 09 Jul '08

09 Jul '08

A new version of Packages-Squeak39 was added to project Packages: http://www.squeaksource.com/Packages/Packages-Squeak39-kph.19.mcz ==================== Summary ==================== Name: Packages-Squeak39-kph.19 Author: kph Time: 9 July 2008, 10:34:34 am UUID: 261c7162-d7ca-4e0b-aa82-4f06dfdd9e03 Ancestors: Packages-Squeak39-kph.18 update kernel extensions =============== Diff against Packages-Squeak39-kph.18 =============== Item was changed: ----- Method: PackagesSqueak39U>>Squeakdevimage (in category 'Squeak Distributions') ----- Squeakdevimage self name: 'Squeak-dev image'. + self version: '0.161'. - self version: '0.159'. info category: 'Squeak Distributions'. info description: 'This package creates a squeak image made for developers. If you update a squeak-dev image, you can execute ''DEVImageCreator default install''.'. + info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. - info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com'. info homepage: 'http://damien.cassou.free.fr/'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.161.mcz'. - info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.159.mcz'. self provides: #(). self dependsOn: #('Squeak dev packages'). self load: [ + Installer installUrl:'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.161.mcz'. - Installer installUrl:'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-dc.159.mcz'. ]. self unload: [ Installer mc unload: 'Squeak-dev image'. ].! Item was changed: ----- Method: PackagesSqueak39U>>KernelExtkph (in category 'Kernel') ----- KernelExtkph self name: 'KernelExt-kph'. + self version: '3.10.53'. - self version: '3.10.29'. info category: 'Kernel'. info description: 'Adds split and join to collections/strings, with tests Adds firstOrNil. Adds << for streaming. Adds Null logger Object-log'. info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/311/Kernel-Extensions-kph.53.mcz'. - info url: 'http://www.squeaksource.com/311/Kernel-Extensions-kph.29.mcz'. self provides: #('Null'). self dependsOn: #(). self load: [ + Installer installUrl:'http://www.squeaksource.com/311/Kernel-Extensions-kph.53.mcz'. - Installer installUrl:'http://www.squeaksource.com/311/Kernel-Extensions-kph.29.mcz'. ]. self unload: [ Installer mc unload: 'KernelExt-kph'. ].!

1 0

SystemEditor: SystemEditor-mtf.104.mcz
by squeaksource-noreply＠iam.unibe.ch 08 Jul '08

08 Jul '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.104.mcz ==================== Summary ==================== Name: SystemEditor-mtf.104 Author: mtf Time: 8 July 2008, 1:20:02 pm UUID: 7dd78ae2-ffc9-4a5f-9016-dd5f114c80e1 Ancestors: SystemEditor-mtf.103 Completely refactored class format handling. New features - byte, word, weak, and compiledMethod class formats are now supported - Compact classes are now supported - Format validation is now both more centrallized, and more thourough =============== Diff against SystemEditor-mtf.103 =============== Item was added: + ----- Method: ClassFormat>>validateAgainstSuper: (in category 'validating') ----- + validateAgainstSuper: superFormat + "Raise an error if a class with my format cannot inherit from a class with superFormat. Adapted from the various checks in the public ClassBuilder methods" + + self instSize < superFormat instSize ifTrue: [self error: 'A subclass lost instance variables']. + superFormat isFixed ifTrue: [^ self]. "Any format can inherit from #normal" + superFormat isVariable ~~ self isVariable ifTrue: [self error: 'Cannot derive a fixed class from a variable one']. + superFormat isBits ~~ self isBits ifTrue: [self error: 'Bit and Pointer classes cannot inherit from one another']. + superFormat isBytes ~~ self isBytes ifTrue: [self error: 'Byte and Word classes cannot inherit from one another']. + ! Item was added: + ----- Method: ClassFormat>>validateAgainstOld: (in category 'validating') ----- + validateAgainstOld: oldFormat + "Raise an error if a class with my format cannot replace a class with oldFormat. Adapted from ClassBuilder >> validateSubclass:canKeepLayoutFrom:forSubclassFormat:" + + oldFormat ifNil: [^ self]. "This class is new, so anything works" + (self isWeak and: [oldFormat isVariable]) ifTrue: [^ self]. + self typeOfClass ~~ oldFormat typeOfClass + ifTrue: [self error: 'The new class format is incompatable with the old']! Item was added: + ----- Method: ClassFormat class>>compiledMethodSpec (in category 'storage specifications') ----- + compiledMethodSpec + ^ 12! Item was changed: ----- Method: ClassEditor>>edClassFormat (in category 'building') ----- edClassFormat + ^ ClassFormat + size: self instSize + type: self typeOfClass + index: self indexIfCompact! - | superFormat | - superFormat := self edSuperEditor ifNil: [ClassFormat named] - ifNotNil: [ClassFormat fromBits: self edSuperEditor format]. - ^ self typeOfClass = #normal - ifTrue: [superFormat namedSubclass: self instVarNames size] - ifFalse: [superFormat indexedSubclass: self instVarNames size]! Item was added: + ----- Method: ClassEditor>>indexIfCompact (in category 'reflecting') ----- + indexIfCompact + self subject ifNotNil: [^ self subject indexIfCompact]. + ^ 0! Item was added: + ----- Method: ClassFormat>>validate (in category 'validating') ----- + validate + "Raise an error if I am an invalid format" + + instSize > 254 ifTrue: [self error: 'Too many instance variables (', instSize printString,')']. + (self isBits and: [instSize > 0]) ifTrue: [self error: 'Only pointer formats can have named variables']. + ! Item was changed: ----- Method: ClassEditor>>validateFormat (in category 'validating') ----- validateFormat + self edClassFormat + validate; + validateAgainstSuper: self edSuperFormat; + validateAgainstOld: self edOldFormat! - (self instSize >= 255) ifTrue: [InvalidClassFormat signal]. - (self isBits and: [self instSize >= 1]) ifTrue: [InvalidClassFormat signal]. - ! Item was added: + ----- Method: ClassFormat class>>size:type:index: (in category 'instance creation') ----- + size: instSize type: aSymbol index: cClassIndex + ^ self size: instSize spec: (self specFromType: aSymbol size: instSize) index: cClassIndex! Item was changed: Object subclass: #ClassFormat instanceVariableNames: 'instSize instSpec cClassIndex' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! + !ClassFormat commentStamp: 'mtf 7/7/2008 23:18' prior: 0! - !ClassFormat commentStamp: 'cwp 9/25/2004 16:07' prior: 0! I am an expert on the way the Squeak VM encodes class formats. My instance variable, 'bits', is identical in format to the 'format' instance variable of Behavior. I have methods for interpreting those bits. The class format integer is 18 bits in length. The instSize field is split into two parts for backwards compatibility. <2 bits=instSize//64> <5 bits=cClass> <4 bits=instSpec> <6 bits=instSize\\64> <1 bit=0> - instSize: the number of named instance variables - cClass: the index into the compact class table - instSpec: values indicating how instances are organized 0 - no state 1 - named instance variables only 2 - variable number of object pointers 3 - named instance variables, variable number of object pointers 4 - variable number of weak object pointers 6 - variable number of words + 8 - variable number of bytes + 12 - compiled method format: variable number of object pointers, variable number of bytes! - 8 - variable number of bytes! Item was added: + ----- Method: ClassFormat>>typeOfClass (in category 'accessing') ----- + typeOfClass + "Answer a symbol uniquely describing the type of the receiver" + self instSpec = self class compiledMethodSpec ifTrue:[^#compiledMethod]. "Very special!!" + self isBytes ifTrue:[^#bytes]. + (self isWords and:[self isPointers not]) ifTrue:[^#words]. + self isWeak ifTrue:[^#weak]. + self isVariable ifTrue:[^#variable]. + ^#normal.! Item was added: + ----- Method: ClassFormat class>>specFromType:size: (in category 'storage specifications') ----- + specFromType: aSymbol size: size + ^ aSymbol caseOf: { + [#normal] -> [size > 0 ifTrue: [self namedSpec] ifFalse: [self noStateSpec]]. + [#variable] -> [self indexedSpec: size]. + [#bytes] -> [self bytesSpec]. + [#words] -> [self wordsSpec]. + [#weak] -> [self weakSpec]. + [#compiledMethod] -> [self compiledMethodSpec]. + } otherwise: [self error: 'Unknown class type: ', aSymbol] + ! Item was added: + ----- Method: ClassEditor>>edOldFormat (in category 'building') ----- + edOldFormat + ^ subject ifNotNil: [ClassFormat fromBits: subject format]! Item was added: + ----- Method: ClassEditor>>edSuperFormat (in category 'building') ----- + edSuperFormat + ^ self edSuperEditor + ifNotNilDo: [:ed | ClassFormat fromBits: ed format] + ifNil: [ClassFormat named]! Item was changed: ----- Method: ClassEditor>>typeOfClass (in category 'reflecting') ----- typeOfClass + type ifNotNil: [^ type]. + subject ifNotNil: [^ subject typeOfClass]. + ^ self edSuperFormat typeOfClass.! - ^ type ifNil: [type := subject typeOfClass]!

1 0

Packages: Packages-Core-kph.48.mcz
by squeaksource-noreply＠iam.unibe.ch 07 Jul '08

07 Jul '08

A new version of Packages-Core was added to project Packages: http://www.squeaksource.com/Packages/Packages-Core-kph.48.mcz ==================== Summary ==================== Name: Packages-Core-kph.48 Author: kph Time: 7 July 2008, 10:17:51 pm UUID: cc334036-e53b-43b4-ae76-e13c227f56f1 Ancestors: Packages-Core-kph.47 add +log to the launcher options =============== Diff against Packages-Core-kph.47 =============== Item was changed: ----- Method: Packages class>>launchWith: (in category 'launcher') ----- launchWith: params | packagesClass task runLevel | packagesClass := self current. runLevel := #run. params at: 'B' ifPresent: [ :v | params at: 'BETA' put: v ]. params at: 'U' ifPresent: [ :v | params at: 'UNLOAD' put: v ]. params at: 'L' ifPresent: [ :v | params at: 'LOAD' put: v ]. params at: 'S' ifPresent: [ :v | params at: 'STEPPING' put: v ]. params at: 'I' ifPresent: [ :v | params at: 'INTERACTIVELY' put: v ]. params at: 'Q' ifPresent: [ :v | params at: 'QUIETLY' put: v ]. params at: 'BETA' ifPresent: [ :v | v ifTrue: [ packagesClass := self beta ]. ]. params at: 'LOAD' ifPresent: [ :v | task := packagesClass collection: (v splitOn: ';') ]. params at: 'UNLOAD' ifPresent: [ :v | task := SakeTask collection: ((v splitOn: ';') collect: [ :ea | (self named: ea) unload ]) ]. params at: 'STEPPING' ifPresent: [ :v | v ifTrue: [ runLevel := #runStepping ]. ]. params at: 'QUIETLY' ifPresent: [ :v | v ifTrue: [ runLevel := #runQuietly ]. ]. params at: 'INTERACTIVELY' ifPresent: [ :v | v ifTrue: [ runLevel := #runInteractively ]. ]. + params at: 'LOG' ifPresent: [ :v | + v ifTrue: [ runLevel := #runLogging ]. + ]. task perform: runLevel.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2008