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.
make sourceCache rwx-able for all
authorClaus Gittinger <cg@exept.de>
Tue, 09 Jan 1996 15:33:49 +0100
changeset 173 d73d61190510
parent 172 cf44aece60d4
child 174 9c623b53c784
make sourceCache rwx-able for all
AbstrSCMgr.st file | annotate | diff | comparison | revisions
AbstractSourceCodeManager.st file | annotate | diff | comparison | revisions 
--- a/AbstrSCMgr.st	Sat Jan 06 19:23:58 1996 +0100
+++ b/AbstrSCMgr.st	Tue Jan 09 15:33:49 1996 +0100
@@ -267,13 +267,21 @@
     (nm := self cacheDirectoryName) isNil ifTrue:[^ nil].
 
     (dir := nm asFilename) exists ifFalse:[
-	dir makeDirectory.
-	dir asFilename exists ifFalse:[
-	    'SOURCEMGR: could not create cache dir ''' , CacheDirectoryName , '''' infoPrintNL.
-	    ^ nil
-	].
+        dir makeDirectory.
+        dir exists ifFalse:[
+            'SOURCEMGR: could not create cache dir ''' , CacheDirectoryName , '''' infoPrintNL.
+            ^ nil
+        ].
+        "/
+        "/ make it read/writable for everyone
+        "/
+        dir makeReadableForAll.
+        dir makeWritableForAll.
+        dir makeExecutableForAll.
     ].
     ^ dir
+
+    "Modified: 9.1.1996 / 15:33:27 / cg"
 !
 
 sourceInfoOfClass:aClass
@@ -819,6 +827,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.39 1995-12-17 15:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/AbstrSCMgr.st,v 1.40 1996-01-09 14:33:49 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
--- a/AbstractSourceCodeManager.st	Sat Jan 06 19:23:58 1996 +0100
+++ b/AbstractSourceCodeManager.st	Tue Jan 09 15:33:49 1996 +0100
@@ -267,13 +267,21 @@
     (nm := self cacheDirectoryName) isNil ifTrue:[^ nil].
 
     (dir := nm asFilename) exists ifFalse:[
-	dir makeDirectory.
-	dir asFilename exists ifFalse:[
-	    'SOURCEMGR: could not create cache dir ''' , CacheDirectoryName , '''' infoPrintNL.
-	    ^ nil
-	].
+        dir makeDirectory.
+        dir exists ifFalse:[
+            'SOURCEMGR: could not create cache dir ''' , CacheDirectoryName , '''' infoPrintNL.
+            ^ nil
+        ].
+        "/
+        "/ make it read/writable for everyone
+        "/
+        dir makeReadableForAll.
+        dir makeWritableForAll.
+        dir makeExecutableForAll.
     ].
     ^ dir
+
+    "Modified: 9.1.1996 / 15:33:27 / cg"
 !
 
 sourceInfoOfClass:aClass
@@ -819,6 +827,6 @@
 !AbstractSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.39 1995-12-17 15:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.40 1996-01-09 14:33:49 cg Exp $'
 ! !
 AbstractSourceCodeManager initialize!
hg/stx-libbasic3