Return to word.kk CVS log | Up to [local] / OpenXM / src / k097 / debug |
File: [local] / OpenXM / src / k097 / debug / word.kk (download)
Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:15 1999 UTC (24 years, 11 months ago) by maekawa
o import OpenXM sources |
/* word.kk , 1997, 4/9? */ /* see object.kk for pre-installed objects */ class Word extends Object { local word; /* word のリスト */ def new0() { this = new(); word = [ ]; return(this); } def new1(a) { this = new(); word = [a]; return(this); } def void show() { local size,i; size = Length(word); for (i=0; i<size; i++) { Print(word[i]); /* 多分これが, bug. word は this 1 get と翻訳されるが, [i] で とりだせない. */ } } }