[patch] Patch for xi1.tcl

xtem-8.26-xi1.tcl.patch (text/plain), 3.22 KB, created by Chris Fairles on 2005-08-21 20:09:52 UTC

--- xi1.tcl	2004-06-29 07:08:30.000000000 -0400
+++ xi1.new.tcl	2005-08-21 22:59:55.000000000 -0400
@@ -20,6 +20,7 @@
 
 
 #----- installation proc's ----------------------------------------------------------------------------------------------
+proc XiCopy {to from}  {XiProtokoll "\tcopying file  $from -> $to"; exec cp $to $from}
 
 proc XiLinkSym {to from} {XiProtokoll "\tgenerating symbolic link  $from -> $to"; exec ln -s $to $from}
 
@@ -332,7 +333,7 @@
 } else {# must be updated
   if [file writable $BINPATH] {# update can be done
     XiProtokoll "\nInstallation of Shell script:  $BINPATH/xtem"
-    XiUnlink $BINPATH/xtem; XiLinkSym $INSTPATH/xtem/xtem $BINPATH/xtem
+    XiUnlink $BINPATH/xtem; XiCopy $INSTPATH/xtem/xtem $BINPATH/xtem
   } else {# needs update, but cannot be updated!
     XiProtokollEnd4 "\n$BINPATH/xtem [XiNotInstalledText]"
     XiProtokollEnd4 "\trm $BINPATH/xtem\n  ln -s $INSTPATH/xtem/xtem $BINPATH/xtem" ; XiProtokoll ""
@@ -348,7 +349,7 @@
   } else {# changecode must be updated
     if [file writable $BINPATH] {# update can be done
       XiProtokoll "\nInstallation of program:  $BINPATH/changecode"
-      XiUnlink $BINPATH/changecode; XiLinkSym $INSTPATH/xtem/changecode $BINPATH/changecode
+      XiUnlink $BINPATH/changecode; XiCopy $INSTPATH/xtem/changecode $BINPATH/changecode
     } else {# needs update, but cannot be updated!
       XiProtokollEnd4 "\n$BINPATH/changecode [XiNotInstalledText]"
       XiProtokollEnd4 "\trm $BINPATH/changecode\n  ln -s $INSTPATH/xtem/changecode $BINPATH/changecode"
@@ -368,7 +369,7 @@
   } else {# hyphen_show must be updated
     if [file writable $BINPATH] {# update can be done
       XiProtokoll "\nInstallation of program:  $BINPATH/hyphen_show"
-      XiUnlink $BINPATH/hyphen_show; XiLinkSym $INSTPATH/xtem/hyphen_show $BINPATH/hyphen_show
+      XiUnlink $BINPATH/hyphen_show; XiCopy $INSTPATH/xtem/hyphen_show $BINPATH/hyphen_show
     } else {# needs update, but cannot be updated!
       XiProtokollEnd4 "\n$BINPATH/hyphen_show [XiNotInstalledText]"
       XiProtokollEnd4 "\trm $BINPATH/hyphen_show\n  ln -s $INSTPATH/xtem/hyphen_show $BINPATH/hyphen_show"
@@ -388,7 +389,7 @@
 } else {# must be updated
   if [file writable $MANPATH] {# update can be done
     XiProtokoll "\nInstallation of man page:  $MANPATH/xtem.1"
-    XiUnlink $MANPATH/xtem.1; XiLinkSym $INSTPATH/xtem/xtem.1 $MANPATH/xtem.1
+    XiUnlink $MANPATH/xtem.1; XiCopy $INSTPATH/xtem/xtem.1 $MANPATH/xtem.1
   } else {# needs update, but cannot be updated!
     XiProtokollEnd4 "\n$MANPATH/xtem.1 [XiNotInstalledText]"
     XiProtokollEnd4 "\trm $MANPATH/xtem.1\n  ln -s $INSTPATH/xtem/xtem.1 $MANPATH/xtem.1"; XiProtokoll ""
@@ -404,7 +405,7 @@
 } else {# must be updated
   if [file writable $MANPATH] {# update can be done
     XiProtokoll "\nInstallation of man page:  $MANPATH/hyphen_show.1"
-    XiUnlink $MANPATH/hyphen_show.1; XiLinkSym $INSTPATH/xtem/hyphen_show.1 $MANPATH/hyphen_show.1
+    XiUnlink $MANPATH/hyphen_show.1; XiCopy $INSTPATH/xtem/hyphen_show.1 $MANPATH/hyphen_show.1
   } else {# needs update, but cannot be updated!
     XiProtokollEnd4 "\n$MANPATH/hyphen_show.1 [XiNotInstalledText]"
     XiProtokollEnd4 "\trm $MANPATH/hyphen_show.1\n  ln -s $INSTPATH/xtem/hyphen_show.1 $MANPATH/hyphen_show.1"