1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#!/usr/bin/perl
my @files = qw(mk-src.in MkSrc/Info.pm
MkSrc/Util.pm
MkSrc/Read.pm MkSrc/Create.pm
MkSrc/CcHelper.pm);
my $final;
foreach (@files)
{
open IN, $_;
$final .= "\n\n### FILE: $_\n\n";
while (<IN>)
{
s/^\#pod\s*/\n\=pod\n\n/;
s/^\#cut\s*/\n\=cut\n\n/;
$final .= $_;
}
close IN;
}
open OUT, ">mk-src.pod" or die;
print OUT $final;
close OUT;
use Pod::Checker;
$parser = Pod::Checker->new();
$parser->parse_from_file('mk-src.pod', \*STDERR);
use Pod::Text;
$parser = Pod::Text->new(loose=>1);
$parser->parse_from_file('mk-src.pod', 'mk-src.txt');
#use Pod::LaTeX;
#$parser = Pod::LaTeX->new(AddPreamble => 0, AddPostamble => 0);
#$parser->parse_from_file('mk-src.pod', '../manual/mk-src.tex.new');
#$/ = undef;
#open IN, '../manual/mk-src.tex';
#$orig = <IN>;
#open IN, '../manual/mk-src.tex.new';
#$new = <IN>;
#close IN;
#if ($orig eq $new) {
# print "mk-src.tex unchanged\n";
#} else {
# rename '../manual/mk-src.tex.new', '../manual/mk-src.tex';
#}
#unlink "mk-src.pod";
|
