1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
|
$NetBSD: patch-aa,v 1.4 2006/05/26 18:19:15 wiz Exp $
--- install.orig 2005-03-03 12:25:29.000000000 +0000
+++ install
@@ -17,7 +17,7 @@ if(-e '/dev/null') {
$pathsep = ':';
$dirsep = '/';
$sys = 'unix';
- $prefix = '/usr/local';
+ $prefix = $ARGV[0];
} elsif (-e 'nul') {
$pathsep = ';';
$dirsep = '\\';
@@ -57,8 +57,8 @@ where the abovementioned packages are. Y
the directories where the files should be placed.
EOD
-&getval($goon, "y", "\nDo you want to proceed with the installation?");
-die "\n" if($goon!~/^y/i);
+#&getval($goon, "y", "\nDo you want to proceed with the installation?");
+#die "\n" if($goon!~/^y/i);
print "\n";
for $req (@perl) {
@@ -134,19 +134,22 @@ if(@reqpath) {
chop ($cd = `pwd`);
-&getval($ans, "y",
- "\nBy default all files will be installed in subdirectories 'bin', 'lib',\n"
- ."and 'man' in a common directory. Is this OK?");
-$def = $ans=~/^y/i;
+$sharedir = "share";
-if($def) {
- &getval($prefix, "$prefix", "\nEnter the name of this directory");
- &fixdir($prefix);
- while(!&goodprefix) {
- &getval($prefix, "$prefix", "\nEnter a new directory name");
- }
- &makedir($prefix,0);
-}
+#&getval($ans, "y",
+# "\nBy default all files will be installed in subdirectories 'bin', '$sharedir',\n"
+# ."and 'man' in a common directory. Is this OK?");
+#$def = $ans=~/^y/i;
+$def = 1;
+
+#if($def) {
+# &getval($prefix, "$prefix", "\nEnter the name of this directory");
+# &fixdir($prefix);
+# while(!&goodprefix) {
+# &getval($prefix, "$prefix", "\nEnter a new directory name");
+# }
+# &makedir($prefix,0);
+#}
if($def) {
$bindir = "$prefix${dirsep}bin";
@@ -159,9 +162,9 @@ if($def) {
&makedir($bindir,$def);
if($def) {
- $glob = "$prefix${dirsep}lib${dirsep}html2ps";
+ $glob = "$prefix${dirsep}${sharedir}${dirsep}html2ps";
} else {
- &getval($glob, "$prefix${dirsep}lib${dirsep}html2ps",
+ &getval($glob, "$prefix${dirsep}${sharedir}${dirsep}html2ps",
"\nEnter the the directory where the global configuration file for\n"
."html2ps should be put");
$glob =~ s|/$||g;
@@ -198,7 +201,7 @@ $cophy = 1;
if($exist{'TeX'}) {
$hfile = "";
($texdir = $dir{'TeX'}) =~ s|/bin$||;
- SW:for("texmf/tex/generic/hyphen","macros","inputs","lib/macros",
+ SW:for("share/texmf-dist/tex/generic/hyphen","macros","inputs","lib/macros",
"lib/inputs","lib/tex/macros","lib/tex/inputs") {
if(-f "$texdir/$_/ushyph1.tex") {
$hyph = "$texdir/$_";
@@ -212,15 +215,15 @@ if($exist{'TeX'}) {
}
}
if($hfile) {
- &getval($hdef, "y", "$ht I believe that I have found\nthe pattern "
- ."file for English in your TeX installation:\n\n "
- ."$hfile\n\nWould you like to use this instead of the "
- ."file included with html2ps?");
- if($hdef=~/^y/i) {
+# &getval($hdef, "y", "$ht I believe that I have found\nthe pattern "
+# ."file for English in your TeX installation:\n\n "
+# ."$hfile\n\nWould you like to use this instead of the "
+# ."file included with html2ps?");
+# if($hdef=~/^y/i) {
$cophy = 0;
- } else {
- $hfile = "";
- }
+# } else {
+# $hfile = "";
+# }
} else {
&getval($hfile, "", "$ht I cannot find the pattern\nfile for English "
."in your TeX installation. (It should be called\n'hyphen.tex', "
@@ -236,9 +239,9 @@ if($exist{'TeX'}) {
}
if(!$hfile) {
if($def) {
- $hyph = "$prefix${dirsep}lib${dirsep}html2ps";
+ $hyph = "$prefix${dirsep}${sharedir}${dirsep}html2ps";
} else {
- &getval($hyph, "$prefix${dirsep}lib${dirsep}html2ps",
+ &getval($hyph, "$prefix${dirsep}${sharedir}${dirsep}html2ps",
"\nOK, I will use the supplied pattern file for English. Enter "
."the directory\nwhere this file should be put");
&fixdir($hyph);
@@ -246,9 +249,9 @@ if($exist{'TeX'}) {
}
} else {
if($def) {
- $hyph = "$prefix${dirsep}lib${dirsep}html2ps";
+ $hyph = "$prefix${dirsep}${sharedir}${dirsep}html2ps";
} else {
- &getval($hyph, "$prefix${dirsep}lib${dirsep}html2ps", "$ht A pattern file for English is\n"
+ &getval($hyph, "$prefix${dirsep}${sharedir}${dirsep}html2ps", "$ht A pattern file for English is\n"
."included with html2ps (see the documentation how to install pattern\n"
."files for other languages). Enter the directory where this file\n"
."should be put");
@@ -260,20 +263,21 @@ if($cophy) {
}
if($def) {
- $html = "$prefix${dirsep}lib${dirsep}html2ps";
+ $html = "$prefix${dirsep}${sharedir}${dirsep}html2ps";
} else {
- &getval($html, "$prefix${dirsep}lib${dirsep}html2ps",
+ &getval($html, "$prefix${dirsep}${sharedir}${dirsep}html2ps",
"\nEnter a directory where to put the HTML document describing\nhtml2ps");
&fixdir($html);
}
&makedir($html,$def);
-$paper = "";
-&getval($format, "A4",
- "\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,"
- ." 11x17, ledger, other");
+$format = "letter";
+#$paper = "";
+#&getval($format, "A4",
+# "\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,"
+# ." 11x17, ledger, other");
if($format !~ /^other$/i) {
$paper .= " type: $format;";
} else {
@@ -431,7 +435,7 @@ sub inst {
copy $from => $_[0].$dirsep.$_[1] or die "*** Cannot write to $_[0]\n";
}
sub goodprefix {
- for ($prefix, "$prefix${dirsep}bin", "$prefix${dirsep}lib",
+ for ($prefix, "$prefix${dirsep}bin", "$prefix${dirsep}${sharedir}",
"$prefix${dirsep}man")
{
if (-d $_ && !-w $_) {
|
