hg/stx-libtool2: comparison SnapShotImageMemory.st

equal deleted inserted replaced

-:540781421bbf
+:f3eda2f72399
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SnapShotImageMemory
 !
+SnapShotImageMemory::ImageHeader variableSubclass:#ImageObject
+	instanceVariableNames:'cachedContents'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SnapShotImageMemory
+!
+SnapShotImageMemory::ImageObject variableSubclass:#ImageClassObject
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:SnapShotImageMemory
+!
 Object subclass:#SpaceInfo
 	instanceVariableNames:'start end size flags imageBase'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SnapShotImageMemory
 !
-SnapShotImageMemory::ImageHeader variableSubclass:#ImageObject
-	instanceVariableNames:'cachedContents'
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:SnapShotImageMemory
-!
-SnapShotImageMemory::ImageObject variableSubclass:#ImageClassObject
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	privateIn:SnapShotImageMemory
-!
 SnapShotImageMemory::ImageHeader variableByteSubclass:#ImageByteObject
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:SnapShotImageMemory
 !SnapShotImageMemory methodsFor:'accessing'!
 globalEntries
 "return the value of the instance variable 'globalEntries' (automatically generated)"
-^ globalEntries!
+^ globalEntries
+!
 globalEntries:something
 "set the value of the instance variable 'globalEntries' (automatically generated)"
-globalEntries := something.!
+globalEntries := something.
+!
 image
 ^ image
 !
 !
 ptrSize
 "return the value of the instance variable 'ptrSize' (automatically generated)"
-^ ptrSize!
+^ ptrSize
+!
 ptrSize:something
 "set the value of the instance variable 'ptrSize' (automatically generated)"
-ptrSize := something.! !
+ptrSize := something.
+! !
 !SnapShotImageMemory methodsFor:'object access'!
 fetchByteAt:addr
 |byte imgAddr|
 |nBytes|
 (aByteArrayRef isImageBytes) ifFalse:[self halt].
 nBytes := aByteArrayRef byteSize - (intSize * 3).
-^ ((ByteArray new:nBytes) replaceFrom:1 to:nBytes-1 with:aByteArrayRef startingAt:1).!
+^ ((ByteArray new:nBytes) replaceFrom:1 to:nBytes-1 with:aByteArrayRef startingAt:1).
+!
 fetchStringFor:aStringRef
 |nBytes|
 (aStringRef isImageBytes) ifFalse:[self halt].
 !SnapShotImageMemory::ImageHeader methodsFor:'accessing'!
 bits
 "return the value of the instance variable 'bits' (automatically generated)"
-^ bits!
+^ bits
+!
 bits:something
 "set the value of the instance variable 'bits' (automatically generated)"
-bits := something.!
+bits := something.
+!
 byteSize
 "return the value of the instance variable 'size' (automatically generated)"
 ^ byteSize
 !
 classRef
 "return the value of the instance variable 'classRef' (automatically generated)"
-^ classRef!
+^ classRef
+!
 classRef:something
 "set the value of the instance variable 'classRef' (automatically generated)"
-classRef := something.!
+classRef := something.
+!
 memory
 "return the value of the instance variable 'memory' (automatically generated)"
-^ memory!
+^ memory
+!
 memory:something
 "set the value of the instance variable 'memory' (automatically generated)"
-memory := something.! !
+memory := something.
+! !
 !SnapShotImageMemory::ImageHeader methodsFor:'queries'!
 category
 |categoryPtr categoryRef category|
 ].
 self halt.
 !
 isBehavior
-^ self isImageBehavior!
+^ self isImageBehavior
+!
 isImageBehavior
 |flags|
 flags := classRef flags.
 or:[ nm = 'JavaMethodWithHandler'
 or:[ nm = 'JavaNativeMethod' ]]])
 !
 isLazyMethod
-^ classRef name = 'LazyMethod'!
+^ classRef name = 'LazyMethod'
+!
 isMeta
 ^ false
 !
 !
 isString
 ^ classRef name = 'String'
 ! !
