--- a/STXInstaller.st Mon Jul 22 11:47:54 1996 +0200
+++ b/STXInstaller.st Tue Sep 03 13:50:53 1996 +0200
@@ -25,9 +25,19 @@
dirs add:'/usr/bin'.
dirs add:(Filename homeDirectory constructString:'bin').
dirs add:'/tmp/stxbin'.
- dirs add:'/home/stx/bin'.
- dirs add:'/home2/stx/bin'.
- ^ dirs
+ ('/home' asFilename exists and:['/home' asFilename isDirectory]) ifTrue:[
+ dirs add:'/home/stx/bin'.
+ ].
+ ('/home2' asFilename exists and:['/home2' asFilename isDirectory]) ifTrue:[
+ dirs add:'/home2/stx/bin'.
+ ].
+
+"/ dirs := dirs select:[:path |
+"/ |f|
+"/
+"/ f := path asFilename.
+"/ f exists and:[f isDirectory]].
+ ^ dirs sort
"Created: 18.7.1996 / 19:43:00 / cg"
"Modified: 18.7.1996 / 19:45:08 / cg"
@@ -45,7 +55,13 @@
dirs add:'/tmp/stxlib'.
dirs add:'/home/stx/lib'.
dirs add:'/home2/stx/lib'.
- ^ dirs
+
+"/ dirs := dirs select:[:path |
+"/ |f|
+"/
+"/ f := path asFilename.
+"/ f exists and:[f isDirectory]].
+ ^ dirs sort
"Created: 18.7.1996 / 19:43:21 / cg"
"Modified: 18.7.1996 / 19:46:04 / cg"