Mercurial > hg > Papers > 2011 > yutaka-jssst

--- a/paper/Makefile	Thu Aug 11 17:38:00 2011 +0900
+++ b/paper/Makefile	Thu Aug 11 21:26:04 2011 +0900
@@ -1,37 +1,134 @@
-DOC = jssst
-
-LATEX      = platex
-DVIPS      = dvips
-DVIPDFM    = dvipdfmx
-RM         = rm
-
-#  Option definitions
-DVIPDFMOPT =
-DVIPSOPT   =
+DEPENDENCY = datasegment.ind

-#  Suffixes definitions
-.SUFFIXES: .tex .dvi .ps .pdf
+DEPENDOHP = ohp.tex

-#  Recipes
-.tex.dvi:
-	$(LATEX) $<
-	$(LATEX) $<
-
-.dvi.pdf:
-	$(DVIPDFM) -o $@ $<
-
-.dvi.ps:
-	$(DVIPS) $(DVIPSOPT) -o $@ $<
+PAPER = datasegment.ind


-all: $(DOC).pdf# $(DOC).ps
-	open $(DOC).pdf
+PRINTER = ab
+OHP = ohp
+MAIN = main
+COVER = trcover
+LATEX = platex-utf8
+SLITEX = jslitex
+BIBTEX = jbibtex -kanji=utf8
+AWK = awk
+SED = sed
+DVI2PS = dvi2ps
+DVI2PS = dvipdfmx
+R =
+PRINTER =
+
+.SUFFIXES: .c .d .tokio .x .xfig .fig .tex .dvi .print .lw .next .ps .gs .xdvi
+
+.d.tex:
+	tgrind -F -ldb $< >$@
+.c.tex:
+	tgrind -F -lC $< >$@
+.tokio.tex:
+	tgrind -F -ltokio $< >$@
+.fig.tex:
+	f2tpic $< >$@
+.xfig.tex:
+	f2tpic $< >$@
+.fig.ps:
+	f2ps1 $< >$@
+.x.tex:
+	x2tpic $<
+	-rm -f $*.pic
+.tex.dvi:
+	jlatex $<
+.dvi.print:
+	$(DVI2PS) $(R) $< | lpr -P$(PRINTER)
+#	lpr $(PRINTER) -d $<
+.dvi.lw:
+	$(DVI2PS) $(R) $< | lpr -P$(PRINTER)
+.dvi.next:
+	dviNeXT $<
+.dvi.xdvi:
+	(exec xdvi $< & )
+.dvi.ps:
+	-$(DVI2PS) $(R) $< > $*.ps
+.dvi.pdf:
+	-$(DVI2PDF)  $<
+.ps.gs:
+	gs $*.ps
+
+all:
+	-rm -f $(MAIN).dvi $(MAIN).pdf
+	make $(MAIN).pdf

-dvi: $(DOC).dvi
+print: $(MAIN).print
+lw: $(MAIN).lw
+next: $(MAIN).next
+gs: $(MAIN).gs
+$(MAIN).gs : $(MAIN).ps
+$(MAIN).ps : $(MAIN).dvi
+$(MAIN).pdf : $(MAIN).dvi
+$(OHP).gs : $(OHP).ps
+$(OHP).ps : $(OHP).dvi
+$(OHP).pdf : $(OHP).dvi
+xdvi: $(MAIN).xdvi
+dvips: $(MAIN).dvi
+	dvips $(MAIN).dvi -o $(MAIN).ps
+
+$(MAIN).dvi:  1.tex
+	$(LATEX) $(MAIN)
+
+jsss.dvi:  jsss.tex 1.tex
+	$(LATEX) jsss.tex
+
+wc:
+	$(SED) -e '/\\special{/d' $(PAPER) | delatex | wc
+uu:
+	tar cBf - $(MAIN).[tab]* [0-9]*.tex $(DEPENDENCY)   \
+	title.tex abstract.tex ohp.tex \
+	Makefile | gzip | uuencode $(PAPER).tar.gz > uu
+
+
+bbl: $(MAIN).bbl

-pdf: $(DOC).pdf
+$(MAIN).bbl:  ref.bib 1.tex # $(MAIN).aux
+	-$(BIBTEX) $(MAIN)
+
+$(MAIN).aux: $(MAIN).tex 1.tex
+	$(LATEX) $(MAIN)
+
+1.tex: $(PAPER) $(DEPENDENCY)
+	-o2tex $(PAPER)
+
+# OHP with slitex
+$(OHP): $(OHP).dvi
+$(OHP).dvi : $(OHP).tex $(DEPENDOHP)
+	$(SLITEX) $(OHP)