-!SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
-end
-"return the value of the instance variable 'end' (automatically generated)"
-^ end!
-end:something
-"set the value of the instance variable 'end' (automatically generated)"
-end := something.!
-flags
-"return the value of the instance variable 'flags' (automatically generated)"
-^ flags!
-flags:something
-"set the value of the instance variable 'flags' (automatically generated)"
-flags := something.!
-imageBase
-"return the value of the instance variable 'imageBase' (automatically generated)"
-^ imageBase!
-imageBase:something
-"set the value of the instance variable 'imageBase' (automatically generated)"
-imageBase := something.!
-size
-"return the value of the instance variable 'size' (automatically generated)"
-^ size!
-size:something
-"set the value of the instance variable 'size' (automatically generated)"
-size := something.!
-start
-"return the value of the instance variable 'start' (automatically generated)"
-^ start!
-start:something
-"set the value of the instance variable 'start' (automatically generated)"
-start := something.! !
 !SnapShotImageMemory::ImageObject methodsFor:'method protocol'!
 byteCode
 |byteCodeSlotOffset byteCodePtr byteCodeRef byteCode|
 containingClass
 self isMethodOrLazyMethod ifTrue:[
 ^ self mclass
 ].
-self halt.!
+self halt.
+!
 hasCode
-^ false!
+^ false
+!
 isBreakpointed
-^ false!
+^ false
+!
 isCounting
-^ false!
+^ false
+!
 isCountingMemoryUsage
-^ false!
+^ false
+!
 isDynamic
-^ false!
+^ false
+!
 isExecutable
 self isMethod ifTrue:[
 ^ false
 ].
-self halt.!
+self halt.
+!
 isIgnored
-^ false!
+^ false
+!
 isPrivate
-^ false!
+^ false
+!
 isProtected
-^ false!
+^ false
+!
 isPublic
-^ true!
+^ true
+!
 isTimed
-^ false!
+^ false
+!
 isTraced
-^ false!
+^ false
+!
 isWrapped
 ^ false
 !
 ^ nil
 !
 previousVersion
-^ nil!
+^ nil
+!
 printStringForBrowserWithSelector:selector
 ^ selector
 !
 privacy
-^ #public!
+^ #public
+!
 resources
 ^ nil
 !
 self isMethodOrLazyMethod ifTrue:[
 self sourcePosition notNil ifTrue:[^ self source].
 ^ nil
 ].
-self halt.!
+self halt.
+!
 sourceLineNumber
 self isMethodOrLazyMethod ifTrue:[
 ^ 1
 ].
 self isMethodOrLazyMethod ifTrue:[
 sourcePosition := self sourcePositionValue.
 sourcePosition isNil ifTrue:[^ sourcePosition].
 ^ sourcePosition abs
 ].
-self halt.!
+self halt.
+!
 sourcePositionValue
 |sourcePosition sourcePositionPtr|
 self isMethodOrLazyMethod ifTrue:[
 sourcePositionPtr := self at:(Method instVarOffsetOf:'sourcePosition').
 sourcePosition := memory fetchObjectAt:sourcePositionPtr.
 ^ sourcePosition
 ].
-self halt.!
+self halt.
+!
 sourceStream
 |sourcePosition source aStream fileName junk who
 myClass mgr className sep dir mod package|
 cachedContents isNil ifTrue:[
 self cacheMethodDictionary.
 ].
 ^ cachedContents at:aSelector ifAbsent:exceptionValue
 ].
-self halt.!
+self halt.
+!
 cacheMethodDictionary
 |symPtr symRef mthdPtr mthdRef s|
 cachedContents isNil ifTrue:[
 s := memory fetchStringFor:symRef.
 mthdPtr := self at:idx + 1.
 mthdRef := memory fetchObjectAt:mthdPtr.
 cachedContents at:s asSymbol put:mthdRef.
 ].
-].!
+].
+!
 do:aBlock
 self isMethodDictionary ifTrue:[
 cachedContents isNil ifTrue:[
 self cacheMethodDictionary.
 cachedContents isNil ifTrue:[
 self cacheMethodDictionary.
 ].
 ^ cachedContents includesKey:aSelector
 ].
-self halt.!
+self halt.
+!
 keyAtValue:aMethod ifAbsent:exceptionValue
 self isMethodDictionary ifTrue:[
 cachedContents isNil ifTrue:[
 self cacheMethodDictionary.
 ].
 ^ cachedContents keyAtValue:aMethod ifAbsent:exceptionValue
 ].
-self halt.!
+self halt.
+!
 keysAndValuesDo:aBlock
 self isMethodDictionary ifTrue:[
 cachedContents isNil ifTrue:[
 self cacheMethodDictionary.
 ].
 ^ category
 !
 categorySlot
-^ self at:(Class instVarOffsetOf:'category')!
+^ self at:(Class instVarOffsetOf:'category')
+!
 classFilename
 |classFilenameRef classFilename|
 classFilenameRef := self classFilenameSlot.
 classFilenameRef := memory fetchObjectAt:classFilenameRef.
 ].
 classFilenameRef notNil ifTrue:[
 classFilename := memory fetchStringFor:classFilenameRef.
 ].
-^ classFilename!
+^ classFilename
+!
 classFilenameSlot
-^ self at:(Class instVarOffsetOf:'classFilename')!
+^ self at:(Class instVarOffsetOf:'classFilename')
+!
 classVarNames
 |classVarNamesRef classVarNames s|
 classVarNamesRef := self classVarsSlot.
 ].
 ^ comment
 !
 commentSlot
-^ self at:(Class instVarOffsetOf:'comment')!
+^ self at:(Class instVarOffsetOf:'comment')
+!
 flags
 |flags amount|
 flags := self flagsSlot.
 amount := -1.
 ^ flags bitShift:amount.
 !
 flagsSlot
-^ self at:(Class instVarOffsetOf:'flags')!
+^ self at:(Class instVarOffsetOf:'flags')
+!
 instSize
 |instSizeRef|
 instSizeRef := self instSizeSlot.
-^ memory fetchObjectAt:instSizeRef.!
+^ memory fetchObjectAt:instSizeRef.
+!
 instSizeSlot
-^ self at:(Class instVarOffsetOf:'instSize')!
+^ self at:(Class instVarOffsetOf:'instSize')
+!
 instVarNames
 |instVarNamesRef instVarNames s|
 instVarNamesRef := self instVarsSlot.
 s := memory fetchStringFor:s.
 instVarNames at:idx put:s.
 ].
 ].
 ].
-^ instVarNames ? #()!
+^ instVarNames ? #()
+!
 instVarsSlot
 ^ self at:6
 !
 ].
 ^ methodDictionary
 !
 methodDictionarySlot
-^ self at:(Class instVarOffsetOf:'methodDictionary')!
+^ self at:(Class instVarOffsetOf:'methodDictionary')
+!
 name
 |nameRef name|
 self isMeta ifTrue:[
 ].
 ^ name
 !
 nameSlot
-^ self at:(Class instVarOffsetOf:'name')!
+^ self at:(Class instVarOffsetOf:'name')
+!
 packageSlot
-^ self at:(Class instVarOffsetOf:'package')!
+^ self at:(Class instVarOffsetOf:'package')
+!
 primitiveSpec
 |primitiveSpecRef primitiveSpec|
 primitiveSpecRef := self primitiveSpecSlot.
 ].
 ^ primitiveSpec
 !
 primitiveSpecSlot
-^ self at:(Class instVarOffsetOf:'primitiveSpec')!
+^ self at:(Class instVarOffsetOf:'primitiveSpec')
+!
 revision
 |revisionRef revision|
 revisionRef := self revisionSlot.
 revisionRef := memory fetchObjectAt:revisionRef.
 ].
 revisionRef notNil ifTrue:[
 revision := memory fetchStringFor:revisionRef.
 ].
-^ revision!
+^ revision
+!
 revisionSlot
 ^ self at:14
 !
 superclass addAllClassVarNamesTo:aCollection
 ].
 (classvars := self classVariableString) notNil ifTrue:[
 aCollection addAll:(classvars asCollectionOfWords).
 ].
