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

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: }