|
Lines 1-22
Link Here
|
| 1 |
--- install.orig Sat Sep 13 14:37:20 1997 |
1 |
--- install.orig Thu Aug 17 00:42:03 2000 |
| 2 |
+++ install Fri Sep 10 00:13:56 1999 |
2 |
+++ install Thu Jan 4 17:23:05 2001 |
| 3 |
@@ -1,5 +1,5 @@ |
3 |
@@ -1,5 +1,5 @@ |
| 4 |
: # Use perl |
4 |
: # Use perl |
| 5 |
-eval 'exec perl -S $0 "$@"' |
5 |
-eval 'exec perl -S $0 "$@"' |
| 6 |
+eval 'exec !!PERL5!! -S $0 "$@"' |
6 |
+eval 'exec !!PERL5!! -S $0 "$@"' |
| 7 |
if $running_under_some_shell; |
7 |
if $running_under_some_shell; |
| 8 |
|
8 |
|
| 9 |
$vid=101; |
9 |
$vid=103; |
| 10 |
@@ -121,7 +121,7 @@ |
10 |
@@ -17,7 +17,7 @@ |
| 11 |
|
11 |
$pathsep = ':'; |
| 12 |
chop ($cd = `pwd`); |
12 |
$dirsep = '/'; |
| 13 |
|
13 |
$sys = 'unix'; |
| 14 |
-$prefix = "/usr/local"; |
14 |
- $prefix = '/usr/local'; |
| 15 |
+$prefix = "!!PREFIX!!"; |
15 |
+ $prefix = "!!PREFIX!!"; |
| 16 |
|
16 |
} elsif (-e 'nul') { |
| 17 |
&getval($ans, "y", |
17 |
$pathsep = ';'; |
| 18 |
"\nBy default all files will be installed in subdirectories 'bin', 'lib',\n" |
18 |
$dirsep = '\\'; |
| 19 |
@@ -181,9 +181,9 @@ |
19 |
@@ -198,9 +198,9 @@ |
| 20 |
$ht = "\nTo use the automatic hyphenation feature, hyphenation pattern files\n" |
20 |
$ht = "\nTo use the automatic hyphenation feature, hyphenation pattern files\n" |
| 21 |
."from the TeX distribution are needed."; |
21 |
."from the TeX distribution are needed."; |
| 22 |
$cophy = 1; |
22 |
$cophy = 1; |
|
Lines 28-35
Link Here
|
| 28 |
SW:for("texmf/tex/generic/hyphen","macros","inputs","lib/macros", |
28 |
SW:for("texmf/tex/generic/hyphen","macros","inputs","lib/macros", |
| 29 |
"lib/inputs","lib/tex/macros","lib/tex/inputs") { |
29 |
"lib/inputs","lib/tex/macros","lib/tex/inputs") { |
| 30 |
if(-f "$texdir/$_/ushyph1.tex") { |
30 |
if(-f "$texdir/$_/ushyph1.tex") { |
| 31 |
@@ -255,7 +255,7 @@ |
31 |
@@ -272,7 +272,7 @@ |
| 32 |
&mkdir($html,$def); |
32 |
&makedir($html,$def); |
| 33 |
|
33 |
|
| 34 |
$paper = ""; |
34 |
$paper = ""; |
| 35 |
-&getval($format, "A4", |
35 |
-&getval($format, "A4", |
|
Lines 37-43
Link Here
|
| 37 |
"\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4," |
37 |
"\nEnter the default paper type, possible choices are:\nA0, A1, A2, A3, A4," |
| 38 |
." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n" |
38 |
." A5, A6, A7, A8, A9, A10,\nB0, B1, B2, B3, B4, B5, B6, B7, B8, B9, B10,\n" |
| 39 |
."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter," |
39 |
."letter, legal, arche, archd, archc, archb, archa,\nflsa, flse, halfletter," |
| 40 |
@@ -401,8 +401,7 @@ |
40 |
@@ -419,8 +419,7 @@ |
| 41 |
|
41 |
|
| 42 |
sub getval { |
42 |
sub getval { |
| 43 |
$text = $_[1]? "$_[2] [$_[1]]": $_[2]; |
43 |
$text = $_[1]? "$_[2] [$_[1]]": $_[2]; |