Parent Directory | Revision Log
initial import of openisis 0.9.0 vendor drop
1 | #!/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 |