 |
GnuCOBOL
2.0
A free COBOL compiler
|
|
GnuCOBOL
2.0
A free COBOL compiler
|
Go to the source code of this file.
Functions | |
| CB_FLAG_RQ (cb_stack_size, 0,"stack-size", 255, 1, _("define PERFORM stack size\n\t\t\t- default: 255")) CB_FLAG_RQ(cb_if_cutoff | |
| if | _ ("define cutoff depth for IF statements\n\t\t\t- default: 3")) CB_FLAG_RQ(cb_ebcdic_sign |
| if | _ ("define display sign representation\n\t\t\t- ASCII or EBCDIC (default: machine native)")) CB_FLAG_RQ(cb_fold_copy |
| if fold | _ ("fold COPY subject to value\n\t\t\t- UPPER or LOWER (default: no transformation)")) CB_FLAG_RQ(cb_fold_call |
| if fold fold | _ ("fold PROGRAM-ID, CALL, CANCEL subject to value\n\t\t\t- UPPER or LOWER (default: no transformation)")) CB_FLAG_RQ(cb_default_byte |
| if fold fold | _ ("initialize fields without VALUE to decimal value\n\t\t\t- 0 to 255 (default: initialize to picture)")) CB_FLAG_NQ(1 |
| if fold fold | _ ("intrinsics to be used without FUNCTION keyword\n\t\t\t- ALL or intrinsic function name(,name,...)")) CB_FLAG(cb_flag_static_call |
| if fold fold static | _ ("output static function calls for the CALL statement")) CB_FLAG(cb_flag_computed_goto |
| if fold fold static computed | _ ("generate computed goto C statements")) CB_FLAG(cb_flag_alt_ebcdic |
| if fold fold static computed alternate | _ ("use restricted ASCII to EBCDIC translate")) CB_FLAG(cb_flag_extra_brace |
| if fold fold static computed alternate extra | _ ("generate extra braces in generated C code")) CB_FLAG(cb_flag_correct_numeric |
| if fold fold static computed alternate extra correct | _ ("attempt correction of invalid numeric display items")) CB_FLAG(cb_flag_stack_on_heap |
| if fold fold static computed alternate extra correct stack on | _ ("PERFORM stack allocated on heap")) CB_FLAG(cb_flag_trace |
| if fold fold static computed alternate extra correct stack on | _ ("generate trace code\n\t\t\t- executed SECTION/PARAGRAPH")) CB_FLAG(cb_flag_traceall |
| if fold fold static computed alternate extra correct stack on | _ ("generate trace code\n\t\t\t- executed SECTION/PARAGRAPH/STATEMENTS\n\t\t\t- turned on by -debug")) CB_FLAG(cb_flag_syntax_only |
| if fold fold static computed alternate extra correct stack on syntax | _ ("syntax error checking only; don't emit any output")) CB_FLAG(cb_flag_debugging_line |
| if fold fold static computed alternate extra correct stack on syntax debugging | _ ("enable debugging lines\n\t\t\t- 'D' in indicator column or floating >>D")) CB_FLAG(cb_flag_source_location |
| if fold fold static computed alternate extra correct stack on syntax debugging source | _ ("generate source location code\n\t\t\t- turned on by -debug/-g/-ftraceall")) CB_FLAG(cb_flag_implicit_init |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit | _ ("automatic initialization of the COBOL runtime system")) CB_FLAG(cb_flag_stack_check |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack | _ ("PERFORM stack checking\n\t\t\t- turned on by -debug or -g")) CB_FLAG(cb_flag_syntax_extension |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax | _ ("allow syntax extensions\n\t\t\t- eg. switch name SW1, etc.")) CB_FLAG(cb_flag_write_after |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("use AFTER 1 for WRITE of LINE SEQUENTIAL\n\t\t\t- default: BEFORE 1")) CB_FLAG(cb_flag_mfcomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("'*' or '/' in column 1 treated as comment\n\t\t\t- FIXED format only")) CB_FLAG(cb_flag_acucomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("'$' in indicator area treated as '*',\n\t\t\t'|' treated as floating comment")) CB_FLAG(cb_flag_notrunc |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("allow numeric field overflow\n\t\t\t- non-ANSI behaviour")) CB_FLAG(cb_flag_odoslide |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | _ ("adjust items following OCCURS DEPENDING\n\t\t\t- requires implicit/explicit relaxed syntax")) CB_FLAG(cb_flag_apostrophe |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single | _ ("use a single quote (apostrophe) for QUOTE\n\t\t\t- default: double quote")) CB_FLAG(cb_flag_recursive |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive | _ ("check recursive program call")) CB_FLAG(cb_flag_relaxed_syntax |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax | _ ("relax syntax checking\n\t\t\t- eg. REDEFINES position")) CB_FLAG(cb_flag_optional_file |
Variables | |
| if | cutoff |
| if | sign |
| if fold | copy |
| if fold fold | call |
| if fold fold | defaultbyte |
| if fold fold | intrinsics |
| if fold fold static computed | goto |
| if fold fold static computed alternate | ebcdic |
| if fold fold static computed alternate extra | brace |
| if fold fold static computed alternate extra correct | numeric |
| if fold fold static computed alternate extra correct stack on | heap |
| if fold fold static computed alternate extra correct stack on | trace |
| if fold fold static computed alternate extra correct stack on | traceall |
| if fold fold static computed alternate extra correct stack on syntax | only |
| if fold fold static computed alternate extra correct stack on syntax debugging | line |
| if fold fold static computed alternate extra correct stack on syntax debugging source | location |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit | init |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack | check |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax | extension |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | after |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | mfcomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | acucomment |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | notrunc |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write | odoslide |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single | quote |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax | syntax |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax optional | file |
| if fold fold _ | ( | "fold PROGRAM- | ID, |
| CALL | , | ||
| CANCEL subject to value\n\t\t\t-UPPER or LOWER(default:no transformation)" | |||
| ) |
| if fold fold _ | ( | "initialize fields without VALUE to decimal value\n\t\t\t- 0 to 255 (default: initialize to picture)" | ) |
| if fold fold _ | ( | "intrinsics to be used without FUNCTION keyword\n\t\t\t- ALL or intrinsic function name(,name,...)" | ) |
| if fold fold static _ | ( | "output static function calls for the CALL statement" | ) |
| if fold fold static computed _ | ( | "generate computed goto C statements" | ) |
| if fold fold static computed alternate extra _ | ( | "generate extra braces in generated C code" | ) |
| if fold fold static computed alternate extra correct _ | ( | "attempt correction of invalid numeric display items" | ) |
| if fold fold static computed alternate extra correct stack on _ | ( | "PERFORM stack allocated on heap" | ) |
| if fold fold static computed alternate extra correct stack on _ | ( | "generate trace code\n\t\t\t- executed SECTION/PARAGRAPH" | ) |
| if fold fold static computed alternate extra correct stack on _ | ( | "generate trace code\n\t\t\t- executed SECTION/PARAGRAPH/STATEMENTS\n\t\t\t- turned on by -debug" | ) |
| if fold fold static computed alternate extra correct stack on syntax _ | ( | "syntax error checking only; don't emit any output" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging _ | ( | "enable debugging lines\n\t\t\t- 'D' in indicator column or floating >>D" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source _ | ( | "generate source location code\n\t\t\t- turned on by -debug/-g/-ftraceall" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit _ | ( | "automatic initialization of the COBOL runtime system" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack _ | ( | "PERFORM stack checking\n\t\t\t- turned on by -debug or -g" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax _ | ( | "allow syntax extensions\n\t\t\t- eg. switch name | SW1, |
| etc." | |||
| ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "use AFTER 1 for WRITE of LINE SEQUENTIAL\n\t\t\t- default: BEFORE 1" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "'*' or '/' in column 1 treated as comment\n\t\t\t- FIXED format only" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "'$' in indicator area treated as '*' | , |
| \n\t\t\t'|'treated as floating comment" | |||
| ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "allow numeric field overflow\n\t\t\t- non-ANSI behaviour" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write _ | ( | "adjust items following OCCURS DEPENDING\n\t\t\t- requires implicit/explicit relaxed syntax" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single _ | ( | "use a single quote (apostrophe) for QUOTE\n\t\t\t- default: double quote" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive _ | ( | "check recursive program call" | ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax _ | ( | "relax syntax checking\n\t\t\t- eg. REDEFINES position" | ) |
| CB_FLAG_RQ | ( | cb_stack_size | , |
| 0 | , | ||
| "stack-size" | , | ||
| 255 | , | ||
| 1 | , | ||
| _("define PERFORM stack size\n\t\t\t- default: 255") | |||
| ) |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive check |
Definition at line 99 of file flag.def.
Referenced by cb_build_move().
| if fold copy |
Definition at line 45 of file flag.def.
Referenced by cb_to_cname().
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax extension |
Definition at line 102 of file flag.def.
Referenced by process_filename().
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax optional file |
Definition at line 129 of file flag.def.
Referenced by cb_emit_close(), cb_emit_delete(), cb_emit_open(), cb_emit_read(), cb_emit_release(), cb_emit_return(), cb_emit_rewrite(), cb_emit_unlock(), cb_emit_write(), cb_ref(), global_check(), pp_init_buffer(), and yy_init_buffer().
| if fold fold static computed alternate extra correct stack on heap |
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit init |
| if fold fold static computed alternate extra correct stack on syntax debugging line |
Definition at line 90 of file flag.def.
Referenced by cb_config_entry(), cb_emit_accept(), cb_gen_field_accept(), cb_load_conf_file(), cob_load_config_file(), cob_screen_attr(), cob_screen_moveyx(), cob_screen_puts(), cob_set_screen(), configuration_error(), configuration_warning(), emit_field_display(), emit_screen_display(), field_display(), output_stmt(), screen_accept(), screen_display(), and switch_to_buffer().
| if fold fold static computed alternate extra correct stack on syntax debugging source location |
| if fold fold static computed alternate extra correct numeric |
| if fold fold static computed alternate extra correct stack on syntax only |
| if sign |
Definition at line 42 of file flag.def.
Referenced by cb_build_binary_picture(), cb_emit_call(), cob_alloc_field(), cob_cmp_all(), cob_cmp_packed(), cob_decimal_do_round(), cob_decimal_get_binary(), cob_decimal_get_display(), cob_decimal_get_ieee128dec(), cob_decimal_get_ieee64dec(), cob_decimal_get_packed(), cob_decimal_pow(), cob_decimal_set_display(), cob_decimal_set_double(), cob_decimal_set_ieee128dec(), cob_decimal_set_ieee64dec(), cob_decimal_set_packed(), cob_display_get_int(), cob_display_get_long_long(), cob_intr_annuity(), cob_intr_exp10(), cob_intr_integer(), cob_is_numeric(), cob_mod_or_rem(), cob_move_alphanum_to_display(), cob_move_alphanum_to_edited(), cob_move_binary_to_binary(), cob_move_binary_to_display(), cob_move_display_to_alphanum(), cob_move_display_to_binary(), cob_move_display_to_display(), cob_move_display_to_edited(), cob_move_display_to_packed(), cob_move_edited_to_display(), cob_move_packed_to_display(), cob_mpf_sin(), cob_packed_get_int(), cob_packed_get_long_long(), deccvreal(), numval(), output_bin_field(), output_call(), output_call_by_value_args(), ppp_set_value(), scan_define_options(), scan_numeric(), and yyparse().
| if fold fold static computed alternate extra correct stack on syntax debugging source implicit stack syntax write single recursive relax syntax |
| if fold fold static computed alternate extra correct stack on trace |
1.8.9.1 
