Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!coconuts.jaist!wnoc-tyo-news!hitwide!hinocgw!hsdlgw92!hsdlmain!kuroda
From: kuroda@sdl.hitachi.co.jp (Takaki KURODA)
Subject: tgif multi-page to eps
Message-ID: <1995Feb9.013350.1974@hsdlgw95.sdl.hitachi.co.jp>
Lines: 76
Sender: news@hsdlgw95.sdl.hitachi.co.jp (News manager)
Organization: Systems Development Laboratory, Hitachi, Ltd., Kawasaki, Japan.
Distribution: fj
Date: Thu, 9 Feb 1995 01:33:50 GMT
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:5796
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=5796&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B9uED_74u$H?=$7$^$9(B

Tgif Version 2.13J2 (patchlevel 2)
$B$r;H$C$F$*$j$^$9!#(B
$B$3$N%P!<%8%g%s$N(Btgif$B$O#1%U%!%$%kCf$KJ#?t$N3($rIA$/$3$H$,$G$-$k$N$G!$=E(B
$BJu$7$F$^$9!#(B

$B%W%j%s%?$KD>@\=PNO$9$k;~$K$O!$A4JG$r0u:~$7$F$/$l$^$9!#(B
$B$H$3$m$,(BTeX$B$K<h$j9~$`$?$a$K(Beps$B$r:n$k$H!$%+%l%s%HJG$@$1$,(Beps$B$K$J$j$^$9!#(B

$B!t(B $B%^%K%e%"%k$O0l1~8+$?$N$G$9$,!$JG$r;XDj$9$k$H$3$m$O$J$+$C$?$h$&$G$9!#(B
$B!t(B $B$G$b!$1Q8l$J$N$G!X(Bpage$B!Y$G%5!<%A$7$F$=$N6aJU$7$+FI$s$G$J$$(B (^^;;

$B$7$+$?$,$J$$$N$G!$(Bperl$B$G%9%/%j%W%H$r=q$-$^$7$?!#(B

$B$b$C$H@5$7$$J}K!$,$"$C$?$i65$($F2<$5$$!#(B
$B$h$m$7$/$*4j$$$7$^$9!#(B

----
#!/usr/local/bin/perl
#
# $BL>>N(B: tgifsplit
# $B:n@.F|(B:Thu Feb  9 10:10:48 JST 1995
# $B:n<T(B: kuroda@sdl.hitachi.co.jp
# $BG[I[HO0O(B:$BG[I[!?2~JQ$O@)8B$rIU$1$^$;$s!#(B
# $BE,MQHO0O(B:Tgif Version 2.13J2 (patchlevel 2)
# $B5!G=(B: $BJGKh$K%U%!%$%k$rJ,3d$9$k!#(B
# $B;HMQJ}K!(B:tgifsplit foo.obj
# $B@bL@(B: $B0J2<$NDL$j(B
#
# $B$3$N%P!<%8%g%s$N(BTGIF$B$O#1$D$N%U%!%$%k$NCf$KJ#?t$N?^$rIA$/$3$H$,$G$-$k!#(B
# $B$7$+$7(Beps$B$KMn$9;~$K$O%+%l%s%H$N#1%Z!<%8$7$+Mn$7$F$/$l$J$$$h$&$G$"$k!#(B
#
# $B3FJG$4$H$K(B"$B!T3FJG$KIU$1$?L>A0!U(B.obj"$B$H$$$&%U%!%$%k$KJ,3d$9$k!#(B
# $B"((B $BJG$NL>A0$K$O6uGr$J$I$r4^$^$J$$J}$,$$$$$G$7$g$&!#(B
#
# $BJG$KL>A0$,IU$$$F$$$J$$;~$K$O(B"page$B!TJGHV9f!U(B.obj"$B$H$$$&%U%!%$%k$r:n$k!#(B


# page0$B$O%X%C%@It(B
$page=0;
while(<>){
if (/^state/){
# $BJG?t$O#1!$%+%l%s%HJG$O#1!#(B
$pre="%$_";
s/[0-9]+,[0-9]+,([0-9]+)\)\./1,1,$1)./;
$_ = $pre.$_;
}
if (/^page\(([0-9]+),"(.*)"\)/){
# $BJG$N;XDj$+$iL>A0$r<h$j=P$9!#(B
$page=$1;
$name[$page]=$2;
if ( $2 eq "" ){ $name[$page]="page$1"; }
$data[$page]="% ${_}page(1,\"$2\").\n";
next;
}
$data[$page]=$data[$page].$_;
}

for($P=1;$P<=$page; $P++){
# $B3FJGKh$N%U%!%$%k$r:n$k!#(B
open(FD,">$name[$P].obj") || die "Can not open $name[$P]";
print STDERR "Create $name[$P].obj for page $P. \n";
# $B%X%C%@$r=q$-9~$`!#(B
print FD $data[0];
# $BJG$N%G!<%?$r=q$-9~$`!#(B
print FD $data[$P];
close(FD);
}

# EOF
--
----
$B"#"#(B  $B9uED_74u!w%7%9%F%`3+H/8&5f=j(B.$BF|N)@=:n=j(B
$B"#"#(B  Email: kuroda@sdl.hitachi.co.jp
      Tel: 044-966-9111 Fax: 044-966-6832
