-- file: calctrace.ads -- ($Id: calctrace.ads,v 1.1 2005/09/06 11:20:18 baker Exp baker $) -- a caculator for simple integer expressions based on the following grammar: -- This version is instrumented with trace output, so that the recursion -- pattern is visible. -- -> | -- -> -- -> -- -> | -- -> '(' ')' | '-' | -- -> | -- where: -- stands for the start of input file/stream. -- stands for the end of an input line -- stands for any integer literal. -- stands for the null string package CalcTrace is function Calc return Integer; Syntax_Error : exception; End_Error : exception; end CalcTrace;