| 1 | #!/usr/bin/env perl |
1 | #!/usr/bin/env perl |
| 2 | |
2 | |
| 3 | use strict; |
3 | use strict; |
| 4 | use warnings; |
4 | use warnings; |
| 5 | use utf8; |
5 | use utf8; |
|
|
6 | |
|
|
7 | use constant rcsid => '$Id: genpdf,v 1.6 2007/09/16 18:54:41 pippijn Exp $'; |
| 6 | |
8 | |
| 7 | BEGIN { |
9 | BEGIN { |
| 8 | unshift @INC, "lib"; |
10 | unshift @INC, "lib"; |
| 9 | } |
11 | } |
| 10 | |
12 | |
| … | |
… | |
| 22 | my $name = $current; |
24 | my $name = $current; |
| 23 | $name =~ s/serv/Serv/; |
25 | $name =~ s/serv/Serv/; |
| 24 | $name = ucfirst $name; |
26 | $name = ucfirst $name; |
| 25 | $$data =~ s/&nick&/$name/g; |
27 | $$data =~ s/&nick&/$name/g; |
| 26 | |
28 | |
|
|
29 | $$data =~ s/~/\$\\sim\$/g; |
| 27 | $$data =~ s/#/\\#/g; |
30 | $$data =~ s/#/\\#/g; |
|
|
31 | $$data =~ s/%/\\%/g; |
|
|
32 | $$data =~ s/&/\\&/g; |
| 28 | $$data =~ s/_/\\_/g; |
33 | $$data =~ s/_/\\_/g; |
| 29 | $$data =~ s/</\$<\$/g; |
34 | $$data =~ s/</\\textless{}/g; |
| 30 | $$data =~ s/>/\$>\$/g; |
35 | $$data =~ s/>/\\textgreater{}/g; |
| 31 | $$data =~ s/\|/\$|\$/g; |
36 | $$data =~ s/\|/\$|\$/g; |
| 32 | |
37 | |
| 33 | $$data |
38 | $$data |
| 34 | } |
39 | } |
| 35 | |
40 | |
| 36 | sub delatexise { |
41 | sub delatexise { |
| 37 | my ($data) = @_; |
42 | my ($data) = @_; |
| 38 | my $result = ""; |
43 | my $result = ""; |
| 39 | for (split /\n/, $$data) { |
44 | for (split /\n/, $$data) { |
| 40 | if (/^ /) { |
45 | if (/^ /) { |
|
|
46 | $_ =~ s/\$\\sim\$/~/g; |
| 41 | $_ =~ s/\\#/#/g; |
47 | $_ =~ s/\\#/#/g; |
|
|
48 | $_ =~ s/\\%/%/g; |
|
|
49 | $_ =~ s/\\&/&/g; |
| 42 | $_ =~ s/\\_/_/g; |
50 | $_ =~ s/\\_/_/g; |
| 43 | $_ =~ s/\$<\$/</g; |
51 | $_ =~ s/\\textless\{\}/</g; |
| 44 | $_ =~ s/\$>\$/>/g; |
52 | $_ =~ s/\\textgreater\{\}/>/g; |
| 45 | $_ =~ s/\$\|\$/|/g; |
53 | $_ =~ s/\$\|\$/|/g; |
| 46 | } |
54 | } |
| 47 | $result .= "$_\n"; |
55 | $result .= "$_\n"; |
| 48 | } |
56 | } |
| 49 | |
57 | |
| … | |
… | |
| 55 | mkdir "latex/poddoc"; |
63 | mkdir "latex/poddoc"; |
| 56 | |
64 | |
| 57 | for my $file (@podfiles) { |
65 | for my $file (@podfiles) { |
| 58 | ($current) = $file =~ /podhelp\/(.+)\.pod$/; |
66 | ($current) = $file =~ /podhelp\/(.+)\.pod$/; |
| 59 | my $data = do { local $/; open my $fh, "<$file" or die "$file: $!"; <$fh> }; |
67 | my $data = do { local $/; open my $fh, "<$file" or die "$file: $!"; <$fh> }; |
| 60 | $data .= "\n" . do { local $/; open my $fh, "<help.pod" or die "help.pod: $!"; <$fh> }; |
68 | $data .= "\n" . do { local $/; open my $fh, "<podmisc/help.pod" or die "podmisc/help.pod: $!"; <$fh> }; |
| 61 | my $pom = $parser->parse_text ($data) |
69 | my $pom = $parser->parse_text ($data) |
| 62 | or die $parser->error(); |
70 | or die $parser->error(); |
| 63 | open my $fh, ">latex/podhelp/$current.tex"; |
71 | open my $fh, ">latex/podhelp/$current.tex"; |
| 64 | print $fh $pom->present ("LaTeX::Help"); |
72 | print $fh $pom->present ("LaTeX::Help"); |
| 65 | close $fh; |
73 | close $fh; |
| … | |
… | |
| 86 | or die $parser->error(); |
94 | or die $parser->error(); |
| 87 | open my $fh, ">latex/poddoc/$current.tex"; |
95 | open my $fh, ">latex/poddoc/$current.tex"; |
| 88 | print $fh $pom->present ("LaTeX::Doc"); |
96 | print $fh $pom->present ("LaTeX::Doc"); |
| 89 | close $fh; |
97 | close $fh; |
| 90 | } |
98 | } |
|
|
99 | |
|
|
100 | =head1 AUTHOR |
|
|
101 | |
|
|
102 | Copyright © 2007 Pippijn van Steenhoven |
|
|
103 | |
|
|
104 | =head1 LICENSE |
|
|
105 | |
|
|
106 | This library is free software, you can redistribute it and/or modify |
|
|
107 | it under the terms of the GNU General Public License as documented in COPYING. |
|
|
108 | |
|
|
109 | =cut |
