Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50552/forver.pas
There are no other files named forver.pas in the archive.
program forver;
include 'dskc:sym6c.def[103,307]';
include 'dskc:lexi.def[103,307]';
include 'dskc:syni.def[103,307]';
var
keys : name_type;
bombed : boolean;
keytab : hash_table;
dfa : automaton;
bnf : grammar;
procedure lfortran; extern;
procedure sfortran; extern;
procedure semini (procedure bnf; procedure dfa); extern;
begin
symini;
st6name (keys, 'KeyWds');
keytab := tcreate (keys, 200);
dfa := lexini (lfortran, 1000, 100, keytab);
bnf := synini (sfortran, 1000, 1000);
semini (sfortran, lfortran);
syni (bnf, bombed);
end.