Return to trip2.k CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/trip2.k, Revision 1.1

1.1     ! maekawa     1: class Object extends PrimitiveObject {
        !             2:   ;
        !             3: }
        !             4:
        !             5: class Complex extends Object {
        !             6:   local re,im;
        !             7:   def new0(a,b) {
        !             8:     local ans;
        !             9:     /* this = super.new0(); this = Join(this,NewArray(sizeOfThisClass)); */
        !            10:     this = NewArray(startOfThisClass+sizeOfThisClass);
        !            11:     ans = this;
        !            12:     ans[0] = Complex[0];
        !            13:     re = a;
        !            14:     im = b;
        !            15:     return(this);
        !            16:   }
        !            17:   def void show() {
        !            18:     Print(re); Print(" + "); Println(im);
        !            19:   }
        !            20:
        !            21: }
        !            22:
        !            23: class Complex2 extends Complex {
        !            24:   local abs;
        !            25:   ;
        !            26: }
        !            27:
        !            28: class Integer extends Object {
        !            29:   local ival;
        !            30:   ;
        !            31: }