'From Squeak3.1alpha of 28 February 2001 [latest update: #3956] on 1 May 2001 at 6:22:54 pm'! "Change Set: sysVerPrint Date: 1 May 2001 Author: Michael Rueger Fixes a glitch in the generation of version strings."! !Interpreter class methodsFor: 'translation' stamp: 'mir 5/1/2001 18:22'! declareCVarsIn: aCCodeGenerator aCCodeGenerator var: #interpreterProxy type: #'struct VirtualMachine*'. aCCodeGenerator var: #methodCache declareC: 'int methodCache[', (MethodCacheSize + 1) printString, ']'. aCCodeGenerator var: #atCache declareC: 'int atCache[', (AtCacheTotalSize + 1) printString, ']'. aCCodeGenerator var: #localIP type: #'char*'. aCCodeGenerator var: #localSP type: #'char*'. aCCodeGenerator var: 'semaphoresToSignalA' declareC: 'int semaphoresToSignalA[', (SemaphoresToSignalSize + 1) printString, ']'. aCCodeGenerator var: 'semaphoresToSignalB' declareC: 'int semaphoresToSignalB[', (SemaphoresToSignalSize + 1) printString, ']'. aCCodeGenerator var: #compilerHooks declareC: 'int (*compilerHooks[', (CompilerHooksSize + 1) printString, '])()'. aCCodeGenerator var: #interpreterVersion declareC: 'const char *interpreterVersion = "', Smalltalk datedVersion, ' [', Smalltalk lastUpdateString,']"'. aCCodeGenerator var: #obsoleteIndexedPrimitiveTable declareC: 'char* obsoleteIndexedPrimitiveTable[][3] = ', self obsoleteIndexedPrimitiveTableString. aCCodeGenerator var: #obsoleteNamedPrimitiveTable declareC: 'const char* obsoleteNamedPrimitiveTable[][3] = ', self obsoleteNamedPrimitiveTableString. aCCodeGenerator var: #externalPrimitiveTable declareC: 'int externalPrimitiveTable[', (MaxExternalPrimitiveTableSize + 1) printString, ']'. ! ! !SystemDictionary methodsFor: 'sources, change log' stamp: 'mir 5/1/2001 18:20'! datedVersion "Answer the version of this release." ^SystemVersion current datedVersion! ! !SystemDictionary methodsFor: 'sources, change log' stamp: 'mir 5/1/2001 18:02'! lastUpdateString "Smalltalk lastUpdateString" ^'latest update: #', SystemVersion current highestUpdate printString! ! !SystemDictionary methodsFor: 'sources, change log' stamp: 'mir 5/1/2001 18:19'! timeStamp: aStream "Writes system version and current time on stream aStream." | dateTime | dateTime _ Time dateAndTimeNow. aStream nextPutAll: 'From ', Smalltalk datedVersion, ' [', Smalltalk lastUpdateString, '] on ', (dateTime at: 1) printString, ' at ', (dateTime at: 2) printString! ! !SystemDictionary methodsFor: 'sources, change log' stamp: 'mir 5/1/2001 18:17'! version "Answer the version of this release." ^SystemVersion current version! ! !SystemVersion methodsFor: 'accessing' stamp: 'mir 5/1/2001 18:19'! datedVersion "Answer the version of this release." ^ self version asString , ' of ' , self date printString! ! !SystemVersion methodsFor: 'printing' stamp: 'mir 5/1/2001 18:20'! printOn: stream stream nextPutAll: self datedVersion; nextPutAll: ' update ' , self highestUpdate printString! ! SystemVersion removeSelector: #versionString!