!	EVEplus_input - Input to EVE Plus section file creation.

! These are a series of include directives to EVEPlus.  
! TPU$EVEPLUS logical points to directory with original EVEplus files.
! TPU$LOCAL points to directory containing local modifications and
! additions.

eveplus_start_build;

eveplus_include( "TPU$EVEplus:BUFED.TPU" );
! Original Describe Key is replaced by near identical function in
! LIST_KEYS.TPU, which also defines List Keys command.
eveplus_include( "TPU$EVEplus:DISPLAY_CHARACTER.TPU" );
eveplus_include( "TPU$EVEplus:EAG_WINDOWS.TPU" );
eveplus_include( "TPU$EVEplus:FIX_CRLFS.TPU" );
eveplus_include( "TPU$EVEplus:LIST_COMMANDS.TPU" );
eveplus_include( "TPU$EVEplus:NO_WRITE.TPU" );
eveplus_include( "TPU$LOCAL:aaw_nextline.tpu" );
eveplus_include( "TPU$LOCAL:aaw_openline.tpu" );
eveplus_include( "TPU$EVEplus:EVE_VMS_LINE_EDITING.TPU" );
eveplus_include( "TPU$EVEplus:MATCHING.TPU" );
eveplus_include( "TPU$EVEplus:NUMBER_LINES.TPU" );
!eveplus_include( "TPU$EVEplus:PRINT.TPU" );
eveplus_include( "TPU$EVEplus:PRINT_BUFFER.TPU" );
eveplus_include( "TPU$EVEplus:RECCUTPAS.TPU" );
eveplus_include( "TPU$EVEplus:RELEASE_BUFFERS.TPU" );
eveplus_include( "TPU$LOCAL:SHELL_SORT.TPU" );
eveplus_include( "TPU$EVEplus:TABS.TPU" );
eveplus_include( "TPU$EVEplus:TOGGLE_STATUS_LINE.TPU" );
eveplus_include( "TPU$EVEplus:TRIM_BUFFER.TPU" );
eveplus_include( "TPU$EVEplus:WHAT.TPU" );
eveplus_include( "tpu$local:WILDCARD_SEARCH.TPU" );
!
eveplus_include( "tpu$local:move_sentence.tpu" );
eveplus_include( "tpu$local:move_paragraph.tpu" );
eveplus_include( "tpu$local:fill_paragraph.tpu" );
!eveplus_include( "tpu$local:AAW_ERASE_LINE.TPU" );
eveplus_include( "tpu$local:eve_time.tpu" );
eveplus_include( "tpu$local:eve_transpose_lines" );
eveplus_include( "tpu$local:eve_copytext.tpu");
eveplus_include( "tpu$local:cursorkeys.tpu");
eveplus_include( "tpu$local:eve_two_windows.tpu");
eveplus_include( "tpu$local:eve_split_window.tpu");
eveplus_include( "tpu$local:eve_delete_window.tpu");
eveplus_include( "tpu$local:eve_next_window.tpu");
eveplus_include( "tpu$local:eve_expand_window.tpu");
eveplus_include( "tpu$local:eve_eof.tpu");
eveplus_include( "tpu$local:send_to_dcl.tpu");
eveplus_include( "tpu$local:read_mail.tpu");
eveplus_include( "tpu$local:mail_a_buffer.tpu");
eveplus_include( "tpu$local:newout.tpu");
eveplus_include( "tpu$local:eve_occurs.tpu");
eveplus_include( "tpu$local:eve_only_window.tpu");
eveplus_include( "tpu$local:eve_noonly.tpu");
eveplus_include( "tpu$local:indent.tpu");
eveplus_include( "tpu$local:include_buffer.tpu");
eveplus_include( "tpu$local:transpose_char.tpu");
eveplus_include( "tpu$local:page.tpu");   
eveplus_include( "tpu$local:home.tpu");
! Following written (or altered) by AAW for EDT-like keypad within EVE
eveplus_include( "tpu$local:eve_advance.tpu");
eveplus_include( "tpu$local:eve_append.tpu");
eveplus_include( "tpu$local:eve_backup.tpu");
eveplus_include( "tpu$local:eve_change_case.tpu");
eveplus_include( "tpu$local:eve_erase_character.tpu");
eveplus_include( "tpu$local:eve_fndnxt.tpu");
eveplus_include( "tpu$local:eve_section.tpu");
eveplus_include( "tpu$local:eve_undelete_char.tpu");
eveplus_include( "tpu$local:zap.tpu");
eveplus_include( "tpu$local:default.tpu");
eveplus_include( "tpu$local:get_file.tpu");
eveplus_include( "tpu$local:end_of_line.tpu");
!
! Additions or changes after 12-jan-1987, AAW
!
eveplus_include( "tpu$local:dired.tpu"); ! No key assigned
eveplus_include( "tpu$local:read_file.tpu"); ! Assigned to Gold-R
eveplus_include( "tpu$local:locate_key.tpu");
eveplus_include( "tpu$local:spell.tpu"); ! Linkage to SPELL
!eveplus_include( "TPU$EVEplus:DESCRIBE_KEY.TPU" );
eveplus_include( "TPU$LOCAL:LIST_KEYS.TPU");
eveplus_include( "tpu$local:fetch_file.tpu");
eveplus_include( "tpu$local:directory.tpu");
eveplus_include( "tpu$local:execute_dcl_line.tpu");
eveplus_include( "tpu$local:preserve_buffers.tpu");
eveplus_include( "tpu$local:eag_markers.tpu");
eveplus_include( "tpu$local:execute_eve.tpu" );
eveplus_include( "tpu$local:buffer.tpu" ); ! Replaces EVE Buffer command
eveplus_include( "tpu$local:delete_to_end_word.tpu" ); !Alt Erase Word
eveplus_include( "tpu$local:whitespace_compress.tpu" );
eveplus_include( "tpu$local:flush.tpu" );
eveplus_include( "tpu$local:keep.tpu" );
eveplus_include( "tpu$local:eve_erase_to_eol.tpu"); ! More exact EDT-style
eveplus_include( "tpu$local:write_file.tpu"); ! Fixed up version 28-jul-1987
eveplus_include( "tpu$local:extract_to_file.tpu"); ! Write region
eveplus_include( "tpu$local:mail.tpu"); ! MAIL interface (experimental)
!
! Following special version of eve procedure used for EVEPLUS keypad help
! and (eve_help) to search an alternate help library before tpuhelp.hlb.
! Alternate library is eveplushelp.hlb.
!
eveplus_include( "tpu$local:eve_help.tpu");
!eveplus_include( "tpu$local:eve$help_keypad.tpu");
!
! If you want to add your own keypad definitions, copy, modify and include
! the following file:
!
eveplus_include("tpu$local:DEFINE_KEYS.TPU");


eveplus_complete_build;	! Finishes house keeping and builds/executes your
			! custom tpu$local_init procedure.

compile("procedure eveplus_start_build	  endprocedure");
compile("procedure eveplus_get_kernel	  endprocedure");
compile("procedure eveplus_include	  endprocedure");
compile("procedure eveplus_complete_build endprocedure");

save ("common_disk:[syslib]notesplus");		! Eve plus section file.

! Quit can be done manually so you can study the results, or you can 
! uncomment the quit below to leave the build automatically.

quit;