summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/euptexdir
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2015-08-06 08:49:49 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2015-08-06 08:49:49 +0000
commite93b86c4e1b5c8621d01b19e36a50bb2aee7e9ee (patch)
tree2dca2c7d442cfdd2b70766ca20ea5d8128d5112c /Build/source/texk/web2c/euptexdir
parentd7293e533b11c4b1d32619f77f97e1e17730faf8 (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')
-rw-r--r--Build/source/texk/web2c/euptexdir/ChangeLog10
-rw-r--r--Build/source/texk/web2c/euptexdir/am/euptex.am12
-rwxr-xr-xBuild/source/texk/web2c/euptexdir/pdfprimitive.test22
-rw-r--r--Build/source/texk/web2c/euptexdir/pdfstrcmp-eup-post.ch11
-rw-r--r--Build/source/texk/web2c/euptexdir/tests/pdfprimitive-euptex.log21
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.