STXInstaller.st
changeset 25 42ee3e7ced09
parent 24 2b61cca30b01
child 26 6975669b213b
--- a/STXInstaller.st	Fri Sep 20 11:24:51 1996 +0200
+++ b/STXInstaller.st	Tue Oct 01 15:21:10 1996 +0200
@@ -1,5 +1,3 @@
-'From Smalltalk/X, Version:2.10.9 on 20-sep-1996 at 11:23:45'                   !
-
 Object subclass:#STXInstaller
 	instanceVariableNames:'stxLibDir stxLibBinDir stxBinDir installDocFiles
 		installSourceFiles installSTCFiles installGoodyFiles
@@ -385,6 +383,7 @@
         self checkForExistingInstallationAndConfirm ifFalse:[
             ^ self
         ].
+        self preInstall.
         self doInstall ifTrue:[
             self postInstall.
             ^ self
@@ -715,6 +714,25 @@
     "
 
     "Modified: 18.7.1996 / 22:10:42 / cg"
+!
+
+preInstall
+    "clobber the doc directory, to avoid copying cyclic symbolic links"
+
+    |f|
+
+    f := '../../doc/online/english/german' asFilename.
+    f exists ifTrue:[
+        f isSymbolicLink ifTrue:[
+            OperatingSystem executeCommand:'(cd ../../doc/online; make clobber) >/dev/null 2>/dev/null'
+        ]
+    ]
+
+    "
+     STXInstaller new preInstall
+    "
+
+    "Modified: 18.7.1996 / 22:10:42 / cg"
 ! !
 
 !STXInstaller  class methodsFor:'documentation'!