-ps: $(DOC).ps
+ohpprint: $(OHP).dvi
+	lpr  -c $(OHP).dvi
+ohplw: $(OHP).dvi
+	$(DVI2PS) $(R) -o landscape $(OHP).dvi | lpr  -P$(PRINTER)
+ohpnext: $(OHP).dvi
+	$(DVI2PS) -h -i /usr/lib/tex/ps/tex-j.next -o landscape $(OHP).dvi |\
+	lpr  -Pcb
+ohpgs:  $(OHP).gs
+
+cover: $(COVER).dvi
+$(COVER): $(COVER).dvi
+$(COVER).dvi : $(PAPER)
+coverprint: $(COVER).print
+coverlw: $(COVER).lw
+covernext: $(COVER).next
+covergs:  $(COVER).gs

 clean:
-	$(RM) -f *.dvi *.aux *.log *.pdf *.ps *.gz *~ *.core
\ No newline at end of file
+	-rm -f $(MAIN).ps *.dvi *.log *.blg \
+		*~ \#* ?.tex *.toc *.lof *.lot xfig/*.tex
+
+tgrindfig.tex:
+	ln -s "$$HOME"/paper/tgrindfig.tex .
+# for MSDOS
+tgrindfi.tex:
+	ln -s "$$HOME"/paper/tgrindfig.tex tgrindfi.tex
+ref.bib:
+	ln -s "$$HOME"/paper/ref.bib .
+
+
--- a/paper/datasegment.ind	Thu Aug 11 17:38:00 2011 +0900
+++ b/paper/datasegment.ind	Thu Aug 11 21:26:04 2011 +0900
@@ -2,8 +2,6 @@

 --abstract:

---Cell用Task Manager Cerium
-
 本研究室では、Cell 用の並列TaskManager Ceriumを作成し、Rendering Engine を含む
 ゲームや並列計算の例題の作成と評価を行ってきた。TaskManager と Rendering Engine はシューティングゲーム
 やレーシングゲームを記述するのに十分な性能を持っており、台数効果も満足いくものと
@@ -11,6 +9,15 @@
 本論文では、今まので Cerium の構成と問題点を記述し、新しい TaskManager の設計
 方針を述べる。

+--Cell用Task Manager Cerium
+
+Cerium は PS3 (Cell) 用のゲームフレームワークであり、ソフトウェアレンダリングを含む
+並列処理を Task 単位で記述する。今は C++ で記述されており、基本的な例題や、
+シューティングなどの例題で妥当な性能がでている。
+
+しかし、Taskの種類などが増え、記述が繁雑であるなどの欠点も明らかになっている。この
+論文では Many Core 向けの改良を提案する。
+
 --Ceriumでの並列プログラミングの問題点

 Cerium では、ゲームプログラミング及び、sort や word count などの例題を書いたが、いくつかの問題点が明らかになっている。
@@ -65,22 +72,116 @@

 これらのデータ管理用の Task は、本質的には Data Segment に対する Iterator であり、ライブラリまたはコンパイラにより生成されるべきものだと考えられる。

+--Task 内部での Task 生成
+
+Cerium では、複数の input と output を決めたパイプライン実行が通常であるが、
+Task の途中で Main Memory を参照したいことが良くある。
+
+    描画Texture のデータ
+    SceneGraphの次のノード
+
+これらは実行時にしか次のデータのアドレスを決定することができない。これを読み出し前のTaskと
+読み出し後のTaskに分割して、さらにパイプライン実行してやると良いが、この記述は今までの
+Cerium では不可能で、明示的な DMA API を使う必要があった。
+
+Task内部でTask生成をしてやると、これを記述することが可能だが、TaskManagerの複雑度が上がってしまう
+とう問題点があった。
+
 --Data Segment を用いた Cerium の再設計

 Cell 用のTaskManager Cerium の再設計の方針としては以下のようになる。

   CbCのCode segment の導入
-  定型的な Data 単位である Data
+  定型的な Data 単位である Data segment
+  Data segment の型の指定
+  Task Manager の Code segment による実装
+  Code segment (Task) の生成API

 ---Data Segment の型

+Cerium では Task の入出力は単なる memory buffer だったので型が存在しなかった。今回は Message Pack
+を用いて、Json 的に型を指定する。
+
+Data segment は様々なメモリ上に位置するので、それを識別する必要がある。Many Core 版の Cerium では、
+
+   Main Memory
+   SPU local memory
+   Cache
+
+の三種類を用意する。これらは DMA や Cache 操作命令を通して移動する。移動したものは同一のものである。Cell SPUのTask や Many Core では、当然だが lcoal memory や Cache に乗らない限りアクセスできない。
+
+Data segment は、Code Segment に input と output として接続される。
+
 ---Data Segment のAPI

