1998-05-17 20:14:41 +00:00
|
|
|
--- install.orig Sat Sep 13 14:37:20 1997
|
1999-09-10 08:27:35 +00:00
|
|
|
+++ install Fri Sep 10 00:13:56 1999
|
1998-05-17 20:14:41 +00:00
|
|
|
@@ -1,5 +1,5 @@
|
|
|
|
|
: # Use perl
|
|
|
|
|
-eval 'exec perl -S $0 "$@"'
|
|
|
|
|
+eval 'exec !!PERL5!! -S $0 "$@"'
|
|
|
|
|
if $running_under_some_shell;
|
|
|
|
|
|
|
|
|
|
$vid=101;
|
|
|
|
|
@@ -121,7 +121,7 @@
|
|
|
|
|
|
|
|
|
|
chop ($cd = `pwd`);
|
|
|
|
|
|
|
|
|
|
-$prefix = "/usr/local";
|
|
|
|
|
+$prefix = "!!PREFIX!!";
|
|
|
|
|
|
|
|
|
|
&getval($ans, "y",
|
|
|
|
|
"\nBy default all files will be installed in subdirectories 'bin', 'lib',\n"
|
|
|
|
|
@@ -181,9 +181,9 @@
|
|
|
|
|
$ht = "\nTo use the automatic hyphenation feature, hyphenation pattern files\n"
|
|
|
|
|
."from the TeX distribution are needed.";
|
|
|
|
|
$cophy = 1;
|
|
|
|
|
-if($exist{'TeX'}) {
|
|
|
|
|
+if($exist{'share'}) {
|
|
|
|
|
$hfile = "";
|
|
|
|
|
- ($texdir = $dir{'TeX'}) =~ s|/bin$||;
|
|
|
|
|
+ ($texdir = $dir{'share'}) =~ s|/bin$||;
|
|
|
|
|
SW:for("texmf/tex/generic/hyphen","macros","inputs","lib/macros",
|
|
|
|
|
"lib/inputs","lib/tex/macros","lib/tex/inputs") {
|
|
|
|
|
if(-f "$texdir/$_/ushyph1.tex") {
|
1999-09-10 08:27:35 +00:00
|
|
|
@@ -255,7 +255,7 @@
|
|
|
|
|
&mkdir($html,$def);
|
|
|
|
|
|
|
|
|
|
$paper = "";
|
|
|
|
|
-&getval($format, "A4",
|
|
|
|
|
+&getval($format, "!!PAPERSIZE!!",
|
|
|
|
|
"\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4,"
|
|
|
|
|
." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n"
|
|
|
|
|
."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter,"
|
|
|
|
|
@@ -401,8 +401,7 @@
|
|
|
|
|
|
|
|
|
|
sub getval {
|
|
|
|
|
$text = $_[1]? "$_[2] [$_[1]]": $_[2];
|
|
|
|
|
- print "$text: ";
|
|
|
|
|
- ($_[0] = <STDIN>) =~ s/^\s+|[\/\s]+$//g;
|
|
|
|
|
+ print "$text: $_[1]\n";
|
|
|
|
|
$_[0] = $_[1] if(!$_[0]);
|
|
|
|
|
}
|
|
|
|
|
sub inst {
|
