fixed the config directory

config/ChangeLog

@@ -1,9 +1,3 @@
-2022-02-04  David Declerck <[email protected]>
-
-	* Makefile.am, cobol2002.conf, cobol2014.conf, cobol85.conf,
-	  gcos-strict.conf, gcos.conf, gcos.words: add support for GCOS 7
-	  dialect (Bull), both a strict variant (gcos-strict) and a variant
-	  with GNUCobol extensions
 
 2024-08-17 Ammar Almoris <[email protected]>
 

config/Makefile.am

@@ -25,9 +25,10 @@ config_DATA = default.conf cobol85.conf cobol2002.conf cobol2014.conf \
 	acu-strict.conf mf-strict.conf ibm-strict.conf mvs-strict.conf \
 	bs2000-strict.conf realia-strict.conf rm-strict.conf xopen.conf \
 	gcos.conf gcos-strict.conf lax.conf-inc \
-	gcos.conf gcos-strict.conf lax.conf-inc \
 	cobol85.words cobol2002.words cobol2014.words \
 	acu.words mf.words ibm.words mvs.words bs2000.words realia.words \
-	rm.words gcos.words runtime.cfg runtime_empty.cfg
+	rm.words gcos.words runtime.cfg runtime_empty.cfg \
+	default.ttbl alternate.ttbl \
+	ebcdic500_ascii7bit.ttbl ebcdic500_ascii8bit.ttbl ebcdic500_latin1.ttbl
 
 EXTRA_DIST = $(config_DATA)

config/cobol2002.conf

@@ -24,16 +24,10 @@
 name: "COBOL 2002"
 
 # Value: enum
-standard-define			9
-#        CB_STD_GC = 0,
-#        CB_STD_MF,
-#        CB_STD_IBM,
-#        CB_STD_MVS,
-#        CB_STD_BS2000,
-#        CB_STD_ACU,
-#        CB_STD_85,
-#        CB_STD_2002,
-#        CB_STD_2014
+standard-define			8
+
+# Default source reference-format (see default.conf for details)
+format:				fixed
 
 # Value: int
 tab-width:			8

config/cobol2014.conf

@@ -24,16 +24,10 @@
 name: "COBOL 2014"
 
 # Value: enum
-standard-define			10
-#        CB_STD_GC = 0,
-#        CB_STD_MF,
-#        CB_STD_IBM,
-#        CB_STD_MVS,
-#        CB_STD_BS2000,
-#        CB_STD_ACU,
-#        CB_STD_85,
-#        CB_STD_2002,
-#        CB_STD_2014
+standard-define			9
+
+# Default source reference-format (see default.conf for details)
+format:				fixed
 
 # Value: int
 tab-width:			8

config/cobol85.conf

@@ -24,16 +24,10 @@
 name: "COBOL 85"
 
 # Value: enum
-standard-define			8
-#        CB_STD_GC = 0,
-#        CB_STD_MF,
-#        CB_STD_IBM,
-#        CB_STD_MVS,
-#        CB_STD_BS2000,
-#        CB_STD_ACU,
-#        CB_STD_85,
-#        CB_STD_2002,
-#        CB_STD_2014
+standard-define			7
+
+# Default source reference-format (see default.conf for details)
+format:				cobol85
 
 # Value: int
 tab-width:			8

config/gcos-strict.conf

@@ -1,19 +1,31 @@
-# Configuration file for GCOS
+# GnuCOBOL compiler configuration
+#
+# Copyright (C) 2001-2012, 2014-2021, 2023 Free Software Foundation, Inc.
+# Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart,
+# Ron Norman, David Declerck, Fabrice Le Fessant, Nicolas Berthier
+#
+# This file is part of GnuCOBOL.
+#
+# The GnuCOBOL compiler is free software: you can redistribute it
+# and/or modify it under the terms of the GNU General Public License
+# as published by the Free Software Foundation, either version 3 of the
+# License, or (at your option) any later version.
+#
+# GnuCOBOL is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with GnuCOBOL.  If not, see <https://www.gnu.org/licenses/>.
 
 name: "GCOS"
 
-standard-define			7
-#        CB_STD_GC = 0,
-#        CB_STD_MF,
-#        CB_STD_IBM,
-#        CB_STD_MVS,
-#        CB_STD_BS2000,
-#        CB_STD_ACU,
-#        CB_STD_RM,
-#        CB_STD_GCOS,
-#        CB_STD_85,
-#        CB_STD_2002,
-#        CB_STD_2014
+# Value: enum (see default.conf and cobc/cobc.h for details)
+standard-define			7	# Builds on COBOL-85
+
+# Default source reference-format (see default.conf for details)
+format:				cobol85
 
 tab-width:			8
 text-column:			72
@@ -22,6 +34,9 @@ literal-length:			256
 numeric-literal-length:		30
 pic-length:			30
 
+# Enable AREACHECK by default, for reference formats other than {fixed,free}
+areacheck:			yes
+
 assign-clause:			external
 
 # If yes, file names are resolved at run time using
@@ -36,7 +51,7 @@ assign-clause:			external
 filename-mapping:		yes
 
 # Alternate formatting of numeric fields
-pretty-display:			yes
+pretty-display:			no
 
 # Allow complex OCCURS DEPENDING ON
 complex-odo:			no
@@ -68,6 +83,11 @@ indirect-redefines:		no
 #               15 - 16   15 - 16      7
 #               17 - 18   17 - 18      8
 #
+# NOTE: binary size is different in GCOS (neither 2-4-8, 1-2-4-8, nor
+# 1--8). It's close to 2-4-8, but with 48-bits only for integers
+# between 10 and 14 digits (that would be 2-4-6-8 ?). We use 2-4-8 for
+# now.
+#
 binary-size:			2-4-8
 
 # Numeric truncation according to ANSI
@@ -78,10 +98,10 @@ binary-truncate:		yes
 binary-byteorder:		big-endian
 
 # Allow larger REDEFINES items
-larger-redefines:		no
+larger-redefines:		error
 
 # Allow certain syntax variations (eg. REDEFINES position)
-relax-syntax-checks:		no
+relax-syntax-checks:		yes
 
 # Allow zero length reference-modification
 # (only checked with active EC-BOUND-REF-MOD)
@@ -160,18 +180,32 @@ move-non-numeric-lit-to-numeric-is-zero: no
 # match an existing data item.
 implicit-assign-dynamic-var:	no
 
+# If yes, ACCEPT and DISPLAY statements accept device names using mnemonics
+device-mnemonics:		yes
+
+# full clauses in XML PARSE - and adjusted XML-EVENTs
+xml-parse-xmlss:		no	# not supported at all
+
 # What rules to apply to SCREEN SECTION items clauses
 screen-section-rules:		std
 
 # Whether DECIMAL-POINT IS COMMA has effect in XML/JSON GENERATE
 dpc-in-data:			xml
 
+# Bounds against which to check subscripts (full, max, record)
+subscript-check:		max	# not verified, may need "record"
+
+# Functionality of JUSTIFY for INITIALIZE verb and initialization of storage
+init-justify:			yes	# TODO: verify
+
 # Dialect features
 # Value: 'ok', 'warning', 'archaic', 'obsolete', 'skip', 'ignore', 'error',
 #        'unconformable'
 
 alter-statement:			obsolete
 comment-paragraphs:			obsolete
+control-division:			ok
+partial-replace-when-literal-src:	skip		# i.e, do not replace if results in spaces only
 call-overflow:				archaic
 data-records-clause:			obsolete
 debugging-mode:				ok
@@ -194,13 +228,14 @@ padding-character-clause:		ok
 section-segments:			obsolete
 stop-literal-statement:			obsolete
 stop-identifier-statement:		unconformable
+stop-error-statement:			ok
 same-as-clause:				unconformable
 type-to-clause:				unconformable
 usage-type:				unconformable
 synchronized-clause:			ok
 sync-left-right:			ok
 special-names-clause:			error
-top-level-occurs-clause:		skip
+top-level-occurs-clause:		unconformable
 value-of-clause:			obsolete
 numeric-boolean:			ok
 hexadecimal-boolean:			unconformable
@@ -209,6 +244,7 @@ hexadecimal-national-literals:		unconformable
 national-character-literals:		unconformable
 acu-literals:				unconformable
 hp-octal-literals:			unconformable
+ebcdic-symbolic-characters:		yes
 word-continuation:			archaic
 not-exception-before-exception:		unconformable
 accept-display-extensions:		unconformable
@@ -220,6 +256,7 @@ reference-out-of-declaratives:		error
 program-prototypes:			unconformable
 call-convention-mnemonic:		unconformable
 call-convention-linkage:		unconformable
+using-optional:				unconformable
 numeric-value-for-edited-item:		error
 incorrect-conf-sec-order:		error
 define-constant-directive:		error
@@ -229,6 +266,7 @@ record-delimiter:			ok
 sequential-delimiters:			ok
 record-delim-with-fixed-recs:		unconformable
 missing-statement:			error
+missing-period:				error		# when format not in {fixed,free}
 zero-length-literals:			unconformable
 xml-generate-extra-phrases:		unconformable
 continue-after:				unconformable
@@ -239,6 +277,9 @@ assign-ext-dyn:				unconformable
 assign-disk-from:			unconformable
 vsam-status:				unconformable
 self-call-recursive:			skip
+record-contains-depending-clause:	obsolete
+defaultbyte:				0
+picture-l:				ok
 
 # use fixed word list, synonyms and exceptions specified there
 reserved-words:		GCOS

config/gcos.conf

@@ -1,7 +1,8 @@
 # GnuCOBOL compiler configuration
 #
-# Copyright (C) 2001-2012, 2014-2017 Free Software Foundation, Inc.
-# Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart
+# Copyright (C) 2001-2012, 2014-2017, 2022 Free Software Foundation, Inc.
+# Written by Keisuke Nishida, Roger While, Simon Sobisch, Edward Hart,
+# David Declerck, Fabrice Le Fessant
 #
 # This file is part of GnuCOBOL.
 #