coblocal.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	__cob_settings
struct	config_enum
struct	cob_time
struct	config_tbl

Macros
#define	_(s)   s
#define	N_(s)   s
#define	COB_HIDDEN   extern
#define	F_OK   0
#define	X_OK   1
#define	W_OK   2
#define	R_OK   4
#define	COB_DEPTH_LEVEL   32U
#define	COB_DECIMAL_NAN   -32768
#define	COB_DECIMAL_INF   -32767
#define	COB_MPZ_DEF   1024UL
#define	COB_MPF_PREC   2048UL
#define	COB_MPF_CUTOFF   1024UL
#define	COB_128_MSW(x)   x[1]
#define	COB_128_LSW(x)   x[0]
#define	COB_MPZ_ENDIAN   -1
#define	COB_DEC_SPECIAL   COB_U64_C(0x7800000000000000)
#define	COB_DEC_EXTEND   COB_U64_C(0x6000000000000000)
#define	COB_DEC_SIGN   COB_U64_C(0x8000000000000000)
#define	COB_64_IS_SPECIAL(x)   ((x & COB_DEC_SPECIAL) == COB_DEC_SPECIAL)
#define	COB_128_IS_SPECIAL(x)   ((COB_128_MSW(x) & COB_DEC_SPECIAL) == COB_DEC_SPECIAL)
#define	COB_64_IS_EXTEND(x)   ((x & COB_DEC_EXTEND) == COB_DEC_EXTEND)
#define	COB_128_IS_EXTEND(x)   ((COB_128_MSW(x) & COB_DEC_EXTEND) == COB_DEC_EXTEND)
#define	COB_64_EXPO_1   COB_U64_C(0x7FE0000000000000)
#define	COB_64_SIGF_1   COB_U64_C(0x001FFFFFFFFFFFFF)
#define	COB_64_EXPO_2   COB_U64_C(0x1FF8000000000000)
#define	COB_64_SIGF_2   COB_U64_C(0x0007FFFFFFFFFFFF)
#define	COB_64_OR_EXTEND   COB_U64_C(0x0020000000000000)
#define	COB_128_EXPO_1   COB_U64_C(0x7FFE000000000000)
#define	COB_128_SIGF_1   COB_U64_C(0x0001FFFFFFFFFFFF)
#define	COB_128_EXPO_2   COB_U64_C(0x1FFF800000000000)
#define	COB_128_SIGF_2   COB_U64_C(0x00007FFFFFFFFFFF)
#define	COB_128_OR_EXTEND   COB_U64_C(0x0002000000000000)
#define	COB_FIELD_INIT(x, y, z)
#define	COB_ATTR_INIT(u, v, x, y, z)
#define	COB_GET_SIGN(f)   (COB_FIELD_HAVE_SIGN (f) ? cob_real_get_sign (f) : 0)
#define	COB_PUT_SIGN(f, s)   do { if (COB_FIELD_HAVE_SIGN (f)) cob_real_put_sign (f, s); } ONCE_COB
#define	COB_CHK_PARMS(x, z)
#define	_OFFSET_OF_
#define	offsetof(s_name, m_name)   (int)(long)&(((s_name*)0))->m_name
#define	COB_D2I(x)   ((x) & 0x0F)
#define	COB_I2D(x)   ((x) + '0')
#define	COB_MODULE_PTR   cobglobptr->cob_current_module
#define	COB_TERM_BUFF   cobglobptr->cob_term_buff
#define	COB_ACCEPT_STATUS   cobglobptr->cob_accept_status
#define	COB_MAX_Y_COORD   cobglobptr->cob_max_y
#define	COB_MAX_X_COORD   cobglobptr->cob_max_x
#define	COB_DISP_TO_STDERR   cobsetptr->cob_disp_to_stderr
#define	COB_BEEP_VALUE   cobsetptr->cob_beep_value
#define	COB_TIMEOUT_SCALE   cobsetptr->cob_timeout_scale
#define	COB_EXTENDED_STATUS   cobsetptr->cob_extended_status
#define	COB_USE_ESC   cobsetptr->cob_use_esc
#define	ENV_NOT   (1 << 1) /* Negate True/False value setting */
#define	ENV_INT   (1 << 2) /* an 'int' */
#define	ENV_SIZE   (1 << 3) /* size; number with K - kb, M - mb, G - GB */
#define	ENV_BOOL   (1 << 4) /* int boolean; Yes, True, 1, No, False, 0, ... */
#define	ENV_CHAR   (1 << 5) /* inline 'char[]' field */
#define	ENV_STR   (1 << 6) /* a pointer to a string */
#define	ENV_PATH   (1 << 7) /* a pointer to a file system path */
#define	ENV_ENUM   (1 << 8) /* Value must in 'enum' list as match */
#define	ENV_ENUMVAL   (1 << 9) /* Value must in 'enum' list as match or value */
#define	STS_ENVSET   (1 << 15) /* value set via Env Var */
#define	STS_CNFSET   (1 << 16) /* value set via config file */
#define	STS_ENVCLR   (1 << 17) /* value removed from Env Var */
#define	STS_RESET   (1 << 18) /* value was reset back to default */
#define	STS_FNCSET   (1 << 19) /* value set via function call */
#define	GRP_HIDE   0
#define	GRP_CALL   1
#define	GRP_FILE   2
#define	GRP_SCREEN   3
#define	GRP_MISC   4
#define	GRP_SYSENV   5
#define	GRP_MAX   6
#define	SETPOS(member)   offsetof(cob_settings,member),sizeof(cobsetptr->member),0,0

Typedefs
typedef struct __cob_settings	cob_settings

Functions
void	cob_init_numeric (cob_global *)
void	cob_init_termio (cob_global *, cob_settings *)
void	cob_init_fileio (cob_global *, cob_settings *)
void	cob_init_call (cob_global *, cob_settings *)
void	cob_init_intrinsic (cob_global *)
void	cob_init_strings (void)
void	cob_init_move (cob_global *, cob_settings *)
void	cob_init_screenio (cob_global *, cob_settings *)
void	cob_exit_screen (void)
void	cob_exit_numeric (void)
void	cob_exit_fileio (void)
void	cob_exit_call (void)
void	cob_exit_intrinsic (void)
void	cob_exit_strings (void)
char *	cob_strdup (const char *)
int	cob_real_get_sign (cob_field *)
void	cob_real_put_sign (cob_field *, const int)
void	cob_decimal_setget_fld (cob_field *, cob_field *, const int)
void	cob_decimal_move_temp (cob_field *, cob_field *)
void	cob_print_ieeedec (const cob_field *, FILE *)
void	cob_print_realbin (const cob_field *, FILE *, const int)
void	cob_screen_set_mode (const cob_u32_t)
int	cob_get_exception_code (void)
int	cob_check_env_true (char *)
int	cob_check_env_false (char *)
const char *	cob_get_exception_name (void)
void	cob_field_to_string (const cob_field *, void *, const size_t)
void	cob_parameter_check (const char *, const int)
void	cob_runtime_error (const char *,...) COB_A_FORMAT12
char *	cob_save_env_value (char *, char *)
cob_settings *	cob_get_settings_ptr (void)
int	cob_ctoi (const char)
struct cob_time	cob_get_current_date_and_time (void)

Macro Definition Documentation

#define _

(

s

)

s

Definition at line 43 of file coblocal.h.

#define _OFFSET_OF_

Definition at line 172 of file coblocal.h.

#define COB_128_EXPO_1   COB_U64_C(0x7FFE000000000000)

Definition at line 133 of file coblocal.h.

Referenced by cob_decimal_set_ieee128dec().

#define COB_128_EXPO_2   COB_U64_C(0x1FFF800000000000)

Definition at line 137 of file coblocal.h.

Referenced by cob_decimal_set_ieee128dec().

#define COB_128_IS_EXTEND

(

x

)

((COB_128_MSW(x) & COB_DEC_EXTEND) == COB_DEC_EXTEND)

Definition at line 118 of file coblocal.h.

Referenced by cob_decimal_set_ieee128dec().

#define COB_128_IS_SPECIAL

(

x

)

((COB_128_MSW(x) & COB_DEC_SPECIAL) == COB_DEC_SPECIAL)

Definition at line 115 of file coblocal.h.

Referenced by cob_decimal_set_ieee128dec().

#define COB_128_LSW

