** **/ /* ** ** GLOBAL VARIABLE DECLARATIONS ** **/ /* Case sensitivity switch; TRUE if case sensitive. */ externaldef(uil_comp_glbl) boolean uil_v_case_sensitive = TRUE; /* Location to store error type. */ externaldef(uil_comp_glbl) jmp_buf uil_az_error_env_block; externaldef(uil_comp_glbl) boolean uil_az_error_env_valid = FALSE; /* Debugging switches. */ #if debug_version externaldef(uil_comp_glbl) boolean uil_v_dump_tokens = FALSE; externaldef(uil_comp_glbl) boolean uil_v_dump_symbols = FALSE; #endif externaldef(uil_comp_glbl) status uil_l_compile_status = uil_k_success_status; externaldef(uil_comp_glbl) Uil_compile_desc_type *Uil_compile_desc_ptr = NULL;
** INCLUDE FILES ** **/ #include "UilDefI.h" #include "UilCmdDef.h" /* ** ** GLOBAL DECLARATIONS ** **/ externaldef(uil_comp_glbl) cmd_command_line_type Uil_cmd_z_command = { NULL, /* *ac_source_file */ NULL, /* *ac_resource_file */ NULL, /* *ac_listing_file */ 0, /* include_dir_count */ NULL, /* **ac_include_dir */ 1, /* v_listing_file */ 1, /* v_resource_file */ 1, /* v_show_machine_code */ 1, /* v_report_info_msg */ 1, /* v_report_warn_msg */ 1, /* v_parse_tree */ 1, /* v_issue_summary */ 0, /* status_update_delay */ NULL, /* (*message_cb)() */ NULL, /* *message_data */
** EXTERNAL VARIABLE DECLARATIONS ** **/ /* ** ** GLOBAL VARIABLE DECLARATIONS ** **/ /* ** define the source buffer data structures */ externaldef(uil_comp_glbl) src_source_buffer_type *src_az_current_source_buffer; externaldef(uil_comp_glbl) src_source_buffer_type *src_az_avail_source_buffer; externaldef(uil_comp_glbl) src_message_item_type *src_az_orphan_messages; /* %COMPLETE */ externaldef(uil_comp_glbl) long Uil_file_size; struct stat stbuf; /* ** define the source record data structures */ externaldef(uil_comp_glbl) src_source_record_type *src_az_current_source_record; externaldef(uil_comp_glbl) src_source_record_type
/* * * INCLUDE FILES * */ #include <stdio.h> #include <Mrm/Mrm.h> /* * * GLOBAL VARIABLE DECLARATIONS * */ externaldef(urm__err_out) MrmCode urm__err_out = URMErrOutStdout ; externaldef(urm__latest_error_code) MrmCode urm__latest_error_code = 0 ; externaldef(urm__latest_error_msg) String urm__latest_error_msg = NULL ; /* * * OWN VARIABLE DECLARATIONS * */ static String urm_codes_codstg[] = { "MrmFAILURE" ,"MrmSUCCESS" ,"MrmNOT_FOUND" ,"MrmCREATE_NEW"