Artifact 876c3d55fc142609af493afb0b2acf46e7fdc7154c17d490e76f5f0049989765:

• File psl-1983/3-1/util/mini.demo — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 447) [annotate] [blame] [check-ins using] [more...]

• File psl-1983/util/mini.demo — part of check-in [eb17ceb7f6] at 2020-04-21 19:40:01 on branch master — Add Reduce 3.0 to the historical section of the archive, and some more
  files relating to version sof PSL from the early 1980s. Thanks are due to
  Paul McJones and Nelson Beebe for these, as well as to all the original
  authors.

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 447) [annotate] [blame] [check-ins using]

% ----- 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;