source: trunk/server/source4/build/pasn1/pasn1.pl

#!/usr/bin/perl -w

###################################################
# package to parse ASN.1 files and generate code for
# LDAP functions in Samba
# Copyright tridge@samba.org 2002-2003
# Copyright metze@samba.org 2004

# released under the GNU GPL

use strict;

use FindBin qw($RealBin);
use lib "$RealBin";
use lib "$RealBin/lib";
use Getopt::Long;
use File::Basename;
use asn1;
use util;

my($opt_help) = 0;
my($opt_output);

my $asn1_parser = new asn1;

#####################################################################
# parse an ASN.1 file returning a structure containing all the data
sub ASN1Parse($)
{
    my $filename = shift;
    my $asn1 = $asn1_parser->parse_asn1($filename);
    util::CleanData($asn1);
    return $asn1;
}


#########################################
# display help text
sub ShowHelp()
{
    print "
           perl ASN.1 parser and code generator
           Copyright (C) tridge\@samba.org
           Copyright (C) metze\@samba.org

           Usage: pasn1.pl [options] <asn1file>

           Options:
             --help                this help page
             --output OUTNAME      put output in OUTNAME
           \n";
    exit(0);
}

# main program
GetOptions (
            'help|h|?' => \$opt_help,
            'output|o=s' => \$opt_output,
            );

if ($opt_help) {
    ShowHelp();
    exit(0);
}

sub process_file($)
{
        my $input_file = shift;
        my $output_file;
        my $pasn1;

        my $basename = basename($input_file, ".asn1");

        if (!defined($opt_output)) {
                $output_file = util::ChangeExtension($input_file, ".pasn1");
        } else {
                $output_file = $opt_output;
        }

#       if (file is .pasn1) {
#               $pasn1 = util::LoadStructure($pasn1_file);
#               defined $pasn1 || die "Failed to load $pasn1_file - maybe you need --parse\n";
#       } else {
                $pasn1 = ASN1Parse($input_file);
                defined $pasn1 || die "Failed to parse $input_file";
                util::SaveStructure($output_file, $pasn1) ||
                    die "Failed to save $output_file\n";
        #}
}

foreach my $filename (@ARGV) {
        process_file($filename);
}