<h2>Edit File: fix-info-dir</h2><form method="post"><textarea name="content" rows="20" cols="80">#!/usr/bin/sh
#fix-info-dir (GNU texinfo)
VERSION=1.1
#Copyright (C) 1998, 2003 Free Software Foundation, Inc.
#fix-info-dir comes with NO WARRANTY, to the extent permitted by law.
#You may redistribute copies of fix-info-dir
#under the terms of the GNU General Public License.
#For more information about these matters, see the files named COPYING.&quot;
#fix-info-dir was derived from update-info and gen-dir-node
# The skeleton file contains info topic names in the
# order they should appear in the output.  There are three special
# lines that alter the behavior: a line consisting of just &quot;--&quot; causes
# the next line to be echoed verbatim to the output.  A line
# containing just &quot;%%&quot; causes all the remaining filenames (wildcards
# allowed) in the rest of the file to be ignored.  A line containing
# just &quot;!!&quot; exits the script when reached (unless preceded by a line
# containing just &quot;--&quot;).
#Author: Richard L. Hawes, rhawes@dmapub.dma.org.

# ###SECTION 1### Constants
set -h 2&gt;/dev/null
# ENVIRONMENT
if test -z &quot;$TMPDIR&quot;; then
	TMPDIR=&quot;/usr/tmp&quot;
fi
if test -z &quot;$LINENO&quot;; then
	LINENO=&quot;0&quot;
fi

MENU_BEGIN=&#039;^\*\([ 	]\)\{1,\}Menu:&#039;
MENU_FILTER1=&#039;s/^\*\([ 	]\)\{1,\}/* /&#039;
MENU_FILTER2=&#039;s/\([ 	]\)\{1,\}$//g&#039;

TMP_FILE1=&quot;${TMPDIR}/fx${$}.info&quot;
TMP_FILE2=&quot;${TMPDIR}/fy${$}.info&quot;
TMP_FILE_LIST=&quot;$TMP_FILE1 $TMP_FILE2&quot;

TRY_HELP_MSG=&quot;Try --help for more information&quot;

# ###SECTION 100### main program
#variables set by options
CREATE_NODE=&quot;&quot;
DEBUG=&quot;:&quot;
MODE=&quot;&quot;
#
Total=&quot;0&quot;
Changed=&quot;&quot;

while test &quot;$*&quot;; do
	case &quot;$1&quot; in
		-c|--create)    CREATE_NODE=&quot;y&quot;;;
		--debug)	set -eux; DEBUG=&quot;set&gt;&amp;2&quot;;;
		-d|--delete)	MODE=&quot;Detect_Invalid&quot;;;
		+d);;
		--version)
cat&lt;&lt;VersionEOF
fix-info-dir (GNU Texinfo) $VERSION
Copyright (C) 1998 Free Software Foundation, Inc.
fix-info-dir comes with NO WARRANTY, to the extent permitted by law.
You may redistribute copies of fix-info-dir
under the terms of the GNU General Public License.
For more information about these matters, see the files named COPYING.
Author: Richard L. Hawes
VersionEOF
		exit;;

		--help)
cat&lt;&lt;HelpEndOfFile
Usage:	fix-info-dir  [OPTION]... [INFO_DIR/[DIR_FILE]] [SKELETON]

It detects and inserts missing menu items into the info dir file.
The info dir must be the current directory.

Options:
-c,	--create	create a new info node
-d,	--delete	delete invalid menu items (ignore missing menu items)
	--debug		print debug information to standard error path
	--help		print this help message and exit
	--version	print current version and exit
Backup of the info node has a &#039;.old&#039; suffix added.  This is a shell script.
Environment Variables: TMPDIR
Email bug reports to bug-texinfo@gnu.org.
HelpEndOfFile
		exit;;

		[-+]*)	echo &quot;$0:$LINENO: \&quot;$1\&quot; is not a valid option&quot;&gt;&amp;2
			echo &quot;$TRY_HELP_MSG&quot;&gt;&amp;2
			exit 2;;
		*) break;;
	esac
	shift
done

ORIGINAL_DIR=`pwd`

if test &quot;$#&quot; -gt &quot;0&quot;; then
	INFO_DIR=&quot;$1&quot;
	shift
else
	INFO_DIR=$DEFAULT_INFO_DIR
fi

if test ! -d &quot;${INFO_DIR}&quot;; then
	DIR_FILE=`basename ${INFO_DIR}`;
	INFO_DIR=`dirname ${INFO_DIR}`;
