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