exception.sa

来自「SRI international 发布的OAA框架软件」· SA 代码 · 共 30 行

(* 

  ANTLR Translator Generator
  Project led by Terence Parr at http://www.jGuru.com
  Software rights: http://www.antlr.org/RIGHTS.html
 
  $Id: exception.sa,v 1.1.1.1 2002/01/02 19:59:09 agno Exp $

*)

abstract class $ANTLR_EXCEPTION < $STR is
   str : STR;
end;

class ANTLR_EXCEPTION < $ANTLR_EXCEPTION is
   attr str : STR;

   message : STR is
      return str;
   end;

   create ( s : STR ) : SAME is
      res ::= new;
      res.str := s;
      return res;
   end;
   
end;