blob: eb50708fc40d5999625e55b815b77be0393f8548 (
plain)
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
52
53
54
|
#!/usr/bin/env perl
#-*- perl -*-
#
# $FML: check.pl,v 1.1.1.1 2005/09/30 13:30:31 fukachan Exp $
#
use strict;
use Carp;
use vars qw(%entity %file %used %file_in_dir);
my $entity = "include/chapters.ent";
parse($entity, 0);
parse("book.sgml", 1);
exit 0;
sub parse
{
my ($file, $is_print) = @_;
use FileHandle;
my $rh = new FileHandle $file;
if (defined $rh) {
my $buf;
LINE:
while ($buf = <$rh>) {
# <!entity chapter.download SYSTEM "install/download.sgml">
if ($buf =~ /<\!entity\s+(\S+)\s+SYSTEM\s+"(\S+)">/) {
$entity{ $1 } = $2;
$file{ $2 } = $1;
}
# usual file
if ($buf =~ /\&(\S+);/) {
$used{ $1 } = 1;
my $_file = $entity{ $1 } || '';
if ($_file && -f $_file) {
parse($_file, $is_print);
next LINE;
}
}
if ($is_print) {
print $buf;
}
}
$rh->close();
}
else {
croak("cannot open \"$file\"\n");
}
}
|
