Expression coverage

doc/src/records/top-members.md

@@ -1062,6 +1062,18 @@ Allows passing an input value to ad-hoc debugging code.  No permanent use; no im
   required: "No",
   variability: "subhourly") %>
 
+**doCoverage=*choice***
+
+Enables expression code coverage reporting.  Development aid.
+
+<%= member_table(
+  units: "",
+  legal_range: "NO, YES",
+  default: "*NO*",
+  required: "No",
+  variability: "constant") %>
+
+
 **Related Probes:**
 
 - @[top](#p_top)

src/CNRECS.DEF

@@ -291,6 +291,8 @@ RECORD TOPRAT "top" *RAT	/* top level RAT: contains control info and all once-on
     *i INT tp_dbgPrintMaskC	// debug print mask constant portion (value known during setup)
     *declare "int tp_SetDbMask();"	// combine tp_dbgPrintMask and tp_dbgPrintMaskC, call DbSetMask
     *s INT tp_dbgFlag     // debug flag value for passing testing info to code; normally no effect
+    *i NOYESCH tp_doCoverage    // track expression processing code coverage / report to log
+                                //   (testing/development aid)
 
 //TOP: inputs: autoSizing
     *i FRAC_GZ auszTol   	// autosizing result tolerance, dfl .005

src/cncult.cpp

@@ -2812,6 +2812,7 @@ CULT cnTopCult[] = 		// Top level table, points to all other tables, used in cal
 	CULT( "dbgPrintMask",DAT,	TOPRAT_DBGPRINTMASK,0,		   0, VHRLY,  TYINT, 0,      0,              N,   N),
 	CULT( "dbgPrintMaskC",DAT,	TOPRAT_DBGPRINTMASKC,0,		   0, VEOI,   TYINT, 0,      0,              N,   N),
 	CULT( "dbgFlag",     DAT,	TOPRAT_DBGFLAG,     0,		   0, VSUBHRLY,TYINT,0,      0,              N,   N),
+	CULT( "doCoverage",  DAT,   TOPRAT_DOCOVERAGE,  0,         0, VEOI,   TYCH,  0,   C_NOYESCH_NO,     N,   N),
 	CULT( "ventAvail",   DAT,   TOPRAT_VENTAVAIL,   0,         0, VHRLY,  TYCH,  0,  nc( C_VENTAVAILVC_WHOLEBLDG), N,   N),
 
 // TOP autosizing

src/cse.cpp

@@ -77,6 +77,7 @@
 #include "timer.h"      // tmrInit
 #include "tdpak.h"      // tddtis
 #include "cuparse.h"	// showProbeNames
+#include "cueval.h"
 #include "cnguts.h"
 
 #include "csevrsn.h"	// version #
@@ -1161,6 +1162,10 @@ LOCAL int cse3( int argc, const char* argv[])
 		// reports: "Unspool" virtual reports from this run into report/export output files
 		screen( NONL|QUIETIF, " Reports\n");	// progress indicator. follows last month name on screen (if no errMsgs).
 												//  Is final message, so end with newline.
+
+		if (Top.tp_doCoverage == C_NOYESCH_YES)
+			CoverageReport( VrLog);
+
 		if (UnspoolInfo)	// if UnspoolInfo got set up (in cncult.cpp).
        						// If not (early input error), ermsgs will be unspooled below via PriRep info.
 		{