+Data Segment は以下のAPIを持っている
+
+  create
+  read
+  update
+  delete
+
+Create は allocate に相当する。型と位置を指定して create する。Main Memory 上の Data segment を読み書きする場合は、local memory または Cache を通してパイプライン的に実行される。
+
+複数のCode Segment から update が起きる場合は、以下の操作を選択する。
+
+  Queuing
+  Update
+  Proority Queue
+
+生成された Data segment は synchronized queue として使うことができる。
+
 ---Task Dependendcy

+今までの Cerium では、\verb+task->wait_for(task1);+ という形で明示的に Task の依存性を指定していた。
+この方法では、\verb+task+  の寿命(既に終了してしまった task を待つような場合)などの問題がある。
+
+しかし、Code Segment は input / outpu Data Segment によって自然な依存関係を持つので、明示的な
+\verb+wait_for+ は必要なくなる。
+
+Code Segment と Data Segment は task を処理して行くうちに自然に消滅してしまう。Persistent な
+データは明示的にデータベースに格納する必要がある。つまり、Data Segment に Persistentという
+位置が存在する。
+
+---Pipeline Execution
+
+Cerium では、Task のread/exec/write は三段のパイプラインで実行されていた。Data Segment は
+Code Segment の実行の前に行われるが、他の Code Segment とオーバラップして実行して良い。
+Data Segment には、Data Segment の位置を変更するための Code Segment が存在している。
+
+つまり、Data Segment は複数の Code Segment ( この Data segment を待っている Code segment )
+と、Data Segment の位置などを変える Code Segment などが付随している。
+
+一つのCoreでは、Data Segment に付属する Code segment を順次実行することにより、パイプライン
+を実行する。
+
+Data Segment による依存関係を追い越さなければ並列実行は自由に行われる。これは、Task Scheduling
+を担当する Code Segment によってアーキテクチャに合わせて実行される。
+
 ---Data Segment Storage Type

+Data Segment には位置とIdentityを表す ID が付いている。Many Core 版ではメモリアドレス(64bit)
+をIDとして使って良い。
+
+SPUのようなlocal memoryでは、hash を使ってData Segmentの管理を行う。
+
+Persistent な Data Segment では ID は使用する Database のtableとkeyを表す。
+
 ---Data Segment の処理の記述

+Data Segment は Message Pack でもあり、Json 的な木構造を持っている。これが Cerium の
+SceneGraph に相当する。
+
 --期待される効果

