#!/usr/bin/perl

use strict;
use warnings;
use utf8;

use Carp qw(confess);
use Data::Dumper;
use Getopt::Std;

use Ernad::Args;
use Ernad::Erimp;

#my %o;
#&Getopt::Std::getopts('adb', \%o);
#my $do_add = $o{'a'} // 0;
#my $do_delete = $o{'d'} // 0;
##my $do_build = $o{'b'} // 0;

if(not $ARGV[0]) {
  print "I don’t see your implementation name, try 'bims' or 'nep'.\n";
  exit;
}

our ($impna, $e, $repcode, $in_file);
&Ernad::Args::parse();
if(not $impna) {
  print "I don't see your implemenation name, try 'bims' or 'nep'\n";
  exit;
}

# print "This software is not written, gripe to Thomas.\n";

$e=Ernad::Erimp->new({'impna'=> $impna, 'verbose'=>3});

$e->{'r'}->archive();

__END__;