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

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: