home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Kernel / IO / FileReader.tonyu next >
Text File  |  2002-11-28  |  567b  |  38 lines
  1. extends Reader;
  2.  
  3. native _n_FileReader;
  4. constructor FileReader(fn) {
  5.    _body=_n_FileReader (_body,fn);
  6. }
  7.  
  8. native _n_close;
  9. function close() {
  10.    if (!_body) return;
  11.    _n_close (_body);
  12.    _body=0;
  13. }
  14.  
  15. destructor destroy() {
  16.   close();
  17. }
  18.  
  19. native _n_read;
  20. function read() {
  21.    if (!_body) return null;
  22.    return _n_read (_body);
  23. }
  24.  
  25. native _n_readLn;
  26. function readLn() {
  27.    if (!_body) return null;
  28.    return _n_readLn (_body);
  29. }
  30.  
  31. function error() {
  32.    return (_body==0);
  33. }
  34.  
  35. native _n_eof;
  36. function eof() {
  37.    return _n_eof(_body);
  38. }