Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fixed tempdir setup for win32
authorClaus Gittinger <cg@exept.de>
Fri, 09 Jul 1999 17:03:46 +0200
changeset 792 901f03b078db
parent 791 0b15bb280608
child 793 de39ed96ff08
fixed tempdir setup for win32
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Fri Jul 09 17:02:16 1999 +0200
+++ b/AbstrSCMgr.st	Fri Jul 09 17:03:46 1999 +0200
@@ -66,11 +66,19 @@
         path isNil ifTrue:[
             path := OperatingSystem getEnvironment:'TMPDIR'.
             path isNil ifTrue:[
-                path := '/tmp'
+                OperatingSystem isMSWINDOWSlike ifTrue:[
+                    path := 'c:\windows\temp'
+                ] ifFalse:[
+                    path := '/tmp'
+                ]
             ]
         ]
     ].
-    CacheDirectoryName := path , '/stx_sourceCache'.
+    CacheDirectoryName := (path asFilename constructString:'stx_sourceCache').
+
+    "
+     self initCacheDirPath
+    "
 
     "Modified: 12.9.1996 / 02:27:48 / cg"
 !
@@ -1146,7 +1154,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.95 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.96 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1482,6 +1490,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.95 1999-06-08 21:04:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.96 1999-07-09 15:03:46 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Fri Jul 09 17:02:16 1999 +0200
+++ b/AbstractSourceCodeManager.st	Fri Jul 09 17:03:46 1999 +0200
@@ -66,11 +66,19 @@
         path isNil ifTrue:[
             path := OperatingSystem getEnvironment:'TMPDIR'.
             path isNil ifTrue:[
-                path := '/tmp'
+                OperatingSystem isMSWINDOWSlike ifTrue:[
+                    path := 'c:\windows\temp'
+                ] ifFalse:[
+                    path := '/tmp'
+                ]
             ]
         ]
     ].
-    CacheDirectoryName := path , '/stx_sourceCache'.
+    CacheDirectoryName := (path asFilename constructString:'stx_sourceCache').
+
+    "
+     self initCacheDirPath
+    "
 
     "Modified: 12.9.1996 / 02:27:48 / cg"
 !
@@ -1146,7 +1154,7 @@
     ^ nil
 
     "
-     SourceCodeManager revisionInfoFromString:'$Revision: 1.95 $'
+     SourceCodeManager revisionInfoFromString:'$Revision: 1.96 $'
      SourceCodeManager revisionInfoFromString:(SourceCodeManager version)
     "
 
@@ -1482,6 +1490,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.95 1999-06-08 21:04:30 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.96 1999-07-09 15:03:46 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3