load.e

来自「firebird源代码」· E 代码 · 共 610 行 · 第 1/2 页

ITEM (gds__info_max_receive , INFO, REQUEST)
ITEM (gds__info_state , INFO, REQUEST)
ITEM (gds__info_message_number, INFO, REQUEST)
ITEM (gds__info_message_size , INFO, REQUEST)
ITEM (gds__info_request_cost , INFO, REQUEST)

ITEM (gds__info_req_active , INFO, REQUEST)
ITEM (gds__info_req_inactive , INFO, REQUEST)
ITEM (gds__info_req_send , INFO, REQUEST)
ITEM (gds__info_req_receive , INFO, REQUEST)
ITEM (gds__info_req_select , INFO, REQUEST)

/* Blob information items */

ITEM (gds__info_blob_num_segments, INFO, BLOB)
ITEM (gds__info_blob_max_segment, INFO, BLOB)
ITEM (gds__info_blob_total_length, INFO, BLOB)
ITEM (gds__info_blob_type , INFO, BLOB)

/* Transaction information items */

ITEM (gds__info_tra_id , INFO, TRANSACTION)


ITEM (gds_facility, ERROR, MECH)
ITEM (gds_err_base, ERROR, MECH)
ITEM (gds_err_factor, ERROR, MECH)
ITEM (gds_arg_end, ERROR, MECH)
ITEM (gds_arg_gds, ERROR, MECH)
ITEM (gds_arg_string, ERROR, MECH)
ITEM (gds_arg_cstring, ERROR, MECH)
ITEM (gds_arg_number, ERROR, MECH)
ITEM (gds_arg_interpreted, ERROR, MECH)
ITEM (gds_arg_vms, ERROR, MECH)
ITEM (gds_arg_unix, ERROR, MECH)
ITEM (gds_arg_domain, ERROR, MECH)
ITEM (gds_arg_dos, ERROR, MECH)
ITEM (gds_arg_mpexl, ERROR, MECH)

/* Dynamic Data Definition Language operators */

/* Version number */

ITEM (gds__dyn_version_1 , DYN, MECH)
ITEM (gds__dyn_eoc , DYN, MECH)

/* Operations (may be nested, DYN, yyy) */

ITEM (gds__dyn_begin , DYN, OPERATIONS)
ITEM (gds__dyn_end , DYN, OPERATIONS)
ITEM (gds__dyn_if , DYN, OPERATIONS)

ITEM (gds__dyn_def_database , DYN, OPERATIONS)
ITEM (gds__dyn_def_global_fld , DYN, OPERATIONS)
ITEM (gds__dyn_def_local_fld , DYN, OPERATIONS)
ITEM (gds__dyn_def_idx , DYN, OPERATIONS)
ITEM (gds__dyn_def_rel , DYN, OPERATIONS)
ITEM (gds__dyn_def_sql_fld , DYN, OPERATIONS)
ITEM (gds__dyn_def_view , DYN, OPERATIONS)
ITEM (gds__dyn_def_trigger , DYN, OPERATIONS)
ITEM (gds__dyn_def_security_class, DYN, OPERATIONS)
ITEM (gds__dyn_def_dimension, DYN, OPERATIONS)

ITEM (gds__dyn_mod_rel , DYN, OPERATIONS)
ITEM (gds__dyn_mod_global_fld , DYN, OPERATIONS)
ITEM (gds__dyn_mod_idx , DYN, OPERATIONS)
ITEM (gds__dyn_mod_local_fld , DYN, OPERATIONS)
ITEM (gds__dyn_mod_view , DYN, OPERATIONS)
ITEM (gds__dyn_mod_security_class, DYN, OPERATIONS)
ITEM (gds__dyn_mod_trigger , DYN, OPERATIONS)

