[groff] 09/14: tmac/pdf.tmac: Validate bookmark level argument.

[G. Branden Robinson]

gbranden pushed a commit to branch master
in repository groff.

commit fe78e2f2969ffbd1d2ac553628706ac0a00175ae
Author: G. Branden Robinson <g.branden.robinson@gmail.com>
AuthorDate: Wed Feb 21 22:11:45 2024 -0600

    tmac/pdf.tmac: Validate bookmark level argument.
    
    * tmac/pdf.tmac (pdfbookmark): Validate bookmark level argument;
      complain if it is not a numeric expression and treat it as "1".
---
 ChangeLog     | 5 +++++
 tmac/pdf.tmac | 7 ++++++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 6598c757d..c851d2261 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2024-02-21  G. Branden Robinson <g.branden.robinson@gmail.com>
+
+       * tmac/pdf.tmac (pdfbookmark): Validate bookmark level argument;
+       complain if it is not a numeric expression and treat it as "1".
+
 2024-02-21  G. Branden Robinson <g.branden.robinson@gmail.com>
 
        * tmac/an.tmac (an*end-hyperlink): Trivially refactor.  Store
diff --git a/tmac/pdf.tmac b/tmac/pdf.tmac
index cb388629c..8fa3fe6a8 100644
--- a/tmac/pdf.tmac
+++ b/tmac/pdf.tmac
@@ -223,7 +223,12 @@ am solely responsible for any bugs I may have introduced 
into this file.
 .   \"
 .      if '\\$1'--' .shift
 .   \"
-.      nr pdf:bm.lev 0+\\$1
+.      ie \B'\\$1' \
+.        nr pdf:bm.lev \\$1
+.      el \{\
+.        pdf:error bookmark level must be a numeric expression; got '\\$1'
+.        nr pdf:bm.lev 1
+.      \}
 .      if \\n[pdf:bm.lev]==0 .nr pdf:bm.lev 1
 .      if \\n[pdf:bm.lev]-1==\\n[PDFOUTLINE.FOLDLEVEL] .nr pdf:bm.lev 
\\n[pdf:bm.lev]*-1
 .      nr pdf:bm.abslev 0+\\n[pdf:bm.lev]