home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Kernel / Util / ResourceWriter.tonyu < prev    next >
Text File  |  2002-08-19  |  639b  |  48 lines
  1. extends Object;
  2.  
  3. native _n_init;
  4. constructor ResourceWriter(r) {
  5.   if (r is Resource) {
  6.     $_tmp_rwrt=r;
  7.     _r=_n_init();
  8.     _eof=0;
  9.   }
  10. }
  11.  
  12. native _n_writeInt;
  13. function writeInt(d) {
  14.   if (_r) {
  15.    return _n_writeInt(_r,d);
  16.   }
  17. }
  18.  
  19. native _n_write;
  20. function write(d) {
  21.   if (_r) {
  22.    return _n_write(_r,d);
  23.   }
  24. }
  25.  
  26. function eof() {
  27.   return _eof;
  28. }
  29.  
  30. function writeString(s) {
  31.   var e,i,l;
  32.   if (!(s is String)) return;
  33.   l=s.length();
  34.   writeInt(l);
  35.   i=0; 
  36.   while (i<l) {
  37.    e=s.charAt(i);
  38.    write(e);
  39.    i+=1;
  40.   }
  41. }
  42.  
  43. native _n_close;
  44. function close(){
  45.   if (_r) {
  46.     _n_close(_r);
  47.   }
  48. }