|
13
|
1 #!/usr/bin/perl
|
|
|
2 use strict;
|
|
|
3 use warnings;
|
|
|
4
|
|
|
5
|
|
|
6 unlink "title.tex";
|
|
|
7 unlink "abstract.tex";
|
|
|
8 unlink "cover.tex";
|
|
|
9 # for msdos
|
|
|
10 system("rm -f 0*.tex 1*.tex 2.tex 3.tex 4.tex 5.tex 6.tex 7.tex 8.tex 9.tex");
|
|
|
11
|
|
|
12 my $alt0 = "fig000";
|
|
|
13
|
|
|
14 my $paper = $ARGV[0];
|
|
|
15
|
|
|
16 my $fh;
|
|
|
17
|
|
21
|
18 &Pick('>', "title.tex") ;
|
|
|
19 print $fh <<RogueRogue;
|
|
13
|
20 RogueRogue
|
|
|
21
|
|
21
|
22 &Pick('>', "abstract.tex") ;
|
|
|
23 print $fh <<RogueRogue;
|
|
13
|
24 RogueRogue
|
|
|
25
|
|
21
|
26 &Pick('>', "00.tex") ;
|
|
|
27 print $fh <<RogueRogue;
|
|
13
|
28 \\documentclass[12pt]{article} %%%%% preamble %%%%%
|
|
|
29 \\usepackage[dvipdfm]{graphicx}
|
|
|
30
|
|
|
31 %\\textwidth 16.3cm % the text frame size
|
|
|
32 %\\textheight 23cm
|
|
|
33 %\\oddsidemargin 5mm % for centering
|
|
|
34 %\\evensidemargin 13mm % for centering
|
|
|
35 %\\topmargin 1mm
|
|
|
36 %\\pagestyle{empty}
|
|
|
37 \\pagestyle{plain}
|
|
|
38 \\begin{document} %%%%% the main routine begins here %%%%%
|
|
|
39 %\\baselinestretch 2
|
|
|
40 %\\flushbottom
|
|
|
41 %\\large % character size
|
|
|
42 %\\setlength{\\baselineskip}{1cm} % line spacing
|
|
|
43 RogueRogue
|
|
|
44
|
|
21
|
45 &Pick('>', "jsss00.tex") ;
|
|
|
46 print $fh <<RogueRogue;
|
|
13
|
47
|
|
|
48 \\documentclass[twocolumn]{jarticle}
|
|
|
49 \\usepackage[dvipdfm]{graphicx}
|
|
|
50
|
|
|
51 %\\hoffset -1in \\addtolength{\\hoffset}{20mm}
|
|
|
52 %\\voffset -1in \\addtolength{\\voffset}{20mm}
|
|
|
53 %\\oddsidemargin 0mm
|
|
|
54 \\topmargin -4mm
|
|
|
55 %\\headheight 13pt
|
|
|
56 %\\headsep 15mm
|
|
|
57 %\\textheight 43\\baselineskip \\addtolength{\\textheight}{\\topskip}
|
|
|
58 %\\textwidth 160mm
|
|
|
59 %\\marginparsep 3mm
|
|
|
60 %\\marginparwidth 15mm
|
|
|
61 %\\footskip \\headsep
|
|
|
62
|
|
|
63 \\begin{document}
|
|
|
64 % \\input tgrindfig.tex
|
|
|
65 \\bibliographystyle{jplain} % for bibliography
|
|
|
66 %
|
|
|
67 \\include{title}
|
|
|
68 %\\title{}
|
|
|
69 % 英文のみのタイトルならば，\\title{ ... } とする．
|
|
|
70
|
|
|
71 \\date{}
|
|
|
72
|
|
|
73 % 所属ラベルの定義
|
|
|
74
|
|
|
75 % 和文著者名
|
|
|
76 \\author{{安村 恭一, 河野 真治} \\\\
|
|
|
77 琉球大学理工学研究科情報工学専攻\\\\
|
|
|
78 琉球大学工学部情報工学科\\\\
|
|
|
79 }
|
|
|
80 \\twocolumn[
|
|
|
81 \\maketitle{}
|
|
|
82
|
|
|
83 % {\\em 概要 \\vspace{0.5cm}}\\
|
|
|
84 \\include{abstract.tex}
|
|
|
85 \\begin{center}
|
|
|
86 {\\Large
|
|
|
87 \\include{title-e.tex}\\
|
|
|
88 \\include{author-e.tex}} \\\\ \\hspace{0.7cm}
|
|
|
89 \\end{center}
|
|
|
90
|
|
|
91 % {\tt \\Large Abstract}\\
|
|
|
92 \\include{abstract-e.tex}
|
|
|
93 \\\\
|
|
|
94 \\hspace{0.5cm}
|
|
|
95 ]
|
|
|
96
|
|
|
97 %
|
|
|
98 \\input 0.tex
|
|
|
99 %
|
|
|
100 \\input reference.tex
|
|
|
101
|
|
|
102 \\end{document}
|
|
|
103
|
|
|
104 RogueRogue
|
|
|
105
|
|
|
106
|
|
21
|
107 &Pick('>', "ohp00.tex") ;
|
|
|
108 print $fh <<RogueRogue;
|
|
13
|
109 \\documentstyle[blackandwhite,landscape,oval,pagenumbers]{NRslides}
|
|
|
110 % run this through SLiTeX
|
|
|
111 \\input tgrindfi.tex
|
|
|
112 \\raggedright
|
|
|
113 \\begin{document}
|
|
|
114
|
|
|
115 RogueRogue
|
|
|
116
|
|
21
|
117 &Pick('>', "trcover.tex") ;
|
|
|
118 print $fh <<RogueRogue;
|
|
13
|
119 \\documentstyle[a4,11pt]{article} %%%%% preamble %%%%%
|
|
|
120 %\\textwidth 16.3cm % the text frame size
|
|
|
121 %\\textheight 23cm
|
|
|
122 %\\oddsidemargin 5mm % for centering
|
|
|
123 %\\evensidemargin 13mm % for centering
|
|
|
124 %\\topmargin 1mm
|
|
|
125 \\begin{document}
|
|
|
126
|
|
|
127 \\begin{titlepage}
|
|
|
128 \\begin{center}\\vspace*{34mm}
|
|
|
129 \\parbox[c]{12cm}{\\begin{center}
|
|
|
130 RogueRogue
|
|
|
131
|
|
|
132
|
|
20
|
133 $\ = "\n";
|
|
13
|
134
|
|
|
135 my $depth = 0;
|
|
|
136 my $section = 1;
|
|
|
137 my $file = '00.tex';
|
|
|
138 my $zero = '00.tex';
|
|
|
139 my $ohp = 'ohp00.tex';
|
|
|
140 my $cover = 'trcover.tex';
|
|
|
141 my $note = 1;
|
|
|
142 my $abstract = 0;
|
|
|
143 my $cite = "%";
|
|
|
144 my $m = ""; # msdos make
|
|
|
145
|
|
|
146 my @depend = ($paper);
|
|
|
147 my @ohpdepend = ('ohp.tex');
|
|
|
148
|
|
|
149 my $verbatim = 1;
|
|
|
150
|
|
|
151 my $pre;
|
|
|
152 my $day;
|
|
|
153 my $title;
|
|
|
154 my $number;
|
|
|
155 my $author;
|
|
|
156 my $backup;
|
|
|
157 my %opened;
|
|
|
158
|
|
|
159 sub o2tex {
|
|
|
160
|
|
|
161 my($current) = @_;
|
|
|
162
|
|
|
163 line: while (<$current>) {
|
|
|
164 chop; # strip record separator
|
|
|
165 if( $verbatim && (!/^\s/) && (!/^$/) && $pre) {
|
|
|
166 print $fh "\\end{verbatim}\n}\n";
|
|
|
167 $pre = 0;
|
|
|
168 }
|
|
|
169 if (/^-*input: (.*)/) {
|
|
|
170 open(my $fdbase,"nkf -w $1 |");
|
|
|
171 push(@depend,$1);
|
|
|
172 # print STDOUT "$1 ";
|
|
|
173 &o2tex($fdbase);
|
|
|
174 next line;
|
|
|
175 }
|
|
|
176 if (/^-title:/) {
|
|
|
177 $file = 'title.tex';
|
|
|
178 $title = substr($_, 8, length($_) - 7);
|
|
|
179 &Pick('>>', $file) &&
|
|
|
180 (printf $fh "\\title{{\\bf %s}}\n", $title);
|
|
|
181 &Pick('>>', $ohp) &&
|
|
|
182 (printf $fh "\\title{{\\bf %s}}\n", $title);
|
|
|
183 next line;
|
|
|
184 }
|
|
|
185 if (/^--*date:/) {
|
|
|
186 my $tmp;
|
|
|
187 for ($tmp = 1; substr($_, $tmp, 1) eq '-'; $tmp++) {
|
|
|
188 ;
|
|
|
189 }
|
|
|
190 $tmp += 5;
|
|
|
191 $day = substr($_, $tmp, length($_) - $tmp + 1);
|
|
|
192 next line;
|
|
|
193 }
|
|
|
194 if (/^--*number:/) {
|
|
|
195 my $tmp;
|
|
|
196 for ($tmp = 1; substr($_, $tmp, 1) eq '-'; $tmp++) {
|
|
|
197 ;
|
|
|
198 }
|
|
|
199 $tmp += 7;
|
|
|
200 $number = substr($_, $tmp, length($_) - $tmp + 1);
|
|
|
201 next line;
|
|
|
202 }
|
|
|
203 if (/^--*note:/) {
|
|
|
204 &trcover();
|
|
|
205 $note = 2;
|
|
|
206 $file = 'trcover.tex';
|
|
|
207 &Pick('>>', $file) &&
|
|
|
208 (printf $fh "\\clearpage\n");
|
|
|
209 (printf $fh "\\vspace*{\\fill}\n");
|
|
|
210 (printf $fh "\\begin{quote}\n");
|
|
|
211 next line;
|
|
|
212 }
|
|
|
213 if (/^--*author:/) {
|
|
|
214 my $tmp;
|
|
|
215 $file = 'title.tex';
|
|
|
216 for ($tmp = 1; substr($_, $tmp, 1) eq '-'; $tmp++) {
|
|
|
217 ;
|
|
|
218 }
|
|
|
219 $tmp += 7;
|
|
|
220 $author = substr($_, $tmp, length($_) - $tmp + 1);
|
|
|
221 &Pick('>>', $file) &&
|
|
|
222 (printf $fh "%%\\pagenumbering{roman}\n");
|
|
|
223 (printf $fh "\\author{%s \\\\[5mm]\n", $author);
|
|
|
224 (printf $fh "e-mail:kono\@ie.u-ryukyu.ac.jp\\\\\n");
|
|
|
225 (printf $fh "Information Engineering, University of the Ryukyus\\\\\n");
|
|
|
226 (printf $fh "Nishihara-cyo 1, Okinawa, 903-01, Japan}\n");
|
|
|
227 if ($day) {
|
|
|
228 (printf $fh "\\date{%s}\n", $day);
|
|
|
229 }
|
|
|
230 else {
|
|
|
231 (printf $fh "%% \\date{}\n");
|
|
|
232 }
|
|
|
233 $file = sprintf('%d', $section) . '.tex';
|
|
|
234
|
|
|
235 &Pick('>>', $ohp) &&
|
|
|
236 (printf $fh "\\author{%s \\\\[5mm]\n", $author);
|
|
|
237 (printf $fh ".Information Engineering, University of the Ryukyus\n");
|
|
|
238 (print $fh "%% \\today");
|
|
|
239 (print $fh "\\maketitlepage");
|
|
|
240 next line;
|
|
|
241 }
|
|
|
242 if (/^--*author-e:/) {
|
|
|
243 $file = 'title-e.tex';
|
|
|
244 next line;
|
|
|
245 }
|
|
|
246 if (/^--*abstract-e:/) {
|
|
|
247 $file = 'abstract-e.tex';
|
|
|
248 $abstract = 1;
|
|
|
249 &Pick('>>', $file); # && (printf $fh "\\begin{quotation}\n");
|
|
|
250 next line;
|
|
|
251 }
|
|
|
252 if (/^--*abstract:/) {
|
|
|
253 $file = 'abstract.tex';
|
|
|
254 $abstract = 1;
|
|
|
255 &Pick('>>', $file); # && (printf $fh "\\begin{quotation}\n");
|
|
|
256 (print $fh "\\mbox{}");
|
|
|
257 next line;
|
|
|
258 }
|
|
|
259 if (/^--*begin-comment:/) {
|
|
|
260 $backup = $file;
|
|
|
261 $file = '/dev/null';
|
|
|
262 next line;
|
|
|
263 }
|
|
|
264 if (/^--*end-comment:/) {
|
|
|
265 $file = $backup;
|
|
|
266 next line;
|
|
|
267 }
|
|
|
268 if (/^-/) {
|
|
|
269 if ($abstract == 1) {
|
|
|
270 &Pick('>>', $file); # && (printf $fh "\\end{quotation}\n");
|
|
|
271
|
|
|
272 $abstract = 0;
|
|
|
273 }
|
|
|
274 if ($note) {
|
|
|
275 if ($note == 2) {
|
|
|
276 &Pick('>>', $cover) &&
|
|
|
277 (printf $fh "\\end{quote}\n");
|
|
|
278 }
|
|
|
279 else {
|
|
|
280 &trcover();
|
|
|
281 }
|
|
|
282 $note = 0;
|
|
|
283 }
|
|
|
284 for ($depth = 1; substr($_, $depth, 1) eq '-'; $depth++) {
|
|
|
285 ;
|
|
|
286 }
|
|
|
287 if ($depth == 2) {
|
|
|
288 $file = sprintf('%d', $section) . '.tex';
|
|
|
289 &Pick('>>', $file) &&
|
|
|
290 (print $fh "\\section{", substr($_, $depth,
|
|
|
291 length($_) - $depth + 1) . '}');
|
|
|
292 &Pick('>>', $ohp) &&
|
|
|
293 (print $fh "\\begin{bwslide}");
|
|
|
294 (print $fh "\\ctitle{", substr($_, $depth,
|
|
|
295 length($_) - $depth + 1) . '}');
|
|
|
296 (print $fh "\\end{bwslide}\n\n");
|
|
|
297 &Pick('>>', '0.tex') &&
|
|
|
298 (printf $fh "\\input{%d}\t%% %s\n", $section, substr($_,
|
|
|
299 $depth, length($_) - $depth + 1));
|
|
|
300 $section++;
|
|
|
301 # print STDOUT "$section ";
|
|
|
302 }
|
|
|
303 elsif ($depth == 3) {
|
|
|
304 $file = sprintf('%d', $section - 1) . '.tex';
|
|
|
305 &Pick('>>', $file) &&
|
|
|
306 (print $fh "\\subsection{", substr($_, $depth,
|
|
|
307 length($_) - $depth + 1) . '}');
|
|
|
308 &Pick('>>', $ohp) &&
|
|
|
309 (print $fh "\\begin{bwslide}");
|
|
|
310 (print $fh "\\ctitle{", substr($_, $depth,
|
|
|
311 length($_) - $depth + 1) . '}');
|
|
|
312 (print $fh "\\end{bwslide}\n\n");
|
|
|
313 }
|
|
|
314 elsif ($depth == 4) {
|
|
|
315 $file = sprintf('%d', $section - 1) . '.tex';
|
|
|
316 &Pick('>>', $file) &&
|
|
|
317 (print $fh "\\subsubsection{", substr($_, $depth,
|
|
|
318 length($_) - $depth + 1) . '}');
|
|
|
319 &Pick('>>', $ohp) &&
|
|
|
320 (print $fh "\\begin{bwslide}");
|
|
|
321 (print $fh "\\ctitle{", substr($_, $depth,
|
|
|
322 length($_) - $depth + 1) . '}');
|
|
|
323 (print $fh "\\end{bwslide}\n\n");
|
|
|
324 }
|
|
|
325 else {
|
|
|
326 $file = sprintf('%d', $section - 1) . '.tex';
|
|
|
327 &Pick('>>', $file) &&
|
|
|
328 (printf $fh "%s\\\\\n", substr($_, $depth,
|
|
|
329 length($_) - $depth + 1));
|
|
|
330 }
|
|
|
331 next line;
|
|
|
332 } elsif (m!^<center>\s*<img.*src="([^>"]*)"[^>]*alt="([^>"]*)"[^>]*>\s*</center>!i) {
|
|
|
333 my $fig = $1; my $alt = $2;
|
|
|
334 my $caption;
|
|
|
335 if ($fig) {
|
|
|
336 $fig =~ s/\.gif|\.jpg/.eps/;
|
|
|
337 }
|
|
|
338 if (! $alt) {
|
|
|
339 $alt = $alt0++;
|
|
|
340 $caption = "";
|
|
|
341 } else {
|
|
|
342 $caption = "\\caption{$alt}\n";
|
|
|
343 }
|
|
|
344 &Pick('>>', $file);
|
|
|
345 # center environment disturbes caption counter and label reference
|
|
|
346 my $line = <<"EOF";
|
|
|
347 \\begin{figure}[htb]
|
|
|
348 \\begin{center}
|
|
|
349 \\includegraphics[width=6cm]{${fig}}
|
|
|
350 ${caption}\\end{center}
|
|
|
351 \\label{${alt}}
|
|
|
352 \\end{figure}
|
|
|
353 EOF
|
|
|
354 # print $fh "(fig.\\ref{$alt})\n";
|
|
|
355 print $fh $line;
|
|
|
356 &Pick('>>', $ohp) &&
|
|
|
357 (print $fh "\\centerline{$line}\n");
|
|
|
358 if(! /^\s*%/) {
|
|
|
359 $fig =~ s/[{}]//g;
|
|
|
360 push(@depend,$fig);
|
|
|
361 push(@ohpdepend,$fig);
|
|
|
362 }
|
|
|
363 next line;
|
|
|
364 } elsif (m!^<center>\s*<img.*src="([^>"]*)"[^>]*>\s*</center>!i) {
|
|
|
365 my $fig = $1; my $alt = $2;
|
|
|
366 my $caption;
|
|
|
367 if ($fig) {
|
|
|
368 $fig =~ s/\.gif|\.jpg/.eps/;
|
|
|
369 }
|
|
|
370 if (! $alt) {
|
|
|
371 $alt = $alt0++;
|
|
|
372 $caption = "";
|
|
|
373 } else {
|
|
|
374 $caption = "\\caption{$alt}\n";
|
|
|
375 }
|
|
|
376 &Pick('>>', $file);
|
|
|
377 my $line = <<"EOF";
|
|
|
378 \\begin{figure}[htb]
|
|
|
379 \\begin{center}
|
|
|
380 \\includegraphics[width=6cm]{${fig}}
|
|
|
381 ${caption}\\end{center}
|
|
|
382 \\label{${alt}}
|
|
|
383 \\end{figure}
|
|
|
384 EOF
|
|
|
385 # print $fh "(fig.\\ref{$alt})\n";
|
|
|
386 print $fh $line;
|
|
|
387 &Pick('>>', $ohp) &&
|
|
|
388 (print $fh "\\centerline{$line}\n");
|
|
|
389 if(! /^\s*%/) {
|
|
|
390 $fig =~ s/[{}]//g;
|
|
|
391 push(@depend,$fig);
|
|
|
392 push(@ohpdepend,$fig);
|
|
|
393 }
|
|
|
394 next line;
|
|
|
395 } elsif (/\\epsfile\{.*file=([^{},]+)/ ||
|
|
|
396 /\\includegraphics\{([^{},]+)\}/ ||
|
|
|
397 /\\input (.*)/ || /\\include (.*)/) {
|
|
|
398 my $fig = $1;
|
|
|
399 &Pick('>>', $file) &&
|
|
|
400 (print $fh $_);
|
|
|
401 &Pick('>>', $ohp) &&
|
|
|
402 (print $fh "\\centerline{$_}\n");
|
|
|
403 if(! /^\s*%/) {
|
|
|
404 $fig =~ s/[{}]//g;
|
|
|
405 push(@depend,$fig);
|
|
|
406 push(@ohpdepend,$fig);
|
|
|
407 }
|
|
|
408 next line;
|
|
|
409 } elsif ($verbatim && /^\s/) {
|
|
|
410 if(! $pre) {
|
|
|
411 print $fh "{\\small\n\\begin{verbatim}";
|
|
|
412 $pre = 1;
|
|
|
413 }
|
|
|
414 print $fh $_;
|
|
|
415 } elsif (!/^-/) {
|
|
|
416 &Pick('>>', $file) &&
|
|
|
417 (print $fh $_);
|
|
|
418 }
|
|
|
419 if (/\\cite\{/) { $cite = ""; }
|
|
|
420 }
|
|
|
421 }
|
|
|
422
|
|
|
423 foreach my $arg (@ARGV) {
|
|
|
424 open(my $fdbase,"nkf -w $arg |") || die("$arg cannot open");
|
|
|
425 &o2tex($fdbase);
|
|
|
426 }
|
|
|
427
|
|
|
428 &Pick('>>', $zero);
|
|
|
429 select($fh);
|
|
|
430 printf $fh "%s\\bibliographystyle{jplain} %% for bibliography\n", $cite;
|
|
|
431 print <<RogueRogue ;
|
|
|
432 \\input{title} % title, abstract
|
|
|
433 \\maketitle
|
|
|
434 \\begin{quote}
|
|
|
435 \\input{abstract}
|
|
|
436 \\end{quote}
|
|
|
437 %%%%\\tableofcontents %% contents, lists
|
|
|
438 %%%%\\listoffigures
|
|
|
439 %%%%\\listoftables
|
|
|
440 %\\pagenumbering{arabic}
|
|
|
441
|
|
|
442 \\input{0} % sections
|
|
|
443 RogueRogue
|
|
|
444
|
|
|
445 printf $fh "%s\\bibliography{ref}\n", $cite;
|
|
|
446 if($cite eq "%") { $cite = "#" ; }
|
|
|
447 &Pick('>>', $zero) &&
|
|
|
448 (printf $fh "\\end{document}\n");
|
|
|
449 close($fh);
|
|
|
450 &Pick('>>', $ohp) &&
|
|
|
451 (printf $fh "\n\\end{document}\n");
|
|
|
452 close($fh);
|
|
|
453
|
|
|
454 sub trcover {
|
|
|
455 if ($title) {
|
|
|
456 &Pick('>>', $cover) &&
|
|
|
457 (printf $fh "{\\LARGE\\bf %s}\\\\[+5mm]\n", $title);
|
|
|
458 }
|
|
|
459 if ($author) {
|
|
|
460 &Pick('>>', $cover) &&
|
|
|
461 (printf $fh "{\\large %s}\\\\[+5mm]\n", $author);
|
|
|
462 }
|
|
|
463 if ($number) {
|
|
|
464 &Pick('>>', $cover) &&
|
|
|
465 (printf $fh "{\\large %s}\\\\[+4mm]\n", $number);
|
|
|
466 }
|
|
|
467 if ($day) {
|
|
|
468 &Pick('>>', $cover) &&
|
|
|
469 (printf $fh "{\\large %s}\n", $day);
|
|
|
470 }
|
|
|
471 &Pick('>>', $cover) &&
|
|
|
472 (print $fh "\\end{center}}\\\\");
|
|
|
473 (print $fh "\\vfill");
|
|
|
474 (printf $fh "{\\Large Information Engineering, University of the Ryukyus\\\\\n");
|
|
|
475 (print $fh "Nishihara-cho 1, Okinawa, 903-01 JAPAN}\\\\[+2cm]");
|
|
|
476 (print $fh "{\\small Copyright \\copyright\\ \\number\\year\\");
|
|
|
477 (print $fh 'University of the Ryukyus');
|
|
|
478 (print $fh "}\\\\[+1cm]");
|
|
|
479 (print $fh "\\end{center}");
|
|
|
480 (print $fh "\\end{titlepage}\n\n");
|
|
|
481 return;
|
|
|
482 }
|
|
|
483
|
|
|
484 sub Pick {
|
|
|
485 my ($mode,$name,$pipe) = @_;
|
|
20
|
486 $pipe = "" if (! defined $pipe) ;
|
|
13
|
487 if (! defined $opened{$name}) {
|
|
20
|
488 open(my $mfh,$mode, $name.$pipe);
|
|
13
|
489 $fh = $mfh;
|
|
21
|
490 $opened{$name} = $fh;
|
|
|
491 } else {
|
|
|
492 $fh = $opened{$name};
|
|
13
|
493 }
|
|
|
494 1;
|
|
|
495 }
|
|
|
496
|
|
|
497 &Pick('>>', $cover) &&
|
|
|
498 print $fh "\\end{document}\n";
|
|
|
499 close $fh;
|
|
|
500
|
|
|
501 if (! -f "Makefile") {
|
|
|
502 open($fh,">Makefile"); select($fh);
|
|
|
503 print "PAPER = ". $paper . "\n";
|
|
20
|
504 print <<"RogueRogue";
|
|
13
|
505
|
|
|
506 PRINTER = ab
|
|
|
507 OHP = ohp
|
|
|
508 MAIN = main
|
|
|
509 COVER = trcover
|
|
|
510 LATEX = platex
|
|
|
511 SLITEX = jslitex
|
|
|
512 BIBTEX = jbibtex
|
|
|
513 AWK = awk
|
|
|
514 SED = sed
|
|
|
515 DVI2PS = dvi2ps
|
|
|
516 R =
|
|
|
517 PRINTER =
|
|
|
518
|
|
|
519 $m.SUFFIXES: .c .d .tokio .x .xfig .fig .tex .dvi .print .lw .next .ps .gs .xdvi
|
|
|
520
|
|
|
521 .d.tex:
|
|
|
522 tgrind -F -ldb \$< >\$@
|
|
|
523 .c.tex:
|
|
|
524 tgrind -F -lC \$< >\$@
|
|
|
525 .tokio.tex:
|
|
|
526 tgrind -F -ltokio \$< >\$@
|
|
|
527 .fig.tex:
|
|
|
528 f2tpic \$< >\$@
|
|
|
529 .xfig.tex:
|
|
|
530 f2tpic \$< >\$@
|
|
|
531 .fig.ps:
|
|
|
532 f2ps1 \$< >\$@
|
|
|
533 .x.tex:
|
|
|
534 x2tpic \$<
|
|
|
535 -rm -f \$*.pic
|
|
|
536 .tex.dvi:
|
|
|
537 jlatex \$<
|
|
|
538 .dvi.print:
|
|
|
539 \$(DVI2PS) \$(R) \$< | lpr -P\$(PRINTER)
|
|
|
540 # lpr \$(PRINTER) -d \$<
|
|
|
541 .dvi.lw:
|
|
|
542 \$(DVI2PS) \$(R) \$< | lpr -P\$(PRINTER)
|
|
|
543 .dvi.next:
|
|
|
544 dviNeXT \$<
|
|
|
545 .dvi.xdvi:
|
|
|
546 (exec xdvi \$< & )
|
|
|
547 .dvi.ps:
|
|
|
548 -\$(DVI2PS) \$(R) \$< > \$*.ps
|
|
|
549 .ps.gs:
|
|
|
550 gs \$*.ps
|
|
|
551
|
|
|
552 all:
|
|
|
553 -rm -f \$(MAIN).dvi
|
|
|
554 make \$(MAIN).dvi
|
|
|
555
|
|
|
556 print: \$(MAIN).print
|
|
|
557 lw: \$(MAIN).lw
|
|
|
558 next: \$(MAIN).next
|
|
|
559 gs: \$(MAIN).gs
|
|
|
560 \$(MAIN).gs : \$(MAIN).ps
|
|
|
561 \$(MAIN).ps : \$(MAIN).dvi
|
|
|
562 \$(OHP).gs : \$(OHP).ps
|
|
|
563 \$(OHP).ps : \$(OHP).dvi
|
|
|
564 xdvi: \$(MAIN).xdvi
|
|
|
565 dvips: \$(MAIN).dvi
|
|
|
566 dvips \$(MAIN).dvi -o \$(MAIN).ps
|
|
|
567
|
|
|
568 \$(MAIN).dvi: 1.tex
|
|
|
569 \$(LATEX) \$(MAIN)
|
|
|
570
|
|
|
571 jsss.dvi: jsss.tex 1.tex
|
|
|
572 \$(LATEX) jsss.tex
|
|
|
573
|
|
|
574 wc:
|
|
|
575 \$(SED) -e '/\\\\special{/d' \$(PAPER) | delatex | wc
|
|
|
576 uu:
|
|
|
577 tar cBf - \$(MAIN).[tab]* [0-9]*.tex \$(DEPENDENCY) \\
|
|
|
578 title.tex abstract.tex ohp.tex \\
|
|
|
579 Makefile | gzip | uuencode \$(PAPER).tar.gz > uu
|
|
|
580
|
|
|
581
|
|
|
582 bbl: \$(MAIN).bbl
|
|
|
583
|
|
|
584 \$(MAIN).bbl: ref.bib 1.tex # \$(MAIN).aux
|
|
|
585 -\$(BIBTEX) \$(MAIN)
|
|
|
586
|
|
|
587 \$(MAIN).aux: \$(MAIN).tex 1.tex
|
|
|
588 \$(LATEX) \$(MAIN)
|
|
|
589
|
|
|
590 1.tex: \$(PAPER) \$(DEPENDENCY)
|
|
|
591 -o2tex \$(PAPER)
|
|
|
592
|
|
|
593 # OHP with slitex
|
|
|
594 \$(OHP): \$(OHP).dvi
|
|
|
595 \$(OHP).dvi : \$(OHP).tex \$(DEPENDOHP)
|
|
|
596 \$(SLITEX) \$(OHP)
|
|
|
597
|
|
|
598 ohpprint: \$(OHP).dvi
|
|
|
599 lpr -c \$(OHP).dvi
|
|
|
600 ohplw: \$(OHP).dvi
|
|
|
601 \$(DVI2PS) \$(R) -o landscape \$(OHP).dvi | lpr -P\$(PRINTER)
|
|
|
602 ohpnext: \$(OHP).dvi
|
|
|
603 \$(DVI2PS) -h -i /usr/lib/tex/ps/tex-j.next -o landscape \$(OHP).dvi |\\
|
|
|
604 lpr -Pcb
|
|
|
605 ohpgs: \$(OHP).gs
|
|
|
606
|
|
|
607 cover: \$(COVER).dvi
|
|
|
608 \$(COVER): \$(COVER).dvi
|
|
|
609 \$(COVER).dvi : \$(PAPER)
|
|
|
610 coverprint: \$(COVER).print
|
|
|
611 coverlw: \$(COVER).lw
|
|
|
612 covernext: \$(COVER).next
|
|
|
613 covergs: \$(COVER).gs
|
|
|
614
|
|
|
615 clean:
|
|
|
616 -rm -f \$(MAIN).ps *.dvi *.log *.blg \\
|
|
|
617 *~ \\#* ?.tex *.toc *.lof *.lot xfig/*.tex
|
|
|
618
|
|
|
619 tgrindfig.tex:
|
|
|
620 ln -s "\$\$HOME"/paper/tgrindfig.tex .
|
|
|
621 # for MSDOS
|
|
|
622 tgrindfi.tex:
|
|
|
623 ln -s "\$\$HOME"/paper/tgrindfig.tex tgrindfi.tex
|
|
|
624 ref.bib:
|
|
|
625 ln -s "\$\$HOME"/paper/ref.bib .
|
|
|
626
|
|
|
627 RogueRogue
|
|
|
628 close $fh;
|
|
|
629 }
|
|
|
630 if ( ! -f "main.tex") {
|
|
|
631 rename('00.tex','main.tex');
|
|
|
632 }
|
|
|
633 if ( ! -f "jsss.tex") {
|
|
|
634 rename('jsss00.tex','jsss.tex');
|
|
|
635 }
|
|
|
636 if ( ! -f "ohp.tex") {
|
|
|
637 rename('ohp00.tex','ohp.tex');
|
|
|
638 }
|
|
|
639 # make depend > /dev/null
|
|
|
640
|
|
|
641 rename("Makefile","Makefile.old");
|
|
|
642 open(MAKE, "<Makefile.old");
|
|
|
643 open($fh,">Makefile");
|
|
|
644 select($fh);
|
|
|
645 print "DEPENDENCY = @depend\n";
|
|
|
646 print "DEPENDOHP = @ohpdepend\n";
|
|
|
647 while(<MAKE>) {
|
|
|
648 next if(/^DEPEND/);
|
|
|
649 chop; print;
|
|
|
650 }
|
|
|
651 close($fh);
|
|
|
652
|
|
|
653 # end
|
