
The predicates in this file (set_up) 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% 

set_up:- 
    nl, write('Options:'), nl, 
    write('   0.  Compile ALL (macros/lexicon/rules).'), nl, 
    write('   1.  Compile segment MACROS.'), nl, 
    write('   2.  Compile two level RULES.'), nl, 
    write('   3.  Compile LEXICON'), nl, nl, 
    write('Enter numbers for selected options.'), nl,
    write('|: '), 
    read_digits(Ds), 
    set_up(Ds), nl. 
 
set_up(Ds):- 
   member(D,Ds), 
   \+(member(D,[0,1,2,3])), !, 
   nl, write(' *** Unrecognised entry '), 
   write(D), write(' *** '), nl. 
set_up(Ds):- 
   member(0,Ds), !, 
   macro_set_up,
   compile_twolevelrules, 
   compile_lexicon. 

set_up(Ds):- 
   (member(1,Ds) -> macro_set_up ; true), 
   (member(2,Ds) -> compile_twolevelrules ; true),
   (member(3,Ds) -> compile_lexicon ; true). 

s:- set_up.

