pasn1.pl

来自「samba最新软件」· PL 代码 · 共 94 行

#!/usr/bin/perl -w

###################################################
# package to parse ASN.1 files and generate code for
# LDAP functions in Samba
# Copyright [e-mail] 2002-2003
# Copyright [e-mail] 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);
}