Return to %SYSOOP.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%SYSOOP.m, revision 1.1.1.1

1.1       snw         1: %SYSOOP ;
                      2:     QUIT
                      3: DESTROY(CLASS,INST)
                      4:     N FNC S FNC="DESTROY^"_CLASS_"(.INST)"
                      5:     S $ZTRAP="TRYLOW^%SYSOOP"
                      6:     D @FNC
                      7:     G ALLDONE
                      8: TRYLOW ;
                      9:     S $ZTRAP="TRYPASC^%SYSOOP"
                     10:     S FNC="destroy^"_CLASS_"(.INST)"
                     11:     D @FNC
                     12:     G ALLDONE
                     13: TRYPASC ;
                     14:     S $ZTRAP="ALLDONE^%SYSOOP"
                     15:     S FNC="Destroy^"_CLASS_"(.INST)"
                     16:     D @FNC
                     17:     G ALLDONE
                     18: ALLDONE ;
                     19:     S $ZTRAP=""
                     20:     K INST   
                     21:     QUIT