use sgml_compile.sh instead of sgmltools

1 files changed, 118 insertions, 0 deletions

diff --git a/fml/utils/bin/sgml_compile.sh b/fml/utils/bin/sgml_compile.sh
new file mode 100755
index 00000000..8b435668
--- /dev/null
+++ b/fml/utils/bin/sgml_compile.sh
@@ -0,0 +1,118 @@
+#!/bin/sh
+#
+# $FML$
+#
+
+#
+# initialize variables
+#
+mode=html
+
+fml_dir=`dirname $0`/../..
+gnu_dir=`dirname $0`/../../../gnu
+cur_dir=`pwd`
+out_dir=$cur_dir/book
+out_html=$cur_dir/book.html
+out_txt=$cur_dir/book.txt
+out_rtf=$cur_dir/book.rtf
+tmp_dir=/var/tmp
+tmp_file=$tmp_dir/tmpfile.$$
+
+fml_sgml_dir=$fml_dir/doc/share/sgml
+fml_catalog_path=$fml_sgml_dir/catalog
+sgmltoolslite_catalog_path=$gnu_dir/dist/sgmltools-lite/dsssl/sgmltools.cat
+pkg_catalog=/usr/pkg/etc/sgml/catalog
+sgml_catalog_files=$SGML_CATALOG_FILES:$pkg_catalog:$sgmltoolslite_catalog_path
+sgml_search_path=$SGML_SEARCH_PATH:$fml_catalog_path:$cur_dir;
+
+for path in /usr/pkg/bin/openjade /usr/pkg/bin/lynx /usr/pkg/bin/w3m
+do
+   if [ ! -x $path ];then
+	echo "error: $path not found"
+	exit 1
+   fi
+done
+
+#
+# getopts
+#
+set -- `getopt dm: $*`
+
+if test $? != 0; then echo 'Usage: ...'; exit 2; fi
+
+for i
+do
+        case $i
+        in
+        -d)
+                debug=1;
+                shift;;
+        -m)
+		mode=$2; shift;
+                shift;;
+        --)
+                shift; break;;
+        esac
+done
+
+source=$cur_dir/$1
+
+
+#
+# fix environment
+#
+TMPDIR=$tmp_dir ; export TMPDIR
+COLS=72         ; export COLS
+SGML_SEARCH_PATH=$sgml_search_path    ; export SGML_SEARCH_PATH
+SGML_CATALOG_FILES=$sgml_catalog_files; export SGML_CATALOG_FILES
+
+#
+# main: go!
+# 
+common_options="\
+		-v  \
+		-o $tmp_file \
+		-c $fml_catalog_path "
+
+if [ "X$mode" = "Xhtml" -o "X$mode" = "Xonehtml" ];then
+   test -d $out_dir || mkdir $out_dir
+   chdir $out_dir   || exit 1
+
+   dsssl=$gnu_dir/dist/sgmltools-lite/dsssl/html.dsl
+
+   /usr/pkg/bin/openjade $common_options \
+	-t sgml \
+	-c $fml_catalog_path  \
+	-d $dsssl#$mode \
+	-d $fml_sgml_dir/fml.dsl \
+	> $out_html < $source
+
+elif [ "X$mode" = "Xlynx" ];then
+
+   dsssl=$gnu_dir/dist/sgmltools-lite/dsssl/ascii-lynx.dsl
+
+   /usr/pkg/bin/openjade $common_options \
+	-t sgml \
+	-d $dsssl#html  \
+	> $out_html < $source
+
+   /usr/pkg/bin/lynx -dump -nolist -force_html $out_html > $out_txt
+   mv $out_html $tmp_dir
+
+elif [ "X$mode" = "Xw3m" ];then
+
+   dsssl=$gnu_dir/dist/sgmltools-lite/dsssl/ascii-w3m.dsl
+
+   /usr/pkg/bin/openjade $common_options \
+	-t sgml \
+	-d $dsssl#html  \
+	> $out_html < $source
+
+   /usr/pkg/bin/w3m -T text/html -dump $out_html > $out_txt
+   mv $out_html $tmp_dir
+
+else
+   echo "error: unknown mode: $mode"	
+fi
+
+exit 0;