-^ aCollection!
+^ aCollection
+!
 addAllInstVarNamesTo:aCollection
 |superInsts instvars superclass|
 (superclass := self superclass) notNil ifTrue:[
 self superclass addAllInstVarNamesTo:aCollection
 ].
 aCollection addAll:self instVarNames.
-^ aCollection!
+^ aCollection
+!
-addChangeRecordForClassFileOut:aClass!
+addChangeRecordForClassFileOut:aClass
+!
 allClassVarNames
 "return a collection of all the class variable name-strings
 this includes all superclass-class variables"
-^ self addAllClassVarNamesTo:(OrderedCollection new)!
+^ self addAllClassVarNamesTo:(OrderedCollection new)
+!
 allInstVarNames
 self superclass isNil ifTrue:[^ self instVarNames].
-^ self addAllInstVarNamesTo:(OrderedCollection new)!
+^ self addAllInstVarNamesTo:(OrderedCollection new)
+!
 allSubclassesDo:aBlock
 "evaluate aBlock for all of my subclasses.
 There is no specific order, in which the entries are enumerated.
 Warning:
 ].
 ^ aCollection
 "
 String allSuperclasses
-"!
+"
+!
 allSuperclassesDo:aBlock
 "evaluate aBlock for all of my superclasses"
 |theClass|
 "append an expression on aStream, which defines myself."
 self
 basicFileOutDefinitionOn:aStream
 withNameSpace:forceNameSpace
-withPackage:true!
+withPackage:true
+!
 basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace withPackage:showPackage
 "append an expression on aStream, which defines myself."
 |s owner ns nsName fullName superName cls topOwner
 ].
 aStream cr
 "Created: / 4.1.1997 / 20:38:16 / cg"
 "Modified: / 8.8.1997 / 10:59:50 / cg"
-"Modified: / 18.3.1999 / 18:15:46 / stefan"!
+"Modified: / 18.3.1999 / 18:15:46 / stefan"
+!
 basicFileOutInstvarTypeKeywordOn:aStream
 "a helper for fileOutDefinition"
 |isVar s superclass|
 SystemBrowser browseClasses:classes title:'classes which are not up-to-date'
 "
 "Created: 7.12.1995 / 10:58:47 / cg"
 "Modified: 1.4.1997 / 23:33:01 / stefan"
-"Modified: 9.9.1997 / 12:05:41 / cg"!
+"Modified: 9.9.1997 / 12:05:41 / cg"
+!
 compiledMethodAt:aSelector
 ^ self compiledMethodAt:aSelector ifAbsent:nil
 !
 "/     applied again
 "/    "
 "/    self addChangeRecordForClassFileOut:self
 "Modified: / 7.6.1996 / 09:14:43 / stefan"
-"Modified: / 27.8.1998 / 02:02:57 / cg"!
+"Modified: / 27.8.1998 / 02:02:57 / cg"
+!
 fileOutAllDefinitionsOn:aStream
 "append expressions on aStream, which defines myself and all of my private classes."
 self fileOutDefinitionOn:aStream.
 aClass fileOutAllDefinitionsOn:aStream
 ]
 ].
 "Created: 15.10.1996 / 11:15:19 / cg"
-"Modified: 22.3.1997 / 16:11:56 / cg"!
+"Modified: 22.3.1997 / 16:11:56 / cg"
+!
 fileOutAs:fileNameString
 "create a file consisting of all methods in myself in
 sourceForm, from which the class can be reconstructed (by filing in).
 The given fileName should be a full path, including suffix.
 "
 self addChangeRecordForClassFileOut:self
 "Modified: / 7.6.1996 / 09:14:43 / stefan"
 "Created: / 16.4.1997 / 20:44:05 / cg"
-"Modified: / 12.8.1998 / 11:14:56 / cg"!
+"Modified: / 12.8.1998 / 11:14:56 / cg"
+!
 fileOutCategory:aCategory
 "create a file 'class-category.st' consisting of all methods in aCategory.
 If the current project is not nil, create the file in the projects
 directory."
 self fileOutCategory:aCategory on:aStream.
 aStream close
 "Modified: / 1.4.1997 / 16:00:24 / stefan"
 "Created: / 1.4.1997 / 16:04:18 / stefan"
