summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/pdftexdir/pdftex.web
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-01-07 00:25:31 +0000
committerKarl Berry <karl@freefriends.org>2018-01-07 00:25:31 +0000
commit56a12692ea58b621afb76cc8e90dcd0de5daa3d2 (patch)
tree802d816a6517f54e459547fa99379491ed969e2d /Build/source/texk/web2c/pdftexdir/pdftex.web
parent55ce2577d4277b51f7ba1ecaf4cd044879d1a5db (diff)
output non-pdf special being ignored, from pdftex r792
git-svn-id: svn://tug.org/texlive/trunk@46237 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/pdftexdir/pdftex.web')
-rw-r--r--Build/source/texk/web2c/pdftexdir/pdftex.web20
1 files changed, 19 insertions, 1 deletions
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<str_start[s+1]) and (j<=str_start[s]+max_len) do
+ begin print(so(str_pool[j])); incr(j);
+ end;
+ end;
+ if j<str_start[s+1] then print("..."); {indicate truncation}
+end;
+
procedure literal(s: str_number; literal_mode: integer; warn: boolean);
var j: pool_pointer; {current character code position}
begin
@@ -16257,8 +16270,13 @@ begin
if not (str_in_str(s, "PDF:", 0) or str_in_str(s, "pdf:", 0)) then begin
if warn and not (str_in_str(s, "SRC:", 0)
or str_in_str(s, "src:", 0)
- or (length(s) = 0)) then
+ or (length(s) = 0)) then begin
print_nl("Non-PDF special ignored!");
+ print_nl("<special> ");
+ slow_print_substr(s, 64);
+ {length of printed line should be <=78; good enough.}
+ print_ln;
+ end;
return;
end;
j := j + length("PDF:");