[BACK]Return to psfor.k CVS log [TXT][DIR] Up to [local] / OpenXM / src / k097 / debug
File: [local] / OpenXM / src / k097 / debug / psfor.k (download)

Revision 1.1.1.1 (vendor branch), Fri Oct 8 02:12:16 1999 UTC (24 years, 7 months ago) by maekawa
Branch: OpenXM, MAIN
CVS Tags: maekawa-ipv6, R_1_3_1-2, RELEASE_20000124, 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, RELEASE_1_1_3, RELEASE_1_1_2, KNOPPIX_2006, HEAD, DEB_REL_1_2_3-9, ALPHA
Changes since 1.1: +0 -0 lines 

o import OpenXM sources


/*  1997, 5/25,  debug/psfor.k PSfor を新しくつくった.*/
def void foo(n) {
  local i;
  Print(n); Print(" times of for loop ");
  sm1(" set_timer ");
  for (i=0; i<n; i++) {
    
  }
  Println("  ");
  sm1(" set_timer ");
}

   
def void foo2(n) {
  local i;
  Print(n); Print(" times of PSfor loop ");
  sm1(" set_timer ");
  PSfor (i=0; i<n; i++) {
    
  }
  Println("  ");
  sm1(" set_timer ");
}

Println("psfor.k   :  foo(n) for for and foo2(n) for PSfor.");