Merge SVN 4710

cobc/ChangeLog

@@ -212,6 +212,23 @@
 
 	* parser.y (examine_format_variant): fix compiler warning
 
+2022-09-15  Nicolas Berthier <[email protected]>
+
+	FR #360 AREACHECK
+	FR #309 raise warnings/errors when some periods are missing
+	* config.def: add dialect options areacheck and missing-period
+	* pplex.l, scanner.l, parser.y: check for empty Area A, and use a
+	  dedicated *_IN_AREA_A tokens to detect missing periods and incorrect
+	  use of Area A
+	* pplex.l, scanner.l, parser.y: support AREACHECK and NOAREACHECK
+	  directives
+	* pplex.l (cobc_has_areacheck_directive): new helper function
+	* pplex.l (count_newlines): new helper function
+	* parser.y (check_area_a, check_non_area_a): new functions for Area A
+	  checks
+	* parser.y (begin_statement): check statement does not start in Area A
+	* parser.y: support some missing periods
+
 2022-09-01  Nicolas Berthier <[email protected]>
 
 	FR #18 support EXAMINE statement

cobc/config.def

@@ -198,6 +198,10 @@ CB_CONFIG_BOOLEAN (cb_device_mnemonics, "device-mnemonics",
 CB_CONFIG_BOOLEAN (cb_xml_parse_xmlss, "xml-parse-xmlss",
 	"XML PARSE XMLSS")
 
+CB_CONFIG_BOOLEAN (cb_areacheck, "areacheck",
+	_("check contents of Area A in PROCEDURE DIVISION "
+	  "(when reference format supports Area A enforcement)"))
+
 /* Support flags */
 
 CB_CONFIG_SUPPORT (cb_comment_paragraphs, "comment-paragraphs",
@@ -411,6 +415,9 @@ CB_CONFIG_SUPPORT (cb_sequential_advancing, "record-sequential-advancing",
 CB_CONFIG_SUPPORT (cb_missing_statement, "missing-statement",
 	_("missing statement (e.g. empty IF / PERFORM)"))
 
+CB_CONFIG_SUPPORT (cb_missing_period, "missing-period",
+	_("missing period in PROCEDURE DIVISION (when reference format supports Area A enforcement)"))
+
 CB_CONFIG_SUPPORT (cb_zero_length_lit, "zero-length-literals",
 	_("zero-length literals, e.g. '' and \"\""))