/[webpac]/trunk2/openisis/tcl/lp2db
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk2/openisis/tcl/lp2db

Parent Directory Parent Directory | Revision Log Revision Log


Revision 337 - (show annotations)
Thu Jun 10 19:22:40 2004 UTC (19 years, 9 months ago) by dpavlin
File size: 567 byte(s)
new trunk for webpac v2

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 }

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26