-"Modified: / 28.10.1997 / 14:40:28 / cg"!
+"Modified: / 28.10.1997 / 14:40:28 / cg"
+!
 fileOutCategory:aCategory except:skippedMethods only:savedMethods methodFilter:methodFilter on:aStream
 |dict source sortedSelectors first privacy interestingMethods cat|
 dict := self methodDictionary.
 ]
 "Modified: 28.8.1995 / 14:30:41 / claus"
 "Modified: 12.6.1996 / 11:37:33 / stefan"
 "Modified: 15.11.1996 / 11:32:21 / cg"
-"Created: 1.4.1997 / 16:04:33 / stefan"!
+"Created: 1.4.1997 / 16:04:33 / stefan"
+!
 fileOutCategory:aCategory methodFilter:methodFilter on:aStream
 "file out all methods belonging to aCategory, aString onto aStream"
-self fileOutCategory:aCategory except:nil only:nil methodFilter:methodFilter on:aStream!
+self fileOutCategory:aCategory except:nil only:nil methodFilter:methodFilter on:aStream
+!
 fileOutCategory:aCategory on:aStream
 Class fileOutNameSpaceQuerySignal answer:true do:[
 self fileOutCategory:aCategory except:nil only:nil methodFilter:nil on:aStream
-]!
+]
+!
 fileOutClassInstVarDefinitionOn:aStream withNameSpace:withNameSpace
 "append an expression to define my classInstanceVariables on aStream"
 |anySuperClassInstVar|
 !
 fileOutDefinitionOn:aStream
 "append an expression on aStream, which defines myself."
-^ self basicFileOutDefinitionOn:aStream withNameSpace:false!
+^ self basicFileOutDefinitionOn:aStream withNameSpace:false
+!
 fileOutMethod:aMethod
 |aStream fileName selector|
 selector := self selectorAtMethod:aMethod.
 aStream close
 ]
 "Modified: / 1.4.1997 / 16:00:57 / stefan"
 "Created: / 2.4.1997 / 00:24:28 / stefan"
-"Modified: / 28.10.1997 / 14:40:34 / cg"!
+"Modified: / 28.10.1997 / 14:40:34 / cg"
+!
 fileOutMethod:aMethod on:aStream
 |dict cat source privacy|
 dict := self methodDictionary.
 ]
 "Modified: 27.8.1995 / 01:23:19 / claus"
 "Modified: 12.6.1996 / 11:44:41 / stefan"
 "Modified: 15.11.1996 / 11:32:43 / cg"
-"Created: 2.4.1997 / 00:24:33 / stefan"!
+"Created: 2.4.1997 / 00:24:33 / stefan"
+!
 fileOutOn:aStream
-^ self fileOutOn:aStream withTimeStamp:true!
+^ self fileOutOn:aStream withTimeStamp:true
+!
 fileOutOn:aStream withTimeStamp:stampIt
 "file out my definition and all methods onto aStream.
 If stampIt is true, a timeStamp comment is prepended."
-self fileOutOn:aStream withTimeStamp:stampIt withInitialize:true!
+self fileOutOn:aStream withTimeStamp:stampIt withInitialize:true
+!
 fileOutOn:aStream withTimeStamp:stampIt withInitialize:initIt
 "file out my definition and all methods onto aStream.
 If stampIt is true, a timeStamp comment is prepended.
 If initIt is true, and the class implements a class-initialize method,
 self
 fileOutOn:aStream
 withTimeStamp:stampIt
 withInitialize:initIt
 withDefinition:true
-methodFilter:nil!
+methodFilter:nil
+!
 fileOutOn:aStream withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter
 "file out my definition and all methods onto aStream.
 If stampIt is true, a timeStamp comment is prepended.
 If initIt is true, and the class implements a class-initialize method,
 ]
 ]
 "Created: / 15.11.1995 / 12:53:06 / cg"
 "Modified: / 1.4.1997 / 16:01:05 / stefan"
