sources, new bin

git-svn-id: svn://tug.org/texlive/trunk@3449 c570f23f-e606-0410-a88d-b1316a301751

4 files changed, 248 insertions, 1 deletions

diff --git a/Build/source/utils/tpic2pdftex/Makefile b/Build/source/utils/tpic2pdftex/Makefile
new file mode 100644
index 00000000000..99cd48d04e5
--- /dev/null
+++ b/Build/source/utils/tpic2pdftex/Makefile
@@ -0,0 +1,31 @@
+#$Id: Makefile,v 1.21 2007/01/14 13:35:17 hahe Exp hahe $
+
+.PRECIOUS:	%.tpic %.tex
+
+all:	example.pdf beamerexample.pdf
+
+example.pdf:	example.tex
+	pdftex $<
+
+beamerexample.pdf:	beamerexample.tex
+	pdflatex $<
+
+%.tpic:	%.pic Makefile
+	pic -z -t $< > $@
+
+%.tex:	%.tpic
+	tpic2pdftex $< > $@
+
+clean:
+	- rm *.tex
+	- rm *.log
+	- rm *.toc
+	- rm *.out
+	- rm *.snm
+	- rm *.nav
+	- rm *.aux
+	- rm *.tpic
+
+allclean:
+	make clean
+	- rm *.pdf
diff --git a/Build/source/utils/tpic2pdftex/beamerexample.pic b/Build/source/utils/tpic2pdftex/beamerexample.pic
new file mode 100644
index 00000000000..558bfaaaf12
--- /dev/null
+++ b/Build/source/utils/tpic2pdftex/beamerexample.pic
@@ -0,0 +1,88 @@
+%$Id: beamerexample.pic,v 1.3 2004/04/13 21:36:47 hahe Exp hahe $
+\documentclass{beamer}
+\beamertemplatenavigationsymbolsempty
+\newcommand\gpicbox[1]{\vbox{\unvcopy\csname #1\endcsname\kern0pt}}
+%***********************************************************************
+\begin{document}
+
+\section{PDF File Generation}
+
+\frame{
+\frametitle{How a PDF File is generated\ldots}
+.PS
+[
+  boxwid=0.8; boxht=0.2
+  ellipsewid=0.8; ellipseht=0.25
+  down
+  A:ellipse "{\ttfamily foo.tex}"
+  arrow 0.2 at A.s
+  B:box "tex"
+    [
+    right
+    ellipse wid 1.2*ellipsewid "{\ttfamily $\ast$.tfm}"
+    arrow 0.2
+    ] with .e at B.w
+  arrow 0.2 at B.s
+  C:ellipse "{\ttfamily foo.dvi}"
+\only<2-3>{%
+  arrow 0.2
+  D:box "dvips"
+    Q:[
+    D: ellipse wid 1.2*ellipsewid "{\ttfamily $\ast$.vf}, {\ttfamily $\ast$.tfm}"
+    move 0.1
+    E: ellipse ht 0.8 wid 1.2*ellipsewid "{\ttfamily psfonts.map}" \
+                      "{\ttfamily $\ast$.enc}, {\ttfamily $\ast$.pfb}"
+    ] with .e at D.w - (0.2,0)
+  spline -> right 0.05 from Q.D.e to D.nw
+  spline -> right 0.05 from Q.E.e to D.sw
+  arrow down 0.2 at D.s
+  ellipse "{\ttfamily foo.ps}"
+\relax}%
+\only<3>{%
+  arrow 0.2
+  X:box "ps2pdf"
+  arrow 0.2
+  ellipse "{\ttfamily foo.pdf}"
+\relax}%
+\only<4-| handout:0>{%
+  arrow 0.2 at C.s
+  D1:box "dvipdfm\textcolor{black!50}{x}"
+    Q1:[
+    D: ellipse wid 1.2*ellipsewid "{\ttfamily $\ast$.vf}, {\ttfamily $\ast$.tfm}"
+    move 0.1
+    E: ellipse ht 0.8 wid 1.2*ellipsewid "{\ttfamily psfonts.map}" \
+                      "{\ttfamily $\ast$.enc}, {\ttfamily $\ast$.pfb}"
+    ] with .e at D.w - (0.2,0)
+  spline -> right 0.05 from Q1.D.e to D1.nw
+  spline -> right 0.05 from Q1.E.e to D1.sw
+  arrow down 0.2 at D1.s
+  ellipse "{\ttfamily foo.pdf}"
+\relax}%
+\only<5->{%
+  move right 2.2 at A.n
+  down
+  ellipse "{\ttfamily foo.tex}"
+  arrow 0.2
+  P:box ht (B.n.y - D1.s.y) "pdftex"
+    [
+    right
+    ellipse wid 1.2*ellipsewid "{\ttfamily $\ast$.vf}, {\ttfamily $\ast$.tfm}"
+    arrow 0.2
+    ] with .e at (P.w.x,Q.D.y)
+    RR:[
+    A:ellipse ht 0.8 wid 1.2*ellipsewid "{\ttfamily pdftex.map}" \
+                      "{\ttfamily $\ast$.enc}, {\ttfamily $\ast$.pfb}"
+    ] with .e at (P.w.x - 0.2,Q.E.y)
+  spline -> right 0.05 from RR.A.e to P.sw
+  down
+  arrow 0.2 at P.s
+  ellipse "{\ttfamily foo.pdf}"
+]
+\relax}%
+.PE
+
+\centering
+\leavevmode\gpicbox{graph}
+}
+
+\end{document}
diff --git a/Build/source/utils/tpic2pdftex/example.pic b/Build/source/utils/tpic2pdftex/example.pic
new file mode 100644
index 00000000000..f0158638bbe
--- /dev/null
+++ b/Build/source/utils/tpic2pdftex/example.pic
@@ -0,0 +1,127 @@
+%$Id: example.pic,v 1.19 2007/01/14 14:03:51 hahe Exp hahe $
+%***********************************************************************
+\pdfcompresslevel=0
+\def\gpicbox#1{\vbox{\unvbox\csname #1\endcsname\kern0pt}}
+\newcount\piccount\piccount=0
+\def\sep{\advance\piccount by 1%
+  \kern5pt\hrule\kern5pt\rlap{\smash{\lower10pt\hbox{\the\piccount}}}}
+\sep
+%***********************************************************************
+% 1
+.PS
+box dotted thickness 1; arrow;
+circle dotted 0.02 fill 0.1 "Hello"; arrowhead = 7; arrow; circle fill 0.1;
+arrowhead = 2; arrow; circle fill 0.9; arrow; box dashed 0.1
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 2
+.PS
+ellipse; arrow;
+\pdfliteral {q 1 0 0 RG}
+ellipse dotted thickness 2;
+\pdfliteral {Q}
+arrow;
+ellipse dashed "$\sqrt{3/7\cdot{2\over5}}$" "No.~2"; arrow;
+\pdfliteral {q 0 0 1 RG}
+\pdfliteral {  0.5 0.5 0.0 rg}
+box rad 0.25 fill 0.05 "Hello"; arrow;
+\pdfliteral {Q}
+box dotted fill 0.2
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 3
+.PS
+line; arc; arc cw; line
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 4
+.PS
+spline right 1 then down .5 left 1 then right 1 ->;
+line dashed right 1 then down .5 left 1 then right 1 -> at last spline
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 5
+.PS
+\pdfliteral {q 0 1 0 RG}
+spline dashed right 1 then down .5 left 1 then down ->
+\pdfliteral {Q}
+line dotted 0.02 right 1 then down .5 left 1 then down -> at last spline
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 6
+.PS
+spline left then up right then down right ->
+.PE
+\centerline{A\vrule\gpicbox{graph}\vrule B}
+\sep
+%***********************************************************************
+% 7
+.PS
+spline right then up then left then down ->
+line dotted right then up then left then down -> at last spline
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 8
+.PS
+circle "x"
+circle "y" at 1st circle - (0.4, 0.6)
+circle "z" at 1st circle + (0.4, -0.6)
+arrow from 1st circle to 2nd circle chop
+arrow from 2st circle to 3rd circle chop
+arrow from 3rd circle to 1st circle chop
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+% 9
+% example borrowed from file cstr116.pdf or cstr116.ps:
+% PIC --- A Graphics Language for Typesetting, User Manual,
+% Brian W. Kernighan, Revised, May, 1991
+.PS
+define ndblock{
+	box wid boxwid/2 ht boxht/2
+	down; box same with .t at bottom of last box; box same
+}
+boxht = .2; boxwid = .3; circlerad = .3; dx = 0.05
+down; box; box; box; box ht 3*boxht "." "." "."
+L: box; box; box invis wid 2*boxwid "hashtab:" with .e at 1st box .w
+right
+Start: box wid .5 with .sw at 1st box.ne + (.4,.2) "..."
+N1: box wid .2 "n1"; D1: box wid .3 "d1"
+N3: box wid .4 "n3"; D3: box wid .3 "d3"
+box wid .4 "..."
+N2: box wid .5 "n2"; D2: box wid .2 "d2"
+arrow right from 2nd box
+ndblock
+spline -> right .2 from 3rd last box then to N1.sw + (dx,0)
+spline -> right .3 from 2nd last box then to D1.sw + (dx,0)
+arrow right from last box
+ndblock
+spline -> right .2 from 3rd last box to N2.sw - (dx,.2) to N2.sw + (dx,0)
+spline -> right .3 from 2nd last box to D2.sw - (dx,.2) to D2.sw + (dx,0)
+arrow right 2* linewid from L
+ndblock
+spline -> right .2 from 3rd last box to N3.sw + (dx,0)
+spline -> right .3 from 2nd last box to D3.sw + (dx,0)
+circlerad=.3
+circle invis "ndblock" at last box.e + (1.2,.2)
+arrow dashed from last circle.w to last box chop 0 chop .3
+box invis wid 2*boxwid "ndtable:" with .e at Start.w
+.PE
+\centerline{A\gpicbox{graph}B}
+\sep
+%***********************************************************************
+\end
+
diff --git a/Build/source/utils/tpic2pdftex/tpic2pdftex b/Build/source/utils/tpic2pdftex/tpic2pdftex
index a8ae0354895..a5e274257dd 100755
--- a/Build/source/utils/tpic2pdftex/tpic2pdftex
+++ b/Build/source/utils/tpic2pdftex/tpic2pdftex
@@ -1,6 +1,6 @@
 #!/bin/sh -
 #
-# $Id: tpic2pdftex,v 1.92 2007/01/14 13:32:50 hahe Exp hahe $
+# $Id: tpic2pdftex,v 1.93 2007/01/14 13:55:43 hahe Exp hahe $
 #
 # Experimental awk-script for conversion of tpic \specials as produced
 # by (groff-)pic into pdfTeX \pdfliteral sections for further processing
@@ -67,6 +67,7 @@
 ########################################################################
 
 AWK=${AWK:-gawk}
+export LANG="C"
 
 AWKPROG='
 # begin of awk input file