13.2 Findgrammar Interface

ORIGIN 'astlevel';
LIB_DEF 'mpsfindgram' '../lib';
BODY 'private/findGrammarBody'
(*
 * COPYRIGHT
 *       Copyright (C) Mjolner Informatics, 1986-93
 *       All rights reserved.
 *)
--- astInterfaceLib: attributes ---
findGrammar: grammarFinder
  (# registerGrammars::<(# do ...; INNER #);
     registeredGrammars::<
       (# ... #);
     grammarsPATH:<
       (* the name of the file in which the valid grammars are specified.
        * Used by registerGrammars 
        *)
       (# grammars: ^text
       ...
       exit grammars[]
       #);
     metaGrammarFile:<
       (* the name of the file in which the  meta-grammar is specified *)
       (# metaGrammar: ^text
       ...
       exit metaGrammar[]
       #);
     loadingError:< exception
       (#
          nameError:< error
            (#
            do 'Grammar extension or path found in wrong position'
                ->msg.puttext;
               INNER
            #);
          extensionPathError:< exception
            (#
            do 'Grammar extension or path found in wrong position'->msg.puttext;
               INNER
            #);
          constError:< exception
            (#
            do 'Const values does not make sense in grammar specifications'
                ->msg.puttext; INNER
            #);
          formatError:< exception
            (#
            do 'Something wrong with the number of values in grammar specification'
                ->msg.puttext; INNER
            #);
          MPSerror:< exception
            (# t: ^text enter t[] do t[]->msg.puttext; INNER #);
       #);
     private: @ ...;
  do ...;
  #)