/[webpac]/trunk/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

Annotation of /trunk/openisis/tcl/lp2db

Parent Directory Parent Directory | Revision Log Revision Log


Revision 237 - (hide annotations)
Mon Mar 8 17:43:12 2004 UTC (20 years ago) by dpavlin
Original Path: openisis/current/tcl/lp2db
File size: 567 byte(s)
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     }

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26