Parent Directory | Revision Log
initial import of openisis 0.9.0 vendor drop
1 | dpavlin | 237 | #!/usr/bin/perl |
2 | |||
3 | # convert a bilingual MikiDoc text | ||
4 | # to a database suitable for lowerpoint[tm] presentation | ||
5 | # using tcl/lp | ||
6 | # | ||
7 | # this is actually a little bit useful ... :) | ||
8 | |||
9 | # usage: | ||
10 | # cat doc/Cuba*.txt | tcl/lp2db | ./openisis -write db/pres/Cuba -stream | ||
11 | |||
12 | $c = 0; | ||
13 | $odd = 0; | ||
14 | while (<>) { | ||
15 | chomp; | ||
16 | /^\*\t(.*)/ && do { | ||
17 | $odd = !$odd; | ||
18 | if ( $odd ) { | ||
19 | push @a, $1; | ||
20 | } else { | ||
21 | print "\f\n" if $c++; | ||
22 | print "100\t$1\t", shift(@a), "\n"; | ||
23 | } | ||
24 | next; | ||
25 | }; | ||
26 | /^-\t(.*)/ && do { | ||
27 | if ( $odd ) { | ||
28 | push @a, $1; | ||
29 | } else { | ||
30 | print "200\t$1\t", shift(@a), "\n"; | ||
31 | } | ||
32 | }; | ||
33 | } |
Name | Value |
---|---|
svn:executable |
ViewVC Help | |
Powered by ViewVC 1.1.26 |