5098 |
5098 |
5099 "Modified: 17.9.1995 / 16:33:02 / claus" |
5099 "Modified: 17.9.1995 / 16:33:02 / claus" |
5100 "Modified: 22.4.1997 / 23:42:59 / cg" |
5100 "Modified: 22.4.1997 / 23:42:59 / cg" |
5101 ! |
5101 ! |
5102 |
5102 |
5103 fullBinaryModuleInfo |
|
5104 "return a full collection of moduleInfo entries. |
|
5105 This returns a dictionary (keys are component names) |
|
5106 with one entry for each sub-component in all binary packages." |
|
5107 |
|
5108 |modules| |
|
5109 |
|
5110 modules := IdentityDictionary new. |
|
5111 self allBinaryModulesDo:[:entry | |
|
5112 |infoEntry |
|
5113 id name type libName subModuleName module dynamic pathName t| |
|
5114 |
|
5115 id := entry at:1. |
|
5116 subModuleName := (entry at:2) asSymbol. |
|
5117 libName := (entry at:4). |
|
5118 t := Timestamp fromOSTime:((entry at:5) * 1000). |
|
5119 |
|
5120 id > 0 ifTrue:[ |
|
5121 dynamic := true. |
|
5122 ] ifFalse:[ |
|
5123 dynamic := false. |
|
5124 ]. |
|
5125 libName isNil ifTrue:[ |
|
5126 type := #classObject |
|
5127 ] ifFalse:[ |
|
5128 type := #classLibrary |
|
5129 ]. |
|
5130 |
|
5131 "/ ... new: |
|
5132 infoEntry := BinaryModuleDescriptor |
|
5133 name:nil |
|
5134 type:type |
|
5135 id:id |
|
5136 dynamic:dynamic |
|
5137 classNames:(Array with:subModuleName) |
|
5138 pathName:nil |
|
5139 libraryName:libName |
|
5140 timeStamp:t. |
|
5141 |
|
5142 modules at:subModuleName put:infoEntry. |
|
5143 ]. |
|
5144 ^ modules |
|
5145 |
|
5146 " |
|
5147 ObjectMemory fullBinaryModuleInfo |
|
5148 " |
|
5149 |
|
5150 "Modified: 30.8.1995 / 17:29:30 / claus" |
|
5151 "Modified: 31.10.1996 / 13:58:44 / cg" |
|
5152 ! |
|
5153 |
|
5154 getVMIdentificationStrings |
5103 getVMIdentificationStrings |
5155 "return a collection of release strings giving information |
5104 "return a collection of release strings giving information |
5156 about the running VM. This is for configuration management only. |
5105 about the running VM. This is for configuration management only. |
5157 Do not depend on the information returned - this may |
5106 Do not depend on the information returned - this may |
5158 change or vanish without notice." |
5107 change or vanish without notice." |