File xtem-8.26.patch of Package xtem

--- xV.tcl
+++ xV.tcl
@@ -17,7 +17,7 @@
  set NeedsMinimumTclOlderXtem   7.0
  set NeedsMinimumTclThisXtem    8.0
  set UpgradeRecommendedTclOlder 8.0
- set TestedUpToTcl              8.3.3
+ set TestedUpToTcl              8.4
  set SeemsToBeRunningTcl        8.9
  set tclversion [info tclversion]; set patchlevel [info patchlevel]; # the "real version"
 
--- xi1.tcl
+++ xi1.tcl
@@ -326,91 +326,91 @@
 
 # installation of shell script  xtem ---> $BINPATH
 
-set cmpres [catch "exec cmp $BINPATH/xtem xtem" cmpmes]
-if {[file exists "$BINPATH/xtem"]&&($cmpmes=="")} {# is up to date
-  XiProtokoll "\nShell script is up to date: $BINPATH/xtem"
-} 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
-  } 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 ""
-  }
-}
+#set cmpres [catch "exec cmp $BINPATH/xtem xtem" cmpmes]
+#if {[file exists "$BINPATH/xtem"]&&($cmpmes=="")} {# is up to date
+#  XiProtokoll "\nShell script is up to date: $BINPATH/xtem"
+#} 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
+#  } 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 ""
+#  }
+#}
 
 # installation of program changecode ---> $BINPATH
 
-if [file exists "changecode"] {
-  set cmpres [catch "exec cmp $BINPATH/changecode changecode" cmpmes]
-  if {[file exists "$BINPATH/changecode"]&&($cmpmes=="")} {# changecode is up to date
-    XiProtokoll "\nProgram is up to date: $BINPATH/changecode"
-  } 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
-    } else {# needs update, but cannot be updated!
-      XiProtokollEnd4 "\n$BINPATH/changecode [XiNotInstalledText]"
-      XiProtokollEnd4 "\trm $BINPATH/changecode\n  ln -s $INSTPATH/xtem/changecode $BINPATH/changecode"
-      XiProtokoll ""
-    }
-  }
-} else {# file changecode not found
-  XiProtokollEnd4 "\nFile not found: changecode"; XiProtokoll ""
-}
+#if [file exists "changecode"] {
+#  set cmpres [catch "exec cmp $BINPATH/changecode changecode" cmpmes]
+#  if {[file exists "$BINPATH/changecode"]&&($cmpmes=="")} {# changecode is up to date
+#    XiProtokoll "\nProgram is up to date: $BINPATH/changecode"
+#  } 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
+#    } else {# needs update, but cannot be updated!
+#      XiProtokollEnd4 "\n$BINPATH/changecode [XiNotInstalledText]"
+#      XiProtokollEnd4 "\trm $BINPATH/changecode\n  ln -s $INSTPATH/xtem/changecode $BINPATH/changecode"
+#      XiProtokoll ""
+#    }
+#  }
+#} else {# file changecode not found
+#  XiProtokollEnd4 "\nFile not found: changecode"; XiProtokoll ""
+#}
 
 # installation of program hyphen_show ---> $BINPATH
 
-if [file exists "hyphen_show"] {
-  set cmpres [catch "exec cmp $BINPATH/hyphen_show hyphen_show" cmpmes]
-  if {[file exists "$BINPATH/hyphen_show"]&&($cmpmes=="")} {# hyphen_show is up to date
-    XiProtokoll "\nProgram is up to date: $BINPATH/hyphen_show"
-  } 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
-    } 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"
-      XiProtokoll ""
-    }
-  }
-} else {# file hyphen_show not found
-  XiProtokollEnd4 "\nFile not found: hyphen_show"; XiProtokoll ""
-}
+#if [file exists "hyphen_show"] {
+#  set cmpres [catch "exec cmp $BINPATH/hyphen_show hyphen_show" cmpmes]
+#  if {[file exists "$BINPATH/hyphen_show"]&&($cmpmes=="")} {# hyphen_show is up to date
+#    XiProtokoll "\nProgram is up to date: $BINPATH/hyphen_show"
+#  } 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
+#    } 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"
+#      XiProtokoll ""
+#    }
+#  }
+#} else {# file hyphen_show not found
+#  XiProtokollEnd4 "\nFile not found: hyphen_show"; XiProtokoll ""
+#}
 
 
 # man-page installation  xtem.1 ---> $MANPATH
 
-set cmpres [catch "exec cmp $MANPATH/xtem.1 xtem.1" cmpmes]
-if {[file exists "$MANPATH/xtem.1"]&&($cmpmes=="")} {# is up to date
-  XiProtokoll "\nMan page is up to date: $MANPATH/xtem.1"
-} 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
-  } 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 ""
-  }
-}
+#set cmpres [catch "exec cmp $MANPATH/xtem.1 xtem.1" cmpmes]
+#if {[file exists "$MANPATH/xtem.1"]&&($cmpmes=="")} {# is up to date
+#  XiProtokoll "\nMan page is up to date: $MANPATH/xtem.1"
+#} 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
+#  } 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 ""
+#  }
+#}
 
 
 # man-page installation  hyphen_show.1 ---> $MANPATH
 
-set cmpres [catch "exec cmp $MANPATH/hyphen_show.1 hyphen_show.1" cmpmes]
-if {[file exists "$MANPATH/hyphen_show.1"]&&($cmpmes=="")} {# is up to date
-  XiProtokoll "\nMan page is up to date: $MANPATH/hyphen_show.1"
-} 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
-  } 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"
-    XiProtokoll ""
-  }
-}
+#set cmpres [catch "exec cmp $MANPATH/hyphen_show.1 hyphen_show.1" cmpmes]
+#if {[file exists "$MANPATH/hyphen_show.1"]&&($cmpmes=="")} {# is up to date
+#  XiProtokoll "\nMan page is up to date: $MANPATH/hyphen_show.1"
+#} 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
+#  } 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"
+#    XiProtokoll ""
+#  }
+#}
 
 
 # installation of the setting files
--- xteminstall
+++ xteminstall
@@ -26,11 +26,11 @@
 				  #   $INSTPATH/xtem-n.nn/xteminstall
 				  # (n.nn being the current version)
 
-BINPATH="/usr/local/bin"	; # into this directory executeables and shell 
+BINPATH="/usr/bin"	; # into this directory executeables and shell 
 				  # scripts are copied; must be included in 
 				  # search path variable $PATH
 
-MANPATH="/usr/local/man/man1"	; # into this directory the man-page 
+MANPATH="/usr/share/man/man1"	; # into this directory the man-page 
 				  # is to be installed
     
 WISHCALL="/usr/bin/wish"	; # command to call wish 
@@ -39,7 +39,7 @@
 TCLCALL="/usr/bin/tclsh"	; # command to call tclsh 
 				  # (Tcl without Tk)
 
-PRINTCOM="ABORT"		; # print command name list 
+PRINTCOM="lpr"			; # print command name list 
 				  # (without options, separated by blanks),
 				  # the print commands must exist,if more than 1 element:
 				  # first element will become default printer when
@@ -65,7 +65,7 @@
 				  # each language is enclosed in braces and can 
 				  # be followed by any number of synonyms
 
-DEFLANGUAGE="german"		; # specifies the defaultlanguage
+DEFLANGUAGE="english"		; # specifies the defaultlanguage
 
 CC="gcc"			; # C-compiler for translation of C Programs
 
@@ -322,8 +322,8 @@
  T=" ";							 echo "$T";echo "$T">>$L
  T=" retInstMenu=$retInstMenu  ";			 echo "$T";echo "$T">>$L
  T=" ";							 echo "$T";echo "$T">>$L
-fi
 
-if [ "$retInstMenu" != "0" ]; then exit 1;  fi
+ if [ "$retInstMenu" != "0" ]; then exit 1;  fi
 
+fi
 ################################################################################