!++
!				Table of Contents 
!
!				 WPE_OPTIONS.TPU
!				 2-OCT-1989 13:23
!
!	Procedure name			Page	Description
!	--------------			----	------------
!
!	wpe_options_module_ident 	   1	Ident
!	wpe_options_module_init 	   1	Module Init
!--

procedure wpe_options_module_ident	! Ident

return "V05.204";

endprocedure;	! wpe_options_module_ident	

procedure wpe_options_module_init	! Module Init

local	tpu_version;

!   NOTE: Do not modify the following line without changing the build procedure.
!   [The build procedure is wpe_to_edw.tpu]
eve$x_option_w$pe_is_edw := 0;			! Not building EDW

!   Establish the minimum version of EVE for future reference.
!      Note that EVE T2.0 shipped with VMS V5.0, and EVE T2.2 shipped 
!      with VMS V5.1.
!   Also note that the variable can't contain the string 'w p e' -- otherwise
!      it would be replaced with 'edw' in the build procedure for edw.
!   The form eve$x_option_ is used so that it shows up as an option in the
!      list file constructed by EVE$BUILD.

if (index(eve$kt_version,"2.0") = 0) AND
   (index(eve$kt_version,"2.1") = 0) then
	eve$x_option_w$pe_at_least_eve_2_2 := TRUE;
! 	     EVE will define..     eve$x_at_least_tpu_2_2  
else
	eve$x_option_w$pe_at_least_eve_2_2 := FALSE;
!   	
!      The rest of this is only needed because we're trying to accommodate EVE
!      versions T2.0 and ABOVE.  
!   	    We have to define the next variables, since eve won't have done it
!      	    before T2.2, but our code needs to know:

	tpu_version := (100 * get_info (system, "version")) +
			get_info (system, "update");

	eve$x_at_least_tpu_2_2 := (tpu_version >= 202);
! 	     Normally, that would mean..     eve$x_at_least_tpu_2_2   := FALSE;
	eve$x_option_decwindows  := FALSE;	! DECwindows menu interface
	eve$x_decwindows_active  := FALSE;
endif;

endprocedure;	! wpe_options_module_init


!   ========================================================================

!		-- Executables for Build Phase --

wpe_options_module_init;