procedure eve$dynamic_module_ident
return '881005.002830';
endprocedure

procedure eve$parser_dispatch(the_command)

    if eve$x_enable_parser_wpe
    then
        if (WPE_PROCESS_COMMAND(the_command))
        then
            return;
        endif;
    endif;

    eve$process_command(the_command);

endprocedure

procedure eve$$pre_init_modules

    wpe_module_pre_init;

endprocedure

procedure eve$$init_modules

    eve$options_module_init;
    eve$terminals_module_init;
    eve$windows_module_init;
    eve$file_module_init;
    eve$format_module_init;
    eve$edit_module_init;
    eve$advanced_module_init;
    eve$help_module_init;
    eve$edt_module_init;
    eve$extras_module_init;
    eve$wps_module_init;
    eve$show_module_init;
    eve$wildcard_module_init;
    eve$synonyms_module_init;
    wpe_options_module_init;
    wpe_module_init;

endprocedure

procedure eve$get_status_fields (the_length, the_format)

local	remaining,
	the_fields,
	the_field;

the_fields := "";
remaining := the_length;

the_field := eve$nowrite_status_field (remaining, the_format);
if length (the_field) <= remaining
then
    the_fields := the_field + the_fields;
    remaining := remaining - length (the_field);
endif;

the_field := wpe_status_field (remaining, the_format);
if length (the_field) <= remaining
then
    the_fields := the_field + the_fields;
    remaining := remaining - length (the_field);
endif;


return the_fields

endprocedure

procedure eve_set_page_length (arg1)
on_error
    return (FALSE);
endon_error;
    return (eve_ctlength (arg1));
endprocedure;

procedure eve_set_keypad_nonumeric
on_error
    return (FALSE);
endon_error;
    return (eve_application);
endprocedure;

procedure eve_set_keypad_application
on_error
    return (FALSE);
endon_error;
    return (eve_application);
endprocedure;


procedure wpe_synonym_init

eve$$x_synonym_array {'ctlength'} := 'ctlength set_page_length';
eve$$x_synonym_array {'application'} := 'application set_keypad_nonumeric set_keypad_application';

endprocedure


procedure eve$$init_all_synonyms

eve$format_synonym_init;
eve$synonyms_synonym_init;
wpe_synonym_init;

endprocedure

procedure eve$exit_dispatch

    if wpe_exit_handler
    then
        return;
    endif;

    eve$exit;

endprocedure

procedure eve$quit_dispatch

    if wpe_quit_handler
    then
        return;
    endif;

    eve$quit;

endprocedure


procedure eve$version
    return 'WPE V5.010 1988-10-05 00:28';
endprocedure

procedure eve$$build_module_idents

return ('EVE$BUILD_MODULE_IDENT ' +
	'EVE$OPTIONS_MODULE_IDENT ' +
	'EVE$TERMINALS_MODULE_IDENT ' +
	'EVE$WINDOWS_MODULE_IDENT ' +
	'EVE$FILE_MODULE_IDENT ' +
	'EVE$CORE_MODULE_IDENT ' +
	'EVE$FORMAT_MODULE_IDENT ' +
	'EVE$EXTEND_MODULE_IDENT ' +
	'EVE$EDIT_MODULE_IDENT ' +
	'EVE$ADVANCED_MODULE_IDENT ' +
	'EVE$HELP_MODULE_IDENT ' +
	'EVE$EDT_MODULE_IDENT ' +
	'EVE$EXTRAS_MODULE_IDENT ' +
	'EVE$WPS_MODULE_IDENT ' +
	'EVE$SHOW_MODULE_IDENT ' +
	'EVE$WILDCARD_MODULE_IDENT ' +
	'EVE$SYNONYMS_MODULE_IDENT ' +
	'EVE$DYNAMIC_MODULE_IDENT ' +
	'WPE_OPTIONS_MODULE_IDENT ' +
	'WPE_MODULE_IDENT ' +
	'EVE$DYNAMIC_MODULE_IDENT ' + 
	'');

endprocedure;

procedure eve$$build_parser_flags

return ('EVE$X_ENABLE_PARSER_WPE ' +
	'');

endprocedure;

procedure eve$$build_module_pre_inits

return ('WPE_MODULE_PRE_INIT ' +
	'');

endprocedure;

procedure eve$$build_module_inits

return ('EVE$OPTIONS_MODULE_INIT ' +
	'EVE$TERMINALS_MODULE_INIT ' +
	'EVE$WINDOWS_MODULE_INIT ' +
	'EVE$FILE_MODULE_INIT ' +
	'EVE$FORMAT_MODULE_INIT ' +
	'EVE$EDIT_MODULE_INIT ' +
	'EVE$ADVANCED_MODULE_INIT ' +
	'EVE$HELP_MODULE_INIT ' +
	'EVE$EDT_MODULE_INIT ' +
	'EVE$EXTRAS_MODULE_INIT ' +
	'EVE$WPS_MODULE_INIT ' +
	'EVE$SHOW_MODULE_INIT ' +
	'EVE$WILDCARD_MODULE_INIT ' +
	'EVE$SYNONYMS_MODULE_INIT ' +
	'WPE_OPTIONS_MODULE_INIT ' +
	'WPE_MODULE_INIT ' +
	'');

endprocedure;

procedure eve$$build_declare_synonyms

return ('EVE$FORMAT_DECLARE_SYNONYM ' +
	'EVE$SYNONYMS_DECLARE_SYNONYM ' +
	'WPE_DECLARE_SYNONYM ' +
	'');

endprocedure;

procedure eve$$build_synonym_inits

return ('EVE$FORMAT_SYNONYM_INIT ' +
	'EVE$SYNONYMS_SYNONYM_INIT ' +
	'WPE_SYNONYM_INIT ' +
	'');

endprocedure;

procedure eve$$build_status_fields

return ('EVE$NOWRITE_STATUS_FIELD ' +
	'WPE_STATUS_FIELD ' +
	'');

endprocedure;

procedure eve$$build_exit_handlers

return ('WPE_EXIT_HANDLER ' +
	'');

endprocedure;

procedure eve$$build_quit_handlers

return ('WPE_QUIT_HANDLER ' +
	'');

endprocedure;


procedure eve$$restore_settings

eve$$x_gold_keys := create_array ();
eve$$x_do_key_array := create_array ();

eve$$x_gold_keys {'EVE$WPS_KEYS'} := PF1;
eve$$x_gold_keys {'keypad'} := 'EVE$WPS_KEYS';
eve$$x_do_key_array {'EVE$EDT_KEYS'} := 'GOLD/KP7 ';
eve$$x_do_key_array {'EVE$NUMERIC_KEYS'} := 'PF4 ';
eve$$x_do_key_array {'EVE$STANDARD_KEYS'} := 'DO ';
eve$$x_do_key_array {'EVE$VT100_KEYS'} := 'PF4 ';
eve$$x_do_key_array {'EVE$WPS_KEYS'} := 'GOLD/[ ';
endprocedure