[BACK]Return to %urdel.m CVS log [TXT] [DIR] Up to [Coherent Logic Development] / freem / contrib
File:  [Coherent Logic Development] / freem / contrib / %urdel.m
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Sun Jan 19 02:04:04 2025 UTC (2 months, 2 weeks ago) by snw
Branches: MAIN, CoherentLogicDevelopment
CVS tags: v0-63-1-rc1, v0-63-0-rc1, v0-63-0, v0-62-3, v0-62-2, v0-62-1, v0-62-0, start, HEAD
FreeM

%urdel ; FreeM Routine Delete - version 0.5.0.1
 ; Jon Diamond - 1999-3-31
 ; 
 N rtn,error
 ; 
 s error=$$init^%uxxxx
 s error=$$writen^%uxxxx($t(+1)_"  "_$$^%uxdat)
 ; 
%query s rtn=$$rsel^%urxxx(%uwork) q:error<0
 i $o(@%uwork@(""))="" s error=$$writep^%uxxxx("No routines selected") q
 s error=$$rseldisp^%urxxx(%uwork)
 s error=$$go(%uwork)
 q
  
go(select)
 n a,error,cnt
 s a="",cnt=0
 f  s a=$o(@select@(a)) q:a=""  d  q:error<0
 . s error=$$delete^%urxxx(a)
 . i error<0 s error=$$writep^%uxxxx("Routine not deleted - "_a) q
 . s error=$$writep^%uxxxx("Routine deleted - "_a)
 . s cnt=cnt+1
 i error<0 q error
 s error=$$writep^%uxxxx("Total number of routines deleted - "_cnt)
 q error
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>