CTest: Fix MUMPS coverage parsing and test
Fix the MUMPS coverage parser: * Account for tabs after entry points * Stop double incrementing lines that have explicit calls to the 0 line * If a line has been previously marked as non executable, but then contains a count, increment it an extra one to push it back into the executable code set. Add a custom routine and corresponding coverage files in the test case. This file is smaller and has cmcov/mcov files that have data for only that routine.
This commit is contained in:
Joseph Snyder
Brad King
parent
d3417a270f
commit
9ad07fbeb8
|
|
@ -215,7 +215,19 @@ bool cmParseCacheCoverage::ReadCMCovFile(const char* file)
|
||||||
{
|
{
|
||||||
coverageVector.push_back(-1);
|
coverageVector.push_back(-1);
|
||||||
}
|
}
|
||||||
|
// Accounts for lines that were previously marked
|
||||||
|
// as non-executable code (-1). if the parser comes back with
|
||||||
|
// a non-zero count, increase the count by 1 to push the line
|
||||||
|
// into the executable code set in addition to the count found.
|
||||||
|
if(coverageVector[linenumber] == -1 &&
|
||||||
|
count > 0)
|
||||||
|
{
|
||||||
|
coverageVector[linenumber] += count+1;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
coverageVector[linenumber] += count;
|
coverageVector[linenumber] += count;
|
||||||
}
|
}
|
||||||
|
}
|
||||||
return true;
|
return true;
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -106,7 +106,19 @@ bool cmParseGTMCoverage::ReadMCovFile(const char* file)
|
||||||
{
|
{
|
||||||
cmCTestCoverageHandlerContainer::SingleFileCoverageVector&
|
cmCTestCoverageHandlerContainer::SingleFileCoverageVector&
|
||||||
coverageVector = this->Coverage.TotalCoverage[filepath];
|
coverageVector = this->Coverage.TotalCoverage[filepath];
|
||||||
|
// This section accounts for lines that were previously marked
|
||||||
|
// as non-executable code (-1), if the parser comes back with
|
||||||
|
// a non-zero count, increase the count by 1 to push the line
|
||||||
|
// into the executable code set in addtion to the count found.
|
||||||
|
if(coverageVector[lineoffset + linenumber] == -1 &&
|
||||||
|
count > 0)
|
||||||
|
{
|
||||||
|
coverageVector[lineoffset + linenumber] += count+1;
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
coverageVector[lineoffset + linenumber] += count;
|
coverageVector[lineoffset + linenumber] += count;
|
||||||
|
}
|
||||||
lastoffset = lineoffset;
|
lastoffset = lineoffset;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
@ -141,7 +153,7 @@ bool cmParseGTMCoverage::FindFunctionInMumpsFile(std::string const& filepath,
|
||||||
if(pos == 0)
|
if(pos == 0)
|
||||||
{
|
{
|
||||||
char nextchar = line[function.size()];
|
char nextchar = line[function.size()];
|
||||||
if(nextchar == ' ' || nextchar == '(')
|
if(nextchar == ' ' || nextchar == '('|| nextchar == '\t')
|
||||||
{
|
{
|
||||||
lineoffset = linenum;
|
lineoffset = linenum;
|
||||||
return true;
|
return true;
|
||||||
|
|
@ -261,7 +273,11 @@ bool cmParseGTMCoverage::ParseMCOVLine(std::string const& line,
|
||||||
// ^COVERAGE("%RSEL","SRC"), the line offset is 0
|
// ^COVERAGE("%RSEL","SRC"), the line offset is 0
|
||||||
if(args.size() == 2)
|
if(args.size() == 2)
|
||||||
{
|
{
|
||||||
linenumber = 0;
|
// To avoid double counting of line 0 of each entry point,
|
||||||
|
// Don't count the lines that do not give an explicit line
|
||||||
|
// number.
|
||||||
|
routine="";
|
||||||
|
function="";
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -2134,6 +2134,7 @@ ${CMake_BINARY_DIR}/bin/cmake -DDIR=dev -P ${CMake_SOURCE_DIR}/Utilities/Release
|
||||||
configure_file(
|
configure_file(
|
||||||
"${CMake_SOURCE_DIR}/Tests/MumpsCoverage/gtm_coverage.mcov.in"
|
"${CMake_SOURCE_DIR}/Tests/MumpsCoverage/gtm_coverage.mcov.in"
|
||||||
"${CMake_BINARY_DIR}/Testing/MumpsCoverage/gtm_coverage.mcov")
|
"${CMake_BINARY_DIR}/Testing/MumpsCoverage/gtm_coverage.mcov")
|
||||||
|
file(REMOVE_RECURSE "${CMake_BINARY_DIR}/Testing/MumpsCoverage/VistA-FOIA")
|
||||||
file(COPY "${CMake_SOURCE_DIR}/Tests/MumpsCoverage/VistA-FOIA"
|
file(COPY "${CMake_SOURCE_DIR}/Tests/MumpsCoverage/VistA-FOIA"
|
||||||
DESTINATION "${CMake_BINARY_DIR}/Testing/MumpsCoverage")
|
DESTINATION "${CMake_BINARY_DIR}/Testing/MumpsCoverage")
|
||||||
add_test(NAME CTestGTMCoverage
|
add_test(NAME CTestGTMCoverage
|
||||||
|
|
@ -2142,7 +2143,7 @@ ${CMake_BINARY_DIR}/bin/cmake -DDIR=dev -P ${CMake_SOURCE_DIR}/Utilities/Release
|
||||||
$<TARGET_FILE:ctest> -T Coverage --debug)
|
$<TARGET_FILE:ctest> -T Coverage --debug)
|
||||||
set_tests_properties(CTestGTMCoverage PROPERTIES
|
set_tests_properties(CTestGTMCoverage PROPERTIES
|
||||||
PASS_REGULAR_EXPRESSION
|
PASS_REGULAR_EXPRESSION
|
||||||
"Process file.*XINDEX.m.*Total LOC:.*127.*Percentage Coverage: 85.83.*"
|
"Process file.*ZZCOVTST.m.*Total LOC:.*23.*Percentage Coverage: 82.61*"
|
||||||
ENVIRONMENT COVFILE=)
|
ENVIRONMENT COVFILE=)
|
||||||
|
|
||||||
configure_file(
|
configure_file(
|
||||||
|
|
@ -2151,6 +2152,7 @@ ${CMake_BINARY_DIR}/bin/cmake -DDIR=dev -P ${CMake_SOURCE_DIR}/Utilities/Release
|
||||||
configure_file(
|
configure_file(
|
||||||
"${CMake_SOURCE_DIR}/Tests/MumpsCoverage/cache_coverage.cmcov.in"
|
"${CMake_SOURCE_DIR}/Tests/MumpsCoverage/cache_coverage.cmcov.in"
|
||||||
"${CMake_BINARY_DIR}/Testing/MumpsCacheCoverage/cache_coverage.cmcov")
|
"${CMake_BINARY_DIR}/Testing/MumpsCacheCoverage/cache_coverage.cmcov")
|
||||||
|
file(REMOVE_RECURSE "${CMake_BINARY_DIR}/Testing/MumpsCacheCoverage/VistA-FOIA")
|
||||||
file(COPY "${CMake_SOURCE_DIR}/Tests/MumpsCoverage/VistA-FOIA"
|
file(COPY "${CMake_SOURCE_DIR}/Tests/MumpsCoverage/VistA-FOIA"
|
||||||
DESTINATION "${CMake_BINARY_DIR}/Testing/MumpsCacheCoverage")
|
DESTINATION "${CMake_BINARY_DIR}/Testing/MumpsCacheCoverage")
|
||||||
add_test(NAME CTestCacheCoverage
|
add_test(NAME CTestCacheCoverage
|
||||||
|
|
@ -2159,7 +2161,7 @@ ${CMake_BINARY_DIR}/bin/cmake -DDIR=dev -P ${CMake_SOURCE_DIR}/Utilities/Release
|
||||||
$<TARGET_FILE:ctest> -T Coverage --debug)
|
$<TARGET_FILE:ctest> -T Coverage --debug)
|
||||||
set_tests_properties(CTestCacheCoverage PROPERTIES
|
set_tests_properties(CTestCacheCoverage PROPERTIES
|
||||||
PASS_REGULAR_EXPRESSION
|
PASS_REGULAR_EXPRESSION
|
||||||
"Process file.*XINDEX.m.*Total LOC:.*125.*Percentage Coverage: 85.60.*"
|
"Process file.*ZZCOVTST.m.*Total LOC:.*22.*Percentage Coverage: 86.36.*"
|
||||||
ENVIRONMENT COVFILE=)
|
ENVIRONMENT COVFILE=)
|
||||||
|
|
||||||
# Adding a test case for Python Coverage
|
# Adding a test case for Python Coverage
|
||||||
|
|
|
||||||
|
|
@ -1,304 +0,0 @@
|
||||||
Routine,Line,RtnLine,Code
|
|
||||||
DDIOL,1,0,"DDIOL ;SFISC/MKO-THE LOADER ;1:53 PM 12 Sep 1995"
|
|
||||||
,2,0," ;;22.0;VA FileMan;;Mar 30, 1999"
|
|
||||||
,3,0," ;Per VHA Directive 10-93-142, this routine should not be modified."
|
|
||||||
,4,0," ;"
|
|
||||||
,5,0,"EN(A,G,FMT) ;Write the text contained in local array A or global array G"
|
|
||||||
,6,0," ;If one string passed, use format FMT"
|
|
||||||
,7,0," N %,Y,DINAKED"
|
|
||||||
,8,0," S DINAKED=$$LGR^%ZOSV"
|
|
||||||
,9,0," ;"
|
|
||||||
,10,0," S:'$D(A) A="""""
|
|
||||||
,11,0," I $G(A)="""",$D(A)<9,$G(FMT)="""",$G(G)'?1""^""1A.7AN,$G(G)'?1""^""1A.7AN1""("".E1"")"" Q"
|
|
||||||
,12,0," ;"
|
|
||||||
,13,0," G:$D(DDS) SM"
|
|
||||||
,14,0," G:$D(DIQUIET) LD"
|
|
||||||
,15,0," ;"
|
|
||||||
,16,0," N F,I,S"
|
|
||||||
,17,0," I $D(A)=1,$G(G)="""" D"
|
|
||||||
,18,0," . S F=$S($G(FMT)]"""":FMT,1:""!"")"
|
|
||||||
,19,0," . W @F,A"
|
|
||||||
,20,0," ;"
|
|
||||||
,21,0," E I $D(A)>9 S I=0 F S I=$O(A(I)) Q:I'=+$P(I,""E"") D"
|
|
||||||
,22,0," . S F=$G(A(I,""F""),""!"") S:F="""" F=""?0"""
|
|
||||||
,23,0," . W @F,$G(A(I))"
|
|
||||||
,24,0," ;"
|
|
||||||
,25,0," E S I=0 F S I=$O(@G@(I)) Q:I'=+$P(I,""E"") D"
|
|
||||||
,26,0," . S S=$G(@G@(I,0),$G(@G@(I)))"
|
|
||||||
,27,0," . S F=$G(@G@(I,""F""),""!"") S:F="""" F=""?0"""
|
|
||||||
,28,0," . W @F,S"
|
|
||||||
,29,0," ;"
|
|
||||||
,30,0," I DINAKED]"""" S DINAKED=$S(DINAKED["""""""""""":$O(@DINAKED),1:$D(@DINAKED))"
|
|
||||||
,31,0," Q"
|
|
||||||
,32,0," ;"
|
|
||||||
,33,0,"LD ;Load text into ^TMP"
|
|
||||||
,34,0," N I,N,T"
|
|
||||||
,35,0," S T=$S($G(DDIOLFLG)[""H"":""DIHELP"",1:""DIMSG"")"
|
|
||||||
,36,0," S N=$O(^TMP(T,$J,"" ""),-1)"
|
|
||||||
,37,0," ;"
|
|
||||||
,38,0," I $D(A)=1,$G(G)="""" D"
|
|
||||||
,39,0," . D LD1(A,$S($G(FMT)]"""":FMT,1:""!""))"
|
|
||||||
,40,0," ;"
|
|
||||||
,41,0," E I $D(A)>9 S I=0 F S I=$O(A(I)) Q:I'=+$P(I,""E"") D"
|
|
||||||
,42,0," . D LD1($G(A(I)),$G(A(I,""F""),""!""))"
|
|
||||||
,43,0," ;"
|
|
||||||
,44,0," E S I=0 F S I=$O(@G@(I)) Q:I'=+$P(I,""E"") D"
|
|
||||||
,45,0," . D LD1($G(@G@(I),$G(@G@(I,0))),$G(@G@(I,""F""),""!""))"
|
|
||||||
,46,0," ;"
|
|
||||||
,47,0," K:'N @T S:N @T=N"
|
|
||||||
,48,0," I DINAKED]"""" S DINAKED=$S(DINAKED["""""""""""":$O(@DINAKED),1:$D(@DINAKED))"
|
|
||||||
,49,0," Q"
|
|
||||||
,50,0," ;"
|
|
||||||
,51,0,"LD1(S,F) ;Load string S, with format F"
|
|
||||||
,52,0," ;In: N and T"
|
|
||||||
,53,0," N C,J,L"
|
|
||||||
,54,0," S:S[$C(7) S=$TR(S,$C(7),"""")"
|
|
||||||
,55,0," F J=1:1:$L(F,""!"")-1 S N=N+1,^TMP(T,$J,N)="""""
|
|
||||||
,56,0," S:'N N=1"
|
|
||||||
,57,0," S:F[""?"" @(""C=""_$P(F,""?"",2))"
|
|
||||||
,58,0," S L=$G(^TMP(T,$J,N))"
|
|
||||||
,59,0," S ^TMP(T,$J,N)=L_$J("""",$G(C)-$L(L))_S"
|
|
||||||
,60,0," Q"
|
|
||||||
,61,0," ;"
|
|
||||||
,62,0,"SM ;Print text in ScreenMan's Command Area"
|
|
||||||
,63,0," I $D(DDSID),$D(DTOUT)!$D(DUOUT) G SMQ"
|
|
||||||
,64,0," N DDIOL"
|
|
||||||
,65,0," S DDIOL=1"
|
|
||||||
,66,0," ;"
|
|
||||||
,67,0," I $D(A)=1&($G(G)="""")!($D(A)>9) D"
|
|
||||||
,68,0," . D MSG^DDSMSG(.A,"""",$G(FMT))"
|
|
||||||
,69,0," E I $D(@G@(+$O(@G@(0)),0))#2 D"
|
|
||||||
,70,0," . D WP^DDSMSG(G)"
|
|
||||||
,71,0," E D HLP^DDSMSG(G)"
|
|
||||||
,72,0," ;"
|
|
||||||
,73,0,"SMQ I DINAKED]"""" S DINAKED=$S(DINAKED["""""""""""":$O(@DINAKED),1:$D(@DINAKED))"
|
|
||||||
,74,0," Q"
|
|
||||||
Totals for DDIOL,,0,
|
|
||||||
XINDEX,1,0,"XINDEX ;ISC/REL,GFT,GRK,RWF - INDEX & CROSS-REFERENCE ;08/04/08 13:19"
|
|
||||||
,2,1," ;;7.3;TOOLKIT;**20,27,48,61,66,68,110,121,128**;Apr 25, 1995;Build 1"
|
|
||||||
,3,0," ; Per VHA Directive 2004-038, this routine should not be modified."
|
|
||||||
,4,1," G ^XINDX6"
|
|
||||||
,5,107216,"SEP F I=1:1 S CH=$E(LIN,I) D QUOTE:CH=Q Q:"" ""[CH"
|
|
||||||
,6,107216," S ARG=$E(LIN,1,I-1) S:CH="" "" I=I+1 S LIN=$E(LIN,I,999) Q"
|
|
||||||
,7,36371,"QUOTE F I=I+1:1 S CH=$E(LIN,I) Q:CH=""""!(CH=Q)"
|
|
||||||
,8,36371," Q:CH]"""" S ERR=6 G ^XINDX1"
|
|
||||||
,9,0,"ALIVE ;enter here from taskman"
|
|
||||||
,10,1," D SETUP^XINDX7 ;Get ready to process"
|
|
||||||
,11,468,"A2 S RTN=$O(^UTILITY($J,RTN)) G ^XINDX5:RTN="""""
|
|
||||||
,12,467," S INDLC=(RTN?1""|""1.4L.NP) D LOAD:'INDLC"
|
|
||||||
,13,467," I $D(ZTQUEUED),$$S^%ZTLOAD S RTN=""~"",IND(""QUIT"")=1,ZTSTOP=1 G A2"
|
|
||||||
,14,467," I 'INDDS,INDLC W !!?10,""Data Dictionaries"",! S INDDS=1"
|
|
||||||
,15,467," D BEG"
|
|
||||||
,16,467," G A2"
|
|
||||||
,17,0," ;"
|
|
||||||
,18,467,"LOAD S X=RTN,XCNP=0,DIF=""^UTILITY(""_$J_"",1,RTN,0,"" X ^%ZOSF(""TEST"") Q:'$T X ^%ZOSF(""LOAD"") S ^UTILITY($J,1,RTN,0,0)=XCNP-1"
|
|
||||||
,19,467," I $D(^UTILITY($J,1,RTN,0,0)) S ^UTILITY($J,1,RTN,""RSUM"")=""B""_$$SUMB^XPDRSUM($NA(^UTILITY($J,1,RTN,0)))"
|
|
||||||
,20,467," Q"
|
|
||||||
,21,0,"BEG ;"
|
|
||||||
,22,467," S %=INDLC*5 W:$X+10+%>IOM ! W RTN,$J("""",10+%-$L(RTN))"
|
|
||||||
,23,467," S (IND(""DO""),IND(""SZT""),IND(""SZC""),LABO)=0,LC=$G(^UTILITY($J,1,RTN,0,0))"
|
|
||||||
,24,467," I LC="""" W !,"">>>Routine '"",RTN,""' not found <<<"",! Q"
|
|
||||||
,25,467," S TXT="""",LAB=$P(^UTILITY($J,1,RTN,0,1,0),"" "") I RTN'=$P(LAB,""("") D E^XINDX1(17)"
|
|
||||||
,26,467," I 'INDLC,LAB[""("" D E^XINDX1(55) S LAB=$P(LAB,""("")"
|
|
||||||
,27,0," ;if M routine(not compiled template or DD) and has more than 2 lines, check lines 1 & 2"
|
|
||||||
,28,467," I 'INDLC,LC>2 D"
|
|
||||||
,29,467," . N LABO S LABO=1"
|
|
||||||
,30,467," . S LIN=$G(^UTILITY($J,1,RTN,0,1,0)),TXT=1"
|
|
||||||
,31,0," . ;check 1st line (site/dev - ) patch 128"
|
|
||||||
,32,467," . I $P(LIN,"";"",2,4)'?.E1""/"".E.1""-"".E D E^XINDX1(62)"
|
|
||||||
,33,467," . S LIN=$G(^UTILITY($J,1,RTN,0,2,0)),TXT=2"
|
|
||||||
,34,0," . ;check 2nd line (;;nn.nn[TV]nn;package;.anything)"
|
|
||||||
,35,467," . I $P(LIN,"";"",3,99)'?1.2N1"".""1.2N.1(1""T"",1""V"").2N1"";""1A.AP1"";"".E D E^XINDX1(44) ;patch 121"
|
|
||||||
,36,467," . I $L(INP(11)) X INP(11) ;Version number check"
|
|
||||||
,37,467," . I $L(INP(12)) X INP(12) ;Patch number check"
|
|
||||||
,38,467,"B5 F TXT=1:1:LC S LIN=^UTILITY($J,1,RTN,0,TXT,0),LN=$L(LIN),IND(""SZT"")=IND(""SZT"")+LN+2 D LN,ST ;Process Line"
|
|
||||||
,39,467," S LAB="""",LABO=0,TXT=0,^UTILITY($J,1,RTN,0)=IND(""SZT"")_""^""_LC_""^""_IND(""SZC"")"
|
|
||||||
,40,467," I IND(""SZT"")>INP(""MAX""),'INDLC S ERR=35,ERR(1)=IND(""SZT"") D ^XINDX1"
|
|
||||||
,41,467," I IND(""SZT"")-IND(""SZC"")>INP(""CMAX""),'INDLC S ERR=58,ERR(1)=IND(""SZT"")-IND(""SZC"") D ^XINDX1"
|
|
||||||
,42,467," D POSTRTN"
|
|
||||||
,43,467," Q"
|
|
||||||
,44,0," ;Proccess one line, LN = Length, LIN = Line."
|
|
||||||
,45,44620,"LN K V S (ARG,GRB,IND(""COM""),IND(""DOL""),IND(""F""))="""",X=$P(LIN,"" "")"
|
|
||||||
,46,44620," I '$L(X) S LABO=LABO+1 G CD"
|
|
||||||
,47,5073," S (IND(""COM""),LAB)=$P(X,""(""),ARG=$P($P(X,""("",2),"")""),LABO=0,IND(""PP"")=X?1.8E1""("".E1"")"""
|
|
||||||
,48,5073," D:$L(ARG) NE^XINDX3 ;Process formal parameters as New list."
|
|
||||||
,49,5073," I 'INDLC,'$$VT^XINDX2(LAB) D E^XINDX1($S(LAB=$$CASE^XINDX52(LAB):37,1:55)) ;Check for bad labels"
|
|
||||||
,50,5073," I $D(^UTILITY($J,1,RTN,""T"",LAB)) D E^XINDX1(15) G CD ;DUP label"
|
|
||||||
,51,5073," S ^UTILITY($J,1,RTN,""T"",LAB)="""""
|
|
||||||
,52,44620,"CD I LN>245 D:'(LN=246&($E(RTN,1,3)=""|dd"")) E^XINDX1(19) ;patch 119"
|
|
||||||
,53,44620," D:LIN'?1.ANP E^XINDX1(18)"
|
|
||||||
,54,44620," S LIN=$P(LIN,"" "",2,999),IND(""LCC"")=1"
|
|
||||||
,55,44620," I LIN="""" D E^XINDX1(42) Q ;Blank line ;p110"
|
|
||||||
,56,44620," S I=0 ;Watch the scope of I, counts dots"
|
|
||||||
,57,44620," I "" .""[$E(LIN) D S X=$L($E(LIN,1,I),""."")-1,LIN=$E(LIN,I,999)"
|
|
||||||
,58,10770," . F I=1:1:245 Q:"". ""'[$E(LIN,I)"
|
|
||||||
,59,10770," . Q"
|
|
||||||
,60,0," ;check dots against Do level IND(""DO""), IND(""DOL"")=dot level"
|
|
||||||
,61,44620," D:'I&$G(IND(""DO1"")) E^XINDX1(51) S IND(""DO1"")=0 S:'I IND(""DO"")=0"
|
|
||||||
,62,44620," I I D:X>IND(""DO"") E^XINDX1(51) S (IND(""DO""),IND(""DOL""))=X"
|
|
||||||
,63,0," ;Count Comment lines, skip ;; lines"
|
|
||||||
,64,44620," I $E(LIN)="";"",$E(LIN,2)'="";"" S IND(""SZC"")=IND(""SZC"")+$L(LIN) ;p110"
|
|
||||||
,65,0," ;Process commands on line."
|
|
||||||
,66,116081,"EE I LIN="""" D ^XINDX2 Q"
|
|
||||||
,67,71461," S COM=$E(LIN),GK="""",ARG="""""
|
|
||||||
,68,71461," I COM="";"" S LIN="""" G EE ;p110"
|
|
||||||
,69,54870," I COM="" "" S ERR=$S(LIN?1."" "":13,1:0),LIN=$S(ERR:"""",1:$E(LIN,2,999)) D:ERR ^XINDX1 G EE"
|
|
||||||
,70,53608," D SEP"
|
|
||||||
,71,53608," S CM=$P(ARG,"":"",1),POST=$P(ARG,"":"",2,999),IND(""COM"")=IND(""COM"")_$C(9)_COM,ERR=48"
|
|
||||||
,72,53608," D:ARG["":""&(POST']"""") ^XINDX1 S:POST]"""" GRB=GRB_$C(9)_POST,IND(""COM"")=IND(""COM"")_"":"""
|
|
||||||
,73,0," ;SAC now allows lowercase commands"
|
|
||||||
,74,53608," I CM?.E1L.E S CM=$$CASE^XINDX52(CM),COM=$E(CM) ;I IND(""LCC"") S IND(""LCC"")=0 D E^XINDX1(47)"
|
|
||||||
,75,53608," I CM="""" D E^XINDX1(21) G EE ;Missing command"
|
|
||||||
,76,53608," S CX=$G(IND(""CMD"",CM)) I CX="""" D G:CX="""" EE"
|
|
||||||
,77,0," . I $E(CM)=""Z"" S CX=""^Z"" Q ;Proccess Z commands"
|
|
||||||
,78,0," . D E^XINDX1(1) S LIN="""" Q"
|
|
||||||
,79,53608," S CX=$P(CX,""^"",2,9)"
|
|
||||||
,80,53608," D SEP I '$L(LIN),CH="" "" D E^XINDX1(13) ;trailing space"
|
|
||||||
,81,53608," I ARG="""",""CGJMORSUWX""[COM S ERR=49 G ^XINDX1"
|
|
||||||
,82,53608," I CX>0 D E^XINDX1(CX) S CX="""""
|
|
||||||
,83,53608," D:$L(CX) @CX S:ARG'="""" GRB=GRB_$C(9)_ARG G EE"
|
|
||||||
,84,0,"B S ERR=25 G ^XINDX1"
|
|
||||||
,85,0,"C S ERR=29 G ^XINDX1"
|
|
||||||
,86,0,"D G DG1^XINDX4"
|
|
||||||
,87,0,"E Q:ARG="""" S ERR=7 G ^XINDX1"
|
|
||||||
,88,1559,"F G:ARG]"""" FR^XINDX4 S IND(""F"")=1 Q"
|
|
||||||
,89,1932,"G G DG^XINDX4"
|
|
||||||
,90,11,"H Q:ARG'="""" S ERR=32 G ^XINDX1"
|
|
||||||
,91,0,"J S ERR=36,ARG="""" G ^XINDX1"
|
|
||||||
,92,2218,"K S ERR=$S(ARG?1""("".E:22,ARG?."" "":23,1:0) D:ERR ^XINDX1"
|
|
||||||
,93,2218," G KL^XINDX3"
|
|
||||||
,94,259,"L G LO^XINDX4"
|
|
||||||
,95,30,"M G S^XINDX3"
|
|
||||||
,96,1721,"N G NE^XINDX3"
|
|
||||||
,97,0,"O S ERR=34 D ^XINDX1,O^XINDX3 Q"
|
|
||||||
,98,7762,"Q Q:ARG="""" G Q^XINDX4"
|
|
||||||
,99,85,"R S RDTIME=0 G RD^XINDX3"
|
|
||||||
,100,17549,"S G S^XINDX3"
|
|
||||||
,101,0,"TR Q ;What to process. p110"
|
|
||||||
,102,72,"U S ARG=$P(ARG,"":"") Q"
|
|
||||||
,103,0,"V S ARG="""",ERR=20 G ^XINDX1"
|
|
||||||
,104,4584,"W G WR^XINDX4"
|
|
||||||
,105,220,"X G XE^XINDX4"
|
|
||||||
,106,0,"Z S ERR=2 D ^XINDX1 G ZC^XINDX4"
|
|
||||||
,107,0," ;"
|
|
||||||
,108,0," ;Save off items from line."
|
|
||||||
,109,44620,"ST S R=LAB_$S(LABO:""+""_LABO,1:"""")"
|
|
||||||
,110,0," ;Local variable, Global, Marked Items, Naked global, Internal ref, eXternal ref., Tag ref."
|
|
||||||
,111,44620," S LOC="""" F S LOC=$O(V(LOC)),S="""" Q:LOC="""" F S S=$O(V(LOC,S)) Q:S="""" D SET"
|
|
||||||
,112,44620," S ^UTILITY($J,1,RTN,""COM"",TXT)=IND(""COM"")"
|
|
||||||
,113,44620," Q"
|
|
||||||
,114,0," ;"
|
|
||||||
,115,85079,"SET I V(LOC,S)]"""" F %=""!"",""~"" I V(LOC,S)[%,$G(^UTILITY($J,1,RTN,LOC,S))'[% S ^(S)=$G(^(S))_%"
|
|
||||||
,116,85079," S %=0"
|
|
||||||
,117,86891,"SE2 S ARG=$G(^UTILITY($J,1,RTN,LOC,S,%)) I $L(ARG)>230 S %=%+1 G SE2"
|
|
||||||
,118,85079," S ^UTILITY($J,1,RTN,LOC,S,%)=ARG_R_V(LOC,S)_"","""
|
|
||||||
,119,85079," Q"
|
|
||||||
,120,0," ;"
|
|
||||||
,121,0,"POSTRTN ;Do more overall checking"
|
|
||||||
,122,467," N V,E,T,T1,T2"
|
|
||||||
,123,467," S T="""" ;Check for missing Labels"
|
|
||||||
,124,467," F S T=$O(^UTILITY($J,1,RTN,""I"",T)),T2=T Q:T="""" S T1=$G(^(T,0)) D"
|
|
||||||
,125,2091," . Q:$E(T2,1,2)=""@("""
|
|
||||||
,126,2044," . S:$E(T2,1,2)=""$$"" T2=$E(T2,3,99)"
|
|
||||||
,127,2044," . I T2]"""",'$D(^UTILITY($J,1,RTN,""T"",$P(T2,""+"",1))) D"
|
|
||||||
,128,0," . . F I=1:1:$L(T1,"","")-1 S LAB=$P(T1,"","",I),LABO=+$P(LAB,""+"",2),LAB=$P(LAB,""+""),E=14,E(1)=T D E^XINDX1(.E)"
|
|
||||||
,129,0," . . Q"
|
|
||||||
,130,2044," . Q"
|
|
||||||
,131,467," S LAB="""",LABO=0 ;Check for valid label names"
|
|
||||||
,132,467," I 'INDLC F S LAB=$O(^UTILITY($J,1,RTN,""T"",LAB)) Q:LAB="""" D"
|
|
||||||
,133,5073," . I '$$VA^XINDX2(LAB) D E^XINDX1(55) Q"
|
|
||||||
,134,5073," . D:'$$VT^XINDX2(LAB) E^XINDX1(37)"
|
|
||||||
,135,5073," . Q"
|
|
||||||
,136,467," S LAB="""",LABO=0 ;Check for valid variable names."
|
|
||||||
,137,467," F S LAB=$O(^UTILITY($J,1,RTN,""L"",LAB)) Q:LAB="""" D"
|
|
||||||
,138,15909," . D VLNF^XINDX3($P(LAB,""(""))"
|
|
||||||
,139,15909," . Q"
|
|
||||||
,140,467," Q"
|
|
||||||
,141,0," ;"
|
|
||||||
,142,0,"QUICK ;Quick, Just get a routine an print the results"
|
|
||||||
,143,0," D QUICK^XINDX6()"
|
|
||||||
,144,0," Q"
|
|
||||||
Totals for XINDEX,,2446443,
|
|
||||||
XINDX1,1,0,"XINDX1 ;ISC/REL,GRK,RWF - ERROR ROUTINE ;08/05/08 13:59"
|
|
||||||
,2,2," ;;7.3;TOOLKIT;**20,61,66,68,110,121,128**;Apr 25, 1995;Build 1"
|
|
||||||
,3,0," ; Per VHA Directive 2004-038, this routine should not be modified."
|
|
||||||
,4,2," G A"
|
|
||||||
,5,0,"E(ERR) ;"
|
|
||||||
,6,75,"A N %,%1 ;TXT is the line of the error."
|
|
||||||
,7,75," S ERTX=LAB_$S(LABO:""+""_LABO,1:"""")_$C(9),%1=$T(ERROR+ERR),ERTX=ERTX_$S(ERR:$P(%1,"";"",4,9),1:ERR) ;p110"
|
|
||||||
,8,75," I ERTX[""|"" F %=1:1 S ERTX=$P(ERTX,""|"")_$S($D(ERR(%)):ERR(%),1:""??"")_$P(ERTX,""|"",%+1,99) Q:ERTX'[""|"""
|
|
||||||
,9,75,"B I $P(%1,"";"",3)]"""" D Q:%1]"""" ;Don't flag kernel doing kernel."
|
|
||||||
,10,0," . S %1=$P(%1,"";"",3)"
|
|
||||||
,11,0," . F Q:RTN[$P(%1,"","") S %1=$P(%1,"","",2,99) ;quit if RTN[%1 or null."
|
|
||||||
,12,0," . Q"
|
|
||||||
,13,75," I ERR=17,$E(RTN)'=""%"",$E(LAB)=""%"" Q ;Don't flag %RTN w/o %."
|
|
||||||
,14,0," ;Global is Error Line,tab,error tag,tab,error text"
|
|
||||||
,15,75," S %=$G(^UTILITY($J,1,RTN,""E"",0))+1,^(0)=%,^(%)=TXT_$C(9)_ERTX"
|
|
||||||
,16,75," Q"
|
|
||||||
,17,0," ;"
|
|
||||||
,18,0," ;F = Fatal, S = Standard, W = Warning, I = Info"
|
|
||||||
,19,0,"ERROR ;"
|
|
||||||
,20,0,"1 ;;;F - UNDEFINED COMMAND (rest of line not checked)."
|
|
||||||
,21,0,"2 ;;;F - Non-standard (Undefined) 'Z' command."
|
|
||||||
,22,0,"3 ;;XTRMON;F - Undefined Function."
|
|
||||||
,23,0,"4 ;;;F - Undefined Special Variable."
|
|
||||||
,24,0,"5 ;;;F - Unmatched Parenthesis."
|
|
||||||
,25,0,"6 ;;;F - Unmatched Quotation Marks."
|
|
||||||
,26,0,"7 ;;;F - ELSE Command followed by only one space."
|
|
||||||
,27,0,"8 ;;;F - FOR Command did not contain '='."
|
|
||||||
,28,0,"9 ;;;I - QUIT Command followed by only one space."
|
|
||||||
,29,0,"10 ;;;F - Unrecognized argument in SET command."
|
|
||||||
,30,0,"11 ;;;W - Invalid local variable name."
|
|
||||||
,31,0,"12 ;;;W - Invalid global variable name."
|
|
||||||
,32,0,"13 ;;;W - Blank(s) at end of line."
|
|
||||||
,33,0,"14 ;;;F - Call to missing label '|' in this routine."
|
|
||||||
,34,0,"15 ;;;W - Duplicate label. (M57)"
|
|
||||||
,35,0,"16 ;;;F - Error in pattern code."
|
|
||||||
,36,0,"17 ;;;W - First line label NOT routine name."
|
|
||||||
,37,0,"18 ;;;W - Line contains a CONTROL (non-graphic) character."
|
|
||||||
,38,0,"19 ;;;S - Line is longer than 245 bytes."
|
|
||||||
,39,0,"20 ;;;S - View command used."
|
|
||||||
,40,0,"21 ;;;F - General Syntax Error."
|
|
||||||
,41,0,"22 ;;;S - Exclusive Kill."
|
|
||||||
,42,0,"23 ;;;S - Unargumented Kill."
|
|
||||||
,43,0,"24 ;;;S - Kill of an unsubscripted global."
|
|
||||||
,44,0,"25 ;;;S - Break command used."
|
|
||||||
,45,0,"26 ;;;S - Exclusive or Unargumented NEW command."
|
|
||||||
,46,0,"27 ;;;S - $View function used."
|
|
||||||
,47,0,"28 ;;ZOSV,ZIS,ZT;S - Non-standard $Z special variable used."
|
|
||||||
,48,0,"29 ;;ZIS,ZTM;S - 'Close' command should be invoked through 'D ^%ZISC'."
|
|
||||||
,49,0,"30 ;;;S - LABEL+OFFSET syntax."
|
|
||||||
,50,0,"31 ;;ZOSV,ZIS,ZT;S - Non-standard $Z function used."
|
|
||||||
,51,0,"32 ;;;S - 'HALT' command should be invoked through 'G ^XUSCLEAN'."
|
|
||||||
,52,0,"33 ;;;S - Read command doesn't have a timeout."
|
|
||||||
,53,0,"34 ;;ZIS;S - 'OPEN' command should be invoked through ^%ZIS."
|
|
||||||
,54,0,"35 ;;;S - Routine exceeds SACC maximum size of 20000 (|)."
|
|
||||||
,55,0,"36 ;;ZTM;S - Should use 'TASKMAN' instead of 'JOB' command."
|
|
||||||
,56,0,"37 ;;;F - Label is not valid."
|
|
||||||
,57,0,"38 ;;;F - Call to this |"
|
|
||||||
,58,0,"39 ;;ZIS,XUS,XUP;S - Kill of a protected variable (|)."
|
|
||||||
,59,0,"40 ;;;S - Space where a command should be."
|
|
||||||
,60,0,"41 ;;;I - Star or pound READ used."
|
|
||||||
,61,0,"42 ;;;W - Null line (no commands or comment)."
|
|
||||||
,62,0,"43 ;;;F - Invalid or wrong number of arguments to a function."
|
|
||||||
,63,0,"44 ;;;S - 2nd line of routine violates the SAC."
|
|
||||||
,64,0,"45 ;;ZT,ZIS,XUTM,XTER;S - Set to a '%' global."
|
|
||||||
,65,0,"46 ;;;F - Quoted string not followed by a separator."
|
|
||||||
,66,0,"47 ;;;S - Lowercase command(s) used in line."
|
|
||||||
,67,0,"48 ;;;F - Missing argument to a command post-conditional."
|
|
||||||
,68,0,"49 ;;;F - Command missing an argument."
|
|
||||||
,69,0,"50 ;;ZTM;S - Extended reference."
|
|
||||||
,70,0,"51 ;;;F - Block structure mismatch."
|
|
||||||
,71,0,"52 ;;;F - Reference to routine '^|'. That isn't in this UCI."
|
|
||||||
,72,0,"53 ;;;F - Bad Number."
|
|
||||||
,73,0,"54 ;;XG;S - Access to SSVN's restricted to Kernel."
|
|
||||||
,74,0,"55 ;;;S - Violates VA programming standards."
|
|
||||||
,75,0,"56 ;;;S - Patch number '|' missing from second line."
|
|
||||||
,76,0,"57 ;;;S - Lower/Mixed case Variable name used."
|
|
||||||
,77,0,"58 ;;;S - Routine code exceeds SACC maximum size of 15000 (|)."
|
|
||||||
,78,0,"59 ;;;F - Bad WRITE syntax."
|
|
||||||
,79,0,"60 ;;;S - Lock missing Timeout."
|
|
||||||
,80,0,"61 ;;;S - Non-Incremental Lock."
|
|
||||||
,81,0,"62 ;;;S - First line of routine violates the SAC."
|
|
||||||
,82,0,"63 ;;;F - GO or DO mismatch from block structure (M45)."
|
|
||||||
Totals for XINDX1,,529,
|
|
||||||
File diff suppressed because it is too large
Load Diff
|
|
@ -1,144 +0,0 @@
|
||||||
XINDEX ;ISC/REL,GFT,GRK,RWF - INDEX & CROSS-REFERENCE ;08/04/08 13:19
|
|
||||||
;;7.3;TOOLKIT;**20,27,48,61,66,68,110,121,128**;Apr 25, 1995;Build 1
|
|
||||||
; Per VHA Directive 2004-038, this routine should not be modified.
|
|
||||||
G ^XINDX6
|
|
||||||
SEP F I=1:1 S CH=$E(LIN,I) D QUOTE:CH=Q Q:" "[CH
|
|
||||||
S ARG=$E(LIN,1,I-1) S:CH=" " I=I+1 S LIN=$E(LIN,I,999) Q
|
|
||||||
QUOTE F I=I+1:1 S CH=$E(LIN,I) Q:CH=""!(CH=Q)
|
|
||||||
Q:CH]"" S ERR=6 G ^XINDX1
|
|
||||||
ALIVE ;enter here from taskman
|
|
||||||
D SETUP^XINDX7 ;Get ready to process
|
|
||||||
A2 S RTN=$O(^UTILITY($J,RTN)) G ^XINDX5:RTN=""
|
|
||||||
S INDLC=(RTN?1"|"1.4L.NP) D LOAD:'INDLC
|
|
||||||
I $D(ZTQUEUED),$$S^%ZTLOAD S RTN="~",IND("QUIT")=1,ZTSTOP=1 G A2
|
|
||||||
I 'INDDS,INDLC W !!?10,"Data Dictionaries",! S INDDS=1
|
|
||||||
D BEG
|
|
||||||
G A2
|
|
||||||
;
|
|
||||||
LOAD S X=RTN,XCNP=0,DIF="^UTILITY("_$J_",1,RTN,0," X ^%ZOSF("TEST") Q:'$T X ^%ZOSF("LOAD") S ^UTILITY($J,1,RTN,0,0)=XCNP-1
|
|
||||||
I $D(^UTILITY($J,1,RTN,0,0)) S ^UTILITY($J,1,RTN,"RSUM")="B"_$$SUMB^XPDRSUM($NA(^UTILITY($J,1,RTN,0)))
|
|
||||||
Q
|
|
||||||
BEG ;
|
|
||||||
S %=INDLC*5 W:$X+10+%>IOM ! W RTN,$J("",10+%-$L(RTN))
|
|
||||||
S (IND("DO"),IND("SZT"),IND("SZC"),LABO)=0,LC=$G(^UTILITY($J,1,RTN,0,0))
|
|
||||||
I LC="" W !,">>>Routine '",RTN,"' not found <<<",! Q
|
|
||||||
S TXT="",LAB=$P(^UTILITY($J,1,RTN,0,1,0)," ") I RTN'=$P(LAB,"(") D E^XINDX1(17)
|
|
||||||
I 'INDLC,LAB["(" D E^XINDX1(55) S LAB=$P(LAB,"(")
|
|
||||||
;if M routine(not compiled template or DD) and has more than 2 lines, check lines 1 & 2
|
|
||||||
I 'INDLC,LC>2 D
|
|
||||||
. N LABO S LABO=1
|
|
||||||
. S LIN=$G(^UTILITY($J,1,RTN,0,1,0)),TXT=1
|
|
||||||
. ;check 1st line (site/dev - ) patch 128
|
|
||||||
. I $P(LIN,";",2,4)'?.E1"/".E.1"-".E D E^XINDX1(62)
|
|
||||||
. S LIN=$G(^UTILITY($J,1,RTN,0,2,0)),TXT=2
|
|
||||||
. ;check 2nd line (;;nn.nn[TV]nn;package;.anything)
|
|
||||||
. I $P(LIN,";",3,99)'?1.2N1"."1.2N.1(1"T",1"V").2N1";"1A.AP1";".E D E^XINDX1(44) ;patch 121
|
|
||||||
. I $L(INP(11)) X INP(11) ;Version number check
|
|
||||||
. I $L(INP(12)) X INP(12) ;Patch number check
|
|
||||||
B5 F TXT=1:1:LC S LIN=^UTILITY($J,1,RTN,0,TXT,0),LN=$L(LIN),IND("SZT")=IND("SZT")+LN+2 D LN,ST ;Process Line
|
|
||||||
S LAB="",LABO=0,TXT=0,^UTILITY($J,1,RTN,0)=IND("SZT")_"^"_LC_"^"_IND("SZC")
|
|
||||||
I IND("SZT")>INP("MAX"),'INDLC S ERR=35,ERR(1)=IND("SZT") D ^XINDX1
|
|
||||||
I IND("SZT")-IND("SZC")>INP("CMAX"),'INDLC S ERR=58,ERR(1)=IND("SZT")-IND("SZC") D ^XINDX1
|
|
||||||
D POSTRTN
|
|
||||||
Q
|
|
||||||
;Proccess one line, LN = Length, LIN = Line.
|
|
||||||
LN K V S (ARG,GRB,IND("COM"),IND("DOL"),IND("F"))="",X=$P(LIN," ")
|
|
||||||
I '$L(X) S LABO=LABO+1 G CD
|
|
||||||
S (IND("COM"),LAB)=$P(X,"("),ARG=$P($P(X,"(",2),")"),LABO=0,IND("PP")=X?1.8E1"(".E1")"
|
|
||||||
D:$L(ARG) NE^XINDX3 ;Process formal parameters as New list.
|
|
||||||
I 'INDLC,'$$VT^XINDX2(LAB) D E^XINDX1($S(LAB=$$CASE^XINDX52(LAB):37,1:55)) ;Check for bad labels
|
|
||||||
I $D(^UTILITY($J,1,RTN,"T",LAB)) D E^XINDX1(15) G CD ;DUP label
|
|
||||||
S ^UTILITY($J,1,RTN,"T",LAB)=""
|
|
||||||
CD I LN>245 D:'(LN=246&($E(RTN,1,3)="|dd")) E^XINDX1(19) ;patch 119
|
|
||||||
D:LIN'?1.ANP E^XINDX1(18)
|
|
||||||
S LIN=$P(LIN," ",2,999),IND("LCC")=1
|
|
||||||
I LIN="" D E^XINDX1(42) Q ;Blank line ;p110
|
|
||||||
S I=0 ;Watch the scope of I, counts dots
|
|
||||||
I " ."[$E(LIN) D S X=$L($E(LIN,1,I),".")-1,LIN=$E(LIN,I,999)
|
|
||||||
. F I=1:1:245 Q:". "'[$E(LIN,I)
|
|
||||||
. Q
|
|
||||||
;check dots against Do level IND("DO"), IND("DOL")=dot level
|
|
||||||
D:'I&$G(IND("DO1")) E^XINDX1(51) S IND("DO1")=0 S:'I IND("DO")=0
|
|
||||||
I I D:X>IND("DO") E^XINDX1(51) S (IND("DO"),IND("DOL"))=X
|
|
||||||
;Count Comment lines, skip ;; lines
|
|
||||||
I $E(LIN)=";",$E(LIN,2)'=";" S IND("SZC")=IND("SZC")+$L(LIN) ;p110
|
|
||||||
;Process commands on line.
|
|
||||||
EE I LIN="" D ^XINDX2 Q
|
|
||||||
S COM=$E(LIN),GK="",ARG=""
|
|
||||||
I COM=";" S LIN="" G EE ;p110
|
|
||||||
I COM=" " S ERR=$S(LIN?1." ":13,1:0),LIN=$S(ERR:"",1:$E(LIN,2,999)) D:ERR ^XINDX1 G EE
|
|
||||||
D SEP
|
|
||||||
S CM=$P(ARG,":",1),POST=$P(ARG,":",2,999),IND("COM")=IND("COM")_$C(9)_COM,ERR=48
|
|
||||||
D:ARG[":"&(POST']"") ^XINDX1 S:POST]"" GRB=GRB_$C(9)_POST,IND("COM")=IND("COM")_":"
|
|
||||||
;SAC now allows lowercase commands
|
|
||||||
I CM?.E1L.E S CM=$$CASE^XINDX52(CM),COM=$E(CM) ;I IND("LCC") S IND("LCC")=0 D E^XINDX1(47)
|
|
||||||
I CM="" D E^XINDX1(21) G EE ;Missing command
|
|
||||||
S CX=$G(IND("CMD",CM)) I CX="" D G:CX="" EE
|
|
||||||
. I $E(CM)="Z" S CX="^Z" Q ;Proccess Z commands
|
|
||||||
. D E^XINDX1(1) S LIN="" Q
|
|
||||||
S CX=$P(CX,"^",2,9)
|
|
||||||
D SEP I '$L(LIN),CH=" " D E^XINDX1(13) ;trailing space
|
|
||||||
I ARG="","CGJMORSUWX"[COM S ERR=49 G ^XINDX1
|
|
||||||
I CX>0 D E^XINDX1(CX) S CX=""
|
|
||||||
D:$L(CX) @CX S:ARG'="" GRB=GRB_$C(9)_ARG G EE
|
|
||||||
B S ERR=25 G ^XINDX1
|
|
||||||
C S ERR=29 G ^XINDX1
|
|
||||||
D G DG1^XINDX4
|
|
||||||
E Q:ARG="" S ERR=7 G ^XINDX1
|
|
||||||
F G:ARG]"" FR^XINDX4 S IND("F")=1 Q
|
|
||||||
G G DG^XINDX4
|
|
||||||
H Q:ARG'="" S ERR=32 G ^XINDX1
|
|
||||||
J S ERR=36,ARG="" G ^XINDX1
|
|
||||||
K S ERR=$S(ARG?1"(".E:22,ARG?." ":23,1:0) D:ERR ^XINDX1
|
|
||||||
G KL^XINDX3
|
|
||||||
L G LO^XINDX4
|
|
||||||
M G S^XINDX3
|
|
||||||
N G NE^XINDX3
|
|
||||||
O S ERR=34 D ^XINDX1,O^XINDX3 Q
|
|
||||||
Q Q:ARG="" G Q^XINDX4
|
|
||||||
R S RDTIME=0 G RD^XINDX3
|
|
||||||
S G S^XINDX3
|
|
||||||
TR Q ;What to process. p110
|
|
||||||
U S ARG=$P(ARG,":") Q
|
|
||||||
V S ARG="",ERR=20 G ^XINDX1
|
|
||||||
W G WR^XINDX4
|
|
||||||
X G XE^XINDX4
|
|
||||||
Z S ERR=2 D ^XINDX1 G ZC^XINDX4
|
|
||||||
;
|
|
||||||
;Save off items from line.
|
|
||||||
ST S R=LAB_$S(LABO:"+"_LABO,1:"")
|
|
||||||
;Local variable, Global, Marked Items, Naked global, Internal ref, eXternal ref., Tag ref.
|
|
||||||
S LOC="" F S LOC=$O(V(LOC)),S="" Q:LOC="" F S S=$O(V(LOC,S)) Q:S="" D SET
|
|
||||||
S ^UTILITY($J,1,RTN,"COM",TXT)=IND("COM")
|
|
||||||
Q
|
|
||||||
;
|
|
||||||
SET I V(LOC,S)]"" F %="!","~" I V(LOC,S)[%,$G(^UTILITY($J,1,RTN,LOC,S))'[% S ^(S)=$G(^(S))_%
|
|
||||||
S %=0
|
|
||||||
SE2 S ARG=$G(^UTILITY($J,1,RTN,LOC,S,%)) I $L(ARG)>230 S %=%+1 G SE2
|
|
||||||
S ^UTILITY($J,1,RTN,LOC,S,%)=ARG_R_V(LOC,S)_","
|
|
||||||
Q
|
|
||||||
;
|
|
||||||
POSTRTN ;Do more overall checking
|
|
||||||
N V,E,T,T1,T2
|
|
||||||
S T="" ;Check for missing Labels
|
|
||||||
F S T=$O(^UTILITY($J,1,RTN,"I",T)),T2=T Q:T="" S T1=$G(^(T,0)) D
|
|
||||||
. Q:$E(T2,1,2)="@("
|
|
||||||
. S:$E(T2,1,2)="$$" T2=$E(T2,3,99)
|
|
||||||
. I T2]"",'$D(^UTILITY($J,1,RTN,"T",$P(T2,"+",1))) D
|
|
||||||
. . F I=1:1:$L(T1,",")-1 S LAB=$P(T1,",",I),LABO=+$P(LAB,"+",2),LAB=$P(LAB,"+"),E=14,E(1)=T D E^XINDX1(.E)
|
|
||||||
. . Q
|
|
||||||
. Q
|
|
||||||
S LAB="",LABO=0 ;Check for valid label names
|
|
||||||
I 'INDLC F S LAB=$O(^UTILITY($J,1,RTN,"T",LAB)) Q:LAB="" D
|
|
||||||
. I '$$VA^XINDX2(LAB) D E^XINDX1(55) Q
|
|
||||||
. D:'$$VT^XINDX2(LAB) E^XINDX1(37)
|
|
||||||
. Q
|
|
||||||
S LAB="",LABO=0 ;Check for valid variable names.
|
|
||||||
F S LAB=$O(^UTILITY($J,1,RTN,"L",LAB)) Q:LAB="" D
|
|
||||||
. D VLNF^XINDX3($P(LAB,"("))
|
|
||||||
. Q
|
|
||||||
Q
|
|
||||||
;
|
|
||||||
QUICK ;Quick, Just get a routine an print the results
|
|
||||||
D QUICK^XINDX6()
|
|
||||||
Q
|
|
||||||
|
|
@ -0,0 +1,36 @@
|
||||||
|
ZZCOVTST;OSEHRA/JPS -- Test routine for Coverage Parsing;4/28/2014
|
||||||
|
; (tab) This is series of comments
|
||||||
|
; (tab) it should all be not executable
|
||||||
|
; (spaces) one of these sets might be a problem
|
||||||
|
; (spaces) we will have to see.
|
||||||
|
EN ; This entry point shouldn't be found without fixing
|
||||||
|
N D
|
||||||
|
S D=1 ;An executable line
|
||||||
|
D T1^ZZCOVTST
|
||||||
|
I '$$T5 W "RETURNED FROM t5",!
|
||||||
|
Q
|
||||||
|
; This line not executable
|
||||||
|
;
|
||||||
|
T1 ; This line should always be found
|
||||||
|
N D
|
||||||
|
S D=2
|
||||||
|
W !,D,!,"This is the second entry point",!
|
||||||
|
D T2^ZZCOVTST(D)
|
||||||
|
Q
|
||||||
|
;
|
||||||
|
T2(EQ) ; This is debatable and only called with ENT^ROU notation
|
||||||
|
N D
|
||||||
|
S D=3
|
||||||
|
W !,D,!,EQ,"This is the third entry point",!
|
||||||
|
D T3^ZZCOVTST
|
||||||
|
Q
|
||||||
|
;
|
||||||
|
T3 N D S D=4 W D,!,"Fourth Entry point",! Q
|
||||||
|
;
|
||||||
|
T4 N D S D=5 W "Shouldn't be executed"
|
||||||
|
W "Lots to not do"
|
||||||
|
Q
|
||||||
|
T5(EQ) ;this entry point is called with a $$ notation
|
||||||
|
W "THIS IS THE $$ NOTATION!",!
|
||||||
|
Q 0
|
||||||
|
;
|
||||||
|
|
@ -0,0 +1,38 @@
|
||||||
|
Routine,Line,RtnLine,Code
|
||||||
|
ZZCOVTST,1,0,"ZZCOVTST;OSEHRA/JPS -- Test routine for Coverage Parsing;4/28/2014"
|
||||||
|
,2,0," ; (tab) This is series of comments"
|
||||||
|
,3,0," ; (tab) it should all be not executable"
|
||||||
|
,4,0," ; (spaces) one of these sets might be a problem"
|
||||||
|
,5,0," ; (spaces) we will have to see."
|
||||||
|
,6,0,"EN ; This entry point shouldn't be found without fixing"
|
||||||
|
,7,1," N D"
|
||||||
|
,8,1," S D=1 ;An executable line"
|
||||||
|
,9,1," D T1^ZZCOVTST"
|
||||||
|
,10,1,"I '$$T5 W ""RETURNED FROM t5"",!"
|
||||||
|
,11,1," Q"
|
||||||
|
,12,0," ; This line not executable"
|
||||||
|
,13,0," ;"
|
||||||
|
,14,0,"T1 ; This line should always be found"
|
||||||
|
,15,1," N D"
|
||||||
|
,16,1," S D=2"
|
||||||
|
,17,1," W !,D,!,""This is the second entry point"",!"
|
||||||
|
,18,1," D T2^ZZCOVTST(D)"
|
||||||
|
,19,1," Q"
|
||||||
|
,20,0," ;"
|
||||||
|
,21,0,"T2(EQ) ; This is debatable"
|
||||||
|
,22,1," N D"
|
||||||
|
,23,1," S D=3"
|
||||||
|
,24,1," W !,D,!,EQ,""This is the third entry point"",!"
|
||||||
|
,25,1," D T3^ZZCOVTST"
|
||||||
|
,26,1," Q"
|
||||||
|
,27,0," ;"
|
||||||
|
,28,1,"T3 N D S D=4 W D,!,""Fourth Entry point"",! Q"
|
||||||
|
,29,0," ;"
|
||||||
|
,30,0,"T4 N D S D=5 W ""Shouldn't be executed"""
|
||||||
|
,31,0," W ""Lots to not do"""
|
||||||
|
,32,0," Q"
|
||||||
|
,33,1,"T5()"
|
||||||
|
,34,1," W ""THIS IS ONE WITH $$ NOTATION"",1"
|
||||||
|
,35,1," Q 0"
|
||||||
|
,36,0," ;"
|
||||||
|
Totals for ZZCOVTST,,19,
|
||||||
|
|
@ -0,0 +1,30 @@
|
||||||
|
%GO Global Output Utility
|
||||||
|
GT.M 30-APR-2014 14:24:46 ZWR
|
||||||
|
^ZZCOVERAGE("*CHILDREN")="0:0:0"
|
||||||
|
^ZZCOVERAGE("*RUN")="24000:88000:112000"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","EN")="1:4000:8000:12000:6464583"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","EN",1)="1:0:0:0:20"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","EN",2)="1:0:0:0:14"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","EN",3)="1:0:0:0:26"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","EN",4)="1:0:0:0:228"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T1")="1:0:0:0:92"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T1",1)="1:0:0:0:13"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T1",2)="1:0:0:0:12"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T1",3)="1:0:0:0:14"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T1",4)="1:0:0:0:29"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T1",5)="1:0:0:0:12"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2")="1:0:0:0:102"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2",0)="1:0:0:0:14"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2",1)="1:0:0:0:12"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2",2)="1:0:0:0:12"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2",3)="1:0:0:0:14"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2",4)="1:0:0:0:25"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T2",5)="1:0:0:0:12"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T3")="1:0:0:0:28"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T3",0)="1:0:0:0:17"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T5")="1:0:0:0:388"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T5",0)="1:0:0:0:114"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T5",1)="1:0:0:0:28"
|
||||||
|
^ZZCOVERAGE("ZZCOVTST","T5",2)="1:0:0:0:14"
|
||||||
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue