Return to %urdel.m CVS log

Up to [Coherent Logic Development] / freem / contrib

Annotation of freem/contrib/%urdel.m, revision 1.1.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: