/*
   Copyright (C) 2003-2012, 2014-2023 Free Software Foundation, Inc.
   Written by Keisuke Nishida, Roger While, Simon Sobisch, Ron Norman,
   Edward Hart

   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/>.
*/


/* Compiler flag defines */

/* Normal binary flags (standard: off) */
/* CB_FLAG    (var, help switch, name, help) */

/* Normal binary flags (standard: on) */
/* CB_FLAG_ON (var, help switch, name, help) */

/* Flags with required parameter (standard: default)*/
/* CB_FLAG_RQ (var, help switch, name, default, getopt return, help) */

/* Flags with required parameter and no associated variable */
/* CB_FLAG_NQ (help switch, name, getopt return, help) */

/* Flags with optional parameter and no associated variable */
/* CB_FLAG_OP (help switch, name, getopt return, help) */


/* Flags with required parameter */

CB_FLAG_RQ (cb_stack_size, 0, "stack-size", 255, 1,
	_("  -fstack-size=<number>\tdefine PERFORM stack size\n"
	  "                       * default: 255"))

#ifdef COBC_HAS_CUTOFF_FLAG	/* CHECKME: likely will be removed completely in 3.1 */
CB_FLAG_RQ (cb_if_cutoff, 0, "if-cutoff", 3, 2,
	_("  -fif-cutoff=<number>  define cutoff depth for IF statements\n"
	  "                        * default: 3"))
#endif

CB_FLAG_RQ (cb_ebcdic_sign, 1, "sign", 0, 3,
	_("  -fsign=[ASCII|EBCDIC]\tdefine display sign representation\n"
	  "                        * default: machine native"))

CB_FLAG_RQ (cb_fold_copy, 1, "fold-copy", 0, 4,
	_("  -ffold-copy=[UPPER|LOWER]\tfold COPY subject to value\n"
	  "                        * default: no transformation"))

CB_FLAG_RQ (cb_fold_call, 1, "fold-call", 0, 5,
	_("  -ffold-call=[UPPER|LOWER]\tfold PROGRAM-ID, CALL, CANCEL subject to value\n"
	  "                        * default: no transformation"))

CB_FLAG_RQ (cb_max_errors, 1, "max-errors", 128, 7,
	_("  -fmax-errors=<number>\tmaximum number of errors to report before\n"
	  "                        compilation is aborted\n"
	  "                        * default: 128"))

/* Flags with required parameter and no associated variable */

CB_FLAG_NQ (1, "intrinsics", 10,
	_("  -fintrinsics=[ALL|intrinsic function name(,name,...)]\n"
	  "                        intrinsics to be used without FUNCTION keyword"))

/* note: suppressed help to have it local to --debug */
CB_FLAG_NQ (0, "ec", 11,
	_("  -fec=<exception-name>\tenable code generation for <exception-name>,\n"
      "                        sets -fsource-location"))
CB_FLAG_NQ (0, "no-ec", 12,
	_("  -fno-ec=<exception-name>\tdisable code generation for <exception-name>"))

CB_FLAG_NQ (1, "dump", 8,
	_("  -fdump=<scope>        dump data fields on abort, <scope> may be\n"
	  "                        a combination of: ALL, WS, LS, RD, FD, SC, LO"))
CB_FLAG_OP (0, "no-dump", 13,
	_("  -fno-dump=<scope>     exclude data fields from dumping on abort, <scope> may\n"
	  "                        be a combination of: ALL, WS, LS, RD, FD, SC, LO"))


CB_FLAG_NQ (1, "callfh", 9,
	_("  -fcallfh=<name>       specifies <name> to be used for I/O\n"
	  "                        as external provided EXTFH interface module"))

CB_FLAG_RQ (cb_ebcdic_table, 1, "ebcdic-table", 0, 14, /* cf cconv.h for all available tables */
	_("  -febcdic-table=[DEFAULT|RESTRICTED-GC|IBM|GCOS]\tdefine EBCDIC translation table:\n"
	  "                        * default: translation to extended ASCII as per MF\n"
	  "                        * restricted-gc: translation from restricted ASCII only\n"
	  "                        * ibm: translation to restricted ASCII as per IBM\n"
	  "                        * gcos: translation to extended ASCII as per GCOS7"))

CB_FLAG_NQ (1, "default-colseq", 15,
	_("  -fdefault-colseq=[ASCII|EBCDIC|NATIVE]\tdefine default collating sequence\n"
	  "                        * default: NATIVE"))

/* Binary flags */

/* Flags with suppressed help */

CB_FLAG (cb_flag_winmain, 0, "winmain",
	_("  -fwinmain             generate WinMain instead of main when compiling\n"
	  "                        as executable"))

CB_FLAG (cb_flag_computed_goto, 0, "computed-goto",
	_("  -fcomputed-goto       generate computed goto C statements"))

CB_FLAG (cb_flag_extra_brace, 0, "extra-brace",
	_("  -fextra-brace         generate extra braces in C source"))

CB_FLAG (cb_flag_correct_numeric, 0, "correct-numeric",
	_("  -fcorrect-numeric     attempt correction of invalid numeric display items"))

CB_FLAG (cb_flag_stack_on_heap, 0, "stack-on-heap",
	_("  -fstack-on-heap       PERFORM stack allocated on heap"))

CB_FLAG (cb_flag_stack_extended, 1, "stack-extended",
	_("  -fstack-extended      store origin of entrypoints and PERFORM\n"
	  "                        * turned on by -debug/-dump"))

CB_FLAG_ON (cb_flag_fast_compare, 0, "fast-compare",
	_("  -fno-fast-compare     disables inline comparisions\n"))

/* Normal flags */

CB_FLAG_ON (cb_flag_remove_unreachable, 1, "remove-unreachable",
	_("  -fno-remove-unreachable\tdisable remove of unreachable code\n"
	  "                        * turned off by -g"))

CB_FLAG (cb_flag_trace, 1, "trace",
	_("  -ftrace               generate trace code\n"
	  "                        * scope: executed SECTION/PARAGRAPH"))

CB_FLAG (cb_flag_traceall, 1, "traceall",
	_("  -ftraceall            generate trace code\n"
	  "                        * scope: executed SECTION/PARAGRAPH/STATEMENTS"))

CB_FLAG (cb_flag_syntax_only, 1, "syntax-only",
	_("  -fsyntax-only         syntax error checking only; don't emit any output"))

CB_FLAG (cb_flag_debugging_line, 1, "debugging-line",
	_("  -fdebugging-line      enable debugging lines\n"
	  "                        * 'D' in indicator column or floating >>D"))

CB_FLAG (cb_flag_source_location, 1, "source-location",
	_("  -fsource-location     generate source location code\n"
	  "                        * turned on by -debug/-ftraceall/-fec/-dump"))

CB_FLAG (cb_flag_implicit_init, 1, "implicit-init",
	_("  -fimplicit-init       automatic initialization of the COBOL runtime system"))

CB_FLAG_ON (cb_flag_recursive_check, 1, "recursive-check",
	_("  -fno-recursive-check  disable check of recursive program call;\n"
	  "                        effectively compiling as RECURSIVE program"))

CB_FLAG (cb_flag_stack_check, 1, "stack-check",
	_("  -fstack-check         PERFORM stack checking\n"
	  "                        * turned on by -debug/-g"))

CB_FLAG (cb_flag_section_exit_check, 1, "section-exit-check",
	_("  -fsection-exit-check  check that code execution does not leave the scope of SECTIONs"))

CB_FLAG (cb_flag_implicit_goback_check, 1, "implicit-goback-check",
	_("  -fimplicit-goback-check\tcheck that code execution does not end implicit at end of PROCEDURE DIVISION"))

CB_FLAG (cb_flag_write_after, 1, "write-after",
	_("  -fwrite-after         use AFTER 1 for WRITE of LINE SEQUENTIAL\n"
	  "                        * default: BEFORE 1"))

CB_FLAG (cb_flag_mfcomment, 1, "mfcomment",
	_("  -fmfcomment           '*' in column 1 treated as comment with listing suppression\n"
	  "                        * FIXED/COBOL85/VARIABLE format only"))

CB_FLAG (cb_flag_acucomment, 1, "acucomment",
	_("  -facucomment          '$' in indicator area treated as '*',\n"
	  "                        '|' treated as floating comment"))

/* note: compatibility for 1.1 "fnotrunc" provided by cobc.c */
CB_FLAG_ON (cb_flag_trunc, 1, "trunc",
	_("  -fno-trunc            allow numeric field overflow\n"
	  "                        * non-ANSI behaviour"))

CB_FLAG (cb_flag_apostrophe, 1, "single-quote",
	_("  -fsingle-quote        use a single quote (apostrophe) for QUOTE\n"
	  "                        * default: double quote"))

#if 0 /* deactivated + untranslated as -frelaxed-syntax (compiler configuration) is available */
CB_FLAG (cb_flag_relaxed_syntax, 1, "relax-syntax",
	  "  -frelax-syntax        relax syntax checking\n"
	  "                        * e.g. REDEFINES position")
#endif

CB_FLAG (cb_flag_optional_file, 1, "optional-file",
	_("  -foptional-file       treat all files as OPTIONAL\n"
	  "                        * unless NOT OPTIONAL specified"))

CB_FLAG (cb_flag_static_call, 1, "static-call",
	_("  -fstatic-call         output static function calls for the CALL statement"))

CB_FLAG_ON (cb_flag_c_decl_for_static_call, 1, "gen-c-decl-static-call",
	_("  -fno-gen-c-decl-static-call\tdisable generation of C function declarations\n"
	  "                        for subroutines with static CALL"))

CB_FLAG (cb_flag_c_line_directives, 1, "gen-c-line-directives",
	_("  -fgen-c-line-directives\tgenerate source location directives in C code;\n"
	  "                        * turned on by -g/--coverage"))

CB_FLAG (cb_flag_c_labels, 1, "gen-c-labels",
	_("  -fgen-c-labels        generate extra labels in C sources;\n"
	  "                        * turned on by -g"))

CB_FLAG_ON (cb_listing_with_header, 1, "theaders",
	_("  -fno-theaders         suppress all headers and output of compilation\n"
	  "                        options from listing while keeping page breaks"))

CB_FLAG_ON (cb_listing_with_source, 1, "tsource",
	_("  -fno-tsource          suppress source from listing"))

CB_FLAG_ON (cb_listing_with_messages, 1, "tmessages",
	_("  -fno-tmessages        suppress warning and error summary from listing"))

CB_FLAG (cb_listing_symbols, 1, "tsymbols",
	_("  -ftsymbols            specify symbols in listing"))

CB_FLAG (cb_listing_cmd, 1, "tcmd",
	_("  -ftcmd                specify command line in listing"))

CB_FLAG_ON (cb_diagnostic_show_option, 1, "diagnostics-show-option",
	_("  -fno-diagnostics-show-option\tsuppress output of option that directly\n"
	  "                        controls the diagnostic"))
