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     ! 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.");