!   Procedure and commands to convert WPE_MASTER.FILE and WPE_OPTIONS.TPU to
!      their equivalents for building EDW, the EDT-keypad version of WPE.
!      
procedure wpe_replace_all

local   ind_char,
	wpe_positionW;

loop
	wpe_positionW := search_quietly ("wpe", FORWARD, NO_EXACT);
	exitif wpe_positionW = 0;
	position (beginning_of (wpe_positionW));
	ind_char := current_character;
	erase_character (3);
	if ind_char = "W" then
		copy_text ("EDW");
	else
		copy_text ("edw");
	endif;
endloop;

endprocedure;

!   Beginning of operation
!   
!      Convert WPE_MASTER.FILE

eve_get_file ("wpe_master.file");


	wpe_positionx := search_quietly ("WPE_MASTER", FORWARD, NO_EXACT);
	position (beginning_of (wpe_positionx));
	erase_character (3);
	copy_text ("EDW");

	position (line_end);
	split_line;
	copy_text ("!   EDW - the EDT Keypad version of WPE");

	wpe_positionx := search_quietly ("WPE_OPTIONS", FORWARD, NO_EXACT);
	position (beginning_of (wpe_positionx));
	erase_character (3);
	copy_text ("EDW");

eve_write_file ("edw_master.file");

!   
!      Convert WPE_OPTIONS.TPU

eve_get_file ("wpe_options.tpu");

wpe_replace_all;
eve_top;

	wpe_positionx := search_quietly 
		("eve$x_option_edw := 0", FORWARD, NO_EXACT);
	position (beginning_of (wpe_positionx));
	wpe_positionx := search_quietly ("0", FORWARD, EXACT);
	position (beginning_of (wpe_positionx));
	erase_character (1);
	copy_text ("1");

	wpe_positionx := search_quietly ("not building", FORWARD, NO_EXACT);
	position (beginning_of (wpe_positionx));
	erase_character (5);
	copy_text ("B");

eve_write_file ("edw_options.tpu");

QUIT (OFF);