diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-08-06 08:49:49 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2015-08-06 08:49:49 +0000 |
commit | e93b86c4e1b5c8621d01b19e36a50bb2aee7e9ee (patch) | |
tree | 2dca2c7d442cfdd2b70766ca20ea5d8128d5112c /Build/source/texk/web2c/euptexdir | |
parent | d7293e533b11c4b1d32619f77f97e1e17730faf8 (diff) |
e-(u)pTeX: Add primitives \pdfprimitive and \ifpdfprimitive (from Hironori Kitagawa)
git-svn-id: svn://tug.org/texlive/trunk@38060 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/euptexdir')
5 files changed, 73 insertions, 3 deletions
diff --git a/Build/source/texk/web2c/euptexdir/ChangeLog b/Build/source/texk/web2c/euptexdir/ChangeLog index 3bdb7c84ecc..2f7355cc11c 100644 --- a/Build/source/texk/web2c/euptexdir/ChangeLog +++ b/Build/source/texk/web2c/euptexdir/ChangeLog @@ -1,3 +1,13 @@ +2015-08-06 Peter Breitenlohner <peb@mppmu.mpg.de> + + * pdfprimitive.test: New shell script testing \pdfprimitive. + * tests/pdfprimitive-euptex.log: New expected output data. + * am/euptex.am: Added the new files. + +2015-08-05 Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp> + + * pdfstrcmp-eup-post.ch: Updated for \pdfprimitive. + 2015-07-10 Peter Breitenlohner <peb@mppmu.mpg.de> * euptriptest (removed): Renamed ... diff --git a/Build/source/texk/web2c/euptexdir/am/euptex.am b/Build/source/texk/web2c/euptexdir/am/euptex.am index 8519bdec014..84c55e4b57b 100644 --- a/Build/source/texk/web2c/euptexdir/am/euptex.am +++ b/Build/source/texk/web2c/euptexdir/am/euptex.am @@ -82,8 +82,9 @@ EXTRA_DIST += \ # e-upTeX Tests # -euptex_tests = euptexdir/euptriptest.test +euptex_tests = euptexdir/euptriptest.test euptexdir/pdfprimitive.test euptexdir/euptriptest.log: euptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT) +euptexdir/pdfprimitive.log: euptex$(EXEEXT) EXTRA_DIST += $(euptex_tests) @@ -95,7 +96,7 @@ endif EUPTEX ## Test data and results ## -## eptexdir/eptriptest +## euptexdir/euptriptest.test EXTRA_DIST += \ eptexdir/eptrip/eptrip.log \ eptexdir/eptrip/eptrip.tex \ @@ -106,6 +107,11 @@ euptrip.diffs: euptex$(EXEEXT) dvitype$(EXEEXT) pltotf$(EXEEXT) tftopl$(EXEEXT) .PHONY: euptrip-clean euptrip-clean: rm -rf euptripdir - DISTCLEANFILES += euptrip.diffs +## euptexdir/pdfprimitive.test +EXTRA_DIST += \ + euptexdir/pdfprimitive.test \ + eptexdir/tests/pdfprimitive-test.tex \ + euptexdir/tests/pdfprimitive-euptex.log +DISTCLEANFILES += pdfprimitive-euptex.* diff --git a/Build/source/texk/web2c/euptexdir/pdfprimitive.test b/Build/source/texk/web2c/euptexdir/pdfprimitive.test new file mode 100755 index 00000000000..115d08d1fe9 --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/pdfprimitive.test @@ -0,0 +1,22 @@ +#! /bin/sh +# +# Copyright (C) 2015 Peter Breitenlohner <tex-live@tug.org> +# You may freely use, modify and/or distribute this file. + +TEXMFCNF=$srcdir/../kpathsea +TEXINPUTS=. + +export TEXMFCNF TEXINPUTS + +FILE=pdfprimitive-euptex + +# get same filename in log +rm -f $FILE.* +$LN_S $srcdir/eptexdir/tests/pdfprimitive-test.tex $FILE.tex + +./euptex -ini -etex $FILE && exit 1 + +sed 1d $FILE.log >$FILE.out + +diff $srcdir/euptexdir/tests/$FILE.log $FILE.out || exit 1 + diff --git a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch index 939ccb12a74..16752d25b5f 100644 --- a/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch +++ b/Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch @@ -1,4 +1,15 @@ @x + cur_tok := (cur_cmd*@'400)+cur_chr; +@y + cur_tok := (cur_cmd*max_char_val)+cur_chr; +@z +@x + cur_tok := (cur_cmd*@'400)+cur_chr; +@y + cur_tok := (cur_cmd*max_char_val)+cur_chr; +@z + +@x procedure print_kanji(@!s:integer); {prints a single character} begin if s>255 then begin diff --git a/Build/source/texk/web2c/euptexdir/tests/pdfprimitive-euptex.log b/Build/source/texk/web2c/euptexdir/tests/pdfprimitive-euptex.log new file mode 100644 index 00000000000..85f3745bbaa --- /dev/null +++ b/Build/source/texk/web2c/euptexdir/tests/pdfprimitive-euptex.log @@ -0,0 +1,21 @@ +entering extended mode + restricted \write18 enabled. + %&-line parsing enabled. +**pdfprimitive-euptex +(./pdfprimitive-euptex.tex +RELAX macro:->\message {RELAX} FUGA +! Missing primitive name. +<to be read again> + \fuga +l.13 \pdfprimitive\fuga + % ==> ``! Missing primitive name.'' error +The control sequence marked <to be read again> does not +represent any known primitive. + +FUGA F T F F F +> \pdfstrcmp=\pdfstrcmp. +l.22 \show\pdfstrcmp + % ==> \pdfstrcmp + + ) +No pages of output. |