home *** CD-ROM | disk | FTP | other *** search
/ ring.yamanashi.ac.jp/pub/pc/freem/action/ / action.zip / baku100.zip / baku100 / Kernel / Array.tonyu next >
Text File  |  2003-01-19  |  2KB  |  82 lines
  1. extends classes.lang.Object;
  2.  
  3. constructor Array() {init();}
  4.  
  5. function init() { _x=native_init();}
  6. native native_init ;
  7. function add(d) { native_add(_x,d);}
  8. native native_add ;
  9. function insert(i,o) { _n_insert(_x,i,o); } 
  10. native _n_insert;
  11. function get(i) { return native_get(_x,i);}
  12. native native_get ;
  13. function set(i,c) { return native_set(_x,i,c);}
  14. native native_set ;
  15. function size() { return native_size(_x);}
  16. native native_size ;
  17. function delete(i) { return native_delete(_x,i);}
  18. native native_delete ;
  19. function indexOf(o) { return native_indexof(_x,o);}
  20. native native_indexof ;
  21. function lightIndexOf(o) { return native_lightindexof(_x,o);}
  22. native native_lightindexof ;
  23.  
  24. function remove(o) {
  25.   var i; 
  26.   i=indexOf(o);
  27.   if (i>=0) return delete(i);
  28.   return null;
  29. } 
  30.  
  31. native _n_pack;
  32. function pack(v) {
  33.    return _n_pack (_x,v);
  34. }  
  35.  
  36. function _setBody(x) {
  37.   native_free(_x);
  38.   _x=x;
  39. }
  40.  
  41. destructor free() { native_free(_x); _x=null; }
  42. native native_free ;
  43.  
  44. function gc_mark() {
  45.     var i,c;
  46.     i=0;c=size();
  47.     while(i<c) {
  48.       native_gc_mark(get(i));i=i+1;
  49.     }
  50. }
  51.  
  52. function clear() {
  53.    while (size()>0) delete(0);
  54. }
  55.  
  56. function load(fn) {
  57.    var s,eof,ln;
  58.    s=new FileReader(fn);
  59.    if (s.error() ) return s.error();
  60.    eof=0;clear();
  61.    while (!eof) {
  62.       ln=s.readLn();
  63.       if (ln!=null) add(ln); else eof=1;
  64.    }
  65.    s.close();
  66.    return 0;
  67. }
  68.  
  69. function save(fn) {
  70.    var s,ln,lc;
  71.    s=new FileWriter(fn);
  72.    if (s.error()) return s.error();
  73.    lc=size();
  74.    for (ln in this) {
  75.        lc-=1; 
  76.        if (lc==0) s.writeStr(ln); else s.writeLn(ln);
  77.    }
  78.    s.close();
  79.    return 0;
  80. }
  81.  
  82.