//
// File GR.RF
//
// Project: GR
//

$use Convert;
$use Dos;
$use StdIO;

$use GrRead;
$use GrPrn;
$use GrAnal;

$channel Input;

$func Main = e ;

Main  =
  <Arg 1> :: e.FileName,
  <ReadGrammar e.FileName> :: (e.Tokens) (e.Rules),
  <Arg 2> :: e.FileName,
  <OpenFile &WriteFileCh e.FileName "W">,
  <Analyze (e.Tokens) (e.Rules)>,
  <CloseChannel &WriteFileCh>;