--- a/UnixOperatingSystem.st Fri Feb 28 19:11:52 2003 +0100
+++ b/UnixOperatingSystem.st Sun Mar 02 19:30:03 2003 +0100
@@ -8330,35 +8330,35 @@
sysPath := super defaultSystemPath.
#(
- '/usr/local/lib/stx'
- '/usr/local/lib/smalltalk'
- '/usr/lib/stx'
- '/usr/lib/smalltalk'
- '/lib/stx'
- '/lib/smalltalk'
- '/opt/stx'
- '/opt/smalltalk'
+ '/usr/local/lib/stx'
+ '/usr/local/lib/smalltalk'
+ '/usr/lib/stx'
+ '/usr/lib/smalltalk'
+ '/lib/stx'
+ '/lib/smalltalk'
+ '/opt/stx'
+ '/opt/smalltalk'
) do:[:d |
- (d asFilename isDirectory) ifTrue:[
- "/ try to guess a gnu-smalltalk; skip it
- (d asFilename construct:'initialize.st') exists ifFalse:[
- releaseFile := d asFilename construct:'RELEASE'.
- releaseFile exists ifTrue:[
- s := releaseFile readStream.
- s notNil ifTrue:[
- v := Integer readFrom:s onError:-1.
- s close.
- v == majorVersionNr ifTrue:[
- sysPath add:d
- ] ifFalse:[
- ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE mismatch)') infoPrintCR.
- ]
- ] ifFalse:[
- ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE missing)') infoPrintCR.
- ]
- ]
- ]
- ]
+ (d asFilename isDirectory) ifTrue:[
+ "/ try to guess a gnu-smalltalk; skip it
+ (d asFilename construct:'initialize.st') exists ifFalse:[
+ releaseFile := d asFilename construct:'RELEASE'.
+ releaseFile exists ifTrue:[
+ s := releaseFile readStreamOrNil.
+ s notNil ifTrue:[
+ v := Integer readFrom:s onError:-1.
+ s close.
+ v == majorVersionNr ifTrue:[
+ sysPath add:d
+ ] ifFalse:[
+ ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE mismatch)') infoPrintCR.
+ ]
+ ] ifFalse:[
+ ('UnixOperatingSystem [info]: ignore files in ' , d asFilename pathName , ' (RELEASE missing)') infoPrintCR.
+ ]
+ ]
+ ]
+ ]
].
^ sysPath
@@ -12229,7 +12229,7 @@
!UnixOperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.144 2003-02-27 14:40:01 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UnixOperatingSystem.st,v 1.145 2003-03-02 18:28:50 stefan Exp $'
! !
UnixOperatingSystem initialize!