summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/eptexdir/tests
diff options
context:
space:
mode:
authorHironobu Yamashita <h.y.acetaminophen@gmail.com>2018-09-04 11:29:21 +0000
committerHironobu Yamashita <h.y.acetaminophen@gmail.com>2018-09-04 11:29:21 +0000
commit35a9ca73f13ae06f707401c60906a1ce537aafc3 (patch)
treecadd4c1d092e797d76a9b02cf96dc0e5bcfbf822 /Build/source/texk/web2c/eptexdir/tests
parente68200b37960f8500ddb8bcf15ae734ee8a8009d (diff)
eptexdir: add new primitive \readpapersizespecial (H. Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@48574 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/eptexdir/tests')
-rw-r--r--Build/source/texk/web2c/eptexdir/tests/pdforigin.sh10
-rw-r--r--Build/source/texk/web2c/eptexdir/tests/pdforigin.tex40
-rw-r--r--Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex24
3 files changed, 74 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdforigin.sh b/Build/source/texk/web2c/eptexdir/tests/pdforigin.sh
new file mode 100644
index 00000000000..0889a39508b
--- /dev/null
+++ b/Build/source/texk/web2c/eptexdir/tests/pdforigin.sh
@@ -0,0 +1,10 @@
+#!/bin/bash
+etex pdforigin.tex && etex pdforigin.tex
+dvips pdforigin
+ps2pdf pdforigin.ps && mv pdforigin.pdf pdforigin_etex_dvips.pdf
+dvipdfmx pdforigin && mv pdforigin.pdf pdforigin_etex_dvipdfmx.pdf
+eptex pdforigin.tex && eptex pdforigin.tex
+dvipdfmx pdforigin && mv pdforigin.pdf pdforigin_eptex_dvipdfmx.pdf
+pdftex pdforigin.tex && pdftex pdforigin.tex && mv pdforigin.pdf pdforigin_pdftex.pdf
+xetex pdforigin.tex && xetex pdforigin.tex && mv pdforigin.pdf pdforigin_xetex.pdf
+
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex b/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex
new file mode 100644
index 00000000000..ab64ac932b9
--- /dev/null
+++ b/Build/source/texk/web2c/eptexdir/tests/pdforigin.tex
@@ -0,0 +1,40 @@
+\mag=3000
+
+\newdimen\XPOS\newdimen\YPOS\newread\TMP
+\openin\TMP=\jobname.tmp
+\ifeof\TMP\else\closein\TMP\input \jobname.tmp\fi
+\immediate\openout\TMP=\jobname.tmp
+\topskip0pt
+\ifdefined\pagewidth
+ \pagewidth=10truein\pageheight=10truein
+\else\ifdefined\pdfpagewidth
+ \pdfpagewidth=10truein\pdfpageheight=10truein
+\fi\fi
+
+\shipout\hbox{%
+ \special{papersize=10truein,10truein}%
+ \pdfsavepos%
+ \write\TMP{\noexpand\XPOS=\the\pdflastxpos sp\noexpand\YPOS=\the\pdflastypos sp}%
+ \smash{%
+ \llap{\hss\vrule height 1pt depth 0pt width \XPOS}%
+ \llap{\hss\vrule height 2.4pt depth -2pt width 1in}%
+ \llap{\hss\vrule height 4pt depth -3.2pt width 1truein}%
+ \llap{\vrule height 1in depth 0pt width 0.4pt\kern.8pt%
+ \vrule height 1truein depth 0pt width 0.8pt}%
+ \rlap{%
+ \vrule height 0pt depth \dimexpr\YPOS+5truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS+4truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS+3truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS+2truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS+1truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS width .8pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS-1truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS-2truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS-3truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS-4truept width .4pt\kern.8pt
+ \vrule height 0pt depth \dimexpr\YPOS-5truept width .4pt\kern.8pt%
+ }%
+ }%
+}
+\end
+
diff --git a/Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex b/Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex
new file mode 100644
index 00000000000..c285d7601db
--- /dev/null
+++ b/Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex
@@ -0,0 +1,24 @@
+%#!eptex
+
+\def\TEST#1{%
+ \pdfpagewidth0pt\pdfpageheight0pt
+ \shipout\hbox{\special{#1}}%
+ \message{<\the\pdfpagewidth, \the\pdfpageheight>}%
+}
+\count0=0
+\readpapersizespecial=1
+\TEST{papersize=10pt,20pt} % OK
+\TEST{papersize=10pt,20zw} % `zw' is not supported
+\TEST{papersize=10pt,20ex} % `ex' is neither
+\TEST{papersize=1pt,2} % no unit
+\TEST{papersize 10pc,20pc} % there is no `='
+\TEST{papersize=10pcA,20pc}%
+\TEST{papersize=10pc,20pcs}%
+\TEST{papersize=10pt,-20pt}% negative value
+\TEST{papersize=0pt,20000.6sp}% OK
+\TEST{papersize=30.2pt,665pt}% OK
+
+\readpapersizespecial=0
+\TEST{papersize=10pt,20pt}
+
+\end