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

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: