!++ ! FILENAME: LOCAL_INIT.TPU ! FUNCTION: This file contains the local initialization procedures which perform ! generic initialization functions that setup the editing environment. ! All local initialization should take place here. If individual ! source files contain their own tpu$local_init procedures, the ! evedt_complete_build procedure must have the compile and execute ! commands uncommented. ! AUTHOR: Steven K. Shapiro, (C) Copyright SKS Enterprises, Austin TX. ! All Rights Reserved. ! ! The format, structure and contents of this file are the sole ! property of Steven K. Shapiro and are copyrighted to SKS ! Enterprises, Austin Texas. ! ! The information may be freely distributed, used and modified ! provided that the information in this header block is not ! changed, altered, disturbed or modified in any way. ! ! DATE: 26-AUG-1987 Original. ! HISTORY: current. ! CONTENTS: ! tpu$local_init ! !23456789A123456789B123456789C123456789D123456789E123456789F123456789G123456789H !-- !*----------------------------------------------------------------------------*! variable evedt$org_file_name; variable evedt$org_file_type; !*----------------------------------------------------------------------------*! procedure local_init_module_ident local file_date, module_vers; file_date := "-<( 20-DEC-1988 15:30:38.44 )>-"; module_vers := substr(file_date,5,2) + substr(file_date,8,3) + substr(file_date,14,2) + substr(file_date,17,5) ; return module_vers; endprocedure; !*----------------------------------------------------------------------------*! ! procedure tpu$local_init ! evedt$_build_date := fao("!%D",0); ! Variable containing date of system build. evedt_v_begin_select := 0; ! Normal select, 1 = rectangular set(informational,off); eve_set_find_whitespace; eve_set_tabs("SPACES"); eve_set_scroll_margins("25%","25%"); ! default scrolling, like EDT set (shift_key,pf1); ! Assign the 'GOLD' key to PF1. set(success, on); !set (message_flags, 1); ! default VMS error messages set (message_flags, 15); ! displays full VMS error message set(traceback,off); set(informational,on); ! Get information about current file. May be used to perform special things ! depending on the extension and/or filename of the file: IE different margins ! etc. evedt$org_file_name := get_info (current_buffer,"file_name"); evedt$org_file_type := file_parse (evedt$org_file_name,"","",TYPE); ! These variables control the way the buffer management procedures ! work. From file BUFFER_MGT.TPU evedt$integer := 'integer'; evedt$string := 'string'; bufed_x_active := FALSE; bufed_select_key_pgm := compile("message('Key not defined');"); bufed_remove_key_pgm := compile("message('Key not defined');"); ! These variables setup the set_matching patterns used in file MATCHING.TPU eve$arg1_set_matching := 'string'; eve$arg1_set_nomatching := 'string'; evedt_matchable_open := "([{<"; evedt_matchable_close := ")]}>"; ! These variables setup the multinational character set patterns for use ! in filtering and printing files while in EVEDT. From PRINT_BUFFER.TPU ep$multinat_char := "" + "" + ""; ep$multnat_char_pat := any (ep$multinat_char); ! These are variables to support wildcard the search procedures. ! From WILDCARD.TPU eve$arg1_search := eve$arg1_buffer; ! Default argument. evedt_search_target := ''; ! Default search target. ! Variables for use with CLIST procedures. which_language := 0; unsupported := 0; epascal := 1; pascal := 2; cc := 3; fetch_list_error := 4; error_range := 0; error_message := 0; source_buffer := 0; original_file_name := ""; error_location := 0; ! These three are used with 'EVE_CORRECT' list_location := 0; list_file_fetched := false; ! Buffer for use of inclusion of the .LIS file. list_buffer := create_buffer ("LIST"); set (no_write, list_buffer); ! not written upon exit set (system, list_buffer); ! not a user buffer set (permanent, list_buffer); ! this buffer cannot be deleted. set (eob_text, list_buffer, "[End of LIST buffer]"); erase_char_end_of_line := false; find_your_way_back_count := 0; eve_global_construct := 5; ! Define current type of constructs. eve_global_justify := 0; ! Define default format justification. !default_directory := "team$main_ref:"; ! Example of using a logical. default_directory := ""; ! specifies the default directory for ! file GETs. If null, default is the ! current directory. This can also be ! a logical name. eve$x_starting_up := 0; ! Generic SCRATCH buffer. scratch_buffer := create_buffer ("SCRATCH"); set (no_write, scratch_buffer); ! not written upon exit set (system, scratch_buffer); ! not a user buffer set (permanent, scratch_buffer); ! this buffer cannot be deleted. set (eob_text, list_buffer, "[End of SCRATCH Buffer]"); ! DELETE buffer. delete_buffer := create_buffer ("DELETE"); set (no_write, delete_buffer); ! not written upon exit set (system, delete_buffer); ! not a user buffer set (permanent, delete_buffer); ! this buffer cannot be deleted. set (eob_text, delete_buffer, "[End of DELETE Buffer]"); ! Give the message buffer an EOB set (eob_text, tpu$x_message_buffer, "[End of MESSAGE buffer]"); ! lengths for the top & bottom windows eve$bottom_window_length := eve$main_window_length / 2; eve$top_window_length := eve$main_window_length - eve$bottom_window_length; ! init some EVEDT constants evedt$constant_init; ! make the constant_init procedure null !compile("procedure evedt$constant_init endprocedure"); ! create the ruler buffer evedt$create_ruler; ! make the create ruler procedure null !compile("procedure evedt$create_ruler endprocedure"); ! set up ruler attributes ruler_w_t := create_window(1,2,off); set (video,ruler_w_t,reverse); ruler_w_b := create_window(eve$top_window_length + 1,2,off); set (video,ruler_w_b,reverse); evedt$fv_top_ruler := false; ! T = ruler is mapped to top window message (" " + eve_version(0)); endprocedure;