cQ21 ; Cache modules ;cQ21;  [ 05/29/00  3:01 PM ]
 ;
NSPC(v,w)       ;Namespace
 n i,n s w=+$g(w)
 i '$zu(90,0) q list(0)="There are no defined namespaces." g NSPCZ
 f i=1:1:$zu(90,0) s n=$zu(90,2,0,i) d
 . i ";%CACHELIB;%SYS;SAMPLES;"[(";"_n_";") q
 . i 'w,n=$zu(5) q
 . s v($zu(90,2,0,i))=""
NSPCZ q 
 ;
DB(V) ; V(database)=directory
 N I,K,CONF,SYS K V
 S I="",SYS="%SYS",CONF=$G(^|SYS|SYS("GREDIR","DSACT")) Q:'$L(CONF)
 F  S I=$O(^|SYS|SYS("GREDIR","DSLOC","master",CONF,I)) Q:I=""  D
 . S K=$P(^(I),$C(1)) I K["\",$E(K,$L(K))'="\" S K=K_"\"
 . S V(I)=K
 Q
 ;
NS(V) ; V(namespace,"globals")=database
 ; V(namespace,"routines")=database
 N I,J,CONF,SYS K V
 S I="",SYS="%SYS",CONF=$G(^|SYS|SYS("GREDIR","NSACT")) Q:'$L(CONF)
 F  S I=$O(^|SYS|SYS("GREDIR","NSCONF",CONF,"name-space",I)) Q:I=""  D
 . S J=$O(^(I,"master",""))
 . S V(I,"globals")=$P(^(J),$C(1))
 . S V(I,"routines")=$P(^(J),$C(1),3)
 Q
 ;
ND(V) ; V(namespace,"globals")=directory
 ; V(namespace,"routines")=directory 
 N A,B,I,J K V
 D DB(.A)
 D NS(.B)
 S I=""
 F  S I=$O(B(I)) Q:I=""  D
 . F J="globals","routines" I $L(B(I,J)) S V(I,J)=A(B(I,J))
 Q
 ;
CBA ; Clean 'Q'BA("%1")
 n Q,boot,bootrvg,client,cs,g,i,j,job,k,master,q,slave,workst
 d MASTER^cQ5 i '$d(^cLOG(boot,"Q"))#10 D Q
 s q=$g(^cLOG(boot,"Q")) q:q=""
 f i=2:1:$l(q,"\") s Q=$p(q,"\",i) q:Q=""  D
 . s g="^"_Q_"BA(""%1"")",j=""
 . f  s j=$o(@g@(j)) q:j=""  s job=$p(j,"|",4) d
 .. s k=0 i job s k=$zu(67,0,job) i k=1 s k=$zu(67,1,job),k=0
 .. i k=0 k @g@(j)
CBAZ q
 ;
Q ; Set up ^cLOG(boot,"Q")
 n boot,bootrvg,client,cs,e,g,k,master,slave,workst
 d MASTER^cQ5 s (e,g)=""
 f  s g=$o(^$GLOBAL(g)) q:g=""  i g?1"^"1.3A1"BA",$d(@g@(99,1)) d
 . s k=$p($p(g,"^",2),"BA",1,$l(g,"BA")-1),e=e_k_"\"
 s ^cLOG(boot,"Q")=e
QZ q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8