Perl x Open Food Facts Hackathon: Paris, France - May 24-25 Learn more

BEPPU / Embedix-ECD-0.09 / bin / checkecd 

            

              
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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86

              
#!/usr/bin/perl -w
use strict;
use Embedix::ECD;
use Getopt::Long;
my $ecd;
my $exit_code = 0;
if (@ARGV) {
    foreach (@ARGV) {
        eval { $ecd = Embedix::ECD->consFromFile($_) };
        # eval { $ecd = Embedix::ECD->newFromFile($_) };
        if ($@) {
            $exit_code++;
            print STDERR "$_: $@";
        } else {
            # print Data::Dumper::Dumper($ecd);
            # print $ecd;
            # print $ecd->toString(shiftwidth => 2, indent => 0);
        }
    }
} else {
    eval { $ecd = Embedix::ECD->newFromString(join('', <STDIN>)) }; 
    if ($@) {
        $exit_code++;
        print $@;
    } else {
        # print $ecd;
    }
}
exit $exit_code;
=head1 NAME
checkecd.pl - performs syntax checking of .ecd files
=head1 SYNOPSIS
    checkecd [OPTION]... [FILE]...
    checkecd [OPTION]... < STDIN
It returns meaningful exit codes so you can do things like:
    checkecd FILE && echo "kosher";
=head1 DESCRIPTION
This checks the syntax of .ecd files for validity.
=head1 OPTIONS
None, yet.
=head1 DIAGNOSTICS
=over 4
=item $line: was expecting $TAGNAME, but found $CRAP instead.
This error occurs whenever an imbalanced tag is found.
=back
=head1 REQUIRES
=over 4
=item Embedix::ECD
This is used to parse ECD files.
=back
=head1 SEE ALSO
Embedix::ECD(3pm)
=head1 AUTHOR
John BEPPU <beppu@lineo.com>
=cut
# $Id: checkecd,v 1.1 2001/01/19 00:26:38 beppu Exp $