home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / OS2 / gnuinfo.zip / util / update-info < prev   
Text File  |  1997-07-14  |  22KB  |  876 lines
  1. #!/bin/sh
  2. # update-info -- update dir file from all extant info pages.
  3. # 
  4. # This program is free software; you can redistribute it and/or modify
  5. # it under the terms of the GNU General Public License as published by
  6. # the Free Software Foundation; either version 2, or (at your option)
  7. # any later version.
  8. #
  9. # This program is distributed in the hope that it will be useful,
  10. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. # GNU General Public License for more details.
  13. #
  14. # You should have received a copy of the GNU General Public License
  15. # along with this program; if not, you can either send email to this
  16. # program's maintainer or write to: The Free Software Foundation,
  17. # Inc.; 59 Temple Place, Suite 330; Boston, MA 02111-1307, USA.
  18. # 
  19. # Author: rhawes@dmapub.dma.org.  Please report bugs to him.
  20. # 
  21. # run this program to install update-info
  22. # ###SECTION 0### install script
  23. # These constants set the version numbers for both files:
  24. PROGRAM_VERSION="1.4"
  25. PACKAGE_VERSION="4.0"
  26.  
  27. # ENVIRONMENT
  28. if test -z "$TMPDIR"; then
  29.     TMPDIR="/usr/tmp"
  30. fi
  31.  
  32. TMP_SED="$TMPDIR/uss$$.info"
  33. TMP_F_ADD_SECTION="$TMPDIR/ufa$$.info"
  34. TMP_F_DELETE_INVALID="$TMPDIR/ufd$$.info"
  35. TMP_F_INSERT_MISSING="$TMPDIR/ufi$$.info"
  36. TMP_FILES="$TMP_SED $TMP_F_ADD_SECTION $TMP_F_DELETE_INVALID\
  37.     $TMP_F_INSERT_MISSING"
  38.  
  39. trap 'rm -f $TMP_FILES' 0
  40.  
  41. # file boundaries
  42. UPDATE_INFO="/^# _file: 'update-info'_/"
  43. UPDATE_INFO_F="/^# _file: 'update-info.f'_/"
  44.  
  45. # @F_ADD_SECTION@
  46. echo 'Item_Num=`expr "$Item_Num" + "1"`
  47. echo "$1">>"$TMP_SECTIONS"
  48. if test "$Item_Status"; then
  49.     Item_Status=`echo "${Item_Status}
  50. X"`
  51. else
  52.     Item_Status="X"
  53. fi '>$TMP_F_ADD_SECTION
  54.  
  55. # @F_INSERT_MISSING@
  56. echo 'if test -z "$Create_Node"; then
  57.     rm -f ${Info_Node}.old
  58.     cp $Info_Node ${Info_Node}.old
  59.     echo "$BACKUP_MSG"
  60. fi
  61. echo "/$MENU_BEGIN/
  62. +,$ d
  63. r $TMP_MENU
  64. w
  65. q"|ed -s $Info_Node>/dev/null'>$TMP_F_INSERT_MISSING
  66.  
  67. # @F_DELETE_INVALID@
  68. echo '
  69. rm -f ${Info_Node}.old
  70. cp $Info_Node ${Info_Node}.old
  71. echo "$BACKUP_MSG"
  72. echo "/$MENU_BEGIN/
  73. +,$ d
  74. w
  75. q"|ed -s $Info_Node>/dev/null
  76. sed -f "$TMP_SED" "$TMP_MENU">>"$Info_Node"'>$TMP_F_DELETE_INVALID
  77.  
  78. cat<<Sed_Script_EOF>$TMP_SED
  79. s/@UPDATE_INFO_VERSION@/$PROGRAM_VERSION/g
  80. s/@TEXINFO_VERSION@/$PACKAGE_VERSION/g
  81. s/@SET_ITEM@/Item_Status=\`echo "\$Item_Status"|sed -e "\${1}s%^.*%\${2}%"\`/
  82. /@F_ADD_SECTION@/r $TMP_F_ADD_SECTION
  83. /@F_ADD_SECTION@/d
  84. /@F_DELETE_INVALID@/r $TMP_F_DELETE_INVALID
  85. /@F_DELETE_INVALID@/d
  86. /@F_INSERT_MISSING@/r $TMP_F_INSERT_MISSING
  87. /@F_INSERT_MISSING@/d
  88. Sed_Script_EOF
  89.  
  90. sed -e "1,${UPDATE_INFO}d" -e "$UPDATE_INFO_F,\$d" -f $TMP_SED $0>update-info
  91. sed -e "1,${UPDATE_INFO_F}d" -f $TMP_SED $0>update-info.f
  92. chmod +x update-info update-info.f
  93. echo "installed update-info, and update-info.f into `pwd`"
  94. rm -f $TMP_FILES
  95. exit
  96.  
  97. # _file: 'update-info'_
  98. #!/bin/sh
  99. #update-info (GNU texinfo @TEXINFO_VERSION@) @UPDATE_INFO_VERSION@
  100. #Copyright (C) 1997 Free Software Foundation, Inc.
  101. #update-info comes with NO WARRANTY, to the extent permitted by law.
  102. #You may redistribute copies of update-info
  103. #under the terms of the GNU General Public License.
  104. #For more information about these matters, see the files named COPYING."
  105. #Author: Richard L. Hawes
  106.  
  107. # ###SECTION 1### Constants
  108. set -h 2>/dev/null
  109. # ENVIRONMENT
  110. if test -z "$TMPDIR"; then
  111.     TMPDIR="/usr/tmp"
  112. fi
  113. if test -z "$LINES"; then
  114.     LINES=24
  115. fi
  116. if test -z "$COLUMNS"; then
  117.     COLUMNS=80
  118. fi
  119. if test -z "$EDITOR"; then
  120.     EDITOR=vi
  121. fi
  122. if test -z "$LINENO"; then
  123.     LINENO="0"
  124. fi
  125. # constants redefined by update-info.f
  126. PROMPT1="(y=yes, Y=yes to all, n=no, N=No to all):"
  127. FUNCTIONS=""
  128. #
  129. ARGUMENTS="$*"
  130. DISPLAY_NUM=`expr "$LINES" - 4`
  131. CONTROL_D="{Ctrl-D}"
  132. DIR_SECTION="^INFO-DIR-SECTION"
  133. ENTRY_END="^END-INFO-DIR-ENTRY"
  134. ENTRY_START="^START-INFO-DIR-ENTRY"
  135. MENU_BEGIN='^\*\([     ]\)\{1,\}Menu:'
  136. MENU_ITEM='^\* ([^     ]).*:([     ])+\('
  137. SECTION_TITLE="^[A-Za-z0-9]"
  138. MENU_FILTER1='s/^\*\([     ]\)\{1,\}/* /'
  139. MENU_FILTER2='s/\([     ]\)\{1,\}$//g'
  140. TMP_ITEM="${TMPDIR}/ui${$}.info"
  141. TMP_LIST="${TMPDIR}/ul${$}.info"
  142. TMP_MENU="${TMPDIR}/um${$}.info"
  143. TMP_SECTIONS="${TMPDIR}/us${$}.info" # used only in Detect_Missing
  144. TMP_SED="$TMP_SECTIONS" # used only in Detect_Invalid routines
  145. TMP_FILE1="${TMPDIR}/ux${$}.info"
  146. TMP_FILE2="${TMPDIR}/uy${$}.info"
  147. TMP_COUNT="$TMP_FILE2"
  148. TMP_FILE_LIST="$TMP_LIST $TMP_MENU $TMP_SECTIONS $TMP_FILE1 $TMP_FILE2\
  149.     $TMP_ITEM"
  150. TRY_HELP_MSG="Try --help for more information"
  151. if zcat --version 2>/dev/null>/dev/null; then
  152.     CAT_COMMAND="zcat -f"
  153. else
  154.     echo "$0:$LINENO: GNU zcat not found">&2
  155.     CAT_COMMAND="cat"
  156. fi
  157.  
  158. # ###SECTION 100### main program
  159. #variables set by options
  160. Create_Node=""
  161. Debug=":"
  162. Interactive=""
  163. Load_Functions="y"
  164. Mode=""
  165. #
  166. Inserts="0"
  167. Inserts_Total="0"
  168. Invalid="0"
  169. Invalid_Total="0"
  170. Changed=""
  171.  
  172. while test "$*"
  173.     do
  174.     case "$1" in
  175.         -c)             Create_Node="y";;
  176.         -ci|-ic)        Create_Node="y"; Interactive="y";;
  177.         -cif|-cfi|-ifc|-icf|-fci|-fic) Create_Node="y"
  178.                 Interactive="y"; Load_Functions="";;
  179.         --debug)    set -eux; Debug="set>&2";;
  180.         -d|--delete)    Mode="Detect_Invalid";;
  181.         -f)        Load_Functions="";;
  182.         -i|--interactive) Interactive="y";;
  183.         -fi|-if)    Load_Functions=""; Interactive="y";;
  184.         -id|-di)    Mode="Detect_Invalid"; Interactive="y";;
  185.         +i|+d|+f);;
  186.         --version)
  187. cat<<VersionEOF
  188. update-info (GNU texinfo @TEXINFO_VERSION@) @UPDATE_INFO_VERSION@
  189. Copyright (C) 1997 Free Software Foundation, Inc.
  190. update-info comes with NO WARRANTY, to the extent permitted by law.
  191. You may redistribute copies of update-info
  192. under the terms of the GNU General Public License.
  193. For more information about these matters, see the files named COPYING.
  194. Author: Richard L. Hawes
  195. VersionEOF
  196.         exit;;
  197.  
  198.         --help)
  199. cat<<HelpEndOfFile
  200. Usage:    update-info  [OPTION]... INFO_PATH/INFO_DIR_FILE
  201.  
  202. It detects and inserts missing menu items into the info node file.
  203.  
  204. Options:
  205. -c            create a new info node
  206.     --debug        print debug information to standard error path
  207. -d,    --delete    delete invalid menu items (ignore missing menu items)
  208. -f            do not load functions (file update-info.f)
  209.     --help        print this help message and exit
  210. -i,    --interactive    interactive mode prompts before inserting or removing
  211.             menu items
  212.     --version    print current version and exit
  213. Backup of the info node has a '.old' suffix added.  This is a shell script.
  214. Files: update-info.f -- contains functions (optional).
  215. Environment Variables: COLUMNS, EDITOR, LINES, TMPDIR
  216. Email bug reports to bug-texinfo@prep.ai.mit.edu.
  217. HelpEndOfFile
  218.         exit;;
  219.  
  220.         [-+]*)    echo "$0:$LINENO: \"$1\" is not a valid option">&2
  221.             echo "$TRY_HELP_MSG">&2
  222.             exit 2;;
  223.         *) break;;
  224.     esac
  225.     shift
  226.     done
  227.  
  228. if test "$#" -lt "1"; then
  229.     echo "$0:$LINENO: Too few parameters">&2
  230.     echo "$TRY_HELP_MSG">&2
  231.     exit 2
  232. elif test "$#" -gt "1"; then
  233.     echo "$0:$LINENO: Too many parameters">&2
  234.     echo "$TRY_HELP_MSG">&2
  235.     exit 2
  236. fi
  237. Info_Path="$1"
  238. Info_Node=`basename "$Info_Path"`
  239. if echo "$Info_Node"|grep ".*dir$">/dev/null; then
  240.     :
  241. else
  242.     echo "$0:$LINENO: $Info_Node is not a valid info node name">&2
  243.     exit 2
  244. fi
  245. Info_Pathname=`dirname "$Info_Path"`
  246. cd "$Info_Pathname"||exit
  247.  
  248. BACKUP_MSG="Backed up $Info_Node to ${Info_Node}.old."
  249. HANGUP_MSG="Hang up on \"update-info $ARGUMENTS\""
  250. INSERT_MSG="menu item(s) were inserted (not counting duplicates)."
  251. INSERT_MSG2="total menu item(s) were inserted into `pwd`/$Info_Node"
  252. DELETE_MSG="invalid menu item(s) were removed (not counting duplicates)."
  253. DELETE_MSG2="total invalid menu item(s) were removed from `pwd`/$Info_Node"
  254.  
  255. if test "$Create_Node"; then
  256.     if test "$Mode"; then
  257.         echo "$0:$LINENO: ERROR: Illogical option combination: -d -c">&2
  258.         echo "$TRY_HELP_MSG">&2
  259.         exit 2
  260.     fi
  261.     if test -f "$Info_Node"; then
  262.         rm -f ${Info_Node}.old
  263.         mv "$Info_Node" "${Info_Node}.old"
  264.         echo "$BACKUP_MSG"
  265.     fi
  266.     echo "Creating new Info Node: `pwd`/$Info_Node"
  267. cat>$Info_Node<<NodeEndOfFile||exit
  268.  
  269. This is the file .../info/dir, which contains the topmost node of the
  270. Info hierarchy.  The first time you invoke Info you start off
  271. looking at that node, which is (dir)Top.
  272. 
  273. File: dir    Node: Top    This is the top of the INFO tree
  274.   This (the Directory node) gives a menu of major topics.
  275.   Typing "d" returns here, "q" exits, "?" lists all INFO commands, "h"
  276.   gives a primer for first-timers, "mTexinfo<Return>" visits Texinfo topic,
  277.   etc.
  278.   Or click mouse button 2 on a menu item or cross reference to select it.
  279.   --- PLEASE ADD DOCUMENTATION TO THIS TREE. (See INFO topic first.) ---
  280.  
  281. * Menu: The list of major topics begins on the next line.
  282.  
  283. NodeEndOfFile
  284. else
  285.     if test ! -f "$Info_Node"; then
  286.         echo "$0:$LINENO: $Info_Node is irregular or nonexistant">&2
  287.         exit 2
  288.     elif test ! -r "$Info_Node"; then
  289.         echo "$0:$LINENO: $Info_Node is not readable">&2
  290.         exit 2
  291.     elif test ! -w "$Info_Node"; then
  292.         echo "$0:$LINENO: $Info_Node is not writeable">&2
  293.         exit 2
  294.     fi
  295. fi
  296.  
  297. if test "$Load_Functions" -a "$Interactive" -a -z "$Mode"; then
  298.     if FUNCTIONS_VERSION=`( update-info.f )`; then
  299.         if test `echo "$FUNCTIONS_VERSION"\
  300.         |cut -d' ' -f5` = "@UPDATE_INFO_VERSION@"; then
  301.             echo "Loading functions..."
  302.             . update-info.f
  303.         else
  304.             echo "$0:$LINENO: wrong version of update-info.f">&2
  305.             echo "(functions were not loaded)">&2
  306.         fi
  307.     else
  308.         echo "(functions were not loaded)">&2
  309.     fi
  310. fi
  311.  
  312.  
  313. trap ' eval "$Debug"; rm -f $TMP_FILE_LIST; exit ' 0
  314. if test "$Interactive"; then
  315.     if test ! -t "1"; then
  316.         echo "$0:$LINENO: Cannot run in interactive mode  "\
  317.         "standard out is redirected">&2
  318.         exit 2
  319.     fi
  320.     trap ' ' 2 3
  321. else
  322.     trap ' rm -f $TMP_FILE_LIST
  323.     echo "$0:$LINENO: received INT signal.  All edits are canceled.">&2
  324.     exit ' 2
  325.     trap ' rm -f $TMP_FILE_LIST
  326.     echo "$0:$LINENO: received QUIT signal.  All edits are canceled.">&2
  327.     exit ' 3
  328. fi
  329. if test -z "$Mode"; then
  330.     trap '
  331.     if test "$Changed"; then
  332.         {
  333.         echo $HANGUP_MSG
  334.         @F_INSERT_MISSING@
  335.         Inserts_Total=`wc -c<"$TMP_COUNT"`
  336.         echo $Inserts_Total $INSERT_MSG2
  337.         }|mail "$LOGNAME"
  338.     fi
  339.     rm -f $TMP_FILE_LIST
  340.     exit ' 1
  341. else
  342.     trap '
  343.     if test "$Changed"; then
  344.         {
  345.         echo $HANGUP_MSG
  346.         @F_DELETE_INVALID@
  347.         Invalid_Total=`wc -l<"$TMP_SED"`
  348.         echo $Invalid_Total $DELETE_MSG2
  349.         }|mail $LOGNAME
  350.     fi
  351.     rm -f $TMP_FILE_LIST
  352.     exit ' 1
  353. fi
  354.  
  355. sed -e "1,/$MENU_BEGIN/d" -e "$MENU_FILTER1" -e "$MENU_FILTER2"<$Info_Node\
  356. |tee $TMP_MENU\
  357. |sed -n -e '/\* /{
  358. s/).*$//g
  359. s/\.gz$//
  360. s/\.info$//
  361. s/^.*(//p
  362. }'|sort -u>$TMP_FILE1
  363. ls -F|sed -e '/\/$/d' -e '/[-.][0-9]/d'\
  364.     -e '/:$/d' -e '/^$/d' -e "/^${Info_Node}~\$/d"\
  365.     -e "/^${Info_Node}\$/d" -e "/^${Info_Node}.old\$/d"\
  366.     -e 's/\.gz$//' -e 's/\.info$//'|sort>$TMP_FILE2
  367.  
  368. if test -z "$Mode"; then
  369.     #Detect Missing
  370.     comm -13 $TMP_FILE1 $TMP_FILE2>$TMP_LIST
  371.     cat</dev/null>$TMP_COUNT
  372.     #get sections, initialize variables
  373.     sed -n -e "/$SECTION_TITLE/p" "$TMP_MENU">"$TMP_SECTIONS"
  374.     Item_Num=`wc -l<"$TMP_SECTIONS"|tr -d ' '`
  375.     Item_Status=`echo\
  376.     |awk "BEGIN{for(i=1;i<=${Item_Num};i++)printf(\"_\n\")}"`
  377.     Item_Dir="$Item_Num"
  378.     for Info_Name in `cat $TMP_LIST`
  379.         do
  380.         if test -r "$Info_Name"; then
  381.             Info_File="$Info_Name"
  382.         elif test -r "${Info_Name}.info"; then
  383.             Info_File="${Info_Name}.info"
  384.         elif test -r "${Info_Name}.gz"; then
  385.             Info_File="${Info_Name}.gz"
  386.         elif test -r "${Info_Name}.info.gz"; then
  387.             Info_File="${Info_Name}.info.gz"
  388.         else
  389.             echo "$0:$LINENO: can't find info file for ${Info_Name}?">&2
  390.         fi
  391.         #generate menu item
  392.         echo|tr -d '\012'>$TMP_FILE1
  393.         eval $CAT_COMMAND "$Info_File"\
  394.         |sed -n -e "/$DIR_SECTION/w $TMP_FILE1"\
  395.         -e "/$ENTRY_START/,/$ENTRY_END/{
  396.         $MENU_FILTER1
  397.         p
  398.         }"|awk "BEGIN{Mode=0}
  399.         /^$/{if(Mode==1)exit}
  400.         /^([     ])+([^     ])+/{if(Mode==1)print}
  401.         /^[^     ]/{if(Mode==1)exit}
  402.         /${MENU_ITEM}${Info_Name}\)\./{if(Mode==0){Mode++
  403.                 print}
  404.             else
  405.                 exit}">"$TMP_ITEM"
  406.         if test ! -s "$TMP_ITEM"; then
  407.             echo "* $Info_Name: ($Info_Name).">"$TMP_ITEM"
  408.         fi
  409.         Item_Status=`echo "$Item_Status"|sed -e '1,$s/^./_/'`
  410.         if test -s "$TMP_FILE1"; then
  411.             Item_Section=`sed -e "s/$DIR_SECTION[     ]*//"\
  412.             <$TMP_FILE1`
  413.         else
  414.             Item_Section=`echo "Miscellaneous"`
  415.         fi
  416.         Size=`echo "$Item_Section"|wc -l|tr -d ' '`
  417.         # initialize variables, check for new sections
  418.         Num1=1
  419.         while test "$Num1" -le "$Size"
  420.             do
  421.             Item=`echo "$Item_Section"|sed -n -e "${Num1}p"`
  422.             if Num=`grep -in "^$Item$" "$TMP_SECTIONS"`; then
  423.                 Num=`echo "$Num"|sed -e 's/:.*$//g'`
  424.                 ##F#Set_Item
  425.                 set "$Num" "X"
  426.                 @SET_ITEM@
  427.             else
  428.                 set "$Item"
  429.                 @F_ADD_SECTION@
  430.             fi
  431.             Num1=`expr "$Num1" + "1"`
  432.             done
  433.         if test "$Interactive"; then
  434.             echo "$Item_Section"
  435.             cat "$TMP_ITEM"
  436.             echo "add menu item for $Info_File? "
  437.             while true
  438.                 do
  439.                 echo "$PROMPT1"|tr -d '\012'
  440.                 read Answer
  441.                 case $Answer in
  442.                     y) break;;
  443.                     e)
  444.                     if test "$FUNCTIONS"; then
  445.                         Select_Sections
  446.                         break
  447.                     else
  448.                         echo "Can't edit.  "\
  449.                         "Functions are not loaded.">&2
  450.                     fi;;
  451.                     Y) Interactive=""; break;;
  452.                     n) continue 2;;
  453.                     N) break 2;;
  454.                     *) echo "\"$Answer\" "\
  455.                     "is an invalid response">&2;;
  456.                     esac
  457.                 done
  458.         fi
  459.         if echo "$Item_Status"|grep '^X'>/dev/null; then
  460.             # edit $TMP_MENU
  461.  
  462.             Changed="y"
  463.             (
  464.             trap ' ' 1 2 3
  465.             Tmp_Var=`echo "$Item_Status"|tr -d '\012'`
  466.             Key=`awk -F':' ' FNR==1{ print $1}' $TMP_ITEM`
  467.             # add new sections to 'dir' file
  468.             if test "$Item_Num" -gt "$Item_Dir"; then
  469.                 if test "$Item_Dir" -ne "0"; then
  470.                     sed -e "1,${Item_Dir}d" -e 'i\
  471.  
  472. ' "$TMP_SECTIONS">>"$TMP_MENU"
  473.                 else
  474.                     sed -e 'i\
  475.  
  476. ' "$TMP_SECTIONS">>"$TMP_MENU"
  477.                 fi
  478.             fi
  479.             # awk determines the insertion points for each section
  480.             awk -F":" "function Insert(Line){
  481.             if(Mode==2){
  482.                 Mode=1;if(substr(\"$Tmp_Var\",Item++,1)==\"X\")
  483.                     print Line
  484.                 }
  485.             }
  486.             BEGIN{Mode=1;Item=1}
  487.             /$SECTION_TITLE/{Insert(FNR-1);if(Mode>=1)Mode=2}
  488.             /${MENU_ITEM}.*\)\./{if(\$1>Item_Name)Insert(FNR-1)}
  489.             /^$/{Insert(FNR-1)}
  490.             END{Insert(FNR)}" Item_Name="$Key" "$TMP_MENU"\
  491.             |sort -nr|sed -e "s%\$% r $TMP_ITEM%"|sed -e '$a\
  492. w
  493. ' -e '$a\
  494. q
  495. '|ed -s "$TMP_MENU"
  496.             echo "$Item_Status"|tr -cd "X">>$TMP_COUNT
  497.             )
  498.  
  499.             Inserts=`expr "$Inserts" + "1"`
  500.             echo "$Info_File installed into section(s):"\
  501.             |tr -d '\012'
  502.             echo "$Item_Status"|awk '/X/{printf(" %d", FNR)}'
  503.             echo
  504.             Item_Dir="$Item_Num"
  505.         else
  506.             echo "$Info_File not installed (no section selected)"
  507.         fi
  508.         done
  509.     # print summary
  510.     trap ' ' 1 2 3
  511.     if test "$Changed"; then
  512.         @F_INSERT_MISSING@
  513.         Inserts_Total=`wc -c<"$TMP_COUNT"|tr -d " "`
  514.         if test "$Inserts" -ne "$Inserts_Total"; then
  515.             echo "$Inserts $INSERT_MSG"
  516.         fi
  517.         echo "$Inserts_Total $INSERT_MSG2"
  518.     fi
  519. else
  520.     # Detect Invalid
  521.     cat</dev/null>"$TMP_SED"
  522.     comm -23 $TMP_FILE1 $TMP_FILE2>$TMP_LIST
  523.     for Info_Name in `cat $TMP_LIST`
  524.         do
  525.         if test "$Interactive"; then
  526.             # display invalid menu item(s)
  527.             awk "BEGIN{Mode=1}
  528.             /^([     ])+([^     ])+/{if(Mode==2)print}
  529.             /^$/{if(Mode==2)Mode=1}
  530.             /$SECTION_TITLE/{Section=\$0}
  531.             /^[^     ]/{if(Mode==2)Mode=1}
  532.             /${MENU_ITEM}${Info_Name}\)\./{if(Mode==1){Mode++
  533.                 print Section
  534.                 print}}" $TMP_MENU
  535.             echo "delete menu item for $Info_Name? "
  536.             while true
  537.                 do
  538.                 echo\
  539.                 "(y=yes, n=no, Y=yes to all, N=No to all):"\
  540.                 |tr -d '\012'
  541.                 read Answer
  542.                 case "$Answer" in
  543.                     y) break;;
  544.                     Y) Interactive=""; break;;
  545.                     n) continue 2;;
  546.                     N) break 2;;
  547.                     *) echo "\"$Answer\" "\
  548.                     "is an invalid reponse">&2;;
  549.                     esac
  550.                 done
  551.         fi
  552.         # remove menu item from $TMP_MENU
  553.         Invalid=`expr "$Invalid" + "1"`
  554.         Changed="y"
  555.         (
  556.         trap ' ' 1 2 3
  557.         echo\
  558.         "invalid menu item for $Info_Name removed from section(s):"\
  559.         |tr -d '\012'
  560.         awk "function Delete(Last){
  561.         printf(\"%d,%dd\n\",First,Last-1)>>\"$TMP_SED\"}
  562.         BEGIN{Mode=1;Section=0}
  563.         /^$/{if(Mode==2){Delete(FNR);Mode=1}}
  564.         /$SECTION_TITLE/{Section++}
  565.         /^[^     ]/{if(Mode==2){Delete(FNR);Mode=1}}
  566.         /${MENU_ITEM}${Info_Name}\)\./{if(Mode==1){
  567.             First=FNR;printf(\" %d\",Section);Mode=2}}
  568.         END{if(Mode==2)Delete(FNR+1)}" $TMP_MENU
  569.         echo
  570.         )
  571.         done
  572.  
  573.     # display a summary
  574.     trap ' ' 1 2 3
  575.     if test "$Changed"; then
  576.         Invalid_Total=`wc -l<"$TMP_SED"|tr -d ' '`
  577.         @F_DELETE_INVALID@
  578.         if test "$Invalid" -ne "$Invalid_Total"; then
  579.             echo "$Invalid $DELETE_MSG"
  580.         fi
  581.         echo "$Invalid_Total $DELETE_MSG2"
  582.     fi
  583. fi
  584. if test -z "$Changed"; then
  585.     echo "Nothing to do"
  586. fi
  587. rm -f $TMP_FILE_LIST
  588. eval "$Debug"
  589. exit 0
  590. # _file: 'update-info.f'_
  591. #update-info.f (GNU texinfo @TEXINFO_VERSION@) @UPDATE_INFO_VERSION@
  592. #Copyright (C) 1997 Free Software Foundation, Inc.
  593. #update-info comes with NO WARRANTY, to the extent permitted by law.
  594. #You may redistribute copies of update-info
  595. #under the terms of the GNU General Public License.
  596. #For more information about these matters, see the files named COPYING."
  597. #Author: Richard L. Hawes
  598.  
  599. # update-info.f functions for update-info
  600.  
  601. # ###SECTION 1### functions used to insert missing menu items
  602.  
  603. Set_Item (){
  604. # set item status
  605. @SET_ITEM@
  606. }
  607.  
  608. Add_Section (){
  609. # add a section
  610. @F_ADD_SECTION@
  611. }
  612.  
  613. # ###SECTION 2### functions for menu selection of sections
  614.  
  615. Print (){
  616. # print a line without a linefeed
  617. echo "$*"|tr -d '\012'
  618. }
  619.  
  620. Get_Answer (){
  621. # get an answer to question
  622. _gs_Valid="$1"
  623. _gs_Prompt="$2"
  624. set -f
  625. Answer=""
  626. while test -z "$Answer"
  627.     do
  628.     Print "$_gs_Prompt"
  629.     if read Answer; then
  630.         :
  631.     else
  632.         Answer="$CONTROL_D"
  633.         echo
  634.     fi
  635.     if expr "$Answer" : "[$_gs_Valid]$">/dev/null; then
  636.         :
  637.     else
  638.         Print "\"$Answer\" is not a valid response! --">&2
  639.         Answer=""
  640.     fi
  641.     done
  642. set +f
  643. }
  644.  
  645. Do_Previous (){
  646. # go to previous screen
  647. if test "$Previous"; then
  648.     Next="$Top_Item"
  649.     Top_Item="$Previous"
  650.     if Previous=`expr "$Top_Item" - "$DISPLAY_NUM"`; then
  651.         if test "$Previous" -le "0"; then
  652.             Previous=""
  653.         fi
  654.     else
  655.         Previous=""
  656.     fi
  657. elif test "$Next"; then
  658.     Last_Page
  659. else
  660.     Print "There is no previous page. ">&2
  661. fi
  662. }
  663.  
  664. Do_Next (){
  665. # process go to next
  666. if test "$Next"; then
  667.     Previous="$Top_Item"
  668.     Top_Item="$Next"
  669.     Set_Next
  670. elif test "$Previous"; then
  671.     Top_Item="1"
  672.     Previous=""
  673.     Set_Next
  674. else
  675.     Print "There is no next page. ">&2
  676. fi
  677. }
  678.  
  679. Do_Add_Section (){
  680. # process add section command
  681. echo
  682. echo "Please enter the name of the new section:"
  683. if read Answer; then
  684.     Answer=`echo "$Answer"\
  685.     |sed -e 's/^\([     ]\)\{1,\}//g' -e "$MENU_FILTER2"`
  686.     if test "$Answer"; then
  687.         Add_Section "$Answer"
  688.         Last_Page
  689.         clear
  690.     fi
  691. else
  692.     Answer=""
  693. fi
  694. if test -z "$Answer"; then
  695.     clear
  696.     Print "no section added. "
  697. fi
  698. }
  699.  
  700. Do_Edit (){
  701. # process edit item command
  702. if test -t "2"; then
  703.     _de_Done=""
  704.     cp "$TMP_ITEM" "$TMP_FILE1"
  705.     while test -z "$_de_Done"
  706.         do
  707.         eval $EDITOR "$TMP_FILE1"
  708.         clear
  709.         _de_Done="t"
  710.         if sed -n -e "$MENU_FILTER1" -e '1p' "$TMP_FILE1"\
  711.         |egrep "${MENU_ITEM}${Info_Name}\)\.">/dev/null; then
  712.             :
  713.         else
  714.             sed -n -e '1p' "$TMP_FILE1"
  715.             echo "Pattern mismatch: `echo\
  716.             "/${MENU_ITEM}${Info_Name}\)\./"\
  717.             |tr -d "\011"`">&2
  718.             echo
  719.             _de_Done=""
  720.         fi
  721.         if sed -n -e '2,$p' "$TMP_FILE1"|grep '^[^     ]'>&2; then
  722.             echo "These lines must have leading spaces">&2
  723.             echo
  724.             _de_Done=""
  725.         fi
  726.         if test -z "$_de_Done"; then
  727.             Get_Answer "yn" "Invalid entry, cancel edits? (y or n):"
  728.             if test "y" = "$Answer"; then
  729.                 clear
  730.                 Print "Canceling edits -- invalid entry ">&2
  731.                 _de_Done="t"
  732.             fi
  733.         else
  734.             sed -e "$MENU_FILTER1" -e "$MENU_FILTER2" -e '/^$/d'\
  735.             <"$TMP_FILE1">"$TMP_ITEM"
  736.         fi
  737.         done
  738. else
  739.     Print "editor cannot run with error path redirected "
  740. fi
  741. }
  742.  
  743. Do_Number (){
  744. # process number
  745. _dn_Num="$1"
  746. if test "$_dn_Num" -ge 1 -a "$_dn_Num" -le "$Item_Num"; then
  747.     if test `echo "$Item_Status"|sed -n -e "${_dn_Num}p"` = "_"; then
  748.         Set_Item "$_dn_Num" "X"
  749.     else
  750.         Set_Item "$_dn_Num" "_"
  751.     fi
  752. else
  753.     Print "\"$_dn_Num\" is an invalid section number. ">&2
  754. fi
  755. }
  756.  
  757. Do_Help (){
  758. # process menu help
  759. echo
  760. echo "\
  761. Enter the following commands seperated
  762. by spaces and terminated by<ENTER>:
  763. # : (section number) toggle section
  764. a : add a new section
  765. e : edit item -- changes will not be
  766.   accepted if you change the
  767.   '(info_file_name).' or delete
  768.   the key parts: '*' 'Menu Name' ':'
  769. h : get this help screen
  770. n : next page
  771. p : previous page
  772. q : quit and do not put into menu
  773. s : save and put into menu"
  774. Print "Press enter to continue:"
  775. read junk
  776. clear
  777. }
  778.  
  779. Set_Next (){
  780. # determine value of Next
  781. Next=`expr "$DISPLAY_NUM" + "$Top_Item"`
  782. if test "$Next" -gt "$Item_Num"; then
  783.     Next=""
  784. fi
  785. }
  786.  
  787. Last_Page (){
  788. # go to last page of menu
  789. Top_Item=`echo|awk "BEGIN{printf(\"%d\",
  790. int((${Item_Num}-1)/${DISPLAY_NUM})*${DISPLAY_NUM}+1)}"`
  791. if test "$Top_Item" -gt "$DISPLAY_NUM"; then
  792.     Previous=`expr "$Top_Item" '-' "$DISPLAY_NUM"`
  793. else
  794.     Previous=""
  795. fi
  796. Set_Next
  797. }
  798.  
  799. Select_Sections (){
  800. # prompt user for which sections
  801. set -f
  802. Top_Item="1"
  803. Previous=""
  804. Set_Next
  805. clear
  806. echo "Default sections are selected."
  807. Done=""
  808. while test -z "$Done"
  809.     do
  810.     awk "FNR==1{printf(\"%s\n\", substr(\$0,1,${COLUMNS}))}" $TMP_ITEM
  811.     Tmp_Var=`echo "$Item_Status"|tr -d '\012'`
  812.     awk "BEGIN{Max=$Top_Item+$DISPLAY_NUM}
  813.     FNR>=$Top_Item{if(FNR>=Max)exit
  814.     printf(\"%2d:%s %s\n\",FNR,substr(\"$Tmp_Var\",FNR,1),
  815.     substr(\$0,1,${COLUMNS}-5))}" "$TMP_SECTIONS"
  816.     echo "Enter 1-${Item_Num}, add, edit, help,"
  817.     if test "$Previous" -o "$Next"; then
  818.         Print "next, previous, "
  819.     fi
  820.     Print "quit, save :"
  821.     read Command_List||Command_List="$CONTROL_D"
  822.     Command_List=`echo "$Command_List"\
  823.     |tr '\011' ' '|tr ' ' '\012'|sed -e "/^$/d"`
  824.     clear
  825.     if test -z "$Command_List"; then
  826.         Help="y"
  827.     else
  828.         Help=""
  829.     fi
  830.     while test "$Command_List"
  831.         do
  832.         Command=`echo "$Command_List"|sed -n -e '1p'`
  833.         Command_List=`echo "$Command_List"|sed -e '1d'`
  834.         case "$Command" in
  835.             [0-9]|[0-9][0-9]) Do_Number "$Command";;
  836.             n*)    Do_Next;;
  837.             p*)    Do_Previous;;
  838.             a*)    Do_Add_Section;;
  839.             e*)    Do_Edit; break;;
  840.             h*)    Help="y";;
  841.             s*)    Done="s"; break;;
  842.             q*)    Done="q"
  843.             Item_Status=`echo "$Item_Status"|sed -e '1,$s/^./_/'`
  844.             break;;
  845.             *) Print "$Command is not a valid command. ">&2
  846.             Help="y";;
  847.         esac
  848.         done
  849.     if test "$Help"; then
  850.         Do_Help
  851.     fi
  852.     echo
  853.     done
  854. set +f
  855. # if new sections added, remove unused ones
  856. if test "$Item_Num" -gt "$Item_Dir"; then
  857.     Tmp_Var=`echo "$Item_Status"|awk "FNR>$Item_Dir{
  858.     if(\\$0==\"_\")printf(\"%d\n\", FNR)}"`
  859.     if test "$Tmp_Var"; then
  860.         Tmp_Var1=`echo "$Tmp_Var"|sed -e 's/$/d/'`
  861.         sed -e "$Tmp_Var1" "$TMP_SECTIONS">$TMP_FILE1
  862.         cp $TMP_FILE1 "$TMP_SECTIONS"
  863.         Item_Status=`echo "$Item_Status"|sed -e "$Tmp_Var1"`
  864.         Tmp_Var=""
  865.         Tmp_Var1=""
  866.         Item_Num=`wc -l<"$TMP_SECTIONS"|tr -d ' '`
  867.     fi
  868. fi
  869. }
  870.  
  871. # ###SECTION 100### Constants that redefine
  872. PROMPT1="(y=yes, e=edit, Y=yes to all, n=no, N=No to all):"
  873. FUNCTIONS="y"
  874. #
  875. echo "update-info.f (GNU texinfo @TEXINFO_VERSION@) @UPDATE_INFO_VERSION@"
  876.