+Data Segment API は、これから実装することになるが、
+
+   Cerium の既存の例題が動くこと
+
+が一つの基準となる。PS3 が無事ならば PS3 でも動かしたい。Core i7 系、GPGPU 系、Open CL での
+共通のプログラミングフレームワークとして使用することができると期待している。
+
+詳細なAPIは、これから決めることになると思うが、今のCeriumのAPI
+
+
+
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/paper/o2tex	Thu Aug 11 21:26:04 2011 +0900
@@ -0,0 +1,714 @@
+#!/usr/bin/perl
+
+use strict;
+
+my $FS;
+my $abstract;
+my $alt;
+my $alt0;
+my $arg;
+my $author;
+my $backup;
+my $caption;
+my $cite;
+my $cover;
+my $current;
+my $day;
+my $depth;
+my $fdbase;
+my $fh;
+my $fig;
+my $file;
+my $m;
+my $mode;
+my $name;
+my $nextfh;
+my $note;
+my $number;
+my $ohp;
+my $paper;
+my $pipe;
+my $pre;
+my $section;
+my $title;
+my $tmp;
+my $verbatim;
+my $zero;
+my %opened;
+my @depend;
+my @ohpdepend;
+my $fh;
+my $line;
+
+unlink "title.tex";
+unlink "abstract.tex";
+unlink "cover.tex";
+# for msdos
+system("rm -f 0*.tex 1*.tex 2.tex 3.tex 4.tex 5.tex 6.tex 7.tex 8.tex 9.tex");
+
+$alt0 = "fig000";
+
+$paper = $ARGV[0];
+
+open(fh,">title.tex"); select(fh);
+print <<RogueRogue;
+RogueRogue
+
+close fh;
+open(fh,">abstract.tex"); select(fh);
+print <<RogueRogue;
+RogueRogue
+
+close fh;
+open(fh,">abstract-e.tex"); select(fh);
+print <<RogueRogue;
+RogueRogue
+
+close fh;
+open(fh,">00.tex"); select(fh);
+print <<RogueRogue;
+\\documentclass[12pt]{article} %%%%% preamble            %%%%%
+\\usepackage[dvipdfm]{graphicx}
+
+%\\textwidth 16.3cm	% the text frame size
+%\\textheight 23cm
+%\\oddsidemargin 5mm	% for centering
+%\\evensidemargin 13mm	% for centering
+%\\topmargin 1mm
+%\\pagestyle{empty}
+\\pagestyle{plain}
+\\begin{document}		%%%%% the main routine begins here	%%%%%
+%\\baselinestretch 2
+%\\flushbottom
+%\\large				% character size
+%\\setlength{\\baselineskip}{1cm}	% line spacing
+RogueRogue
+
+close fh;
+open(fh,">jsss00.tex"); select(fh);
+print <<RogueRogue;
+
+\\documentclass[twocolumn]{jarticle}
+\\usepackage[dvipdfm]{graphicx}
+
+%\hoffset -1in \\addtolength{\hoffset}{20mm}
+%\voffset -1in \\addtolength{\voffset}{20mm}
+%\oddsidemargin 0mm
+\\topmargin -4mm
+%\\headheight 13pt
+%\\headsep 15mm
+%\\textheight 43\\baselineskip \\addtolength{\\textheight}{\\topskip}
+%\\textwidth 160mm
+%\\marginparsep 3mm
+%\\marginparwidth 15mm
+%\\footskip \headsep
+
+\\begin{document}
+% \input tgrindfig.tex
+\\bibliographystyle{jplain} % for bibliography
+%
+\\include{title}
+%\\title{}
+
+\\date{}
+
+
+\\author{{河野真治} \\\\
+琉球大学理工学研究科情報工学専攻\\\\
+琉球大学工学部情報工学科\\\\
+}
+\\twocolumn[
+\\maketitle{}
+
+% {\\em 概要 \vspace{0.5cm}}\\
+\\include{abstract.tex}
+\\begin{center}
+{\\Large
+\\include{title-e.tex}\\
+\\include{author-e.tex}} \\\\ \\hspace{0.7cm}
+\\end{center}
+
+% {\tt \\Large Abstract}\\
+\\include{abstract-e.tex}
+\\\\
+\\hspace{0.5cm}
+]
+
+%
+\\input 0.tex
+%
+\\input reference.tex
+
+\\end{document}
+
+RogueRogue
+
+close fh;
+
+open(fh,">ohp00.tex"); select(fh);
+print <<RogueRogue;
+\\documentstyle[blackandwhite,landscape,oval,pagenumbers]{NRslides}
+% run this through SLiTeX
+\\input tgrindfi.tex
+\\raggedright
+\\begin{document}
+
+RogueRogue
+
+close fh;
+open(fh,">trcover.tex"); select(fh);
+print <<RogueRogue;
+\\documentstyle[a4,11pt]{article} %%%%% preamble		%%%%%
+%\\textwidth 16.3cm	% the text frame size
+%\\textheight 23cm
+%\\oddsidemargin 5mm	% for centering
+%\\evensidemargin 13mm	% for centering
+%\\topmargin 1mm
+\\begin{document}
+
+\\begin{titlepage}
+\\begin{center}\\vspace*{34mm}
+\\parbox[c]{12cm}{\\begin{center}
+RogueRogue
+
+close fh;
+
+
+$[ = 1;			# set array base to 1
+$FS = ' ';		# set field separator
+$, = ' ';		# set output field separator
+$\ = "\n";		# set output record separator
+
+$FS = "\n";
+$depth = 0;
+$section = 1;
+$file = '00.tex';
+$zero = '00.tex';
+$ohp = 'ohp00.tex';
+$cover = 'trcover.tex';
+$note = 1;
+$abstract = 0;
+$cite = "%";
+$m = "";  # msdos make
+$fdbase = "in00";
+
+@depend = ($paper);
+@ohpdepend = ('ohp.tex');
+
+$verbatim = 1;
+
+sub o2tex {
+my ($current) = @_;
+
+line: while (<$current>) {
+    chop;	# strip record separator
+    if( $verbatim && (!/^\s/) && (!/^$/) && $pre) {
+        print $fh "\\end{verbatim}\n}\n";
+        $pre = 0;
+    }
+    if (/^-*input: (.*)/) {
+	# $fdbase = $current; $fdbase ++;
+	my $fd;
+	open($fd,"nkf -w $1 |");
+	$fdbase = $fd;
+	push(@depend,$1);
+#	print STDOUT "$1 ";
+	do o2tex($fdbase);
+	next line;
+    }
+    if (/^-title:/) {
+	$file = 'title.tex';
+	$title = substr($_, 8, length($_) - 7);
+	&Pick('>>', $file) &&
+	    (printf $fh "\\title{{\\bf %s}}\n", $title);
+	&Pick('>>', $ohp) &&
+	    (printf $fh "\\title{{\\bf %s}}\n", $title);
+	next line;
+    }
+    if (/^-title-e:/) {
+	$file = 'title-e.tex';
+	$title = substr($_, 10, length($_) - 9);
+	&Pick('>>', $file) &&
+	    (printf $fh "\\title{{\\bf %s}}\n", $title);
+	&Pick('>>', $ohp) &&
+	    (printf $fh "\\title{{\\bf %s}}\n", $title);
+	next line;
+    }
+    if (/^--*date:/) {
+	for ($tmp = 1; substr($_, $tmp, 1) eq '-'; $tmp++) {
+	    ;
+	}
+	$tmp += 5;
+	$day = substr($_, $tmp, length($_) - $tmp + 1);
+	next line;
+    }
+    if (/^--*number:/) {
+	for ($tmp = 1; substr($_, $tmp, 1) eq '-'; $tmp++) {
+	    ;
+	}
+	$tmp += 7;
+	$number = substr($_, $tmp, length($_) - $tmp + 1);
+	next line;
+    }
+    if (/^--*note:/) {
+	&trcover();
+	$note = 2;
+	$file = 'trcover.tex';
+	&Pick('>>', $file) &&
+	    (printf $fh "\\clearpage\n");
+	    (printf $fh "\\vspace*{\\fill}\n");
+	    (printf $fh "\\begin{quote}\n");
+	next line;
+    }
+    if (/^--*author:/) {
+	$file = 'title.tex';
+	for ($tmp = 1; substr($_, $tmp, 1) eq '-'; $tmp++) {
+	    ;
+	}
+	$tmp += 7;
+	$author = substr($_, $tmp, length($_) - $tmp + 1);
+	&Pick('>>', $file) &&
+	    (printf $fh "%%\\pagenumbering{roman}\n");
+	    (printf $fh "\\author{%s \\\\[5mm]\n", $author);
+	    (printf $fh "e-mail:kono\@ie.u-ryukyu.ac.jp\\\\\n");
+	    (printf $fh "Information Engineering, University of the Ryukyus\\\\\n");
+	    (printf $fh "Nishihara-cyo 1, Okinawa, 903-01, Japan}\n");
+	if ($day) {
+		(printf $fh "\\date{%s}\n", $day);
+	}
+	else {
+		(printf $fh "%% \\date{}\n");
+	}
+	$file = sprintf('%d', $section) . '.tex';
+
+	&Pick('>>', $ohp) &&
+	    (printf $fh "\\author{%s \\\\[5mm]\n", $author);
+	    (printf $fh ".Information Engineering, University of the Ryukyus\n");
+	    (print $fh "%% \\today");
+	    (print $fh "\\maketitlepage");
+	next line;
+    }
+    if (/^--*author-e:/) {
+	$file = 'author-e.tex';
+	next line;
+    }
+    if (/^--*abstract-e:/) {
+	$file = 'abstract-e.tex';
+	$abstract = 1;
+	&Pick('>>', $file); # && (printf $fh "\\begin{quotation}\n");
+	next line;
+    }
+    if (/^--*abstract:/) {
+	$file = 'abstract.tex';
+	$abstract = 1;
+	&Pick('>>', $file); # && (printf $fh "\\begin{quotation}\n");
+	(print $fh "\\mbox{}");
+	next line;
+    }
+    if (/^--*begin-comment:/) {
+        $backup = $file;
+	$file = '/dev/null';
+	next line;
+    }
+    if (/^--*end-comment:/) {
+        $file = $backup;
+	next line;
+    }
+    if (/^-/) {
+	if ($abstract == 1) {
+	    &Pick('>>', $file); #  && (printf $fh "\\end{quotation}\n");
+
+	    $abstract = 0;
+	}
+	if ($note) {
+	    if ($note == 2) {
+		&Pick('>>', $cover) &&
+		    (printf $fh "\\end{quote}\n");
+	    }
+	    else {
+		&trcover();
+	    }
+	    $note = 0;
+	}
+	for ($depth = 1; substr($_, $depth, 1) eq '-'; $depth++) {
+	    ;
+	}
+	if ($depth == 3) {
+	    $file = sprintf('%d', $section) . '.tex';
+	    &Pick('>>', $file) &&
+		(print $fh "\\section{", substr($_, $depth,
+		  length($_) - $depth + 1) . '}');
+	    &Pick('>>', $ohp) &&
+		(print $fh "\\begin{bwslide}");
+		(print $fh "\\ctitle{", substr($_, $depth,
+		  length($_) - $depth + 1) . '}');
+		(print $fh "\\end{bwslide}\n\n");
+	    &Pick('>>', '0.tex') &&
+		(printf $fh "\\input{%d}\t%% %s\n", $section, substr($_,
+		  $depth, length($_) - $depth + 1));
+	    $section++;
+#	    print STDOUT "$section ";
+	}
+	elsif ($depth == 4) {
+	    $file = sprintf('%d', $section - 1) . '.tex';
+	    &Pick('>>', $file) &&
+		(print $fh "\\subsection{", substr($_, $depth,
+		  length($_) - $depth + 1) . '}');
+	    &Pick('>>', $ohp) &&
+		(print $fh "\\begin{bwslide}");
+		(print $fh "\\ctitle{", substr($_, $depth,
+		  length($_) - $depth + 1) . '}');
+		(print $fh "\\end{bwslide}\n\n");
+	}
+	elsif ($depth == 5) {
+	    $file = sprintf('%d', $section - 1) . '.tex';
+	    &Pick('>>', $file) &&
+		(print $fh "\\subsubsection{", substr($_, $depth,
+		  length($_) - $depth + 1) . '}');
+	    &Pick('>>', $ohp) &&
+		(print $fh "\\begin{bwslide}");
+		(print $fh "\\ctitle{", substr($_, $depth,
+		  length($_) - $depth + 1) . '}');
+		(print $fh "\\end{bwslide}\n\n");
+	}
+	else {
+	    $file = sprintf('%d', $section - 1) . '.tex';
+	    &Pick('>>', $file) &&
+		(printf $fh "%s\\\\\n", substr($_, $depth,
+		  length($_) - $depth + 1));
+	}
+	next line;
+    } elsif (m!^<center>\s*<img.*src="([^>"]*)"[^>]*alt="([^>"]*)"[^>]*>\s*</center>!i) {
+	$fig = $1; $alt = $2;
+	if ($fig) {
+            # leave .pdf untouch
+	    $fig =~ s/\.gif|\.jpg/.eps/;
+	}
+	if ($fig =~ /\.pdf/ && -f $fig) {
+            # generate .bb file
+	    system "ebb $fig";
+	}
+        if (! $alt) {
+            $alt = $alt0++;
+            $caption = "";
+        } else {
+            $caption = "\\caption{$alt}\n";
+        }
+	&Pick('>>', $file);
+	# center environment disturbes caption counter and label reference
+	$line =  <<"EOF";
+\\begin{figure}[htb]
+\\begin{center}
+\\includegraphics[width=6cm]{${fig}}
+${caption}\\end{center}
+\\label{${alt}}
+\\end{figure}
+EOF
+	# print $fh "(fig.\\ref{$alt})\n";
+	print $fh $line;
+	&Pick('>>', $ohp) &&
+	    (print $fh "\\centerline{$line}\n");
+	if(! /^\s*%/) {
+            $fig =~ s/[{}]//g;
+	    push(@depend,$fig);
+	    push(@ohpdepend,$fig);
+	}
+	next line;
+    } elsif (m!^<center>\s*<img.*src="([^>"]*)"[^>]*>\s*</center>!i) {
+	$fig = $1; $alt = $2;
+	if ($fig) {
+	    $fig =~ s/\.gif|\.jpg/.eps/;
+	}
+        if (! $alt) {
+            $alt = $alt0++;
+            $caption = "";
+        } else {
+            $caption = "\\caption{$alt}\n";
+        }
+	&Pick('>>', $file);
+	$line =  <<"EOF";
+\\begin{figure}[htb]
+\\begin{center}
+\\includegraphics[width=6cm]{${fig}}
+${caption}\\end{center}
+\\label{${alt}}
+\\end{figure}
+EOF
+	# print $fh "(fig.\\ref{$alt})\n";
+	print $fh $line;
+	&Pick('>>', $ohp) &&
+	    (print $fh "\\centerline{$line}\n");
+	if(! /^\s*%/) {
+            $fig =~ s/[{}]//g;
+	    push(@depend,$fig);
+	    push(@ohpdepend,$fig);
+	}
+	next line;
+    } elsif (/\\epsfile\{.*file=([^{},]+)/ ||
+            /\\input(.*)/ || /\\include(.*)/) {
+        $fig = $1;
+	&Pick('>>', $file) &&
+	    (print $fh $_);
+	&Pick('>>', $ohp) &&
+	    (print $fh "\\centerline{$_}\n");
+	if(! /^\s*%/) {
+            $fig =~ s/[{}]//g;
+	    push(@depend,$fig);
+	    push(@ohpdepend,$fig);
+	}
+	next line;
+    } elsif ($verbatim && /^\s/) {
+        if(! $pre) {
+	    &Pick('>>', $file) &&
+            print $fh "{\\small\n\\begin{verbatim}";
+            $pre = 1;
+        }
+        print $fh $_;
+    } elsif (!/^-/) {
+	&Pick('>>', $file) &&
+	    (print $fh $_);
+    }
+    if (/\\cite\{/) { $cite = ""; } # }
+  }
+}
+
+foreach $arg (@ARGV) {
+    if ($arg eq '-n') {
+	$verbatim = 0 ; next;
+    }
+  my $fd;
+  open($fd,"nkf -w $arg |") || die("$arg cannot open");
+  $fdbase = $fd;
+  do o2tex($fdbase);
+}
+
+&Pick('>>', $zero);
+    select($fh);
+       printf $fh "%s\\bibliographystyle{jplain} %% for bibliography\n", $cite;
+    print <<RogueRogue ;
+\\input{title}	% title, abstract
+\\maketitle
+\\begin{quote}
+\\input{abstract}
+\\end{quote}
+%%%%\\tableofcontents		%% contents, lists
+%%%%\\listoffigures
+%%%%\\listoftables
+%\\pagenumbering{arabic}
+
+\\input{0}	% sections
+RogueRogue
+
+    printf $fh "%s\\bibliography{ref}\n", $cite;
+    if($cite eq "%") { $cite = "#" ; }
+&Pick('>>', $zero) &&
+    (printf $fh "\\end{document}\n");
+    close($fh);
+&Pick('>>', $ohp) &&
+    (printf $fh "\n\\end{document}\n");
+    close($fh);
+
+sub trcover {
+    if ($title) {
+	&Pick('>>', $cover) &&
+	    (printf $fh "{\\LARGE\\bf %s}\\\\[+5mm]\n", $title);
+    }
+    if ($author) {
+	&Pick('>>', $cover) &&
+	    (printf $fh "{\\large %s}\\\\[+5mm]\n", $author);
+    }
+    if ($number) {
+	&Pick('>>', $cover) &&
+	    (printf $fh "{\\large %s}\\\\[+4mm]\n", $number);
+    }
+    if ($day) {
+	&Pick('>>', $cover) &&
+	    (printf $fh "{\\large %s}\n", $day);
+    }
+    &Pick('>>', $cover) &&
+	(print $fh "\\end{center}}\\\\");
+	(print $fh "\\vfill");
+	(printf $fh "{\\Large Information Engineering, University of the Ryukyus\\\\\n");
+	(print $fh "Nishihara-cho 1, Okinawa, 903-01 JAPAN}\\\\[+2cm]");
+	(print $fh "{\\small Copyright \\copyright\\ \\number\\year\\");
+	(print $fh 'University of the Ryukyus');
+	(print $fh "}\\\\[+1cm]");
+	(print $fh "\\end{center}");
+	(print $fh "\\end{titlepage}\n\n");
+    return;
+}
+
+sub Pick {
+    my ($mode,$name,$pipe) = @_;
+    $fh = $opened{$name};
+    if (!$fh) {
+	my $fd;
+	# $fh = $opened{$name} = 'fh_' . ($nextfh++ + 0);
+	open($fd,$mode.$name.$pipe);
+	$fh = $opened{$name} = $fd;
+    }
+    1;
+}
+
+&Pick('>>', $cover) &&
+print $fh "\\end{document}\n";
+close $fh;
+
+if (! -f Makefile) {
+open(fh,">Makefile"); select(fh);
+print "PAPER = ". $paper . "\n";
+print <<RogueRogue;
+
+PRINTER = ab
+OHP = ohp
+MAIN = main
+COVER = trcover
+LATEX = platex-utf8
+SLITEX = jslitex
+BIBTEX = jbibtex -kanji=utf8
+AWK = awk
+SED = sed
+DVI2PS = dvi2ps
+DVI2PS = dvipdfmx
+R =
+PRINTER =
+
+$m.SUFFIXES: .c .d .tokio .x .xfig .fig .tex .dvi .print .lw .next .ps .gs .xdvi
+
+.d.tex:
+	tgrind -F -ldb \$< >\$@
+.c.tex:
+	tgrind -F -lC \$< >\$@
+.tokio.tex:
+	tgrind -F -ltokio \$< >\$@
+.fig.tex:
+	f2tpic \$< >\$@
+.xfig.tex:
+	f2tpic \$< >\$@
+.fig.ps:
+	f2ps1 \$< >\$@
+.x.tex:
+	x2tpic \$<
+	-rm -f \$*.pic
+.tex.dvi:
+	jlatex \$<
+.dvi.print:
+	\$(DVI2PS) \$(R) \$< | lpr -P\$(PRINTER)
+#	lpr \$(PRINTER) -d \$<
+.dvi.lw:
+	\$(DVI2PS) \$(R) \$< | lpr -P\$(PRINTER)
+.dvi.next:
+	dviNeXT \$<
+.dvi.xdvi:
+	(exec xdvi \$< & )
+.dvi.ps:
+	-\$(DVI2PS) \$(R) \$< > \$*.ps
+.dvi.pdf:
+	-\$(DVI2PDF)  \$<
+.ps.gs:
+	gs \$*.ps
+
+all:
+	-rm -f \$(MAIN).dvi \$(MAIN).pdf
+	make \$(MAIN).pdf
+
+print: \$(MAIN).print
+lw: \$(MAIN).lw
+next: \$(MAIN).next
+gs: \$(MAIN).gs
+\$(MAIN).gs : \$(MAIN).ps
+\$(MAIN).ps : \$(MAIN).dvi
+\$(MAIN).pdf : \$(MAIN).dvi
+\$(OHP).gs : \$(OHP).ps
+\$(OHP).ps : \$(OHP).dvi
+\$(OHP).pdf : \$(OHP).dvi
+xdvi: \$(MAIN).xdvi
+dvips: \$(MAIN).dvi
+	dvips \$(MAIN).dvi -o \$(MAIN).ps
+
+\$(MAIN).dvi:  1.tex
+	\$(LATEX) \$(MAIN)
+
+jsss.dvi:  jsss.tex 1.tex
+	\$(LATEX) jsss.tex
+
+wc:
+	\$(SED) -e '/\\\\special{/d' \$(PAPER) | delatex | wc
+uu:
+	tar cBf - \$(MAIN).[tab]* [0-9]*.tex \$(DEPENDENCY)   \\
+	title.tex abstract.tex ohp.tex \\
+	Makefile | gzip | uuencode \$(PAPER).tar.gz > uu
+
+
+bbl: \$(MAIN).bbl
+
+\$(MAIN).bbl:  ref.bib 1.tex # \$(MAIN).aux
+	-\$(BIBTEX) \$(MAIN)
+
+\$(MAIN).aux: \$(MAIN).tex 1.tex
+	\$(LATEX) \$(MAIN)
+
+1.tex: \$(PAPER) \$(DEPENDENCY)
+	-o2tex \$(PAPER)
+
+# OHP with slitex
+\$(OHP): \$(OHP).dvi
+\$(OHP).dvi : \$(OHP).tex \$(DEPENDOHP)
+	\$(SLITEX) \$(OHP)
+
+ohpprint: \$(OHP).dvi
+	lpr  -c \$(OHP).dvi
+ohplw: \$(OHP).dvi
+	\$(DVI2PS) \$(R) -o landscape \$(OHP).dvi | lpr  -P\$(PRINTER)
+ohpnext: \$(OHP).dvi
+	\$(DVI2PS) -h -i /usr/lib/tex/ps/tex-j.next -o landscape \$(OHP).dvi |\\
+	lpr  -Pcb
+ohpgs:  \$(OHP).gs
+
+cover: \$(COVER).dvi
+\$(COVER): \$(COVER).dvi
+\$(COVER).dvi : \$(PAPER)
+coverprint: \$(COVER).print
+coverlw: \$(COVER).lw
+covernext: \$(COVER).next
+covergs:  \$(COVER).gs
+
+clean:
+	-rm -f \$(MAIN).ps *.dvi *.log *.blg \\
+		*~ \\#* ?.tex *.toc *.lof *.lot xfig/*.tex
+
+tgrindfig.tex:
+	ln -s "\$\$HOME"/paper/tgrindfig.tex .
+# for MSDOS
+tgrindfi.tex:
+	ln -s "\$\$HOME"/paper/tgrindfig.tex tgrindfi.tex
+ref.bib:
+	ln -s "\$\$HOME"/paper/ref.bib .
+
+RogueRogue
+close fh;
+}
+if ( ! -f "main.tex") {
+	rename('00.tex','main.tex');
+}
+if ( ! -f "jsss.tex") {
+	rename('jsss00.tex','jsss.tex');
+}
+if ( ! -f "ohp.tex") {
+	rename('ohp00.tex','ohp.tex');
+}
+# make depend > /dev/null
+
+rename("Makefile","Makefile.old");
+open(MAKE, "<Makefile.old");
+open(fh,">Makefile");
+select(fh);
+print "DEPENDENCY = @depend\n";
+print "DEPENDOHP = @ohpdepend\n";
+while(<MAKE>) {
+   next if(/^DEPEND/);
+   chop; print;
+}
+close(fh);
+
+# end