Return to kobj2.kk CVS log

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

Annotation of OpenXM/src/k097/debug/kobj2.kk, Revision 1.1

1.1     ! maekawa     1:
        !             2:
        !             3: /* kobj2.kk,  1997, 3/30 */
        !             4: /* 省略記法を用いない, ソース */
        !             5: /* /PrimitiveContextp StandardContextp def
        !             6:    Object = [PrimitiveContextp]
        !             7:    def new() { Return(Object); }
        !             8: */
        !             9:
        !            10: /* local int i, ans, int j;  などという形でデータ型を指定する. */
        !            11:
        !            12: class Complex extends Object {
        !            13:   /* /Complex [(Complex) Object 0 get newcontext] def
        !            14:      Complex 0 get setcontext
        !            15:   */
        !            16:   local re,im;
        !            17:   def new(a,b) {
        !            18:     this = super.new();
        !            19:     /* /super Object def
        !            20:        super [ ] {new} sendmsg2  /this set
        !            21:        Complex this {rest} primmsg {append} primmsg
        !            22:        [null null] {append} primmsg  /this set
        !            23:     */
        !            24:     re = a; /* this 1 a {put} primmsg  */
        !            25:     im = b;
        !            26:     return(this);
        !            27:   }
        !            28:   def void print() {  /* sm1 の print との関係を考えよ. */
        !            29:     Print("[");
        !            30:     /* ["["] {Print} sendmsg */
        !            31:     Print(re); Print("]+i[");
        !            32:     Print(im); Print("]");
        !            33:   }
        !            34:   def add(b) {
        !            35:     local c;
        !            36:     /* arg2 /b set  arg1 /this set */
        !            37:     c = Complex.new(this.re,this.im);
        !            38:     /* Complex [ this 1 {get} sendmsg this 2 {get} sendmsg ] {new} sendmsg2
        !            39:        /c set */
        !            40:     c.re = c.re+b.re;
        !            41:     /* c 1 << c 1 get >> << b 1 get >> {add} sendmsg2 {Put} sendmsg2 */
        !            42:     c.im = c.im+b.im;
        !            43:     return(c);
        !            44:   }
        !            45: };
        !            46:
        !            47: a = Complex.new(1,2);
        !            48: /* /a Complex [1 2] {new} sendmsg2 def */
        !            49: a = a+b;
        !            50: /* /a a b {add} sendmsg2 def */
        !            51: a.print(); Println();
        !            52: /* a [ ] {print} sendmsg2  [ ] {Println} sendmsg */
        !            53:
        !            54:
        !            55:
        !            56: