Return to printSVector.ccc CVS log

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

Annotation of OpenXM/src/k097/lib/printSVector.ccc, Revision 1.1

1.1     ! maekawa     1:
        !             2: Println("printSVector.ccc 1996, 8/17");
        !             3:
        !             4:
        !             5:
        !             6: def printSVector(keys) {
        !             7:   local i,j,n,max,width,m,k,kk,tmp0;
        !             8:   n = Length(keys);
        !             9:   max = 0;
        !            10:   for (i=0; i<n; i++) {
        !            11:      if (Length(keys[i]) > max) {
        !            12:         max = Length(keys[i]);
        !            13:      }
        !            14:   }
        !            15:   /* Println(max); */
        !            16:   max = max+3;
        !            17:   width = 80;
        !            18:   m = 0;
        !            19:   while ((m*max) < 80) {
        !            20:      m = m+1;
        !            21:   }
        !            22:   k = 0; kk = 0;
        !            23:   for (i=0; i<n; i++) {
        !            24:     Print(keys[i]); kk = kk+1;
        !            25:     k = k+Length(keys[i]);
        !            26:     tmp0 = max-Length(keys[i]);
        !            27:     for (j=0; j < tmp0 ; j++) {
        !            28:        k = k+1;
        !            29:        if (kk < m) {Print(" ");}
        !            30:     }
        !            31:     if (kk >= m) {
        !            32:       kk = 0; k=0; Ln();
        !            33:     }
        !            34:   }
        !            35:   Ln();
        !            36:
        !            37:   /* Println(keys); */
        !            38: }
        !            39:
        !            40:
        !            41: