Mercurial > hg > Papers > 2012 > sugi-prosym

comparison Paper/o2tex @ 22:1b513be6fbab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 26 Nov 2012 19:45:58 +0900
parents a323397febf4
children
comparison
equal deleted inserted replaced
21:a323397febf4 22:1b513be6fbab
3 use warnings; 3 use warnings;
4 4
5 5
6 unlink "title.tex"; 6 unlink "title.tex";
7 unlink "abstract.tex"; 7 unlink "abstract.tex";
8 unlink "abstract-e.tex";
8 unlink "cover.tex"; 9 unlink "cover.tex";
9 # for msdos 10 # 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 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
12 my $alt0 = "fig000"; 13 my $alt0 = "fig000";
14 my $paper = $ARGV[0]; 15 my $paper = $ARGV[0];
15 16
16 my $fh; 17 my $fh;
17 18
18 &Pick('>', "title.tex") ; 19 &Pick('>', "title.tex") ;
19 print $fh <<RogueRogue;
20 RogueRogue
21
22 &Pick('>', "abstract.tex") ;
23 print $fh <<RogueRogue; 20 print $fh <<RogueRogue;
24 RogueRogue 21 RogueRogue
25 22
26 &Pick('>', "00.tex") ; 23 &Pick('>', "00.tex") ;
27 print $fh <<RogueRogue; 24 print $fh <<RogueRogue;
244 next line; 241 next line;
245 } 242 }
246 if (/^--*abstract-e:/) { 243 if (/^--*abstract-e:/) {
247 $file = 'abstract-e.tex'; 244 $file = 'abstract-e.tex';
248 $abstract = 1; 245 $abstract = 1;
249 &Pick('>>', $file); # && (printf $fh "\\begin{quotation}\n"); 246 &Pick('>', $file); # && (printf $fh "\\begin{quotation}\n");
250 next line; 247 next line;
251 } 248 }
252 if (/^--*abstract:/) { 249 if (/^--*abstract:/) {
253 $file = 'abstract.tex'; 250 $file = 'abstract.tex';
254 $abstract = 1; 251 $abstract = 1;
255 &Pick('>>', $file); # && (printf $fh "\\begin{quotation}\n"); 252 &Pick('>', $file); # && (printf $fh "\\begin{quotation}\n");
256 (print $fh "\\mbox{}"); 253 (print $fh "\\mbox{}");
257 next line; 254 next line;
258 } 255 }
259 if (/^--*begin-comment:/) { 256 if (/^--*begin-comment:/) {
260 $backup = $file; 257 $backup = $file;