-"Modified: / 13.3.1998 / 12:23:59 / cg"!
+"Modified: / 13.3.1998 / 12:23:59 / cg"
+!
 fileOutPrimitiveDefinitionsOn:aStream
 "append primitive defs (if any) to aStream."
 |s|
 cr.
 aStream nextPutAll:s.
 aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
 ].
-"Modified: 8.1.1997 / 17:45:40 / cg"!
+"Modified: 8.1.1997 / 17:45:40 / cg"
+!
 fileOutPrimitiveSpecsOn:aStream
 "append primitive defs (if any) to aStream."
 |s|
 cr.
 aStream nextPutAll:s.
 aStream nextPutChunkSeparator; space; nextPutChunkSeparator; cr; cr
 ].
-"Modified: 8.1.1997 / 17:45:51 / cg"!
+"Modified: 8.1.1997 / 17:45:51 / cg"
+!
 firstDefinitionSelectorPart
 "return the first part of the selector with which I was (can be) defined in my superclass"
 self isVariable ifFalse:[
 ].
 ^ nil
 ].
 ^ pos
-"Modified: 15.1.1997 / 15:29:30 / stefan"!
+"Modified: 15.1.1997 / 15:29:30 / stefan"
+!
 hasMethods
 "return true, if there are any (local) methods in this class"
-^ (self methodDictionary size ~~ 0)!
+^ (self methodDictionary size ~~ 0)
+!
 implements:aSelector
-^ self includesSelector:aSelector!
+^ self includesSelector:aSelector
+!
 includesSelector:aSelector
-^ self methodDictionary includesKey:aSelector!
+^ self methodDictionary includesKey:aSelector
+!
 instanceVariableString
 "return a string of the instance variable names"
 |instvars|
 [theClass notNil] whileTrue:[
 (theClass == aClass) ifTrue:[^ true].
 theClass := theClass superclass.
 ].
 ^ false
+!
+localSourceStreamFor:sourceFile
+"return an open stream on a local sourcefile, nil if that is not available"
+|fileName info module dir fn package packageDir zar entry|
+"/
+"/ old: look in 'source/<filename>'
+"/ this is still kept in order to find user-private
+"/ classes in her currentDirectory.
+"/
+fileName := Smalltalk getSourceFileName:sourceFile.
+fileName notNil ifTrue:[
+^ fileName asFilename readStream.
+].
+(package := self package) notNil ifTrue:[
+"/ newest sceme ...
+packageDir := package copyReplaceAll:$: with:$/.
+packageDir := Smalltalk getPackageFileName:packageDir.
+packageDir notNil ifTrue:[
+"/ present there ?
+packageDir := packageDir asFilename.
+(fn := packageDir construct:sourceFile) exists ifTrue:[
+^ fn readStream.
+].
+"/ a source subdirectory ?
+fn := (packageDir construct:'source') construct:sourceFile.
+fn exists ifTrue:[
+^ fn readStream.
+].
+"/ a zip-file ?
+fn := (packageDir construct:'source.zip').
+fn exists ifTrue:[
+zar := ZipArchive oldFileNamed:fn.
+zar notNil ifTrue:[
+entry := zar extract:sourceFile.
+entry notNil ifTrue:[
+^ entry asString readStream
+]
+]
+]
+].
+"/ will vanish ...
+(package includes:$:) ifTrue:[
+package := package asString copyReplaceAll:$: with:$/
+] ifFalse:[
+package := 'stx/' , package
+].
+fileName := Smalltalk getSourceFileName:(package , '/' , sourceFile).
+fileName notNil ifTrue:[
+^ fileName asFilename readStream.
+].
+(package startsWith:'stx/') ifTrue:[
+fileName := Smalltalk getSourceFileName:((package copyFrom:5) , '/' , sourceFile).
+fileName notNil ifTrue:[
+^ fileName asFilename readStream.
+]
+]
+].
+"/
+"/ new: look in 'source/<module>/<package>/<filename>
+"/ this makes the symbolic links to (or copy of) the source files
+"/ obsolete.
+info := self packageSourceCodeInfo.
+info notNil ifTrue:[
+module := info at:#module ifAbsent:nil.
+module notNil ifTrue:[
+dir := info at:#directory ifAbsent:nil.
+dir notNil ifTrue:[
+fn := (module asFilename construct:dir) construct:sourceFile.
+fileName := Smalltalk getSourceFileName:(fn name).
+fileName notNil ifTrue:[
+^ fileName asFilename readStream.
+].
+"/ brand new: look for source/<module>/package.zip
+"/ containing an entry for <filename>
+fn := (module asFilename construct:dir) withSuffix:'zip'.
+fileName := Smalltalk getSourceFileName:(fn name).
+fileName notNil ifTrue:[
+zar := ZipArchive oldFileNamed:fileName.
+zar notNil ifTrue:[
+entry := zar extract:sourceFile.
+entry notNil ifTrue:[
+^ entry asString readStream
+]
+]
+].
+"/ and also in source/source.zip ...
+fileName := Smalltalk getSourceFileName:'source.zip'.
+fileName notNil ifTrue:[
+zar := ZipArchive oldFileNamed:fileName.
+zar notNil ifTrue:[
+entry := zar extract:sourceFile.
+entry notNil ifTrue:[
+^ entry asString readStream
+]
+]
+].
+]
+]
+].
+^ nil
+"Modified: / 18.7.1998 / 22:53:19 / cg"
 !
 nameWithoutNameSpacePrefix
 |nm owner|
 MemoryMonitor packageSourceCodeInfo
 ClockView packageSourceCodeInfo
 "
 "Created: 4.11.1995 / 20:36:53 / cg"
