181 lines
8.2 KiB
Mathematica
181 lines
8.2 KiB
Mathematica
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; ;
|
|
; Copyright 2006, 2009 Fidelity Information Services, Inc ;
|
|
; ;
|
|
; This source code contains the intellectual property ;
|
|
; of its copyright holder(s), and is made available ;
|
|
; under a license. If you do not know the terms of ;
|
|
; the license, please stop and do not read further. ;
|
|
; ;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
verify: ;implement the verb: VERIFY, also invoked from show and GDEGET
|
|
ALL() ;external
|
|
n verified,gqual s verified=1
|
|
s gqual="NAME" d ALLNAM
|
|
s gqual="REGION" d ALLREG,usereg
|
|
s gqual="SEGMENT" d ALLSEG,useseg
|
|
d ALLTEM
|
|
zm gdeerr("VERIFY"):$s(verified:"OK",1:"FAILED") w !
|
|
q verified
|
|
|
|
;-----------------------------------------------------------------------------------------------------------------------------------
|
|
; called from GDEPARSE.M
|
|
|
|
ALLNAM
|
|
n NAME s NAME=""
|
|
f s NAME=$o(nams(NAME)) q:'$l(NAME) d name1
|
|
q
|
|
ALLREG
|
|
n REGION s REGION=""
|
|
f s REGION=$o(regs(REGION)) q:'$l(REGION) d region1
|
|
q
|
|
ALLSEG
|
|
n SEGMENT s SEGMENT=""
|
|
f s SEGMENT=$o(segs(SEGMENT)) q:'$l(SEGMENT) d seg1
|
|
; No duplicate region->segment mappings
|
|
n refdyns s s=""
|
|
f s s=$o(regs(s)) q:'$l(s) d:$d(refdyns(regs(s,"DYNAMIC_SEGMENT"))) dupseg s refdyns(regs(s,"DYNAMIC_SEGMENT"),s)=""
|
|
; No duplicate segment->file mappings
|
|
n reffils
|
|
f s s=$o(segs(s)) q:'$l(s) d:$d(reffils(segs(s,"FILE_NAME"))) dupfile s reffils(segs(s,"FILE_NAME"),s)=""
|
|
q
|
|
NAME
|
|
i '$d(nams(NAME)) k verified zm $$info(gdeerr("OBJNOTFND")):"Name":$s(NAME'="#":NAME,1:"Local Locks") q
|
|
name1: i '$d(regs(nams(NAME))) s verified=0 zm gdeerr("MAPBAD"):"Region":nams(NAME):"Name":$s(NAME'="#":NAME,1:"Local Locks")
|
|
q
|
|
REGION
|
|
i '$d(regs(REGION)) k verified zm $$info(gdeerr("OBJNOTFND")):"Region":REGION q
|
|
region1: i '$d(segs(regs(REGION,"DYNAMIC_SEGMENT"))) s verified=0
|
|
i zm gdeerr("MAPBAD"):"Dynamic segment":regs(REGION,"DYNAMIC_SEGMENT"):"Region":REGION q
|
|
n rquals s s=""
|
|
f s s=$o(regs(REGION,s)) q:'$l(s) s rquals(s)=regs(REGION,s)
|
|
f s s=$o(minreg(s)) q:'$l(s) i '$d(rquals(s)) s verified=0 zm $$info(gdeerr("QUALREQD")):s,gdeerr("REGIS"):REGION
|
|
f s s=$o(maxreg(s)) q:'$l(s) i '$d(rquals(s)) s verified=0 zm $$info(gdeerr("QUALREQD")):s,gdeerr("REGIS"):REGION
|
|
s x=$$RQUALS(.rquals)
|
|
q
|
|
SEGMENT
|
|
i '$d(segs(SEGMENT)) k verified zm $$info(gdeerr("OBJNOTFND")):"Segment":SEGMENT q
|
|
seg1: i '$d(segs(SEGMENT,"ACCESS_METHOD")) s verified=0 zm $$info(gdeerr("QUALREQD")):"Access method",gdeerr("SEGIS"):"":SEGMENT q
|
|
s am=segs(SEGMENT,"ACCESS_METHOD")
|
|
n squals s s=""
|
|
f s s=$o(segs(SEGMENT,s)) q:'$l(s) s squals(s)=segs(SEGMENT,s)
|
|
f s s=$o(minseg(am,s)) q:'$l(s) i '$d(squals(s)) s verified=0 zm $$info(gdeerr("QUALREQD")):s,gdeerr("SEGIS"):am:SEGMENT
|
|
f s s=$o(maxseg(am,s)) q:'$l(s) i '$d(squals(s)) s verified=0 zm $$info(gdeerr("QUALREQD")):s,gdeerr("SEGIS"):am:SEGMENT
|
|
i "MM"=am,1=squals("ENCRYPTION_FLAG") s verified=0 zm $$info(gdeerr("ENCNOMM")):s,gdeerr("SEGIS"):am:SEGMENT
|
|
s x=$$SQUALS(am,.squals)
|
|
q
|
|
usereg: n REGION,NAME s REGION=""
|
|
f s REGION=$o(regs(REGION)) q:'$l(REGION) d usereg1
|
|
q
|
|
usereg1: s NAME=""
|
|
f s NAME=$o(nams(NAME)) q:$g(nams(NAME))=REGION!'$l(NAME)
|
|
i '$l(NAME) s verified=0 zm gdeerr("MAPBAD"):"A":"NAME":"REGION":REGION
|
|
q
|
|
useseg: n SEGMENT,REGION s SEGMENT=""
|
|
f s SEGMENT=$o(segs(SEGMENT)) q:'$l(SEGMENT) d useseg1
|
|
q
|
|
useseg1: s REGION=""
|
|
f s REGION=$o(regs(REGION)) q:$g(regs(REGION,"DYNAMIC_SEGMENT"))=SEGMENT!'$l(REGION)
|
|
i '$l(REGION) s verified=0 zm gdeerr("MAPBAD"):"A":"REGION":"SEGMENT":SEGMENT
|
|
q
|
|
;-----------------------------------------------------------------------------------------------------------------------------------
|
|
; routine services
|
|
|
|
info:(mesno)
|
|
q mesno\8*8+3
|
|
;
|
|
dupseg: s verified=0
|
|
zm gdeerr("MAPDUP"):"Regions":$o(refdyns(regs(s,"DYNAMIC_SEGMENT"),"")):s:"Dynamic segment":regs(s,"DYNAMIC_SEGMENT")
|
|
q
|
|
dupfile: s verified=0
|
|
zm gdeerr("MAPDUP"):"Dynamic segments":$o(reffils(segs(s,"FILE_NAME"),"")):s:"File":segs(s,"FILE_NAME")
|
|
q
|
|
ALLTEM
|
|
s x=$$TRQUALS(.tmpreg)
|
|
; The change is for TR C9E02-002518, any template command updates only active segment
|
|
; so verify only that segment with template region, not all segments
|
|
d tmpseg
|
|
q
|
|
tmpseg: n squals s s=""
|
|
f s s=$o(tmpseg(am,s)) q:'$l(s) s squals(s)=tmpseg(am,s)
|
|
s x=$$TSQUALS(am,.squals)
|
|
q
|
|
regelm: i s'="DYNAMIC_SEGMENT",'$d(tmpreg(s)) zm $$info(gdeerr("QUALBAD")):s
|
|
e i $d(minreg(s)),minreg(s)>rquals(s) zm gdeerr("VALTOOSMALL"):rquals(s):minreg(s):s
|
|
e i $d(maxreg(s)),maxreg(s)<rquals(s) zm gdeerr("VALTOOBIG"):rquals(s):maxreg(s):s
|
|
i s verified=0 zm gdeerr("REGIS"):REGION
|
|
q
|
|
segelm: i s'="FILE_NAME",'$l(tmpseg(am,s)) zm $$info(gdeerr("QUALBAD")):s
|
|
e i $d(minseg(am,s)),minseg(am,s)>squals(s) zm gdeerr("VALTOOSMALL"):squals(s):minseg(am,s):s
|
|
e i $d(maxseg(am,s)),maxseg(am,s)<squals(s) zm gdeerr("VALTOOBIG"):squals(s):maxseg(am,s):s
|
|
i s verified=0 zm gdeerr("SEGIS"):am:SEGMENT
|
|
q
|
|
rec2blk: s y=s-f-SIZEOF("blk_hdr")
|
|
i x>y s verified=0 zm gdeerr("RECSIZIS"):x,gdeerr("REGIS"):REGION,gdeerr("RECTOOBIG"):s:f:y,gdeerr("SEGIS"):am:SEGMENT
|
|
q
|
|
buf2blk: i REGION="TEMPLATE","USER"[am,am'=tmpacc q
|
|
i "USER"[am s verified=0 zm gdeerr("NOJNL"):am,gdeerr("REGIS"):REGION,gdeerr("SEGIS"):am:SEGMENT
|
|
s y=s/256
|
|
i y>x s verified=0 zm gdeerr("BUFSIZIS"):x,gdeerr("REGIS"):REGION,gdeerr("BUFTOOSMALL"):s:y,gdeerr("SEGIS"):am:SEGMENT
|
|
q
|
|
mmbichk: i REGION="TEMPLATE",am="MM",tmpacc'="MM" q
|
|
i am="MM" s verified=0 zm gdeerr("MMNOBEFORIMG"),gdeerr("REGIS"):REGION,gdeerr("SEGIS"):am:SEGMENT
|
|
q
|
|
|
|
;-----------------------------------------------------------------------------------------------------------------------------------
|
|
; called from GDEADD.M and GDECHANG.M
|
|
|
|
RQUALS(rquals)
|
|
i '$d(verified) n verified s verified=1
|
|
s s=""
|
|
f s s=$o(rquals(s)) q:'$l(s) d regelm
|
|
i $d(rquals("FILE_NAME")),$zl(rquals("FILE_NAME"))>(SIZEOF("file_spec")-1) s verified=0
|
|
i zm $$info(gdeerr("VALTOOLONG")):rquals("FILE_NAME"):SIZEOF("file_spec")-1:"Journal filename",gdeerr("REGIS"):REGION
|
|
s s="KEY_SIZE",s=$s($d(rquals(s)):rquals(s),$d(regs(REGION,s)):regs(REGION,s),1:tmpreg(s))
|
|
s x="RECORD_SIZE",x=$s($d(rquals(x)):rquals(x),$d(regs(REGION,x)):regs(REGION,x),1:tmpreg(x))
|
|
i s+4>x s verified=0 zm gdeerr("KEYSIZIS"):s,gdeerr("KEYTOOBIG"):x:x-4,gdeerr("REGIS"):REGION
|
|
i REGION="TEMPLATE" s s=tmpseg(tmpacc,"BLOCK_SIZE"),f=tmpseg(tmpacc,"RESERVED_BYTES")
|
|
e s s="DYNAMIC_SEGMENT",s=$s($d(rquals(s)):rquals(s),$d(regs(REGION,s)):regs(REGION,s),1:0)
|
|
e q:'$d(segs(s)) verified n SEGMENT,am d
|
|
. s SEGMENT=s,am=segs(s,"ACCESS_METHOD"),s=$g(segs(s,"BLOCK_SIZE")),f=$g(segs(s,"RESERVED_BYTES"))
|
|
i am'="USER" d rec2blk
|
|
s x="JOURNAL"
|
|
i '$s('$d(rquals(x)):tmpreg(x),1:rquals(x)) q verified
|
|
s x="BUFFER_SIZE",x=$s($d(rquals(x)):rquals(x),$d(regs(REGION,x)):regs(REGION,x),1:tmpreg(x)) d buf2blk
|
|
i nommbi s x="BEFORE_IMAGE" i $s('$d(rquals(x)):tmpreg(x),1:rquals(x)) d mmbichk
|
|
q verified
|
|
;
|
|
SQUALS(am,squals)
|
|
i '$d(verified) n verified s verified=1
|
|
n s s s=""
|
|
f s s=$o(squals(s)) q:'$l(s) i $l(squals(s)) d segelm
|
|
s s="BLOCK_SIZE"
|
|
i $d(squals(s)),squals(s)#512 s x=squals(s),squals(s)=x\512+1*512
|
|
i zm gdeerr("BLKSIZ512"):x:squals(s),gdeerr("SEGIS"):am:SEGMENT
|
|
s s="WINDOW_SIZE"
|
|
i SEGMENT="TEMPLATE" s x=tmpreg("RECORD_SIZE") d segreg q verified
|
|
n REGION s REGION=""
|
|
f s REGION=$o(regs(REGION)) q:'$l(REGION) i regs(REGION,"DYNAMIC_SEGMENT")=SEGMENT s s=regs(REGION,"RECORD_SIZE") d segreg
|
|
q verified
|
|
segreg:
|
|
i am'="USER" d
|
|
. s s="BLOCK_SIZE",s=$s($d(squals(s)):squals(s),$d(segs(SEGMENT,s)):segs(SEGMENT,s),1:tmpseg(am,s))
|
|
. s f="RESERVED_BYTES",f=$s($d(squals(f)):squals(f),$d(segs(SEGMENT,s)):seg(SEGMENT,f),1:tmpseg(am,f))
|
|
. s x="RECORD_SIZE",x=$s($d(regs(REGION,x)):regs(REGION,x),1:tmpreg(x))
|
|
. d rec2blk
|
|
i '$s(SEGMENT="TEMPLATE":tmpreg("JOURNAL"),1:regs(REGION,"JOURNAL")) q
|
|
s x=$s(SEGMENT="TEMPLATE":tmpreg("BUFFER_SIZE"),1:regs(REGION,"BUFFER_SIZE")) d buf2blk
|
|
i nommbi,$s(SEGMENT="TEMPLATE":tmpreg("BEFORE_IMAGE"),1:regs(REGION,"BEFORE_IMAGE")) d mmbichk
|
|
q
|
|
|
|
;-----------------------------------------------------------------------------------------------------------------------------------
|
|
; called from GDETEMPL.M
|
|
|
|
TRQUALS(rquals)
|
|
n REGION,SEGMENT,am s (REGION,SEGMENT)="TEMPLATE",am=tmpacc
|
|
q $$RQUALS(.rquals)
|
|
;
|
|
TSQUALS(am,squals)
|
|
n REGION,SEGMENT s (REGION,SEGMENT)="TEMPLATE"
|
|
q $$SQUALS(am,.squals)
|