Return to trip2.k CVS log | 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, 9 months ago) by maekawa
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; ; }