(

x

)

x[0]

Definition at line 103 of file coblocal.h.

Referenced by cob_decimal_set_ieee128dec().

#define COB_128_MSW

(

x

)

x[1]

Definition at line 102 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), and cob_decimal_set_ieee128dec().

#define COB_128_OR_EXTEND   COB_U64_C(0x0002000000000000)

Definition at line 141 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), and cob_decimal_set_ieee128dec().

#define COB_128_SIGF_1   COB_U64_C(0x0001FFFFFFFFFFFF)

Definition at line 135 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), and cob_decimal_set_ieee128dec().

#define COB_128_SIGF_2   COB_U64_C(0x00007FFFFFFFFFFF)

Definition at line 139 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), and cob_decimal_set_ieee128dec().

#define COB_64_EXPO_1   COB_U64_C(0x7FE0000000000000)

Definition at line 122 of file coblocal.h.

Referenced by cob_decimal_set_ieee64dec().

#define COB_64_EXPO_2   COB_U64_C(0x1FF8000000000000)

Definition at line 126 of file coblocal.h.

Referenced by cob_decimal_set_ieee64dec().

#define COB_64_IS_EXTEND

(

x

)

((x & COB_DEC_EXTEND) == COB_DEC_EXTEND)

Definition at line 117 of file coblocal.h.

Referenced by cob_decimal_set_ieee64dec().

#define COB_64_IS_SPECIAL

(

x

)

((x & COB_DEC_SPECIAL) == COB_DEC_SPECIAL)

Definition at line 114 of file coblocal.h.

Referenced by cob_decimal_set_ieee64dec().

#define COB_64_OR_EXTEND   COB_U64_C(0x0020000000000000)

Definition at line 130 of file coblocal.h.

Referenced by cob_decimal_get_ieee64dec(), and cob_decimal_set_ieee64dec().

#define COB_64_SIGF_1   COB_U64_C(0x001FFFFFFFFFFFFF)

Definition at line 124 of file coblocal.h.

Referenced by cob_decimal_get_ieee64dec(), and cob_decimal_set_ieee64dec().

#define COB_64_SIGF_2   COB_U64_C(0x0007FFFFFFFFFFFF)

Definition at line 128 of file coblocal.h.

Referenced by cob_decimal_get_ieee64dec(), and cob_decimal_set_ieee64dec().

#define COB_ACCEPT_STATUS   cobglobptr->cob_accept_status

Definition at line 187 of file coblocal.h.

Referenced by cob_accept_escape_key(), cob_check_pos_status(), and cob_exit_screen().

#define COB_ATTR_INIT	(		u,
			v,
			x,
			y,
			z
	)

Value:

do { \
    attr.type = u; \
    attr.digits = v; \
    attr.scale = x; \
    attr.flags = y; \
    attr.pic = z; \
    } ONCE_COB

Definition at line 150 of file coblocal.h.

Referenced by cob_accept_arg_number(), cob_alloc_field(), cob_alloc_set_field_int(), cob_alloc_set_field_uint(), cob_decimal_get_field(), cob_decimal_move_temp(), cob_display_arg_number(), cob_get_int(), cob_intr_date_of_integer(), cob_intr_day_of_integer(), cob_intr_module_date(), cob_intr_module_time(), cob_intr_random(), cob_move_all(), cob_set_int(), display_numeric(), indirect_move(), and pretty_display_numeric().

#define COB_BEEP_VALUE   cobsetptr->cob_beep_value

Definition at line 192 of file coblocal.h.

Referenced by cob_beep(), and cob_sys_sound_bell().

#define COB_CHK_PARMS	(		x,
			z
	)

Definition at line 167 of file coblocal.h.

Referenced by cob_sys_and(), cob_sys_calledby(), cob_sys_change_dir(), cob_sys_chdir(), cob_sys_check_file_exist(), cob_sys_close_file(), cob_sys_copy_file(), cob_sys_copyfile(), cob_sys_create_dir(), cob_sys_create_file(), cob_sys_delete_dir(), cob_sys_delete_file(), cob_sys_eq(), cob_sys_error_proc(), cob_sys_exit_proc(), cob_sys_file_delete(), cob_sys_file_info(), cob_sys_flush_file(), cob_sys_get_csr_pos(), cob_sys_get_current_dir(), cob_sys_get_scr_size(), cob_sys_getopt_long_long(), cob_sys_hosted(), cob_sys_imp(), cob_sys_justify(), cob_sys_mkdir(), cob_sys_nimp(), cob_sys_nor(), cob_sys_not(), cob_sys_oc_nanosleep(), cob_sys_open_file(), cob_sys_or(), cob_sys_parameter_size(), cob_sys_printable(), cob_sys_read_file(), cob_sys_rename_file(), cob_sys_return_args(), cob_sys_sleep(), cob_sys_system(), cob_sys_tolower(), cob_sys_toupper(), cob_sys_write_file(), cob_sys_xf4(), cob_sys_xf5(), and cob_sys_xor().

#define COB_D2I

(

x

)

((x) & 0x0F)

Definition at line 177 of file coblocal.h.

Referenced by cob_cmp_numdisp(), cob_decimal_get_packed(), cob_decimal_set_display(), cob_display_get_int(), cob_display_get_long_long(), cob_fatal_error(), cob_move_display_to_binary(), and cob_move_display_to_packed().

#define COB_DEC_EXTEND   COB_U64_C(0x6000000000000000)

Definition at line 110 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), and cob_decimal_get_ieee64dec().

#define COB_DEC_SIGN   COB_U64_C(0x8000000000000000)

Definition at line 112 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), cob_decimal_get_ieee64dec(), cob_decimal_set_ieee128dec(), and cob_decimal_set_ieee64dec().

#define COB_DEC_SPECIAL   COB_U64_C(0x7800000000000000)

Definition at line 108 of file coblocal.h.

#define COB_DECIMAL_INF   -32767

Definition at line 83 of file coblocal.h.

Referenced by cob_decimal_print().

#define COB_DECIMAL_NAN   -32768

Definition at line 80 of file coblocal.h.

Referenced by cob_alloc_field(), cob_decimal_div(), cob_decimal_get_field(), cob_decimal_pow(), cob_decimal_print(), cob_decimal_set_ieee128dec(), cob_decimal_set_ieee64dec(), and cob_div_quotient().

#define COB_DEPTH_LEVEL   32U

Definition at line 77 of file coblocal.h.

Referenced by cob_exit_intrinsic(), cob_init_intrinsic(), and make_field_entry().

#define COB_DISP_TO_STDERR   cobsetptr->cob_disp_to_stderr

Definition at line 191 of file coblocal.h.

Referenced by cob_display().

#define COB_EXTENDED_STATUS   cobsetptr->cob_extended_status

Definition at line 194 of file coblocal.h.

Referenced by cob_convert_key().

#define COB_FIELD_INIT	(		x,
			y,
			z
	)

Value:

do { \
    field.size = x; \
    field.data = y; \
    field.attr = z; \
    } ONCE_COB

Definition at line 144 of file coblocal.h.

Referenced by cob_alloc_field(), cob_alloc_set_field_int(), cob_alloc_set_field_spaces(), cob_alloc_set_field_str(), cob_alloc_set_field_uint(), cob_decimal_move_temp(), cob_intr_char(), cob_intr_concatenate(), cob_intr_currency_symbol(), cob_intr_current_date(), cob_intr_date_of_integer(), cob_intr_day_of_integer(), cob_intr_exception_file(), cob_intr_exception_location(), cob_intr_exception_statement(), cob_intr_exception_status(), cob_intr_formatted_current_date(), cob_intr_formatted_date(), cob_intr_formatted_datetime(), cob_intr_formatted_time(), cob_intr_highest_algebraic(), cob_intr_locale_compare(), cob_intr_lowest_algebraic(), cob_intr_module_caller_id(), cob_intr_module_date(), cob_intr_module_formatted_date(), cob_intr_module_id(), cob_intr_module_path(), cob_intr_module_source(), cob_intr_module_time(), cob_intr_mon_decimal_point(), cob_intr_mon_thousands_sep(), cob_intr_num_decimal_point(), cob_intr_num_thousands_sep(), cob_intr_random(), format_field(), and substitute().

#define COB_GET_SIGN

(

f

)

(COB_FIELD_HAVE_SIGN (f) ? cob_real_get_sign (f) : 0)

Definition at line 158 of file coblocal.h.

Referenced by cob_cmp_all(), cob_cmp_alnum(), cob_decimal_set_display(), cob_display_get_int(), cob_display_get_long_long(), cob_inspect_init(), cob_move_alphanum_to_edited(), cob_move_display_to_alphanum(), cob_move_display_to_binary(), cob_move_display_to_display(), cob_move_display_to_edited(), and cob_move_display_to_packed().

#define COB_HIDDEN   extern

Definition at line 57 of file coblocal.h.

#define COB_I2D

(

x

)

((x) + '0')

Definition at line 183 of file coblocal.h.

Referenced by cob_move_binary_to_display(), cob_move_packed_to_display(), and save_status().

#define COB_MAX_X_COORD   cobglobptr->cob_max_x

Definition at line 189 of file coblocal.h.

Referenced by cob_screen_init().

#define COB_MAX_Y_COORD   cobglobptr->cob_max_y

Definition at line 188 of file coblocal.h.

Referenced by cob_screen_init().

#define COB_MODULE_PTR   cobglobptr->cob_current_module

Definition at line 185 of file coblocal.h.

Referenced by add_decimal_digits(), cob_accept(), cob_check_numdisp(), cob_check_numval(), cob_check_numval_f(), cob_check_pos_status(), cob_chk_file_mapping(), cob_cmp_all(), cob_cmp_alnum(), cob_cmp_numdisp(), cob_correct_numeric(), cob_fatal_error(), cob_file_sort_init(), cob_intr_currency_symbol(), cob_intr_formatted_current_date(), cob_intr_formatted_datetime(), cob_intr_formatted_time(), cob_intr_module_caller_id(), cob_intr_module_date(), cob_intr_module_formatted_date(), cob_intr_module_id(), cob_intr_module_path(), cob_intr_module_source(), cob_intr_module_time(), cob_intr_mon_decimal_point(), cob_intr_mon_thousands_sep(), cob_intr_num_decimal_point(), cob_intr_num_thousands_sep(), cob_intr_numval_f(), cob_intr_seconds_from_formatted_time(), cob_is_numeric(), cob_module_enter(), cob_module_leave(), cob_move_alphanum_to_display(), cob_move_display_to_edited(), cob_move_edited_to_display(), cob_real_get_sign(), cob_real_put_sign(), cob_restore_func(), cob_save_func(), cob_set_location(), cob_sys_calledby(), cob_sys_change_dir(), cob_sys_chdir(), cob_sys_check_file_exist(), cob_sys_copy_file(), cob_sys_create_dir(), cob_sys_delete_dir(), cob_sys_delete_file(), cob_sys_file_delete(), cob_sys_file_info(), cob_sys_getopt_long_long(), cob_sys_hosted(), cob_sys_justify(), cob_sys_oc_nanosleep(), cob_sys_parameter_size(), cob_sys_printable(), cob_sys_rename_file(), cob_sys_return_args(), cob_sys_sleep(), cob_sys_system(), cob_sys_x91(), cob_table_sort_init(), cob_trace_section(), display_common(), field_is_zero(), get_num_int_digits_for_no_zero_sup(), numval(), open_cbl_file(), and pretty_display_numeric().

#define COB_MPF_CUTOFF   1024UL

Definition at line 93 of file coblocal.h.

Referenced by cob_mpf_exp(), and cob_mpf_log().

#define COB_MPF_PREC   2048UL

Definition at line 89 of file coblocal.h.

Referenced by cob_init_intrinsic(), cob_init_numeric(), cob_mpf_acos(), cob_mpf_asin(), cob_mpf_atan(), cob_mpf_cos(), cob_mpf_exp(), cob_mpf_log(), cob_mpf_log10(), cob_mpf_sin(), and cob_mpf_tan().

#define COB_MPZ_DEF   1024UL

Definition at line 86 of file coblocal.h.

Referenced by cob_decimal_init(), cob_init_intrinsic(), and cob_init_numeric().

#define COB_MPZ_ENDIAN   -1

Definition at line 104 of file coblocal.h.

Referenced by cob_decimal_get_ieee128dec(), and cob_decimal_get_ieee64dec().

#define COB_PUT_SIGN	(		f,
			s
	)		do { if (COB_FIELD_HAVE_SIGN (f)) cob_real_put_sign (f, s); } ONCE_COB

Definition at line 160 of file coblocal.h.

Referenced by cob_cmp_all(), cob_cmp_alnum(), cob_decimal_get_display(), cob_decimal_set_display(), cob_display_get_int(), cob_display_get_long_long(), cob_inspect_finish(), cob_move_alphanum_to_display(), cob_move_alphanum_to_edited(), 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(), and cob_move_packed_to_display().

#define COB_TERM_BUFF   cobglobptr->cob_term_buff

Definition at line 186 of file coblocal.h.

Referenced by cob_accept(), display_numeric(), field_accept(), and pretty_display_numeric().

#define COB_TIMEOUT_SCALE   cobsetptr->cob_timeout_scale

Definition at line 193 of file coblocal.h.

Referenced by field_accept(), and screen_accept().

#define COB_USE_ESC   cobsetptr->cob_use_esc

Definition at line 195 of file coblocal.h.

Referenced by cob_convert_key().

#define ENV_BOOL   (1 << 4) /* int boolean; Yes, True, 1, No, False, 0, ... */

Definition at line 293 of file coblocal.h.

Referenced by get_config_val(), and set_config_val().

#define ENV_CHAR   (1 << 5) /* inline 'char[]' field */

Definition at line 294 of file coblocal.h.

Referenced by get_config_val(), and set_config_val().

#define ENV_ENUM   (1 << 8) /* Value must in 'enum' list as match */

Definition at line 297 of file coblocal.h.

Referenced by set_config_val().

#define ENV_ENUMVAL   (1 << 9) /* Value must in 'enum' list as match or value */

Definition at line 298 of file coblocal.h.

Referenced by set_config_val().

#define ENV_INT   (1 << 2) /* an 'int' */

Definition at line 291 of file coblocal.h.

Referenced by get_config_val(), and set_config_val().

#define ENV_NOT   (1 << 1) /* Negate True/False value setting */

Definition at line 290 of file coblocal.h.

Referenced by get_config_val(), and set_config_val().

#define ENV_PATH   (1 << 7) /* a pointer to a file system path */

Definition at line 296 of file coblocal.h.

Referenced by cb_config_entry(), cob_exit_common(), get_config_val(), and set_config_val().

#define ENV_SIZE   (1 << 3) /* size; number with K - kb, M - mb, G - GB */

Definition at line 292 of file coblocal.h.

Referenced by get_config_val(), and set_config_val().

#define ENV_STR   (1 << 6) /* a pointer to a string */

Definition at line 295 of file coblocal.h.

Referenced by cb_config_entry(), cob_exit_common(), get_config_val(), and set_config_val().

#define F_OK   0

Definition at line 61 of file coblocal.h.

#define GRP_CALL   1

Definition at line 307 of file coblocal.h.

#define GRP_FILE   2

Definition at line 308 of file coblocal.h.

#define GRP_HIDE   0

Definition at line 306 of file coblocal.h.

Referenced by cb_config_entry(), and cob_rescan_env_vals().

#define GRP_MAX   6

Definition at line 312 of file coblocal.h.

Referenced by print_runtime_env().

#define GRP_MISC   4

Definition at line 310 of file coblocal.h.

#define GRP_SCREEN   3

Definition at line 309 of file coblocal.h.

#define GRP_SYSENV   5

Definition at line 311 of file coblocal.h.

#define N_

(

s

)

s

Definition at line 44 of file coblocal.h.

#define offsetof	(		s_name,
			m_name
	)		(int)(long)&(((s_name*)0))->m_name

Definition at line 173 of file coblocal.h.

Referenced by cob_file_sort_init().

#define R_OK   4

Definition at line 73 of file coblocal.h.

#define SETPOS

(

member

)

offsetof(cob_settings,member),sizeof(cobsetptr->member),0,0

Definition at line 314 of file coblocal.h.

#define STS_CNFSET   (1 << 16) /* value set via config file */

Definition at line 301 of file coblocal.h.

Referenced by cb_config_entry(), cob_load_config(), conf_runtime_error_value(), and print_runtime_env().

#define STS_ENVCLR   (1 << 17) /* value removed from Env Var */

Definition at line 302 of file coblocal.h.

Referenced by cb_config_entry(), cob_load_config(), and print_runtime_env().

#define STS_ENVSET   (1 << 15) /* value set via Env Var */

Definition at line 300 of file coblocal.h.

Referenced by cb_config_entry(), cob_load_config(), cob_rescan_env_vals(), and print_runtime_env().

#define STS_FNCSET   (1 << 19) /* value set via function call */

Definition at line 304 of file coblocal.h.

Referenced by print_runtime_env(), and set_config_val_by_name().

#define STS_RESET   (1 << 18) /* value was reset back to default */

Definition at line 303 of file coblocal.h.

Referenced by cb_config_entry(), and print_runtime_env().

#define W_OK   2

Definition at line 69 of file coblocal.h.

#define X_OK   1

Definition at line 65 of file coblocal.h.

Typedef Documentation

typedef struct __cob_settings cob_settings

Function Documentation

int cob_check_env_false

(

char *

)

Definition at line 1086 of file common.c.

{
    if (s) {
        if (strlen(s) == 1 && (*s == 'N' || *s == 'n' || *s == '0')) return 1;
        if (strcasecmp(s, "NO") == 0 || strcasecmp(s, "NONE") == 0 ||
            strcasecmp(s, "OFF") == 0 || strcasecmp(s, "FALSE") == 0) {
            return 1;
        }
    }
    return 0;
}

int cob_check_env_true

(

char *

)

Definition at line 1073 of file common.c.

{
    if (s) {
        if (strlen(s) == 1 && (*s == 'Y' || *s == 'y' || *s == '1')) return 1;
        if (strcasecmp(s, "YES") == 0 || strcasecmp(s, "ON") == 0 ||
            strcasecmp(s, "TRUE") == 0) {
            return 1;
        }
    }
    return 0;
}

int cob_ctoi

(

const char

)

Definition at line 2651 of file common.c.

Referenced by cob_get_current_date_and_time(), seconds_from_formatted_time(), test_century(), test_day_of_year(), test_decade(), test_hour(), test_millenium(), test_month(), test_unit_year(), and test_week().

{
    return (int) (digit - '0');
}

Here is the caller graph for this function:

void cob_decimal_move_temp	(	cob_field *	,
		cob_field *
	)

Definition at line 3104 of file intrinsic.c.

References COB_ATTR_INIT, cob_decimal_get_field(), cob_decimal_set_field(), COB_FIELD_INIT, COB_FLAG_HAVE_SIGN, cob_move(), cob_trim_decimal(), COB_TYPE_NUMERIC_DISPLAY, make_field_entry(), NULL, cob_decimal::scale, and cob_decimal::value.

Referenced by cob_move().

{
    short       size, scale;
    cob_field_attr  attr;
    cob_field   field;

    cob_decimal_set_field (&d1, src);
    cob_trim_decimal (&d1);

    size = (short)mpz_sizeinbase (d1.value, 10);
    if (d1.scale > size) {
        size = (short)d1.scale;
    }
    scale = (short)d1.scale;
    COB_ATTR_INIT (COB_TYPE_NUMERIC_DISPLAY, size,
               scale, COB_FLAG_HAVE_SIGN, NULL);
    COB_FIELD_INIT (size, NULL, &attr);
    make_field_entry (&field);
    (void)cob_decimal_get_field (&d1, curr_field, 0);
    cob_move (curr_field, dst);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_decimal_setget_fld	(	cob_field *	,
		cob_field *	,
		const int
	)

Definition at line 2007 of file numeric.c.

References cob_decimal_get_field(), and cob_decimal_set_field().

Referenced by cob_move().

{
    cob_decimal_set_field (&cob_d1, src);
    (void)cob_decimal_get_field (&cob_d1, dst, opt);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_exit_call

(

void

)

Definition at line 1204 of file call.c.

References call_table, cob_free(), struct_handle::handle, HASH_SIZE, call_hash::name, call_hash::next, struct_handle::next, NULL, call_hash::path, and struct_handle::path.

Referenced by cob_terminate_routines().

{
    struct call_hash    *p;
    struct call_hash    *q;
    struct struct_handle    *h;
    struct struct_handle    *j;

#ifndef COB_ALT_HASH
    size_t          i;
#endif

    if (call_filename_buff) {
        cob_free (call_filename_buff);
        call_filename_buff = NULL;
    }
    if (call_entry_buff) {
        cob_free (call_entry_buff);
        call_entry_buff = NULL;
    }
    if (call_entry2_buff) {
        cob_free (call_entry2_buff);
        call_entry2_buff = NULL;
    }
    if (call_buffer) {
        cob_free (call_buffer);
        call_buffer = NULL;
    }
    if (resolve_error_buff) {
        cob_free (resolve_error_buff);
        resolve_error_buff = NULL;
    }
    if (resolve_alloc) {
        cob_free (resolve_alloc);
        resolve_alloc = NULL;
    }
    if (resolve_path) {
        cob_free (resolve_path);
        resolve_path = NULL;
    }

#ifndef COB_ALT_HASH
    if (call_table) {
        for (i = 0; i < HASH_SIZE; ++i) {
            p = call_table[i];
#else
            p = call_table;
#endif
            for (; p;) {
                q = p;
                p = p->next;
                if (q->name) {
                    cob_free ((void *)q->name);
                }
                if (q->path) {
                    cob_free ((void *)q->path);
                }
                cob_free (q);
            }
#ifndef COB_ALT_HASH
        }
        if (call_table) {
            cob_free (call_table);
        }
        call_table = NULL;
    }
#endif

    for (h = base_preload_ptr; h;) {
        j = h;
        if (h->path) {
            cob_free ((void *)h->path);
        }
        if (h->handle) {
            lt_dlclose (h->handle);
        }
        h = h->next;
        cob_free (j);
    }
    base_preload_ptr = NULL;
    for (h = base_dynload_ptr; h;) {
        j = h;
        if (h->path) {
            cob_free ((void *)h->path);
        }
        if (h->handle) {
            lt_dlclose (h->handle);
        }
        h = h->next;
        cob_free (j);
    }
    base_dynload_ptr = NULL;

#if !defined(_WIN32) && !defined(USE_LIBDL)
    lt_dlexit ();
#if 0   /* RXWRXW - ltdl leak */
    /* Weird - ltdl leaks mainhandle - This appears to work but .. */
    cob_free (mainhandle);
#endif
#endif

}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_exit_fileio

(

void

)

Definition at line 6282 of file fileio.c.

References _, cob_file::assign, cob_close(), COB_CLOSE_NORMAL, __cob_settings::cob_display_warn, cob_field_to_string(), COB_FILE_MAX, COB_FILE_SPECIAL, cob_free(), COB_OPEN_CLOSED, COB_OPEN_LOCKED, file_list::file, cob_file::flag_nonexistent, iscleanup(), file_list::next, NULL, cob_file::open_mode, runtime_buffer, and cob_file::select_name.

Referenced by cob_terminate_routines().

{
    struct file_list    *l;
    struct file_list    *p;

    for (l = file_cache; l; l = l->next) {
        if (l->file && l->file->open_mode != COB_OPEN_CLOSED &&
            l->file->open_mode != COB_OPEN_LOCKED &&
            !l->file->flag_nonexistent) {
            if (COB_FILE_SPECIAL (l->file)) {
                continue;
            }
            cob_close (l->file, NULL, COB_CLOSE_NORMAL, 0);
            if (cobsetptr->cob_display_warn) {
                cob_field_to_string (l->file->assign,
                             runtime_buffer,
                             (size_t)COB_FILE_MAX);
                fprintf (stderr, _("WARNING - Implicit CLOSE of %s ('%s')"),
                    l->file->select_name, runtime_buffer);
                putc ('\n', stderr);
                fflush (stderr);
            }
        }
    }
#ifdef  WITH_DB
    if (bdb_env) {
        bdb_env->lock_id_free (bdb_env, bdb_lock_id);
        bdb_env->close (bdb_env, 0);
        bdb_env = NULL;
    }
    if (record_lock_object) {
        cob_free (record_lock_object);
        record_lock_object = NULL;
    }
    if (bdb_buff) {
        cob_free (bdb_buff);
        bdb_buff = NULL;
    }

#elif   defined(WITH_ANY_ISAM)
#ifndef WITH_DISAM
    (void)iscleanup ();
#endif
#endif

#if defined(WITH_INDEX_EXTFH) || defined(WITH_SEQRA_EXTFH)
    extfh_cob_exit_fileio ();
#endif

    if (runtime_buffer) {
        cob_free (runtime_buffer);
        runtime_buffer = NULL;
    }

    for (l = file_cache; l;) {
        p = l;
        l = l->next;
        cob_free (p);
    }
    file_cache = NULL;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_exit_intrinsic

(

void

)

Definition at line 6521 of file intrinsic.c.

References calc_base, calc_struct::calc_field, COB_DEPTH_LEVEL, cob_free(), cob_log_half, cob_mexp, cob_mpft, cob_mpft2, cob_mpft_get, cob_mpzt, cob_pi, cob_sqrt_two, cob_u32_t, cob_field::data, and cob_decimal::value.

Referenced by cob_terminate_routines().

{
    struct calc_struct  *calc_temp;
    cob_u32_t       i;

    mpf_clear (cob_log_half);
    mpf_clear (cob_sqrt_two);
    mpf_clear (cob_pi);

    mpf_clear (cob_mpft_get);
    mpf_clear (cob_mpft2);
    mpf_clear (cob_mpft);

    mpz_clear (d5.value);
    mpz_clear (d4.value);
    mpz_clear (d3.value);
    mpz_clear (d2.value);
    mpz_clear (d1.value);

    mpz_clear (cob_mpzt);
    mpz_clear (cob_mexp);

    if (calc_base) {
        calc_temp = calc_base;
        for (i = 0; i < COB_DEPTH_LEVEL; ++i, ++calc_temp) {
            if (calc_temp->calc_field.data) {
                cob_free (calc_temp->calc_field.data);
            }
        }
        cob_free (calc_base);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_exit_numeric

(

void

)

Definition at line 2637 of file numeric.c.

References cob_decimal_base, cob_free(), COB_MAX_BINARY, COB_MAX_DEC_STRUCT, cob_mexp, cob_mpft, cob_mpft_get, cob_mpz_ten16m1, cob_mpz_ten34m1, cob_mpze10, cob_mpzt, cob_mpzt2, d1, and cob_decimal::value.

Referenced by cob_terminate_routines().

{
    cob_decimal *d1;
    size_t      i;

    if (cob_decimal_base) {
        d1 = cob_decimal_base;
        for (i = 0; i < COB_MAX_DEC_STRUCT; d1++, i++) {
            mpz_clear (d1->value);
        }
        cob_free (cob_decimal_base);
    }

    mpz_clear (cob_d_remainder.value);

    mpz_clear (cob_d3.value);
    mpz_clear (cob_d2.value);
    mpz_clear (cob_d1.value);

    mpz_clear (cob_mexp);
    mpz_clear (cob_mpzt2);
    mpz_clear (cob_mpzt);

    mpz_clear (cob_mpz_ten34m1);
    mpz_clear (cob_mpz_ten16m1);
    for (i = 0; i < COB_MAX_BINARY; i++) {
        mpz_clear (cob_mpze10[i]);
    }

    mpf_clear (cob_mpft_get);
    mpf_clear (cob_mpft);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_exit_screen

(

void

)

Definition at line 2401 of file screenio.c.

References COB_ACCEPT_STATUS, cob_free(), cob_move_to_beg_of_last_line(), __cob_global::cob_screen_initialized, and NULL.

Referenced by cob_runtime_error(), and cob_terminate_routines().

{
    if (!cobglobptr) {
        return;
    }
    if (cobglobptr->cob_screen_initialized) {
        cobglobptr->cob_screen_initialized = 0;
        clear ();
        cob_move_to_beg_of_last_line ();
        delwin (stdscr);
        endwin ();
#ifdef  HAVE_CURSES_FREEALL
        _nc_freeall ();
#endif
        if (cob_base_inp) {
            cob_free (cob_base_inp);
            cob_base_inp = NULL;
        }
    }
    COB_ACCEPT_STATUS = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_exit_strings

(

void

)

Definition at line 634 of file strings.c.

References cob_free(), figurative_ptr, figurative_size, inspect_mark, and NULL.

Referenced by cob_terminate_routines().

{
    if (inspect_mark) {
        cob_free (inspect_mark);
        inspect_mark = NULL;
    }
    if (dlm_list) {
        cob_free (dlm_list);
        dlm_list = NULL;
    }
    if (figurative_ptr) {
        cob_free (figurative_ptr);
        figurative_ptr = NULL;
    }
    figurative_size = 0;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_field_to_string	(	const cob_field *	,
		void *	,
		const size_t
	)

Definition at line 1492 of file common.c.

References cob_field::data, cob_field::size, and unlikely.

Referenced by cob_call_field(), cob_cancel_field(), cob_delete_file(), cob_display_env_value(), cob_display_environment(), cob_exit_fileio(), cob_fatal_error(), cob_get_environment(), cob_intr_locale_compare(), cob_intr_locale_date(), cob_open(), cob_set_locale(), and cob_sys_getopt_long_long().

{
    unsigned char   *s;
    size_t      count;
    size_t      i;

    count = 0;
    if (unlikely(f->size == 0)) {
        return;
    }
    i = f->size - 1;
    for (; ;) {
        if (f->data[i] && f->data[i] != (unsigned char)' ') {
            count = i + 1;
            break;
        }
        if (!i) {
            break;
        }
        --i;
    }
    if (count > maxsize) {
        count = maxsize;
    }
    s = (unsigned char *)str;
    for (i = 0; i < count; ++i) {
        s[i] = f->data[i];
    }
    s[i] = 0;
}

Here is the caller graph for this function:

struct cob_time cob_get_current_date_and_time

(

void

)

Definition at line 2699 of file common.c.

References cob_ctoi(), cob_time::day_of_month, cob_time::day_of_week, cob_time::hour, cob_time::minute, cob_time::month, cob_time::nanosecond, NULL, cob_time::offset_known, one_indexed_day_of_week_from_monday(), cob_time::second, set_unknown_offset(), cob_time::utc_offset, and cob_time::year.

Referenced by cob_accept_time(), cob_intr_current_date(), format_current_date(), and get_system_offset_time_ptr().

{
#if defined (HAVE_CLOCK_GETTIME)
    struct timespec time_spec;
#elif defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
    struct timeval  tmv;
#endif
    time_t      curtime;
    struct tm   *tmptr;
    struct cob_time cb_time;
#if defined(COB_STRFTIME)
    char        iso_timezone[6] = { '\0' };
#endif

    /* Get the current time */
#if defined (HAVE_CLOCK_GETTIME)
    clock_gettime (CLOCK_REALTIME, &time_spec);
    curtime = time_spec.tv_sec;
#elif defined (HAVE_SYS_TIME_H) && defined (HAVE_GETTIMEOFDAY)
    gettimeofday(&tmv, NULL);
    curtime = tmv.tv_sec;
#else
    curtime = time (NULL);
#endif
    tmptr = localtime (&curtime);
    /* Leap seconds ? */
    if (tmptr->tm_sec >= 60) {
        tmptr->tm_sec = 59;
    }

    cb_time.year = tmptr->tm_year + 1900;
    cb_time.month = tmptr->tm_mon + 1;
    cb_time.day_of_month = tmptr->tm_mday;
    cb_time.day_of_week = one_indexed_day_of_week_from_monday (tmptr->tm_wday);
    cb_time.hour = tmptr->tm_hour;
    cb_time.minute = tmptr->tm_min;
    cb_time.second = tmptr->tm_sec;
    cb_time.nanosecond = 0;
    cb_time.offset_known = 0;
    cb_time.utc_offset = 0;

    /* Get nanoseconds or microseconds, if possible */
#if defined (HAVE_CLOCK_GETTIME)
    cb_time.nanosecond = time_spec.tv_nsec;
#elif defined (HAVE_SYS_TIME_H) && defined (HAVE_GETTIMEOFDAY)
    cb_time.nanosecond = tmv.tv_usec * 1000;
#else
    cb_time.nanosecond = 0;
#endif

    /* Get the offset from UTC */
#if defined (COB_STRFTIME)
    strftime (iso_timezone, (size_t) 6, "%z", tmptr);

    if (iso_timezone[0] == '0') {
        set_unknown_offset (&cb_time);
    } else {
        /* Convert the timezone string into minutes from UTC */
        cb_time.offset_known = 1;
        cb_time.utc_offset =
            cob_ctoi (iso_timezone[1]) * 60 * 10
            + cob_ctoi (iso_timezone[2]) * 60
            + cob_ctoi (iso_timezone[3]) * 10
            + cob_ctoi (iso_timezone[4]);
        if (iso_timezone[0] == '-') {
            cb_time.utc_offset *= -1;
        }
    }
#elif defined (HAVE_TIMEZONE)
    cb_time.offset_known = 1;
    cb_time.utc_offset = timezone / 60;
#else
    set_unknown_offset(&cb_time);
#endif

    return cb_time;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int cob_get_exception_code

(

void

)

Definition at line 1193 of file common.c.

References __cob_global::cob_exception_code.

Referenced by cob_string_append(), and cob_unstring_into().

{
    return cobglobptr->cob_exception_code;
}

Here is the caller graph for this function:

const char* cob_get_exception_name

(

void

)

Definition at line 1199 of file common.c.

References __cob_global::cob_exception_code, cob_exception_tab_code, cob_exception_tab_name, EXCEPTION_TAB_SIZE, and NULL.

Referenced by cob_intr_exception_status().

{
    size_t  n;

    for (n = 0; n < EXCEPTION_TAB_SIZE; ++n) {
        if (cobglobptr->cob_exception_code == cob_exception_tab_code[n]) {
            return cob_exception_tab_name[n];
        }
    }
    return NULL;
}

Here is the caller graph for this function:

cob_settings* cob_get_settings_ptr

(

void

)

Definition at line 5384 of file common.c.

References cobsetptr.

{
    return cobsetptr;
}

void cob_init_call	(	cob_global *	,
		cob_settings *
	)

Definition at line 1307 of file call.c.

References cache_preload(), CALL_BUFF_SIZE, cob_fast_malloc(), cob_free(), COB_LIBRARY_PATH, __cob_settings::cob_library_path, cob_malloc(), COB_MEDIUM_BUFF, COB_MEDIUM_MAX, COB_MODULE_EXT, COB_NORMAL_BUFF, __cob_settings::cob_preload_str, cob_set_library_path(), COB_SMALL_BUFF, cob_strdup(), HASH_SIZE, NULL, PATHSEP_CHAR, PATHSEP_STR, resolve_size, and SLASH_CHAR.

Referenced by cob_init().

{
    char                *buff;
    char                *s;
    char                *p;
    size_t              i;
#ifndef HAVE_DESIGNATED_INITS
    const unsigned char     *pv;
#endif
#ifdef  __OS400__
    char                *t;
#endif

    cobglobptr = lptr;
    cobsetptr = sptr;

    base_preload_ptr = NULL;
    base_dynload_ptr = NULL;
    resolve_path = NULL;
    resolve_alloc = NULL;
    resolve_error = NULL;
    resolve_error_buff = NULL;
    mainhandle = NULL;
    call_buffer = NULL;
    call_filename_buff = NULL;
    call_entry_buff = NULL;
    call_entry2_buff = NULL;
    call_table = NULL;
    call_lastsize = 0;
    resolve_size = 0;
    cob_jmp_primed = 0;

#ifndef HAVE_DESIGNATED_INITS
    memset (valid_char, 0, sizeof(valid_char));
    for (pv = pvalid_char; *pv; ++pv) {
        valid_char[*pv] = 1;
    }
#endif

    /* Big enough for anything from libdl/libltdl */
    resolve_error_buff = cob_malloc ((size_t)CALL_BUFF_SIZE);

#ifndef COB_ALT_HASH
    call_table = cob_malloc (sizeof (struct call_hash *) * HASH_SIZE);
#endif

    call_filename_buff = cob_malloc ((size_t)COB_NORMAL_BUFF);
    call_entry_buff = cob_malloc ((size_t)COB_SMALL_BUFF);

    buff = cob_fast_malloc ((size_t)COB_MEDIUM_BUFF);
    if (cobsetptr->cob_library_path == NULL
     || strcmp(cobsetptr->cob_library_path, ".") == 0) {
        if (strcmp(COB_LIBRARY_PATH, ".") == 0) {
            snprintf (buff, (size_t)COB_MEDIUM_MAX, ".");
        } else {
            snprintf (buff, (size_t)COB_MEDIUM_MAX, ".%c%s",
                  PATHSEP_CHAR, COB_LIBRARY_PATH);
        }
    } else {
        if (strcmp(COB_LIBRARY_PATH, ".") == 0) {
            snprintf (buff, (size_t)COB_MEDIUM_MAX, "%s%c.",
                  cobsetptr->cob_library_path, PATHSEP_CHAR);
        } else {
            snprintf (buff, (size_t)COB_MEDIUM_MAX, "%s%c.%c%s",
                  cobsetptr->cob_library_path, PATHSEP_CHAR, PATHSEP_CHAR, COB_LIBRARY_PATH);
        }
    }
    cob_set_library_path (buff);

    lt_dlinit ();

#ifndef COB_BORKED_DLOPEN
    mainhandle = lt_dlopen (NULL);
#endif

    if (cobsetptr->cob_preload_str != NULL) {

        p = cob_strdup (cobsetptr->cob_preload_str);
        s = strtok (p, PATHSEP_STR);
        for (; s; s = strtok (NULL, PATHSEP_STR)) {
#ifdef __OS400__
            for (t = s; *t; ++t) {
                *t = toupper (*t);
            }
            cache_preload (t);
#else
            for (i = 0; i < resolve_size; ++i) {
                buff[COB_MEDIUM_MAX] = 0;
                snprintf (buff, (size_t)COB_MEDIUM_MAX,
                      "%s%c%s.%s",
                      resolve_path[i], SLASH_CHAR, s, COB_MODULE_EXT);
                if (cache_preload (buff)) {
                    break;
                }
            }
            /* If not found, try just using the name */
            if (i == resolve_size) {
                (void)cache_preload (s);
            }
#endif
        }
        cob_free (p);
    }
    cob_free (buff);
    call_buffer = cob_fast_malloc ((size_t)CALL_BUFF_SIZE);
    call_lastsize = CALL_BUFF_SIZE;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_init_fileio	(	cob_global *	,
		cob_settings *
	)

Definition at line 6345 of file fileio.c.

References check_eop_status, cob_fast_malloc(), COB_FILE_BUFF, cob_file_write_opt(), cob_malloc(), COB_SMALL_BUFF, __cob_settings::cob_sort_chunk, __cob_settings::cob_sort_memory, __cob_settings::cob_varseq_type, cob_vsq_len, eop_status, file_open_buff, file_open_env, file_open_name, NULL, and runtime_buffer.

Referenced by cob_init().

{

    cobglobptr = lptr;
    cobsetptr  = sptr;
    file_cache = NULL;
    eop_status = 0;
    check_eop_status = 0;
    if (cobsetptr->cob_sort_chunk > (cobsetptr->cob_sort_memory / 2)) {
        cobsetptr->cob_sort_chunk = cobsetptr->cob_sort_memory / 2;
    }

    if(cobsetptr->cob_varseq_type == 3)
        cob_vsq_len = 2;
    else
        cob_vsq_len = 4;

    runtime_buffer = cob_fast_malloc ((size_t)(4 * COB_FILE_BUFF));
    file_open_env = runtime_buffer + COB_FILE_BUFF;
    file_open_name = runtime_buffer + (2 * COB_FILE_BUFF);
    file_open_buff = runtime_buffer + (3 * COB_FILE_BUFF);

#ifdef  WITH_DB
    bdb_env = NULL;
    bdb_data_dir = NULL;
    join_environment ();
    record_lock_object = cob_malloc ((size_t)1024);
    bdb_buff = cob_malloc ((size_t)COB_SMALL_BUFF);
    rlo_size = 1024;
#endif

#if defined(WITH_INDEX_EXTFH) || defined(WITH_SEQRA_EXTFH)
    extfh_cob_init_fileio (&sequential_funcs, &lineseq_funcs,
                   &relative_funcs, &cob_file_write_opt);
#endif
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_init_intrinsic

(

cob_global *

)

Definition at line 6555 of file intrinsic.c.

References calc_base, calc_struct::calc_field, calc_struct::calc_size, COB_DEPTH_LEVEL, cob_log_half, COB_LOG_HALF_LEN, cob_log_half_str, cob_malloc(), cob_mexp, COB_MPF_PREC, cob_mpft, cob_mpft2, cob_mpft_get, COB_MPZ_DEF, cob_mpzt, cob_pi, COB_PI_LEN, cob_pi_str, cob_sqrt_two, COB_SQRT_TWO_LEN, cob_sqrt_two_str, cob_u32_t, curr_entry, cob_field::data, NULL, cob_decimal::scale, cob_field::size, and cob_decimal::value.

Referenced by cob_init().

{
    struct calc_struct  *calc_temp;
    cob_u32_t       i;

    cobglobptr = lptr;

    move_field = NULL;
    curr_entry = 0;
    curr_field = NULL;
    calc_base = cob_malloc (COB_DEPTH_LEVEL * sizeof(struct calc_struct));
    calc_temp = calc_base;
    for (i = 0; i < COB_DEPTH_LEVEL; ++i, ++calc_temp) {
        calc_temp->calc_field.data = cob_malloc ((size_t)256);
        calc_temp->calc_field.size = 256;
        calc_temp->calc_size = 256;
    }

    mpz_init2 (cob_mexp, COB_MPZ_DEF);
    mpz_init2 (cob_mpzt, COB_MPZ_DEF);
    mpz_init2 (d1.value, 1536UL);
    d1.scale = 0;
    mpz_init2 (d2.value, 1536UL);
    d2.scale = 0;
    mpz_init2 (d3.value, 1536UL);
    d3.scale = 0;
    mpz_init2 (d4.value, 1536UL);
    d4.scale = 0;
    mpz_init2 (d5.value, 1536UL);
    d5.scale = 0;

    mpf_init2 (cob_mpft, COB_MPF_PREC);
    mpf_init2 (cob_mpft2, COB_MPF_PREC);
    mpf_init2 (cob_mpft_get, COB_MPF_PREC);

    mpf_init2 (cob_pi, COB_PI_LEN);
    mpf_set_str (cob_pi, cob_pi_str, 10);

    mpf_init2 (cob_sqrt_two, COB_SQRT_TWO_LEN);
    mpf_set_str (cob_sqrt_two, cob_sqrt_two_str, 10);

    mpf_init2 (cob_log_half, COB_LOG_HALF_LEN);
    mpf_set_str (cob_log_half, cob_log_half_str, 10);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_init_move	(	cob_global *	,
		cob_settings *
	)

Definition at line 1683 of file move.c.

Referenced by cob_init().

{
    cobglobptr = lptr;
    cobsetptr  = sptr;
}

Here is the caller graph for this function:

void cob_init_numeric

(

cob_global *

)

Definition at line 2671 of file numeric.c.

References cob_decimal_base, cob_decimal_init(), cob_malloc(), COB_MAX_BINARY, COB_MAX_DEC_STRUCT, cob_mexp, COB_MPF_PREC, cob_mpft, cob_mpft_get, COB_MPZ_DEF, cob_mpz_ten16m1, cob_mpz_ten34m1, cob_mpze10, cob_mpzt, cob_mpzt2, cob_u32_t, cob_uli_t, d1, last_packed_val, and packed_value.

Referenced by cob_init().

{
    cob_decimal *d1;
    cob_u32_t   i;

    cobglobptr = lptr;

    memset (packed_value, 0, sizeof(packed_value));
    last_packed_val = 0;

    mpf_init2 (cob_mpft, COB_MPF_PREC);
    mpf_init2 (cob_mpft_get, COB_MPF_PREC);

    for (i = 0; i < COB_MAX_BINARY; i++) {
        mpz_init2 (cob_mpze10[i], 128UL);
        mpz_ui_pow_ui (cob_mpze10[i], 10UL, (cob_uli_t)i);
    }
    mpz_init_set (cob_mpz_ten16m1, cob_mpze10[16]);
    mpz_sub_ui (cob_mpz_ten16m1, cob_mpz_ten16m1, 1UL);
    mpz_init_set (cob_mpz_ten34m1, cob_mpze10[34]);
    mpz_sub_ui (cob_mpz_ten34m1, cob_mpz_ten34m1, 1UL);

    mpz_init2 (cob_mpzt, COB_MPZ_DEF);
    mpz_init2 (cob_mpzt2, COB_MPZ_DEF);
    mpz_init2 (cob_mexp, COB_MPZ_DEF);

    cob_decimal_init (&cob_d1);
    cob_decimal_init (&cob_d2);
    cob_decimal_init (&cob_d3);
    cob_decimal_init (&cob_d_remainder);

    cob_decimal_base = cob_malloc (COB_MAX_DEC_STRUCT * sizeof(cob_decimal));
    d1 = cob_decimal_base;
    for (i = 0; i < COB_MAX_DEC_STRUCT; d1++, i++) {
        cob_decimal_init (d1);
    }
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_init_screenio	(	cob_global *	,
		cob_settings *
	)

Definition at line 2567 of file screenio.c.

Referenced by cob_init().

{
    cobglobptr = lptr;
    cobsetptr  = sptr;
}

Here is the caller graph for this function:

void cob_init_strings

(

void

)

Definition at line 652 of file strings.c.

References cob_field::attr, cob_malloc(), COB_NORMAL_BUFF, cob_u8_ptr, const_alpha_attr, const_strall_attr, cob_field::data, DLM_DEFAULT_NUM, dlm_list_size, figurative_ptr, figurative_size, inspect_mark, inspect_mark_size, NULL, and cob_field::size.

Referenced by cob_init().

{
    inspect_mark = cob_malloc ((size_t)COB_NORMAL_BUFF);
    dlm_list = cob_malloc (DLM_DEFAULT_NUM * sizeof(struct dlm_struct));
    inspect_mark_size = COB_NORMAL_BUFF;
    dlm_list_size = DLM_DEFAULT_NUM;
    figurative_ptr = NULL;
    figurative_size = 0;
    alpha_fld.size = 0;
    alpha_fld.data = NULL;
    alpha_fld.attr = &const_alpha_attr;
    str_cob_low.size = 1;
    str_cob_low.data = (cob_u8_ptr)"\0";
    str_cob_low.attr = &const_strall_attr;
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_init_termio	(	cob_global *	,
		cob_settings *
	)

Definition at line 343 of file termio.c.

Referenced by cob_init().

{
    cobglobptr = lptr;
    cobsetptr  = sptr;
}

Here is the caller graph for this function:

void cob_parameter_check	(	const char *	,
		const int
	)

Definition at line 1907 of file common.c.

References _, __cob_global::cob_call_params, cob_runtime_error(), and cob_stop_run().

{
    if (cobglobptr->cob_call_params < numparms) {
        cob_runtime_error (_("CALL to %s requires %d parameters"),
                   funcname, numparms);
        cob_stop_run (1);
    }
}

Here is the call graph for this function:

void cob_print_ieeedec	(	const cob_field *	,
		FILE *
	)

Definition at line 1647 of file numeric.c.

References cob_decimal_print(), cob_decimal_set_double(), cob_decimal_set_ieee128dec(), cob_decimal_set_ieee64dec(), COB_FIELD_TYPE, COB_TYPE_NUMERIC_DOUBLE, COB_TYPE_NUMERIC_FLOAT, COB_TYPE_NUMERIC_FP_DEC128, COB_TYPE_NUMERIC_FP_DEC64, and cob_field::data.

Referenced by display_common().

{
    union {
        double  dval;
        float   fval;
    } uval;

    switch (COB_FIELD_TYPE (f)) {
    case COB_TYPE_NUMERIC_FP_DEC64:
        cob_decimal_set_ieee64dec (&cob_d3, f);
        break;
    case COB_TYPE_NUMERIC_FP_DEC128:
        cob_decimal_set_ieee128dec (&cob_d3, f);
        break;
    case COB_TYPE_NUMERIC_FLOAT:
        memcpy ((void *)&uval.fval, f->data, sizeof(float));
        cob_decimal_set_double (&cob_d3, (double)uval.fval);
        break;
    case COB_TYPE_NUMERIC_DOUBLE:
        memcpy ((void *)&uval.dval, f->data, sizeof(double));
        cob_decimal_set_double (&cob_d3, uval.dval);
        break;
    default:
        return;
    }
    cob_decimal_print (&cob_d3, fp);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void cob_print_realbin	(	const cob_field *	,
		FILE *	,
		const int
	)

Definition at line 1676 of file numeric.c.

References CB_FMT_PLLD, CB_FMT_PLLU, cob_binary_get_sint64(), cob_binary_get_uint64(), COB_FIELD_HAVE_SIGN, cob_s64_t, and cob_u64_t.

Referenced by display_common().

{
    union {
        cob_u64_t   uval;
        cob_s64_t   val;
    } llval;

    if (COB_FIELD_HAVE_SIGN (f)) {
        llval.val = cob_binary_get_sint64 (f);
        fprintf (fp, CB_FMT_PLLD, size, size, llval.val);
        return;
    }
    llval.uval = cob_binary_get_uint64 (f);
    fprintf (fp, CB_FMT_PLLU, size, size, llval.uval);
}

Here is the call graph for this function:

Here is the caller graph for this function:

int cob_real_get_sign

(

cob_field *

)

Definition at line 2205 of file common.c.

References COB_FIELD_NO_SIGN_NIBBLE, COB_FIELD_SIGN_LEADING, COB_FIELD_SIGN_SEPARATE, COB_FIELD_TYPE, cob_get_sign_ascii(), cob_get_sign_ebcdic(), COB_MODULE_PTR, COB_TYPE_NUMERIC_DISPLAY, COB_TYPE_NUMERIC_PACKED, cob_field::data, cob_field::size, and unlikely.

{
    unsigned char   *p;

    switch (COB_FIELD_TYPE (f)) {
    case COB_TYPE_NUMERIC_DISPLAY:
        /* Locate sign */
        if (unlikely(COB_FIELD_SIGN_LEADING (f))) {
            p = f->data;
        } else {
            p = f->data + f->size - 1;
        }

        /* Get sign */
        if (unlikely(COB_FIELD_SIGN_SEPARATE (f))) {
            return (*p == '-') ? -1 : 1;
        }
        if (*p >= (unsigned char)'0' && *p <= (unsigned char)'9') {
            return 1;
        }
        if (*p == ' ') {
#if 0   /* RXWRXW - Space sign */
            *p = (unsigned char)'0';
#endif
            return 1;
        }
        if (unlikely(COB_MODULE_PTR->ebcdic_sign)) {
            return cob_get_sign_ebcdic (p);
        }
        return cob_get_sign_ascii (p);
    case COB_TYPE_NUMERIC_PACKED:
        if (COB_FIELD_NO_SIGN_NIBBLE (f)) {
            return 1;
        }
        p = f->data + f->size - 1;
        return ((*p & 0x0F) == 0x0D) ? -1 : 1;
    }
    return 0;
}

Here is the call graph for this function:

void cob_real_put_sign	(	cob_field *	,
		const int
	)

Definition at line 2246 of file common.c.

References COB_FIELD_NO_SIGN_NIBBLE, COB_FIELD_SIGN_LEADING, COB_FIELD_SIGN_SEPARATE, COB_FIELD_TYPE, COB_MODULE_PTR, cob_put_sign_ascii(), cob_put_sign_ebcdic(), COB_TYPE_NUMERIC_DISPLAY, COB_TYPE_NUMERIC_PACKED, cob_u8_t, cob_field::data, cob_field::size, and unlikely.

{
    unsigned char   *p;
    unsigned char   c;

    switch (COB_FIELD_TYPE (f)) {
    case COB_TYPE_NUMERIC_DISPLAY:
        /* Locate sign */
        if (unlikely(COB_FIELD_SIGN_LEADING (f))) {
            p = f->data;
        } else {
            p = f->data + f->size - 1;
        }

        /* Put sign */
        if (unlikely(COB_FIELD_SIGN_SEPARATE (f))) {
            c = (sign < 0) ? (cob_u8_t)'-' : (cob_u8_t)'+';
            if (*p != c) {
                *p = c;
            }
        } else if (unlikely(COB_MODULE_PTR->ebcdic_sign)) {
            cob_put_sign_ebcdic (p, sign);
        } else if (sign < 0) {
            cob_put_sign_ascii (p);
        }
        return;
    case COB_TYPE_NUMERIC_PACKED:
        if (COB_FIELD_NO_SIGN_NIBBLE (f)) {
            return;
        }
        p = f->data + f->size - 1;
        if (sign < 0) {
            *p = (*p & 0xF0) | 0x0D;
        } else {
            *p = (*p & 0xF0) | 0x0C;
        }
        return;
    }
}

Here is the call graph for this function:

void cob_runtime_error	(	const char *	,
			...
	)

Definition at line 1543 of file common.c.

References _, cob_exit_screen(), cob_free(), cob_source_file, cob_source_line, hdlrs, handlerlist::next, NULL, handlerlist::proc, and runtime_err_str.

Referenced by cob_call(), cob_call_error(), cob_cancel(), cob_check_based(), cob_check_linkage(), cob_check_numeric(), cob_check_odo(), cob_check_ref_mod(), cob_check_subscript(), cob_check_version(), cob_command_line(), cob_external_addr(), cob_fatal_error(), cob_get_sort_tempfile(), cob_longjmp(), cob_parameter_check(), cob_resolve_func(), cob_savenv(), cob_screen_init(), cob_sys_check_file_exist(), cob_sys_file_info(), cob_sys_getopt_long_long(), and cob_sys_system().

{
    struct handlerlist  *h;
    struct handlerlist  *hp;
    char            *p;
    va_list         ap;

#if 1   /* RXWRXW - Exit screen */
    /* Exit screen mode early */
    cob_exit_screen ();
#endif

    if (hdlrs != NULL) {
        if (runtime_err_str) {
            p = runtime_err_str;
            if (cob_source_file) {
                sprintf (runtime_err_str, "%s: %u: ",
                     cob_source_file, cob_source_line);
                p = runtime_err_str + strlen (runtime_err_str);
            }
            va_start (ap, fmt);
            vsprintf (p, fmt, ap);
            va_end (ap);
        }
        h = hdlrs;
        while (h != NULL) {
            if (runtime_err_str) {
                h->proc (runtime_err_str);
            } else {
                h->proc ((char *)_("Malloc error"));
            }
            hp = h;
            h = h->next;
            cob_free (hp);
        }
        hdlrs = NULL;
    }

    /* Prefix */
    if (cob_source_file) {
        fprintf (stderr, "%s: ", cob_source_file);
        if (cob_source_line) {
            fprintf (stderr, "%u: ", cob_source_line);
        }
    }
    fputs ("libcob: ", stderr);

    /* Body */
    va_start (ap, fmt);
    vfprintf (stderr, fmt, ap);
    va_end (ap);

    /* Postfix */
    putc ('\n', stderr);
    fflush (stderr);
}

Here is the call graph for this function:

Here is the caller graph for this function:

char* cob_save_env_value	(	char *	,
		char *
	)

Definition at line 4319 of file common.c.

References cob_fast_malloc(), cob_free(), and NULL.

{
    if (!env_val) return NULL;

    if (env_var) cob_free(env_var);
    env_var = (char*) cob_fast_malloc(strlen(env_val) + 1);
    strcpy(env_var, env_val);

    return env_var;
}

Here is the call graph for this function:

void cob_screen_set_mode

(

const cob_u32_t

)

Definition at line 2388 of file screenio.c.

Referenced by cob_sys_system().

{
    if (!smode) {
        refresh ();
        def_prog_mode ();
        endwin ();
    } else {
        reset_prog_mode ();
        refresh ();
    }
}

Here is the caller graph for this function:

char* cob_strdup

(

const char *

)

Definition at line 1308 of file common.c.

References cob_malloc().

Referenced by cache_dynload(), cache_preload(), cob_chk_call_path(), cob_chk_file_env(), cob_chk_file_mapping(), cob_expand_env_string(), cob_getenv(), cob_gettmpdir(), cob_init(), cob_init_call(), cob_putenv(), cob_set_locale(), cob_set_location(), cob_strcat(), cob_trace_section(), indexed_open(), insert(), and var_print().

{
    char    *mptr;
    size_t  len;

    len = strlen (p);
    mptr = (char *) cob_malloc (len + 1U);
    memcpy (mptr, p, len);
    return mptr;
}

Here is the call graph for this function:

Here is the caller graph for this function: