Diff of /manual/tools/replace_line_nb

Parent Directory | Revision Log | Revision Graph | Patch

--- manual/tools/replace_line_nb	2005/08/08 20:46:53	1.1
+++ manual/tools/replace_line_nb	2011/05/08 15:10:45	1.2
@@ -1,36 +1,36 @@
-#!/bin/sh
+#! /usr/bin/env bash
 
 if test $# != 2
 then
-  echo 'Usage:'`basename $0`'  {tex_file.templ} {data_file} :'
-  echo ' replace >>>PUT_LINE_NB:{variable_name}=<<< in file {tex_file.templ}'
-  echo ' with line number in file {data_file} that corresponds to the'
-  echo ' description of variable {variable_name}'
-  echo 'LIMITATION: a) no space / blank between PUT_LINE_NB and "="'
-  echo '            b) no space in the variable name'
-  echo '               (e.g.:  "#YYY=" works, but "# YYY=" does not)'
+  echo "Usage:"`basename $0`"  {tex_file.templ} {data_file} :"
+  echo " replace >>>PUT_LINE_NB:{variable_name}=<<< in file {tex_file.templ}"
+  echo " with line number in file {data_file} that corresponds to the"
+  echo " description of variable {variable_name} in {tex_file.templ}"
+  echo "LIMITATION: a) no space (blank) between 'PUT_LINE_NB:' and variable name"
+  echo "            b) no space (blank) in the variable name (but OK before '=')"
+  echo "               (e.g.:  '#YYY =' works, but '# YYY=' does not)"
   exit
 else
  texFil=$1
  inpFil=$2
 fi
+if test ! -f $texFil ; then echo " ERROR: file='$texFil' not found" ; exit ; fi
+if test ! -f $inpFil ; then echo " ERROR: file='$inpFil' not found" ; exit ; fi
 
 outFil=`echo $texFil.tex | sed 's/.templ//'`
 tmpFil1=TTT_fil1.$$
 tmpFil2=TTT_fil2.$$
 dbug=
 
-#texFil='inp_tst'
-#outFil=tata
-#tmpFil1=titi
-#tmpFil2=toto
+#texFil='inp_tst' ; outFil=tata ; tmpFil1=titi ; tmpFil2=toto
 #dbug=1
 
 rm -f $outFil $tmpFil1 $tmpFil2
 cp -f $texFil $outFil
+sed 's/ *//g' $inpFil > $tmpFil2
 
 # take all the lines in texFil where a line-Nb needs to be added:
-listR=`egrep 'PUT_LINE_NB:' $texFil`
+listR=`grep 'PUT_LINE_NB:' $texFil | sed 's/PUT_LINE_NB:/ PUT_LINE_NB:/g'`
 if test $dbug ; then echo $listR ; fi
 
 for pp in $listR
@@ -42,46 +42,22 @@
  then
 #- select the variable name (=xx) to look for (in inpFil & texFil):
   if test $dbug ; then echo '  xx='$xx ' <- from pp='$pp ; fi
-  while test $pp != $xx
-  do 
-    pp=$xx
-    xx=`echo $pp | sed 's/=./=/g'`
-  done
-  xx=`echo $pp | sed 's/=$//g'`
+  xx=`echo $xx | sed 's/=.*$//g'`
   if test $dbug ; then echo ' Var name: xx='$xx ; fi
-#- select the line in texFil that has been copied from inpFil 
+#- select the line in texFil that has been copied from inpFil
 #    (and needs to receive a line Nb)
-  egrep $xx $texFil | grep -v 'PUT_LINE_NB:' > $tmpFil1
+  grep $xx $texFil | grep -v 'PUT_LINE_NB:' | sed 's/^ *//g' > $tmpFil1
   if test -s $tmpFil1
   then
    #echo 'found' $xx 'in file:' $texFil
-    out=1;
-#-  remove space at the beginning of the line:
-    while test $out = 1
-    do 
-      mv $tmpFil1 $tmpFil2
-      sed 's/^ //g' $tmpFil2 > $tmpFil1
-      diff $tmpFil1 $tmpFil2 > /dev/null
-      out=$?
-    done
     yy=$xx
-    nbT=`egrep -c "^${yy}" $tmpFil1`
-    if [ $nbT -gt 1 ] 
+    nbT=`grep -c "^${yy}" $tmpFil1`
+    if [ $nbT -gt 1 ]
     then
-#- try to search for "xx=": 
-#-  count number of blank between variable name "xx" and "=":
-      nblk=0
-      out=`egrep -c "^${yy}=" $tmpFil1`
-      while test $out = 0
-      do
-        yy="${yy} " ; #echo "yy=${yy}<"
-        nblk=`expr $nblk + 1` ;
-        out=`egrep -c "^${yy}=" $tmpFil1`
-        if [ $nblk -ge 100 ] ; then out=1 ; fi
-      done
-      if test $nblk = 100 ; then yy=$xx ; else yy=${yy}"=" ; fi
-      nbT=`egrep -c "^${yy}" $tmpFil1`
-      if test $dbug ; then echo 'nblk='$nblk ', nbT='$nbT ", yy=>${yy}<" ; fi
+#- try to search for "xx=":
+      yy="${xx} *="
+      nbT=`grep -c "^${yy}" $tmpFil1`
+      if test $dbug ; then echo " nbT='$nbT', yy='${yy}'" ; fi
     fi
   else
     nbT=0
@@ -89,17 +65,24 @@
   nn='XXX';
   if test $nbT = '1' ; then
 #-  now take the only line that start with variable name "xx":
-    LINE=`egrep "^${yy}" $tmpFil1 | sed 's/\*/\\\*/g'`
-    if test $dbug ; then echo '  LINE='$LINE ; fi
+    LINE=`sed -n "/^${yy}/p" $tmpFil1 | sed 's/\*/\\\*/g'`
 #-  find the same line in inpFil and take the line number (nn):
-    nbI=`egrep -c "$LINE" $inpFil`
-   #echo 'nbI='$nbI
+    inpUsed=$inpFil
+    nbI=`grep -c "$LINE" $inpUsed`
+    if test $dbug ; then echo "  LINE='$LINE' ; nbI='$nbI'" ; fi
+    if test $nbI = '0' ; then
+#-  try without blank:
+      LINE=`sed -n "/^${yy}/p" $tmpFil1 | sed 's/\*/\\\*/g' | sed 's/ *//g'`
+      inpUsed=$tmpFil2
+      nbI=`grep -c "$LINE" $inpUsed`
+      if test $dbug ; then echo "  LINE='$LINE' ; nbI='$nbI'" ; fi
+    fi
     if test $nbI = 1
     then
-      nn=`sed -n "/$LINE/=" $inpFil`
+      nn=`sed -n "/$LINE/=" $inpUsed`
     else
       if test $nbI = '0';
-      then echo 'no line found with "'$xx'" in file:' $inpFil
+      then echo "no line '$LINE' found in file:" $inpFil
       else echo 'too many('$nbI') lines with "'$xx'" in file:' $inpFil
       fi
     fi
@@ -110,9 +93,8 @@
     fi
   fi
 #- replace by the line number (if found), XXX otherwise:
-  sed "s/PUT_LINE_NB:${xx}=/$nn/" $outFil > $tmpFil1
+  sed "s/PUT_LINE_NB:${xx} *=/$nn/" $outFil > $tmpFil1
   if test $dbug ; then echo " Replace PUT_LINE_NB:${xx}= by line number: nn=$nn" ; fi
- #if test $dbug ; then echo diff $outFil $tmpFil1 ; diff $outFil $tmpFil1 ; fi
   mv $tmpFil1 $outFil
  fi
 done