-cd $1
-set `ls $2`
-FILE=$1
-while shift 1; do
- sed -n -e '/^(input-method/s/(input-method \([^ ]*\) \([^ )]*\)\( \([^)]*\)\))/\1 \2 \4/p' $FILE | (read LANG NAME EXTRA
- if test -z "NAME"; then
- NAME=$EXTRA
- fi
- if test "$LANG" = "t"; then
- LANG=generic
- fi
- if test "$NAME" = "nil"; then
- echo "<li> $FILE (extra-name:$EXTRA, only for inclusion)"
+IMDOC=`pwd`/utils/imdoc
+
+set `ls $1/$2`
+while [ $# -ge 1 ] ; do
+ FILE=$1
+ IM=`grep '^(input-method' $FILE`
+ if test -n "$IM"; then
+ if grep -q '^;;;' $FILE; then
+ sed -n -e '/^(input-method/s/(input-method \([^ ]*\) \([^ )]*\)\( \([^)]*\)\)*)/\1 \2 \4/p' $FILE | (read LNG NAME EXTRA
+ if test -z "NAME"; then
+ NAME=$EXTRA
+ fi
+ if test "$LNG" = "t"; then
+ LNG=generic
+ fi
+ if test "$NAME" = "nil"; then
+ HEADER="<li> $FILE (extra-name:$EXTRA, only for inclusion)"
+ HEADER2=""
+ else
+# title=`sed -n -e '/^(title/s/(title \("[^"]*"\).*$/\1/p' $FILE`
+ file=`basename $FILE`
+ base=`basename $file .mim`
+ dir=`dirname $FILE`
+ dir=`dirname $dir`
+ icon="$dir/icons/$base.png"
+ if [ -f "$icon" ] ; then
+ [ -f "images/icon-$base.png" ] || convert -resize 50% "$icon" "images/icon-$base.png"
+ fi
+ HEADER="<li> $base (language:$LNG name:$NAME @htmlonly"
+# if test -n "$title"; then
+# HEADER="$HEADER title:$title"
+# fi
+ HEADER2="<img src=\"icon-$base.png\" border=\"1\" style=\"vertical-align:middle;\">"
+ HEADER3="@endhtmlonly"
+ HEADER4=")"
+ fi
+ echo "$HEADER"
+ if test -n "$HEADER2"; then
+ echo "$HEADER2"; echo "$HEADER3"; echo "$HEADER4"
+ fi
+ echo
+ echo "@htmlonly"
+ echo "<pre class=\"fragment\"><div class=\"fragment\">"
+ echo "@endhtmlonly"
+ sed -n -e '/^;;; *@/ s/;;; *\(.*\)/\1/p' \
+ -e '/^;;; *[^ @]/ s,;;; *\(.*\),\1@n,p' $FILE
+ echo "@htmlonly"
+ echo "</div></pre>"
+ echo "@endhtmlonly"
+ )