Parent Directory | Revision Log
initial import of openisis 0.9.0 vendor drop
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 | } |
Name | Value |
---|---|
svn:executable |
ViewVC Help | |
Powered by ViewVC 1.1.26 |