ITEM (gds__dyn_delete_database, DYN, OPERATIONS)
ITEM (gds__dyn_delete_rel , DYN, OPERATIONS)
ITEM (gds__dyn_delete_global_fld, DYN, OPERATIONS)
ITEM (gds__dyn_delete_local_fld, DYN, OPERATIONS)
ITEM (gds__dyn_delete_idx , DYN, OPERATIONS)
ITEM (gds__dyn_delete_security_class, DYN, OPERATIONS)
ITEM (gds__dyn_delete_dimensions, DYN, OPERATIONS)

ITEM (gds__dyn_grant , DYN, OPERATIONS)
ITEM (gds__dyn_revoke , DYN, OPERATIONS)

/* View specific stuff */

ITEM (gds__dyn_view_blr , DYN, VIEW)
ITEM (gds__dyn_view_source , DYN, VIEW)
ITEM (gds__dyn_view_relation , DYN, VIEW)
ITEM (gds__dyn_view_context , DYN, VIEW)
ITEM (gds__dyn_view_context_name, DYN, VIEW)

/* Generic attributes */

ITEM (gds__dyn_rel_name , DYN, GENERIC)
ITEM (gds__dyn_fld_name , DYN, GENERIC)
ITEM (gds__dyn_idx_name , DYN, GENERIC)
ITEM (gds__dyn_description , DYN, GENERIC)
ITEM (gds__dyn_security_class , DYN, GENERIC)
ITEM (gds__dyn_system_flag , DYN, GENERIC)
ITEM (gds__dyn_update_flag , DYN, GENERIC)

/* Relation specific attributes */

ITEM (gds__dyn_rel_dbkey_length, DYN, RELATION)
ITEM (gds__dyn_rel_store_trig , DYN, RELATION)
ITEM (gds__dyn_rel_modify_trig, DYN, RELATION)
ITEM (gds__dyn_rel_erase_trig , DYN, RELATION)
ITEM (gds__dyn_rel_store_trig_source, DYN, RELATION)
ITEM (gds__dyn_rel_modify_trig_source, DYN, RELATION)
ITEM (gds__dyn_rel_erase_trig_source, DYN, RELATION)
ITEM (gds__dyn_rel_ext_file , DYN, RELATION)
ITEM (gds__dyn_rel_sql_protection, DYN, RELATION)

/* Global field specific attributes */

ITEM (gds__dyn_fld_type , DYN, GLOBAL)
ITEM (gds__dyn_fld_length , DYN, GLOBAL)
ITEM (gds__dyn_fld_scale , DYN, GLOBAL)
ITEM (gds__dyn_fld_sub_type , DYN, GLOBAL)
ITEM (gds__dyn_fld_segment_length, DYN, GLOBAL)
ITEM (gds__dyn_fld_query_header, DYN, GLOBAL)
ITEM (gds__dyn_fld_edit_string, DYN, GLOBAL)
ITEM (gds__dyn_fld_validation_blr, DYN, GLOBAL)
ITEM (gds__dyn_fld_validation_source, DYN, GLOBAL)
ITEM (gds__dyn_fld_computed_blr, DYN, GLOBAL)
ITEM (gds__dyn_fld_computed_source, DYN, GLOBAL)
ITEM (gds__dyn_fld_missing_value, DYN, GLOBAL)
ITEM (gds__dyn_fld_default_value, DYN, GLOBAL)
ITEM (gds__dyn_fld_query_name , DYN, GLOBAL)
ITEM (gds__dyn_fld_dimensions , DYN, GLOBAL)

/* Local field specific attributes */

ITEM (gds__dyn_fld_source , DYN, FIELD)
ITEM (gds__dyn_fld_base_fld , DYN, FIELD)
ITEM (gds__dyn_fld_position , DYN, FIELD)
ITEM (gds__dyn_fld_update_flag, DYN, FIELD)

/* Index specific attributes */

ITEM (gds__dyn_idx_unique , DYN, INDEX)
ITEM (gds__dyn_idx_inactive , DYN, INDEX)
ITEM (gds__dyn_idx_type , DYN, INDEX)

/* Trigger specific attributes */

ITEM (gds__dyn_trg_type , DYN, TRIGGER)
ITEM (gds__dyn_trg_blr , DYN, TRIGGER)
ITEM (gds__dyn_trg_source , DYN, TRIGGER)

/* Security Class specific attributes */

ITEM (gds__dyn_scl_acl , DYN, SECURITY)

/* Grant/Revoke specific attributes */

ITEM (gds__dyn_grant_user , DYN, SECURITY)
ITEM (gds__dyn_grant_options , DYN, SECURITY)

ITEM (gds__dyn_dim_lower, DYN, ARRAY)
ITEM (gds__dyn_dim_upper, DYN, ARRAY)

/* Array slice description language (SDL, xxx, yyy) */

ITEM (gds__sdl_version1       , SDL, SDL)
ITEM (gds__sdl_eoc         , SDL, SDL)
ITEM (gds__sdl_relation       , SDL, SDL)
ITEM (gds__sdl_rid         , SDL, SDL)
ITEM (gds__sdl_field        , SDL, SDL)
ITEM (gds__sdl_fid         , SDL, SDL)
ITEM (gds__sdl_struct        , SDL, SDL)
ITEM (gds__sdl_variable       , SDL, SDL)
ITEM (gds__sdl_scalar        , SDL, SDL)
ITEM (gds__sdl_tiny_integer     , SDL, SDL)
ITEM (gds__sdl_short_integer    , SDL, SDL)
ITEM (gds__sdl_long_integer    , SDL, SDL)
ITEM (gds__sdl_literal       , SDL, SDL)
ITEM (gds__sdl_add         , SDL, SDL)
ITEM (gds__sdl_subtract      , SDL, SDL)
ITEM (gds__sdl_multiply      , SDL, SDL)
ITEM (gds__sdl_divide       , SDL, SDL)
ITEM (gds__sdl_negate       , SDL, SDL)
ITEM (gds__sdl_eql         , SDL, SDL)
ITEM (gds__sdl_neq         , SDL, SDL)
ITEM (gds__sdl_gtr         , SDL, SDL)
ITEM (gds__sdl_geq         , SDL, SDL)
ITEM (gds__sdl_lss         , SDL, SDL)
ITEM (gds__sdl_leq         , SDL, SDL)
ITEM (gds__sdl_and         , SDL, SDL)
ITEM (gds__sdl_or         , SDL, SDL)
ITEM (gds__sdl_not         , SDL, SDL)
ITEM (gds__sdl_while        , SDL, SDL)
ITEM (gds__sdl_assignment     , SDL, SDL)
ITEM (gds__sdl_label        , SDL, SDL)
ITEM (gds__sdl_leave        , SDL, SDL)
ITEM (gds__sdl_begin        , SDL, SDL)
ITEM (gds__sdl_end         , SDL, SDL)
ITEM (gds__sdl_do3         , SDL, SDL)
ITEM (gds__sdl_do2         , SDL, SDL)
ITEM (gds__sdl_do1         , SDL, SDL)
ITEM (gds__sdl_element       , SDL, SDL)

ITEM (SQL_TEXT, SQL, DTYPE)
ITEM (SQL_VARYING, SQL, DTYPE)
ITEM (SQL_SHORT, SQL, DTYPE)
ITEM (SQL_LONG, SQL, DTYPE)
ITEM (SQL_FLOAT, SQL, DTYPE)
ITEM (SQL_DOUBLE, SQL, DTYPE)
ITEM (SQL_DATE, SQL, DTYPE)
ITEM (SQL_BLOB, SQL, DTYPE)

/* Forms Package definitions */

/* Map definition block definitions */

ITEM (PYXIS__MAP_VERSION1 , PYXIS, MAP)
ITEM (PYXIS__MAP_FIELD2 , PYXIS, MAP)
ITEM (PYXIS__MAP_FIELD1 , PYXIS, MAP)
ITEM (PYXIS__MAP_MESSAGE , PYXIS, MAP)
ITEM (PYXIS__MAP_TERMINATOR , PYXIS, MAP)
ITEM (PYXIS__MAP_TERMINATING_FIELD, PYXIS, MAP)
ITEM (PYXIS__MAP_OPAQUE , PYXIS, MAP)
ITEM (PYXIS__MAP_TRANSPARENT , PYXIS, MAP)
ITEM (PYXIS__MAP_TAG , PYXIS, MAP)
ITEM (PYXIS__MAP_SUB_FORM , PYXIS, MAP)
ITEM (PYXIS__MAP_ITEM_INDEX , PYXIS, MAP)
ITEM (PYXIS__MAP_SUB_FIELD , PYXIS, MAP)
ITEM (PYXIS__MAP_END , PYXIS, MAP)

/* Field option flags for display options */

ITEM (PYXIS__OPT_DISPLAY, PYXIS, DISPLAY)
ITEM (PYXIS__OPT_UPDATE, PYXIS, DISPLAY)
ITEM (PYXIS__OPT_WAKEUP, PYXIS, DISPLAY)
ITEM (PYXIS__OPT_POSITION, PYXIS, DISPLAY)

/* Field option values following display */

ITEM (PYXIS__OPT_NULL , PYXIS, VALUE) /* No data: zero/blank filled */
ITEM (PYXIS__OPT_DEFAULT, PYXIS, VALUE) /* Defaulted data */
ITEM (PYXIS__OPT_INITIAL, PYXIS, VALUE) /* Program initialized valued */
ITEM (PYXIS__OPT_USER_DATA, PYXIS, VALUE) /* User supplied data */

/* Pseudo key definitions */

ITEM (PYXIS__KEY_DELETE , PYXIS, KEY)
ITEM (PYXIS__KEY_UP , PYXIS, KEY)
ITEM (PYXIS__KEY_DOWN , PYXIS, KEY)
ITEM (PYXIS__KEY_RIGHT , PYXIS, KEY)
ITEM (PYXIS__KEY_LEFT , PYXIS, KEY)
ITEM (PYXIS__KEY_PF1 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF2 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF3 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF4 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF5 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF6 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF7 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF8 , PYXIS, KEY)
ITEM (PYXIS__KEY_PF9 , PYXIS, KEY)
ITEM (PYXIS__KEY_ENTER , PYXIS, KEY)
ITEM (PYXIS__KEY_SCROLL_TOP , PYXIS, KEY)
ITEM (PYXIS__KEY_SCROLL_BOTTOM, PYXIS, KEY)

/* Menu definition stuff */

ITEM (PYXIS__MENU_VERSION1 , PYXIS, MENU)
ITEM (PYXIS__MENU_LABEL , PYXIS, MENU)
ITEM (PYXIS__MENU_ENTREE , PYXIS, MENU)
ITEM (PYXIS__MENU_OPAQUE , PYXIS, MENU)
ITEM (PYXIS__MENU_TRANSPARENT , PYXIS, MENU)
ITEM (PYXIS__MENU_HORIZONTAL , PYXIS, MENU)
ITEM (PYXIS__MENU_VERTICAL , PYXIS, MENU)
ITEM (PYXIS__MENU_END , PYXIS, MENU)

0,0,0,0};

void main (
    int		argc,
    char	**argv)
{
SSHORT	sequence;
STUFF	*item;

READY;
START_TRANSACTION;

FOR X IN SYMBOLS
    ERASE X;
END_FOR;

sequence = 0;

for (item = stuff; item->symbol; ++item)
    STORE X IN SYMBOLS
	X.SEQUENCE = ++sequence;
	X.VALUE = item->value;
	strcpy (X.SYMBOL, item->symbol);
	strcpy (X.CLASS, item->class);
	strcpy (X.TYPE, item->type);
    END_STORE;

COMMIT;
FINISH;
exit (FINI_OK);
}