quotes around command if it includes spaces
authorpenk
Tue, 25 Feb 2003 20:43:38 +0100
changeset 1374 007700b61c9b
parent 1373 982b0546252f
child 1375 e6c119263aad
quotes around command if it includes spaces
ByteCodeCompiler.st
--- a/ByteCodeCompiler.st	Tue Feb 25 12:54:43 2003 +0100
+++ b/ByteCodeCompiler.st	Tue Feb 25 20:43:38 2003 +0100
@@ -811,13 +811,21 @@
     "return the path to the stc command for incremental method compilation, 
      or nil if not found."
 
-    |f|
+    |f cmd|
 
     STC notNil ifTrue:[
-	^ STC
+        cmd := STC
+    ] ifFalse:[
+        (f := self stcPathOf:'stc') notNil ifTrue:[
+            cmd := f
+        ] ifFalse:[
+            cmd := self stcPathOf:'demostc'
+        ]
     ].
-    (f := self stcPathOf:'stc') notNil ifTrue:[^ f].
-    ^ self stcPathOf:'demostc'
+    (cmd includes:Character space) ifTrue:[
+        cmd := '"' , cmd , '"'.
+    ].
+    ^cmd
 
     "
      Compiler stcPath:'../../stc/stc'
@@ -3820,7 +3828,7 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.210 2003-02-25 11:48:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.211 2003-02-25 19:43:38 penk Exp $'
 ! !
 
 ByteCodeCompiler initialize!