done
}
+# Argument parsing
+#
while [ "x$1" != "x" ]
do
case "$1" in
shift
done
-addmenu() {
- root_prefix=`perl -MCwd -e '$_ = cwd;s/^.*src\/?//;@f=split /\//;$n=$#f+1;print "../"x $n;'`
- menu_prefix=${root_prefix##../}
-
- if [ -f ${menu_prefix}menu.def ]
- then
- echo ' \'
- echo -n ' '${menu_prefix}menu.def
- fi
-}
-
export INCPATH
export FILES
do
echo -n `echo $i | sed 's/.wml/.html/'`: $i
findincludes $i
- addmenu
echo
done