21 lines
674 B
Mathematica
21 lines
674 B
Mathematica
|
ZIBVKCA ; IHS/ADC/GTH - KILL VARIABLES ; [ 10/29/2002 7:42 AM ]
|
||
|
|
;;4.0;XB;;Jul 20, 2009;Build 2
|
||
|
|
; XB*3*9 IHS/SET/GTH XB*3*9 10/29/2002
|
||
|
|
;
|
||
|
|
; This routine kills variables in the namespace of the
|
||
|
|
; variable passed in the parameter.
|
||
|
|
; This routine is accessed thru the front end routine XBVK.
|
||
|
|
;
|
||
|
|
; Original routine provided by Dr. Mark Delaney, TASSC, 12 Dec 2001.
|
||
|
|
;
|
||
|
|
Q ; No entry from top
|
||
|
|
;
|
||
|
|
EN(ZIBVKNS) ;EP - KILL Local variables in the passed namespace.
|
||
|
|
;
|
||
|
|
Q:$G(ZIBVKNS)=""
|
||
|
|
NEW ZIBVKX
|
||
|
|
S ZIBVKX=ZIBVKNS K @ZIBVKNS
|
||
|
|
F S ZIBVKX=$O(@ZIBVKX) Q:ZIBVKX="" Q:$E(ZIBVKX,1,$L(ZIBVKNS))]ZIBVKNS I $E(ZIBVKX,1,$L(ZIBVKNS))=ZIBVKNS,ZIBVKX'["ZIBVK" K @ZIBVKX
|
||
|
|
Q
|
||
|
|
;
|