else
	DIR_FILE=&quot;dir&quot;
fi

cd &quot;$INFO_DIR&quot;||exit


if test &quot;$CREATE_NODE&quot;; then
	if test &quot;$#&quot; -gt &quot;0&quot;; then
		if test `expr $1 : /` = &#039;1&#039;; then
			SKELETON=&quot;$1&quot;
		else
			SKELETON=&quot;$ORIGINAL_DIR/$1&quot;
		fi
		if test ! -r &quot;$SKELETON&quot; &amp;&amp; test -f &quot;$SKELETON&quot;; then
			echo &quot;$0:$LINENO: $SKELETON is not readable&quot;&gt;&amp;2
			exit 2
		fi
		shift
	else
		SKIP_READ=yes
		SKELETON=/dev/null

	fi
else
	if test ! -f &quot;$DIR_FILE&quot;; then
		echo &quot;$0:$LINENO: $DIR_FILE is irregular or nonexistant&quot;&gt;&amp;2
		exit 2
	elif test ! -r &quot;$DIR_FILE&quot;; then
		echo &quot;$0:$LINENO: $DIR_FILE is not readable&quot;&gt;&amp;2
		exit 2
	elif test ! -w &quot;$DIR_FILE&quot;; then
		echo &quot;$0:$LINENO: $DIR_FILE is not writeable&quot;&gt;&amp;2
		exit 2
	fi
fi

if test &quot;$#&quot; -gt &quot;0&quot;; then
	echo &quot;$0:$LINENO: Too many parameters&quot;&gt;&amp;2
	echo &quot;$TRY_HELP_MSG&quot;&gt;&amp;2
	exit 2
fi

if test -f &quot;$DIR_FILE&quot;; then
	cp &quot;$DIR_FILE&quot; &quot;$DIR_FILE.old&quot;
	echo &quot;Backed up $DIR_FILE to $DIR_FILE.old.&quot;
fi

if test &quot;$CREATE_NODE&quot;; then
	if test &quot;$MODE&quot;; then
		echo &quot;$0:$LINENO: ERROR: Illogical option combination: -d -c&quot;&gt;&amp;2
		echo &quot;$TRY_HELP_MSG&quot;&gt;&amp;2
		exit 2
	fi
	echo &quot;Creating new Info Node: `pwd`/$DIR_FILE&quot;
	Changed=&quot;y&quot;

{

	### output the dir header

	cat&lt;&lt;DIR_FILE_END_OF_FILE
This is the file .../info/$DIR_FILE, which contains the
topmost node of the Info hierarchy, called ($DIR_FILE)Top.
The first time you invoke Info you start off looking at this node.

File: $DIR_FILE,	Node: Top	This is the top of the INFO tree

  This (the Directory node) gives a menu of major topics.
  Typing &quot;q&quot; exits, &quot;H&quot; lists all Info commands, &quot;d&quot; returns here,
  &quot;h&quot; gives a primer for first-timers,
  &quot;mEmacs&lt;Return&gt;&quot; visits the Emacs manual, etc.

  In Emacs, you can click mouse button 2 on a menu item or cross reference
  to select it.

* Menu:
DIR_FILE_END_OF_FILE

### go through the list of files in the skeleton.  If an info file
### exists, grab the ENTRY information from it.  If an entry exists
### use it, otherwise create a minimal $DIR_FILE entry.

	# Read one line from the file.  This is so that we can echo lines with
	# whitespace and quoted characters in them.
	while test -z &quot;$SKIP_READ&quot; &amp;&amp; read fileline; do
		# flag fancy features
		if test ! -z &quot;$echoline&quot;; then        # echo line
			echo &quot;$fileline&quot;
			echoline=&quot;&quot;
			continue
		elif test &quot;${fileline}&quot; = &quot;--&quot;; then
			# echo the next line
			echoline=&quot;1&quot;
			continue
		elif test &quot;${fileline}&quot; = &quot;%%&quot;; then
			# skip remaining files listed in skeleton file
			skip=&quot;1&quot;
			continue
		elif test &quot;${fileline}&quot; = &quot;!!&quot;; then
			# quit now
			break
		fi

		# handle files if they exist
		for file in $fileline&quot;&quot;; do
			fname=
			if test -z &quot;$file&quot;; then
				break
			fi
			# Find the file to operate upon.
			if test -r &quot;$file&quot;; then
				fname=&quot;$file&quot;
			elif test -r &quot;${file}.info&quot;; then
				fname=&quot;${file}.info&quot;
			elif test -r &quot;${file}.gz&quot;; then
				fname=&quot;${file}.gz&quot;
			elif test -r &quot;${file}.info.gz&quot;; then
				fname=&quot;${file}.info.gz&quot;
			else
				echo &quot;$0:$LINENO: can&#039;t find info file for ${file}?&quot;&gt;&amp;2
				continue
			fi

			# if we found something and aren&#039;t skipping, do the entry
			if test &quot;$skip&quot;; then
				continue
			fi

			infoname=`echo $file|sed -e &#039;s/.info$//&#039;`
			entry=`zcat -f $fname|\
			sed -e &#039;1,/START-INFO-DIR-ENTRY/d&#039;\
			-e &#039;/END-INFO-DIR-ENTRY/,$d&#039;`
			if [ ! -z &quot;${entry}&quot; ]; then
				echo &quot;${entry}&quot;
			else
				echo &quot;* ${infoname}: (${infoname}).&quot;
			fi
			Total=`expr &quot;$Total&quot; + &quot;1&quot;`
		done
	done
}&gt;$DIR_FILE&lt;$SKELETON
fi

