0.9.0/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	#!/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	}