Mercurial > hg > Papers > 2012 > sugi-prosym

changeset 21:a323397febf4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix o2tex
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 26 Nov 2012 19:39:39 +0900
parents 60962f5ce2f7
children 1b513be6fbab
files Paper/Makefile Paper/o2tex
diffstat 2 files changed, 19 insertions(+), 18 deletions(-) [+]
line wrap: on
line diff
--- a/Paper/Makefile	Mon Nov 26 19:27:17 2012 +0900
+++ b/Paper/Makefile	Mon Nov 26 19:39:39 2012 +0900
@@ -42,6 +42,10 @@
 
 
 
+
+
+
+
 PAPER = alice.ind
 
 
--- a/Paper/o2tex	Mon Nov 26 19:27:17 2012 +0900
+++ b/Paper/o2tex	Mon Nov 26 19:39:39 2012 +0900
@@ -15,18 +15,16 @@
 
 my $fh;
 
-open($fh,">title.tex"); select($fh);
-print <<RogueRogue;
+&Pick('>', "title.tex") ;
+print $fh <<RogueRogue;
 RogueRogue
 
-close $fh;
-open($fh,">abstract.tex"); select($fh);
-print <<RogueRogue;
+&Pick('>', "abstract.tex") ;
+print $fh <<RogueRogue;
 RogueRogue
 
-close $fh;
-open($fh,">00.tex"); select($fh);
-print <<RogueRogue;
+&Pick('>', "00.tex") ;
+print $fh <<RogueRogue;
 \\documentclass[12pt]{article} %%%%% preamble            %%%%%
 \\usepackage[dvipdfm]{graphicx}
 
@@ -44,9 +42,8 @@
 %\\setlength{\\baselineskip}{1cm}	% line spacing
 RogueRogue
 
-close $fh;
-open($fh,">jsss00.tex"); select($fh);
-print <<RogueRogue;
+&Pick('>', "jsss00.tex") ;
+print $fh <<RogueRogue;
 
 \\documentclass[twocolumn]{jarticle}
 \\usepackage[dvipdfm]{graphicx}
@@ -106,10 +103,9 @@
 
 RogueRogue
 
-close $fh;
 
-open($fh,">ohp00.tex"); select($fh);
-print <<RogueRogue;
+&Pick('>', "ohp00.tex") ;
+print $fh <<RogueRogue;
 \\documentstyle[blackandwhite,landscape,oval,pagenumbers]{NRslides}
 % run this through SLiTeX
 \\input tgrindfi.tex
@@ -118,9 +114,8 @@
 
 RogueRogue
 
-close $fh;
-open($fh,">trcover.tex"); select($fh);
-print <<RogueRogue;
+&Pick('>', "trcover.tex") ;
+print $fh <<RogueRogue;
 \\documentstyle[a4,11pt]{article} %%%%% preamble		%%%%%
 %\\textwidth 16.3cm	% the text frame size
 %\\textheight 23cm
@@ -134,7 +129,6 @@
 \\parbox[c]{12cm}{\\begin{center}
 RogueRogue
 
-close $fh;
 
 $\ = "\n";
 
@@ -493,6 +487,9 @@
     if (! defined $opened{$name}) {
 	open(my $mfh,$mode, $name.$pipe);
         $fh = $mfh;
+        $opened{$name} = $fh;
+    } else {
+        $fh = $opened{$name};
     }
     1;
 }