-"Modified: 19.9.1997 / 10:42:25 / cg"!
+"Modified: 19.9.1997 / 10:42:25 / cg"
+!
 primitiveDefinitionsString
 "{ Pragma: +optSpace }"
 "return the primitiveDefinition string or nil"
 ^ self getPrimitiveSpecsAt:1
 "
 Object primitiveDefinitionsString
 String primitiveDefinitionsString
-"!
+"
+!
 primitiveFunctionsString
 "{ Pragma: +optSpace }"
 "return the primitiveFunctions string or nil"
-^ self getPrimitiveSpecsAt:3!
+^ self getPrimitiveSpecsAt:3
+!
 primitiveVariablesString
 "{ Pragma: +optSpace }"
 "return the primitiveVariables string or nil"
-^ self getPrimitiveSpecsAt:2!
+^ self getPrimitiveSpecsAt:2
+!
 printClassNameOn:aStream
 |nm|
 Class fileOutNameSpaceQuerySignal query == false ifTrue:[
 nm := self nameWithoutNameSpacePrefix
 ] ifFalse:[
 nm := self name.
 ].
-aStream nextPutAll:nm.!
+aStream nextPutAll:nm.
+!
 printClassVarNamesOn:aStream indent:indent
 "print the class variable names indented and breaking at line end"
 self printNameArray:(self classVarNames) on:aStream indent:indent
 "{ Pragma: +optSpace }"
 "return a collection of my private classes (if any).
 The classes are in any order."
-^ self privateClassesOrAll:false!
+^ self privateClassesOrAll:false
+!
 privateClassesAt:aClassNameStringOrSymbol
 |nmSym|
 nmSym := (self name , '::' , aClassNameStringOrSymbol) asSymbolIfInterned.
 "
 UILayoutTool privateClassesOrAll:true
 UILayoutTool privateClassesOrAll:false
 "
-"Modified: / 29.5.1998 / 23:23:18 / cg"!
+"Modified: / 29.5.1998 / 23:23:18 / cg"
+!
 privateClassesSorted
 "{ Pragma: +optSpace }"
 "return a collection of my private classes (if any).
 "
 Object privateClassesSorted
 "
 "Created: 22.3.1997 / 16:10:42 / cg"
