--- a/host.rc Wed Dec 21 13:30:17 2005 +0100
+++ b/host.rc Wed Dec 21 14:24:03 2005 +0100
@@ -149,29 +149,21 @@
Compiler ccCompilationOptions:'-O'.
includes := ''.
- ('../../include' asFilename exists) ifTrue:[
- "/ running in a development environment ...
- includes := includes , '-I../../include '.
- ].
incDir := Smalltalk getSystemFileName:'include'.
incDir notNil ifTrue:[
includes := includes , '-I' , incDir asFilename pathName , ' '
] ifFalse:[
- "/ running in a shared environment ...
- ('/usr/local/lib/smalltalk/include' asFilename exists) ifTrue:[
- includes := includes , '-I/usr/local/lib/smalltalk/include '.
+ ('../../../stx/include' asFilename exists) ifTrue:[
+ "/ running in a development environment ...
+ includes := includes , '-I../../../stx/include '.
] ifFalse:[
- ('/opt/smalltalk/include' asFilename exists) ifTrue:[
- includes := includes , '-I/opt/smalltalk/include '.
- ] ifFalse:[
- "/ if this is a production program, dont care for a warning
- (Smalltalk isStandAloneApp or:[Smalltalk isHeadless])
- ifFalse:[
- 'host.rc [warning]: no >>include<< directory found along your path.' infoPrintCR.
- 'host.rc [warning]: this will affect stc-compilation from within the browser.' infoPrintCR.
- ]
+ "/ if this is a production program, dont care for a warning
+ (Smalltalk isStandAloneApp or:[Smalltalk isHeadless])
+ ifFalse:[
+ 'host.rc [warning]: no >>include<< directory found along your path.' infoPrintCR.
+ 'host.rc [warning]: this might affect stc-compilation from within the browser.' infoPrintCR.
]
- ].
+ ]
].
Compiler stcCompilationIncludes:includes.
--- a/smalltalk.rc Wed Dec 21 13:30:17 2005 +0100
+++ b/smalltalk.rc Wed Dec 21 14:24:03 2005 +0100
@@ -97,10 +97,9 @@
"/ funny viewStyles, colors and stupid strings if wrong.
"/
-|path|
+|path pathOfSTXExecutable|
-'systemPath before: ' print.
-Smalltalk systemPath printCR.
+'systemPath before: ' print. Smalltalk systemPath printCR.
(path := OperatingSystem getEnvironment:'STX_SYSTEMPATH') notNil ifTrue:[
Smalltalk systemPath:(path asCollectionOfSubstringsSeparatedBy:$:)
@@ -113,27 +112,22 @@
('smalltalk.rc [info]: found gnu-smalltalk sources in ' , path , '; removed from systemPath.') infoPrintCR.
Smalltalk systemPath:(Smalltalk systemPath remove:path; yourself).
].
-].
-(Smalltalk systemPath includes:(OperatingSystem pathOfSTXExecutable asFilename directoryName)) ifFalse:[
- Smalltalk systemPath addFirst:(OperatingSystem pathOfSTXExecutable asFilename directoryName).
-].
+ pathOfSTXExecutable := OperatingSystem pathOfSTXExecutable asFilename directoryName.
+ (Smalltalk systemPath includes:pathOfSTXExecutable) ifFalse:[
+ Smalltalk systemPath addFirst:pathOfSTXExecutable.
+ ].
-'../../../stx/libbasic' asFilename exists ifTrue:[
- (Smalltalk systemPath includes:'../../../stx' asFilename pathName) ifFalse:[
- Smalltalk systemPath addFirst:'../../../stx' asFilename pathName.
- ]
+ "/ the current directory should always be first...
+ (Smalltalk systemPath includes:'.') ifTrue:[
+ Smalltalk systemPath remove:'.'.
+ ].
+ (Smalltalk systemPath includes:'.' asFilename pathName) ifTrue:[
+ Smalltalk systemPath remove:'.' asFilename pathName.
+ ].
+ Smalltalk systemPath addFirst:'.' asFilename pathName.
].
-"/ the current directory should always be first...
-(Smalltalk systemPath includes:'.') ifTrue:[
- Smalltalk systemPath remove:'.'.
-].
-(Smalltalk systemPath includes:'.' asFilename pathName) ifTrue:[
- Smalltalk systemPath remove:'.' asFilename pathName.
-].
-Smalltalk systemPath addFirst:'.' asFilename pathName.
-
(path := OperatingSystem getEnvironment:'STX_PACKAGEPATH') notNil ifTrue:[
Smalltalk packagePath:(path asCollectionOfSubstringsSeparatedBy:$:).
'smalltalk.rc [info]: setting packagePath from STX_PACKAGEPATH' printCR.
@@ -143,7 +137,7 @@
"/ only use the local packages.
"/
'../../../stx/projects/smalltalk' asFilename exists ifTrue:[
- Smalltalk packagePath removeAll; add:'../../..'.
+ Smalltalk packagePath removeAll; add:'../../..' asFilename pathName.
'smalltalk.rc [info]: setting packagePath for local operation' printCR.
].
@@ -151,10 +145,10 @@
"/ any additional local packages ?.
"/
'packages' asFilename exists ifTrue:[
- Smalltalk packagePath addFirst:'./packages'.
- "/ 'additional local packages' printCR.
+ (Smalltalk packagePath includes:'packages' asFilename pathName) ifFalse:[
+ Smalltalk packagePath addFirst:'packages' asFilename pathName.
+ ].
].
- "/ 'packagePath: ' print. Smalltalk packagePath printCR.
].
'systemPath: ' errorPrint. Smalltalk systemPath errorPrintCR.