diff options
author | Karl Berry <karl@freefriends.org> | 2006-12-07 22:46:13 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-12-07 22:46:13 +0000 |
commit | 06c5c638859d4cb20fe3201df1fa9ab6f216d4f0 (patch) | |
tree | 269cc6d6c475dc30b51ddf45465197d6620b7e1c /Build/source/texk/dvipsk/hps.lpro | |
parent | 954a067e3613a39197a4b981f5652c8fc3c25502 (diff) |
accumulated fixes from akira
git-svn-id: svn://tug.org/texlive/trunk@2613 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/dvipsk/hps.lpro')
-rw-r--r-- | Build/source/texk/dvipsk/hps.lpro | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/Build/source/texk/dvipsk/hps.lpro b/Build/source/texk/dvipsk/hps.lpro index 0823f180a17..79c29769ec0 100644 --- a/Build/source/texk/dvipsk/hps.lpro +++ b/Build/source/texk/dvipsk/hps.lpro @@ -69,16 +69,19 @@ bind def } bind def -/tempstring 256 string def +% PDF implementation limit for names is 127, see PDF specification, +% version 1.6, appendix C "Implementation Limits, +% table C.1 "Architectural limits", page 920. +/tempstring 128 string def /targetvalidate - {1 index dup length 255 gt exch + {1 index dup length 127 gt exch + tempstring cvs dup (/) search {pop pop pop exch pop true exch} {pop} ifelse - cvn tempstring cvs - token pop pop length 0 ne or + token {pop length 0 ne} {true} ifelse or not} bind def /targetdump-hook where |