cleanup and documentation updates

[webpac] / openisis / tcl / lpdb

diff --git a/openisis/tcl/lpdb b/openisis/tcl/lpdb
deleted file mode 100755 (executable)
index 5e9bf47..0000000
--- a/openisis/tcl/lpdb
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-
-#      convert a MikiDoc text to a databse suitable for lowerpoint[tm] presentation
-#      using tcl/lp
-#
-#      this is not actually useful, but serves as a demo
-
-#      usage:
-# tcl/lpdb <doc/some.txt | ./openisis -write db/pres/some -stream -fmt mfn
-
-$c = 0;
-while (<>) {
-       chomp;
-       /^\*\t(.*)/ && do {
-               print "\f\n" if $c++;
-               print "100\t$1\n";
-               next;
-       };
-       /^-\t(.*)/ && do {
-               print "200\t$1\n";
-       };
-}