Return to %urdel.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%urdel.m, revision 1.1

1.1     ! snw         1: %urdel ; FreeM Routine Delete - version 0.5.0.1
        !             2:  ; Jon Diamond - 1999-3-31
        !             3:  ; 
        !             4:  N rtn,error
        !             5:  ; 
        !             6:  s error=$$init^%uxxxx
        !             7:  s error=$$writen^%uxxxx($t(+1)_"  "_$$^%uxdat)
        !             8:  ; 
        !             9: %query s rtn=$$rsel^%urxxx(%uwork) q:error<0
        !            10:  i $o(@%uwork@(""))="" s error=$$writep^%uxxxx("No routines selected") q
        !            11:  s error=$$rseldisp^%urxxx(%uwork)
        !            12:  s error=$$go(%uwork)
        !            13:  q
        !            14:   
        !            15: go(select)
        !            16:  n a,error,cnt
        !            17:  s a="",cnt=0
        !            18:  f  s a=$o(@select@(a)) q:a=""  d  q:error<0
        !            19:  . s error=$$delete^%urxxx(a)
        !            20:  . i error<0 s error=$$writep^%uxxxx("Routine not deleted - "_a) q
        !            21:  . s error=$$writep^%uxxxx("Routine deleted - "_a)
        !            22:  . s cnt=cnt+1
        !            23:  i error<0 q error
        !            24:  s error=$$writep^%uxxxx("Total number of routines deleted - "_cnt)
        !            25:  q error
        !            26: