Return to %RDEL.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%RDEL.m, revision 1.1.1.1

1.1       snw         1: %RDEL  ; A.Trocha ; Routine Delete 01/29/1999 03:41/GMT+1
                      2:        ; $Source: /cvsroot-fuse/gump/FreeM/mlib/%RDEL.m,v $
                      3:        ; $Revision: 1.3 $ $Date: 2000/02/18 15:13:42 $
                      4:        ;
                      5:        N path,rtn,exec
                      6:        ;
                      7:        W !!,?20,"FreeM - Routine Delete Utility"
                      8:        W !,?25,$ZD,"  ",$ZT
                      9: query  W !!,"Routine selector: "
                     10:        R rtn
                     11:        I rtn="?" D help G query
                     12:        I rtn="^D" W ! D ^%RD G query
                     13:        I rtn="" G end
                     14:        S rtn=$TR(rtn,"^")
                     15:        D rexist^%ED(rtn)
                     16:        I ^%UTILITY($J,"%ED")=0 W !!,?10,"routine does not exist.",*7 G query
                     17:        W !!,"Delete Selected Routine? <N> " R x
                     18:        I $TR(x,"y","Y")'="Y" W !!,"No routines deleted." G end
                     19:        ;
                     20:        ;--- delete routine <rtn>
                     21:        S path=$S($E(rtn)="%":$V(8),1:$V(4))
                     22:        I $L(path)>0&($E(path,$L(path))'="/") S path=path_"/"
                     23:        I path="" S path="./"
                     24:        S exec="!rm "_path_rtn_$V(98)
                     25:        X exec
                     26:        W !!,"Routine deleted.",*7
                     27:        G query
                     28: end    W !!
                     29:        Q
                     30:        ;
                     31: help   ;
                     32:        W !!,"enter the routine name to delete or"
                     33:        W !,"enter '^D' to display all routine names"
                     34:        Q