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