Hide code from coverage

.github/workflows/test.yml

@@ -216,7 +216,7 @@ jobs:
 
       - name: Generate LCOV coverage data
         run: |
-          lcov -d . -c -o coverage.lcov
+          lcov --config-file .lcovrc -d . -c -o coverage.lcov
           lcov -r coverage.lcov '*/usr/include/*' '*/extern/*'${{ matrix.flint != 'no' && ' ''*/lib/*''' || '' }} -o coverage.lcov
 
       - name: Coveralls Parallel

.lcovrc

@@ -0,0 +1,8 @@
+# FORM-specific LCOV exclusion markers:
+# 
+# - INTERNAL_ERROR_EXCL_...: exclude internal errors from the coverage statistics
+# - UNFINISHED_FEATURE_EXCL_...: exclude unfinished features code.
+# 
+lcov_excl_start = (INTERNAL_ERROR_EXCL_START|UNFINISHED_FEATURE_EXCL_START|DEBUG_EXCL_START)
+lcov_excl_stop = (INTERNAL_ERROR_EXCL_STOP|UNFINISHED_FEATURE_EXCL_STOP|DEBUG_EXCL_STOP)
+lcov_excl_line = (INTERNAL_ERROR_EXCL_LINE|UNFINISHED_FEATURE_EXCL_LINE|DEBUG_EXCL_LINE)

sources/checkpoint.c

@@ -80,7 +80,7 @@
   	#] License : 
   	#[ Includes :
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 #include "form3.h"
 
 #include <errno.h>
@@ -3244,7 +3244,7 @@ void DoCheckpoint(int moduletype)
 	}/*if(PF.me != MASTER)*/
 #endif
 }
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 /*
   	#] DoCheckpoint : 
 */

sources/compcomm.c

@@ -3920,7 +3920,7 @@ int CoAntiBracket(UBYTE *inp)
 	Syntax:
 		MultiBracket:{A|B} bracketinfo:...:{A|B} bracketinfo;
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 int CoMultiBracket(UBYTE *inp)
 {
 	GETIDENTITY
@@ -4027,7 +4027,7 @@ int CoMultiBracket(UBYTE *inp)
 	AT.bracketindexflag = 0;
 	return(error);
 }
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 /*
   	#] CoMultiBracket : 
   	#[ CountComp :
@@ -4254,7 +4254,9 @@ int CoIf(UBYTE *inp)
 	CBUF *C = cbuf+AC.cbufnum;
 	LONG x;
 #ifdef WITHFLOAT
+/* UNFINISHED_FEATURE_EXCL_START */
 	int spec;
+/* UNFINISHED_FEATURE_EXCL_STOP */
 #endif
 	if ( *inp == '(' && inp[1] == ',' ) inp += 2;
 	else if ( *inp == '(' ) inp++;	/* Usually we enter at the bracket */
@@ -4285,6 +4287,7 @@ int CoIf(UBYTE *inp)
 		if ( FG.cTable[*p] == 1 ) {		/* Number */
 			if ( gotexp == 1 ) { MesCerr("position for )",p); error = 1; }
 #ifdef WITHFLOAT
+/* UNFINISHED_FEATURE_EXCL_START */
 			pp = CheckFloat(p,&spec);
 			if ( pp > p ) {	/* Got one */
 HaveFloat:
@@ -4309,7 +4312,7 @@ int CoIf(UBYTE *inp)
 /*
 			Notation: Same as FLOATFUN but FLOATFUN replaced by IFFLOATNUMBER.
 */
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 #endif
 			u = w;
 			*w++ = LONGNUMBER;
@@ -4372,7 +4375,9 @@ int CoIf(UBYTE *inp)
 			u[2] = (u[1] - 3)/2;
 			if ( level ) u[2] = -u[2];
 #ifdef WITHFLOAT
+/* UNFINISHED_FEATURE_EXCL_START */
 DoneWithNumber:
+/* UNFINISHED_FEATURE_EXCL_STOP */
 #endif
 			gotexp = 1;
 		}
@@ -4772,10 +4777,12 @@ NoGood:			MesPrint("&Unrecognized word: %s",inp);
 			gotexp = 1;
 		}
 #ifdef WITHFLOAT
+/* UNFINISHED_FEATURE_EXCL_START */
 		else if ( *p == '.' ) {
 			pp = CheckFloat(p,&spec);
 			if ( pp > p ) goto HaveFloat;
 		}
+/* UNFINISHED_FEATURE_EXCL_STOP */
 #endif
 		else if ( *p == '(' ) {
 			if ( gotexp ) {
@@ -7404,7 +7411,7 @@ int CoEndSwitch(UBYTE *s)
   	#] CoEndSwitch : 
   	#[ CoSetUserFlag :
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 int CoSetUserFlag(UBYTE *s)
 {
 	int error = 0;
@@ -7427,12 +7434,12 @@ int CoSetUserFlag(UBYTE *s)
 	}
 	return(error);
 }
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 /*
   	#] CoSetUserFlag : 
   	#[ CoClearUserFlag :
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 int CoClearUserFlag(UBYTE *s)
 {
 	int error = 0;
@@ -7455,7 +7462,7 @@ int CoClearUserFlag(UBYTE *s)
 	}
 	return(error);
 }
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 /*
   	#] CoClearUserFlag : 
   	#[ CoCreateAllLoops :

sources/diagrams.c

@@ -31,7 +31,7 @@
 /*
   	#[ Includes : diagrams.c
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 #include "form3.h"
 
 static WORD one = 1;
@@ -661,3 +661,5 @@ MesPrint("partitions = %a",2*nvert,partitions);
 /*
   	#] DoShattering : 
 */
+
+/* UNFINISHED_FEATURE_EXCL_STOP */

sources/dict.c

@@ -1115,7 +1115,7 @@ int DoPreAdd(UBYTE *s)
   	#] DoPreAdd : 
   	#[ DictToBytes :
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 LONG DictToBytes(DICTIONARY *dict,UBYTE *buf)
 {
 	int numelements = dict->numelements, sizeelement, i, j, x;
@@ -1143,12 +1143,12 @@ LONG DictToBytes(DICTIONARY *dict,UBYTE *buf)
 	}
 	return(s2-buf);
 }
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 /*
   	#] DictToBytes : 
   	#[ DictFromBytes :
 */
-
+/* UNFINISHED_FEATURE_EXCL_START */
 DICTIONARY *DictFromBytes(UBYTE *buf)
 {
 	DICTIONARY *dict = Malloc1(sizeof(DICTIONARY),"Dictionary");
@@ -1175,7 +1175,7 @@ DICTIONARY *DictFromBytes(UBYTE *buf)
 	}
 	return(dict);
 }
-
+/* UNFINISHED_FEATURE_EXCL_STOP */
 /*
   	#] DictFromBytes : 
 */

sources/evaluate.c

@@ -238,10 +238,12 @@ int GetFloatArgument(PHEAD mpfr_t f_out,WORD *fun,int par)
 /*
 			If the argument was properly normalized we are not supposed to come here.
 */
+/* INTERNAL_ERROR_EXCL_START */
 			MLOCK(ErrorMessageLock);
 			MesPrint("Unnormalized argument in GetFloatArgument: %a",*term,term);
 			MUNLOCK(ErrorMessageLock);
 			Terminate(-1);
+/* INTERNAL_ERROR_EXCL_STOP */
 		}
 		else if ( t[0] == SYMBOL && t[1] == 4 && t[2] == PISYMBOL && t[3] == 1 ) {
 			if ( first ) {