# Routines to test grammars passed through the TCLL1
# parser generator.
# Link this with parseLL1 and it will write out the tokens
# and action symbols recognized by the parser.
#	(written by Dr. Thomas W. Christopher)
#
procedure outToken(tok)
write(tok.type," ",tok.line," ",tok.column," ",tok.body)
return
end

procedure outAction(a)
write(a)
return
end

procedure outError(t)
write("ERROR: ",t)
return
end

procedure initSemantics()
return
end

