From 56a12692ea58b621afb76cc8e90dcd0de5daa3d2 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 7 Jan 2018 00:25:31 +0000 Subject: output non-pdf special being ignored, from pdftex r792 git-svn-id: svn://tug.org/texlive/trunk@46237 c570f23f-e606-0410-a88d-b1316a301751 --- Build/source/texk/web2c/pdftexdir/ChangeLog | 7 +++++++ Build/source/texk/web2c/pdftexdir/NEWS | 2 ++ Build/source/texk/web2c/pdftexdir/pdftex.web | 20 +++++++++++++++++++- 3 files changed, 28 insertions(+), 1 deletion(-) (limited to 'Build/source') diff --git a/Build/source/texk/web2c/pdftexdir/ChangeLog b/Build/source/texk/web2c/pdftexdir/ChangeLog index 38b0c800375..b34e83ff220 100644 --- a/Build/source/texk/web2c/pdftexdir/ChangeLog +++ b/Build/source/texk/web2c/pdftexdir/ChangeLog @@ -1,3 +1,10 @@ +2018-01-06 Karl Berry + + * pdftex.web (literal): if a non-PDF special is ignored, + also output " " and the first 64 characters of the special. + (slow_print_substr): new procedure, although surely there's + already a way to print a substring of a pool string. + 2018-01-01 Pali Roh\'ar Patch 1: explicitly detect bitmap PK font in fm_scan_line, diff --git a/Build/source/texk/web2c/pdftexdir/NEWS b/Build/source/texk/web2c/pdftexdir/NEWS index b99fccb6902..bad6e676c27 100644 --- a/Build/source/texk/web2c/pdftexdir/NEWS +++ b/Build/source/texk/web2c/pdftexdir/NEWS @@ -2,6 +2,8 @@ - do not hash current directory into PDF ID, for more reproducible builds (pdftex r782). - allow encoding vectors for bitmap PK fonts (r790). + - when a non-PDF special is ignored, output a (leading substring of the) + special, preceded by " ". - bugfixes: - \pdfprimitive does nothing, rather than give an error, when given a diff --git a/Build/source/texk/web2c/pdftexdir/pdftex.web b/Build/source/texk/web2c/pdftexdir/pdftex.web index b53a2345a84..2bcce0d5e90 100644 --- a/Build/source/texk/web2c/pdftexdir/pdftex.web +++ b/Build/source/texk/web2c/pdftexdir/pdftex.web @@ -16249,6 +16249,19 @@ begin pdf_print_ln("]"); end; +{Prints first |len| characters of string |s| (if it's that long). + There must be a better way to print a substring?} +procedure slow_print_substr(@!s,@!max_len:integer); +var j:pool_pointer; {current character code position} +begin if (s>=str_ptr) or (s<256) then print(s) +else begin j:=str_start[s]; + while (j "); + slow_print_substr(s, 64); + {length of printed line should be <=78; good enough.} + print_ln; + end; return; end; j := j + length("PDF:"); -- cgit v1.2.3