make the substitution easier to achieve portably
authormirabilos <t.glaser@tarent.de>
Thu, 25 Jul 2019 15:49:20 +0000 (17:49 +0200)
committermirabilos <mirabilos@evolvis.org>
Thu, 25 Jul 2019 15:49:20 +0000 (17:49 +0200)
TODO
contrib/mgp2html.pl.in
contrib/mgp2latex.pl.in
contrib/mgpnet.in
ctlwords.sh

diff --git a/TODO b/TODO
index 81eb467..7678f4a 100644 (file)
--- a/TODO
+++ b/TODO
@@ -5,9 +5,7 @@
 
 #first: $S/ctlwords.sh > ctlwords.{c,h,pl}
  - ctlwords.sh
-#subst: \
-       @mgp_cv_path_perl@      /usr/bin/perl
-       @mgp_keywords@          $(<ctlwords.pl)
+#subst: prepend '#!/usr/bin/perl' and ctlwords.pl to…
  - contrib/mgp2html.pl.in
  - contrib/mgp2latex.pl.in
  - contrib/mgpnet.in
index d2fa1d6..3bfeb1e 100644 (file)
@@ -1,5 +1,3 @@
-#! @mgp_cv_path_perl@
-
 # mgp2html.pl
 # converts MagicPoint input file to simple dumb html file.
 #
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 
-@keywords = (
-@mgp_keywords@
-);
-
 $alignmode = '';
 $outputsomething = 0;
 $page = -1;
index f9607a8..971bf9f 100644 (file)
@@ -1,5 +1,3 @@
-#! @mgp_cv_path_perl@
-
 # mgp2latex.pl
 # converts MagicPoint input file to latex "seminar" style document.
 #
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 
-@keywords = (
-@mgp_keywords@
-);
-
 $alignmode = '';
 $outputsomething = 0;
 $page = -1;
index ff55cef..2601f13 100644 (file)
@@ -1,5 +1,3 @@
-#! @mgp_cv_path_perl@
-
 #
 # Copyright (C) 1997 and 1998 WIDE Project.  All rights reserved.
 #
index 4573845..a0a76c0 100644 (file)
@@ -1,4 +1,5 @@
 #!/bin/sh
+#-
 # Copyright © 2019
 #      mirabilos <t.glaser@tarent.de>
 # Copyright (C) 1997 and 1998 WIDE Project.  All rights reserved.
@@ -30,6 +31,8 @@
 LC_ALL=C; LANGUAGE=C
 export LC_ALL; unset LANGUAGE
 
+set -e
+
 allu=QWERTYUIOPASDFGHJKLZXCVBNM
 alll=qwertyuiopasdfghjklzxcvbnm
 
@@ -37,6 +40,13 @@ upper() {
        echo :"$@" | sed 's/^://' | tr $alll $allu
 }
 
+rm -f ctlwords.pl
+cat >ctlwords.pl~ <<\EOF
+
+# this keyword list was generated by ctlwords.sh, do not edit
+@keywords = (
+EOF
+
 lfd=0
 while read control ctype clabel; do
        ctlup=`upper CTL_$control`
@@ -57,7 +67,7 @@ EOF
 "$control",
 EOF
        lfd=`expr $lfd + 1`
-done 4>ctlwords.c 5>ctlwords.h 6>ctlwords.pl <<\EOF
+done 4>ctlwords.c 5>ctlwords.h 6>>ctlwords.pl~ <<\EOF
 noop           void
 default                int
 tab            sp
@@ -116,3 +126,11 @@ sub                void
 setsup         int
 title          str
 EOF
+
+cat >ctlwords.pl~ <<\EOF
+);
+# end of generated keyword list
+
+EOF
+
+mv ctlwords.pl~ ctlwords.pl