Return to word.kk CVS log

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

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

1.1     ! maekawa     1: /* word.kk , 1997, 4/9? */
        !             2: /*  see object.kk for pre-installed objects
        !             3: */
        !             4:
        !             5: class Word extends Object {
        !             6:   local word;  /* word のリスト */
        !             7:   def new0() {
        !             8:     this = new();
        !             9:     word = [ ];
        !            10:     return(this);
        !            11:   }
        !            12:   def new1(a) {
        !            13:     this = new();
        !            14:     word = [a];
        !            15:     return(this);
        !            16:   }
        !            17:   def void show() {
        !            18:     local size,i;
        !            19:     size = Length(word);
        !            20:     for (i=0; i<size; i++) {
        !            21:       Print(word[i]);
        !            22:         /* 多分これが, bug.  word は this 1 get と翻訳されるが, [i] で
        !            23:            とりだせない. */
        !            24:     }
        !            25:   }
        !            26: }
        !            27: