#!/usr/bin/perl
#
# $RCSfile: dctinfo.plx,v $
# $Author: swaj $
# $Revision: 1.3.2.1 $
#
use 5.008;
use strict;
no warnings;
BEGIN {
$_=$0;
s|^(.+)/.*|$1|;
push @INC, ($_, "$_/lib", "$_/../lib", "$_/..") ;
};
my $file = shift;
die "Usage: $0 file.dct\n" unless defined ($file);
open (F, "<$file") or die "Can't open file '$file' :$!\n"; close F;
$file = "--input-file=$file";
@ARGV = ( $file, '--printinfo', '--fool-terminal' );
use Sdict;
$Sdict::debug = 0;
my $sd = Sdict->new;
$sd->parse_args;
$sd->print_dct_info;
exit 0;
__END__