Annotation of /trunk/openisis/tcl/lpdb

#!/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";
        };
}
1	dpavlin	237	#!/usr/bin/perl
2
3			# convert a MikiDoc text to a databse suitable for lowerpoint[tm] presentation
4			# using tcl/lp
5			#
6			# this is not actually useful, but serves as a demo
7
8			# usage:
9			# tcl/lpdb <doc/some.txt \| ./openisis -write db/pres/some -stream -fmt mfn
10
11			$c = 0;
12			while (<>) {
13			chomp;
14			/^\\t(.)/ && do {
15			print "\f\n" if $c++;
16			print "100\t$1\n";
17			next;
18			};
19			/^-\t(.*)/ && do {
20			print "200\t$1\n";
21			};
22			}