File psl-1983/3-1/util/mini.demo from the latest check-in

% ----- A simple DEMO of MINI -------
%       Use after IN "/utah/psl/mini.build"

MINI 'ROOT;                         % starts the mini parser generator
 
ROOT: STMT* / 'QUIT ;         % Define ROOT

STMT: ID '= EXP @; +(SETQ #2  #1) 
      .(PRINT #1)  .(NEXT!-TOK) ;    % Define STMT

EXP:  TERM < '+ EXP +(PLUS #2 #1) /  
             '- EXP +(DIFFERENCE #2 #1)>;

TERM: NUM / ID /  '( EXP ') ;

FIN

% To run it, use

% INVOKE 'ROOT;


END;