コミット: ba8c36f7081870ed49aaafd95f5ea4c8bf14c346 - groff-pdfmark (hg)

Reference Documentation: PDF Publishing with GNU Troff

コミットメタ情報

• リビジョン: ba8c36f7081870ed49aaafd95f5ea4c8bf14c346 (tree)
• 日時: 2023-04-12 02:10:57
• 作者: Keith Marshall <keith@user...>
• コミッター: Keith Marshall

ログメッセージ

Handle hyphenation special characters in PDF outlines.

* tmac/sanitize.tmac (sanitize): Interpret "\%" specially.
(sanitize:esc-(, sanitize:esc-(hy): New macros; they add generic
support for "\(xx", and specialization for "\(hy", respectively.

変更サマリ

• modified: tmac/sanitize.tmac

差分

diff -r 514387ae8943 -r ba8c36f70818 tmac/sanitize.tmac
--- a/tmac/sanitize.tmac	Tue Apr 11 11:03:29 2023 +0100
+++ b/tmac/sanitize.tmac	Tue Apr 11 18:10:57 2023 +0100
@@ -58,7 +58,18 @@
 .   \" is found, we prepare to skip an escape sequence.
 .   \"
 .      ec !
-.      if '!*[sanitize:scan.char]'\\' .nr sanitize:skip.count 1
+.      ie '!*[sanitize:scan.char]'\\' .nr sanitize:skip.count 1
+.      el .if '!*[sanitize:scan.char]'!%' !{!
+.          \" The "\%" escape requires special handling; assuming
+.          \" that it will never be used to introduce a hyphen into
+.          \" a PDF outline entry, it may simply be discarded, by
+.          \" the expedient of handling it as if it is equivalent
+.          \" to an artificial "\F%" escape sequence.
+.          \"
+.             ds sanitize:residual F%!*[sanitize:residual]
+.             nr sanitize:residual.length +2
+.             nr sanitize:skip.count 1
+.         !}
 .      ec
 .      ie \\n[sanitize:skip.count] \{\
 .      \" When a possible escape sequence has been detected, we back it
@@ -142,6 +153,28 @@
 .      el .nr sanitize:skip.count 0
 .   \}
 ..
+.de sanitize:esc-(
+.\" Usage (internal): .sanitize:esc-(
+.\"
+.\" Handler for interpretation special character escape sequences,
+.\" which are expressed in the form "\(xx".
+.\"
+.   ds sanitize:look-ahead \\*[sanitize:residual]
+.   substring sanitize:look-ahead 0 1
+.   if d \\$0\\*[sanitize:look-ahead] .\\$0\\*[sanitize:look-ahead]
+.   rm sanitize:look-ahead
+..
+.de sanitize:esc-(hy
+.\" Usage (internal): .sanitize:esc-(hy
+.\"
+.\" Handler for translation of "\(hy" special character escapes
+.\" within sanitized PDF outline entries; each is replaced by an
+.\" (approximately) equivalent ASCII "-" character.
+.\"
+.   substring sanitize:residual 2
+.   ds sanitize:residual -\\*[sanitize:residual]
+.   nr sanitize:residual.length -1
+..
 .de sanitize:esc-generic
 .\" Usage (internal): .sanitize:esc-X
 .\"