#!/usr/local/bin/perl -w

############################################################################
# This is the XML-ReDIF parser prototype alpha script
# by Ivan Kurmanov, Feb 2000.  
#

BEGIN {
    $VERSION = '0.1';
    print "XML-ReDIF prototype parser v. $VERSION\n\n";
}

BEGIN {

    use Getopt::Std;
    use vars qw( %opts );
    getopts( "s:" , \%opts);
    
    if ( defined $opts{s} ) {
	$spec = $opts{s};
    } elsif ( defined $ENV{XR_SPEC} ) {
	$spec = $ENV{XR_SPEC};
    } 

}
use SD::XR ( $spec );

use SD::ReDIF;
use SD::ReDIF::Template;



while ( $file = shift ) {
   
    my $result = SD::XR::read_file( $file );
    
}


1;

#  that's all

__END__

