[BACK]Return to trip2.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug
File: [local] / OpenXM / src / k097 / debug / trip2.k (download)

Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:15 1999 UTC (24 years, 8 months ago) by maekawa
Branch: OpenXM, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ALPHA
Changes since 1.1: +0 -0 lines 

o import OpenXM sources

class Object extends PrimitiveObject {
  ;
}

class Complex extends Object {
  local re,im;
  def new0(a,b) {
    local ans;
    /* this = super.new0(); this = Join(this,NewArray(sizeOfThisClass)); */
    this = NewArray(startOfThisClass+sizeOfThisClass);
    ans = this;
    ans[0] = Complex[0];
    re = a;
    im = b;
    return(this);
  }
  def void show() {
    Print(re); Print(" + "); Println(im);
  }
    
}

class Complex2 extends Complex {
  local abs;
  ;
}

class Integer extends Object {
  local ival;
  ;
}