[Octave-bug-tracker] [bug #62648] build problem with texinfo>6.8

[Arun Giridhar]

Follow-up Comment #10, bug #62648 (project octave):

This is my attempt at using gabriele's patch and adapting it to be backwards
compatible:


diff -r 870036573716 doc/interpreter/mk-qthelp.pl
--- a/doc/interpreter/mk-qthelp.pl      Mon Nov 07 16:50:39 2022 -0500
+++ b/doc/interpreter/mk-qthelp.pl      Fri Nov 11 08:48:27 2022 -0500
@@ -25,9 +25,20 @@ if ($#ARGV != 1)
 $htmlfname = File::Spec->catfile ($basedir, $htmldir, "index.html");
 open (my $HTML, "<", $htmlfname) or die "Unable to open $htmlfname";
 
+
+TEXINFO_VERSION = 6;  ## TODO FIXME Pull this information from Texinfo
itself
+
+pattern1 = /^<div class="contents">/;
+
+if (TEXINFO_VERSION < 7) {pattern2 = /^<ul class="no-bullet">/; }
+else                     {pattern2 = /^<ul class="toc-numbered-mark">/; }
+
+if (TEXINFO_VERSION < 7) {pattern3 = /^<table class="index-fn/; }
+else                     {pattern3 = /^<table class="fn-entries/; }
+
 # Skip through preamble of file to find start of list
-while (($_ = <$HTML>) !~ /^<div class="contents">/ ) {;}
-while (($_ = <$HTML>) !~ /^<ul class="no-bullet">/ ) {;}
+while (<$HTML>) {next if $_ !~ $pattern1; last;}
+while (<$HTML>) {next if $_ !~ $pattern2; last;}
 
 $level = 0;
 while (<$HTML>)
@@ -68,7 +79,7 @@ die "Failed to parse index.html" if ($le
 open ($HTML, "<", $htmlfname) or die "Unable to open $htmlfname";
 
 # Skip through preamble of file to find start of list
-while (($_ = <$HTML>) !~ /^<table class="index-fn/ ) {;}
+while(<$HTML>) {next if $_ !~ $pattern3; last;}
 
 while (<$HTML>)
 {


It gives me the following errors:

  GEN      doc/interpreter/octave_interpreter.qhc
config.status: creating build-aux/subst-script-vals.sh-tmp
Can't modify constant item in scalar assignment at
../doc/interpreter/mk-qthelp.pl line 29, near "6;"
Bareword "TEXINFO_VERSION" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 29.
Bareword "pattern1" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 31.
Bareword "TEXINFO_VERSION" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 33.
Bareword "pattern2" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 33.
Bareword "pattern2" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 34.
Bareword "TEXINFO_VERSION" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 36.
Bareword "pattern3" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 36.
Bareword "pattern3" not allowed while "strict subs" in use at
../doc/interpreter/mk-qthelp.pl line 37.
Execution of ../doc/interpreter/mk-qthelp.pl aborted due to compilation
errors.
make[2]: *** [Makefile:31307: doc/interpreter/octave_interpreter.qhc] Error
255


Can we disable "strict subs"?


    _______________________________________________________

Reply to this item at:

  <https://savannah.gnu.org/bugs/?62648>

_______________________________________________
Message sent via Savannah
https://savannah.gnu.org/