[BACK]Return to printSVector.ccc CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / lib / Old
File: [local] / OpenXM / src / k097 / lib / Old / printSVector.ccc (download)

Revision 1.1, Mon Jan 8 05:26:55 2001 UTC (23 years, 5 months ago) by takayama
Branch: MAIN
CVS Tags: R_1_3_1-2, RELEASE_1_3_1_13b, RELEASE_1_2_3_12, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX, RELEASE_1_2_2, RELEASE_1_2_1, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9 

* Cleaned unnecessary files and functions.
* Completed the new help system. Type in make in the directory
  OpenXM/src/k097/Doc

Println("printSVector.ccc 1996, 8/17");



def printSVector(keys) {
  local i,j,n,max,width,m,k,kk,tmp0;
  n = Length(keys);
  max = 0;
  for (i=0; i<n; i++) {
     if (Length(keys[i]) > max) {
        max = Length(keys[i]);
     }
  }
  /* Println(max); */
  max = max+3;
  width = 80;
  m = 0;
  while ((m*max) < 80) {
     m = m+1;
  }
  k = 0; kk = 0;
  for (i=0; i<n; i++) {
    Print(keys[i]); kk = kk+1;
    k = k+Length(keys[i]);
    tmp0 = max-Length(keys[i]);
    for (j=0; j < tmp0 ; j++) {
       k = k+1;
       if (kk < m) {Print(" ");}
    }
    if (kk >= m) {
      kk = 0; k=0; Ln();
    }
  }
  Ln();
   
  /* Println(keys); */
}