#!/usr/bin/perl
#
# Look something up in the jargon file
#

if ( $#ARGV > -1 )
{
    $entry = join " ", @ARGV ;
    
    if ( $entry =~ /^([a-zA-z])/ )
    {
	$index = "= $1 =" ;
    }
    else
    {
	$index = '= [^A-Za-z] =' ;
    }
    exec "info", "jargon", "The Jargon Lexicon", "$index", "$entry";
}
else
{
    exec "info", "jargon";
}

