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 |
|
|
} |