Return to buggy.k CVS log

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

Annotation of OpenXM/src/k097/debug/buggy.k, Revision 1.1

1.1     ! takayama    1: /* $OpenXM$ */
        !             2: /* This is used to check  if KCerror() works properly. */
        !             3: def help(x) {
        !             4:   if (Length(Arglist) < 1) {
        !             5:      ShowKeyWords(" ");
        !             6:   } else {
        !             7:      Help(x);
        !             8:   }
        !             9: }
        !            10:
        !            11:
        !            12: def Help(key) {
        !            13:   local n,i,item,m,item1,j;
        !            14:   if (Length(Arglist) < 1
        !            15:      ShowKeyWords(" ");
        !            16:      return( [ ] );
        !            17:   }
        !            18:
        !            19:   if (key == "ALL") {
        !            20:     ShowKeyWords("ALL"); return(0);
        !            21:   }
        !            22:   n = Length(Helplist);
        !            23:   PSfor (i=0; i<n; i++) {
        !            24:     item = Helplist[i,1];
        !            25:     if (item[0] == key) {
        !            26:        if (IsArray(item[1])) {
        !            27:          item1 = item[1];
        !            28:          m = Length(item1);
        !            29:          for (j=0; j<m; j++) {
        !            30:            Println(item1[j]);
        !            31:          }
        !            32:        }else{
        !            33:          Println(item[1]);
        !            34:        }
        !            35:        return(item);
        !            36:     }
        !            37:   }
        !            38:   Print("The key word <<"); Print(key); Println(">> could not be found.");
        !            39:   return([ ]);
        !            40: }
        !            41:
        !            42: load("help.k");
        !            43: if (1==2  {
        !            44:   Println("Hello");
        !            45: }else {
        !            46:   Println("bye");
        !            47: }
        !            48:
        !            49: for (i=0) {
        !            50:   Println("Hello");
        !            51: }