~smalltalkers/cuis/base-dev

« back to all changes in this revision

Viewing changes to Cuis2.2/1-System-Support-SmalltalkSystemAccessors.slice/0001-Smalltalk(system-parts).alpha.st

  • Committer: Keith Hodges
  • Date: 2010-03-09 12:08:31 UTC
  • Revision ID: keith_hodges@yahoo.co.uk-20100309120831-n4ocm65j2xvomez8
Removed dot from version name

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
'
 
 
b'Launching from the initial script, and accessors for command line arguments.'
 
 
b"'!Smalltalk at: #SystemDictionary ifAbsent: [ "
 
 
b"\tself error: 'Expected class SystemDictionary is missing.' ].!"
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/7/2010 22:44'!commandLine "
 
 
b'\t^ self! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/8/2010 01:33'!fileIn"
 
 
b'\t^ ImporterFileIn new! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/8/2010 01:05'!fileOut"
 
 
b'\t^ ExporterFileOut! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/8/2010 01:16'!globals"
 
 
b'\t^ self! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/2/2010 22:59'!host"
 
 
b'\t^ self! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/2/2010 23:00'!organization"
 
 
b'\t^ SystemOrganization! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/2/2010 22:58'!query"
 
 
b'\t^ self! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/2/2010 23:00'!sourceCode"
 
 
b'\t^ SourceFiles! !'
 
 
b"!SystemDictionary methodsFor: 'system-accessors' stamp: 'kph 3/2/2010 22:59'!vm"
 
 
b'\t^ self! !'
 
 
b'Smalltalk at: #CuisParity ifAbsent: [ '
 
 
b'\tObject subclass: #CuisParity'
 
 
b"\t\tinstanceVariableNames: '' "
 
 
b"\t\tclassVariableNames: '' "
 
 
b"\t\tpoolDictionaries: '' "
 
 
b"\t\tcategory: 'Progress-Cuis2.2' ]. !"
 
 
b"!CuisParity class methodsFor: 'as yet unclassified' stamp: 'kph 3/8/2010 01:01'!slice1SmalltalkSystemAccessors"
 
 
b"\t<slice:  'Smalltalk(system-parts)' version: #alpha>"
 
 
b"\t<project: 'Cuis2.2' level: 1 series: 'System-Support-SmalltalkSystemAccessors' number: 1>"
 
 
b'"'
 
 
b'Launching from the initial script, and accessors for command line arguments.'
 
 
b'"'
 
 
b'\t'
 
 
b'\t^  [ :pkg |'
 
 
b'\t\t'
 
 
b'\t\tpkg stampComment.'
 
 
b'\t\t \t\t\t'
 
 
b'\t\tpkg requiresClass: SystemDictionary interface: #( ).'
2
0
                pkg systemProtocol: 'system-accessors'. 
3
1
                
 
 
b'\t].! !'
 
 
b'\\ No newline at end of file'