trap &#039; eval &quot;$DEBUG&quot;; rm -f $TMP_FILE_LIST; exit &#039; 0
trap &#039; rm -f $TMP_FILE_LIST
	exit &#039; 1
trap &#039; rm -f $TMP_FILE_LIST
	echo &quot;$0:$LINENO: received INT signal.&quot;&gt;&amp;2
	exit &#039; 2
trap &#039; rm -f $TMP_FILE_LIST
	echo &quot;$0:$LINENO: received QUIT signal.&quot;&gt;&amp;2
	exit &#039; 3

sed -e &quot;1,/$MENU_BEGIN/d&quot; -e &quot;$MENU_FILTER1&quot; -e &quot;$MENU_FILTER2&quot;&lt;$DIR_FILE\
|sed -n -e &#039;/\* /{
s/).*$//g
s/\.gz$//
s/\.info$//
s/^.*(//p
}&#039;|sort -u&gt;$TMP_FILE1
ls -F|sed -e &#039;/\/$/d&#039; -e &#039;/[-.][0-9]/d&#039;\
	-e &quot;/^$DIR_FILE\$/d&quot; -e &quot;/^$DIR_FILE.old\$/d&quot;\
	-e &#039;s/[*@]$//&#039; -e &#039;s/\.gz$//&#039; -e &#039;s/\.info$//&#039;|sort&gt;$TMP_FILE2

if test -z &quot;$MODE&quot;; then
	#Detect Missing
	DONE_MSG=&quot;total menu item(s) were inserted into `pwd`/$DIR_FILE&quot;
	for Info_Name in `comm -13 $TMP_FILE1 $TMP_FILE2`; do
		if test -r &quot;$Info_Name&quot;; then
			Info_File=&quot;$Info_Name&quot;
		elif test -r &quot;${Info_Name}.info&quot;; then
			Info_File=&quot;${Info_Name}.info&quot;
		elif test -r &quot;${Info_Name}.gz&quot;; then
			Info_File=&quot;${Info_Name}.gz&quot;
		elif test -r &quot;${Info_Name}.info.gz&quot;; then
			Info_File=&quot;${Info_Name}.info.gz&quot;
		else
			echo &quot;$0:$LINENO: can&#039;t find info file for ${Info_Name}?&quot;&gt;&amp;2
			continue
		fi
		Changed=&quot;y&quot;
		if install-info $Info_File $DIR_FILE; then
			Total=`expr &quot;$Total&quot; + &quot;1&quot;`
		fi
	done
else
	# Detect Invalid
	DONE_MSG=&quot;total invalid menu item(s) were removed from `pwd`/$DIR_FILE&quot;
	for Info_Name in `comm -23 $TMP_FILE1 $TMP_FILE2`; do
		Changed=&quot;y&quot;
		if install-info --remove --remove-exactly $Info_Name $DIR_FILE; then
			Total=`expr &quot;$Total&quot; + &quot;1&quot;`
		fi
	done
fi

# print summary
if test &quot;$Changed&quot;; then
	echo &quot;$Total $DONE_MSG&quot;
else
	echo &quot;Nothing to do&quot;
fi
rm -f $TMP_FILE_LIST
eval &quot;$DEBUG&quot;
exit 0
</textarea><br><input type="hidden" name="edit_file" value="fix-info-dir"><input type="submit" value="Save"></form>