/[webpac]/trunk2/openisis/tcl/lpdb
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/lpdb

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: 405 byte(s)
new trunk for webpac v2

1 #!/usr/bin/perl
2
3 # convert a MikiDoc text to a databse suitable for lowerpoint[tm] presentation
4 # using tcl/lp
5 #
6 # this is not actually useful, but serves as a demo
7
8 # usage:
9 # tcl/lpdb <doc/some.txt | ./openisis -write db/pres/some -stream -fmt mfn
10
11 $c = 0;
12 while (<>) {
13 chomp;
14 /^\*\t(.*)/ && do {
15 print "\f\n" if $c++;
16 print "100\t$1\n";
17 next;
18 };
19 /^-\t(.*)/ && do {
20 print "200\t$1\n";
21 };
22 }

Properties

Name Value
svn:executable

  ViewVC Help
Powered by ViewVC 1.1.26