main.sa
上传用户:afrynkmhm
上传日期:2007-01-06
资源大小:1262k
文件大小:1k
源码类别:

编译器/解释器

开发平台:

Others

  1. class MAIN is
  2.    main ( args : ARRAY{STR} ) is
  3.       if ( args.size < 2 ) then
  4.  #OUT + "usage " + args[0] + " <filename>n";
  5.  return;
  6.       end;
  7.  
  8.       f : IFSTREAM := IFSTREAM::open_for_read( args[1] );
  9.       if ( void(f) ) then
  10.  #OUT + "file "" + args[1] + "" not foundn";
  11.  return;
  12.       end;
  13.       lexer ::= #REWRITE{ANTLR_COMMON_TOKEN}( f );
  14.       protect
  15.  lexer.mSTART(true);
  16.          lexer.println( "result Token=" + lexer.token.str );
  17.       when $ANTLR_RECOGNITION_EXCEPTION then
  18.  #ERR + "exception: " + exception.str;
  19.       end;
  20.    end;
  21. end;