Return to psfor.k CVS log

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

Annotation of OpenXM/src/k097/debug/psfor.k, Revision 1.1.1.1

1.1       maekawa     1:
                      2:
                      3: /*  1997, 5/25,  debug/psfor.k PSfor を新しくつくった.*/
                      4: def void foo(n) {
                      5:   local i;
                      6:   Print(n); Print(" times of for loop ");
                      7:   sm1(" set_timer ");
                      8:   for (i=0; i<n; i++) {
                      9:
                     10:   }
                     11:   Println("  ");
                     12:   sm1(" set_timer ");
                     13: }
                     14:
                     15:
                     16: def void foo2(n) {
                     17:   local i;
                     18:   Print(n); Print(" times of PSfor loop ");
                     19:   sm1(" set_timer ");
                     20:   PSfor (i=0; i<n; i++) {
                     21:
                     22:   }
                     23:   Println("  ");
                     24:   sm1(" set_timer ");
                     25: }
                     26:
                     27: Println("psfor.k   :  foo(n) for for and foo2(n) for PSfor.");