diff options
author | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2018-09-04 11:29:21 +0000 |
---|---|---|
committer | Hironobu Yamashita <h.y.acetaminophen@gmail.com> | 2018-09-04 11:29:21 +0000 |
commit | 35a9ca73f13ae06f707401c60906a1ce537aafc3 (patch) | |
tree | cadd4c1d092e797d76a9b02cf96dc0e5bcfbf822 /Build/source/texk/web2c/eptexdir/tests | |
parent | e68200b37960f8500ddb8bcf15ae734ee8a8009d (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.sh | 10 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/tests/pdforigin.tex | 40 | ||||
-rw-r--r-- | Build/source/texk/web2c/eptexdir/tests/pdfpagewidth.tex | 24 |
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 |