-"Modified: 22.3.1997 / 16:11:20 / cg"!
+"Modified: 22.3.1997 / 16:11:20 / cg"
+!
 revisionInfo
 "return a dictionary filled with revision info.
 This extracts the relevant info from the revisionString.
 The revisionInfo contains all or a subset of:
 ].
 info notNil ifTrue:[
 info at:#binaryRevision put:self binaryRevision.
 ]
 ].
-^ info!
+^ info
+!
 revisionString
 "{ Pragma: +optSpace }"
 "return my revision string; that one is extracted from the
 Metaclass revisionString
 "
 "Created: 29.10.1995 / 19:28:03 / cg"
 "Modified: 23.10.1996 / 18:23:56 / cg"
-"Modified: 1.4.1997 / 23:37:25 / stefan"!
+"Modified: 1.4.1997 / 23:37:25 / stefan"
+!
 selectorAtMethod:aMethod
-^ self selectorAtMethod:aMethod ifAbsent:[nil]!
+^ self selectorAtMethod:aMethod ifAbsent:[nil]
+!
 selectorAtMethod:aMethod ifAbsent:failBlock
 |md|
 md := self methodDictionary.
 md isNil ifTrue:[
 'OOPS - nil methodDictionary' errorPrintCR.
 ^ nil
 ].
-^ md keyAtValue:aMethod ifAbsent:failBlock.!
+^ md keyAtValue:aMethod ifAbsent:failBlock.
+!
 soleInstance
 self isMeta ifFalse:[self halt].
 ^ self theNonMetaclass.
 !
 ^ Object syntaxHighlighterClass
 !
 theMetaclass
 self isMeta ifTrue:[^ self].
-^ self classRef.!
+^ self classRef.
+!
 theNonMetaclass
 |instSlotOffs clsPtr|
 self isMeta ifFalse:[^ self].
 validateSourceStream:aStream
 "check if aStream really contains my source.
 This is done by checking the version methods return value
 against the version string as contained in the version method"
-^ true!
+^ true
+!
 withAllSuperclasses
 "return a collection containing the receiver and all
 of the receivers accumulated superclasses"
 ].
 ^ aCollection
 "
 String withAllSuperclasses
-"!
+"
+!
 withAllSuperclassesDo:aBlock
 |sc|
 aBlock value:self.
 ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagLongs.
 !
 isMeta
 ^ self size == (Metaclass instSize).
-"/    ^ classRef classRef name = 'Metaclass'!
+"/    ^ classRef classRef name = 'Metaclass'
+!
 isPrivate
 ^ classRef isPrivateMeta
 !
 isVariable
 ^ (self flags bitAnd:Behavior maskIndexType) ~= 0.
 !
 isVisualStartable
-^ false!
+^ false
+!
 isWords
 ^ (self flags bitAnd:Behavior maskIndexType) == Behavior flagWords.
 !
 wasAutoloaded
 ^ false
 ! !
+!SnapShotImageMemory::SpaceInfo methodsFor:'accessing'!
+end
+"return the value of the instance variable 'end' (automatically generated)"
+^ end
+!
+end:something
+"set the value of the instance variable 'end' (automatically generated)"
+end := something.
+!
+flags
+"return the value of the instance variable 'flags' (automatically generated)"
+^ flags
+!
+flags:something
+"set the value of the instance variable 'flags' (automatically generated)"
+flags := something.
+!
+imageBase
+"return the value of the instance variable 'imageBase' (automatically generated)"
+^ imageBase
+!
+imageBase:something
+"set the value of the instance variable 'imageBase' (automatically generated)"
+imageBase := something.
+!
+size
+"return the value of the instance variable 'size' (automatically generated)"
+^ size
+!
+size:something
+"set the value of the instance variable 'size' (automatically generated)"
+size := something.
+!
+start
+"return the value of the instance variable 'start' (automatically generated)"
+^ start
+!
+start:something
+"set the value of the instance variable 'start' (automatically generated)"
+start := something.
+! !
 !SnapShotImageMemory::ImageByteObject methodsFor:'queries'!
 size
 ^ byteSize
 ! !

changeset 1440	f3eda2f72399
parent 1423	5bb61f51152d
child 1448	42ec8770d09f