! EVE$OPTIONS.TPU 		31-DEC-1992 11:52			Page 1

module eve$options ident "V03-002"

!
!	       COPYRIGHT © 1988,1992 BY
!	DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS
!		    ALL RIGHTS RESERVED
!
! THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
! ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
! INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR ANY OTHER
! COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
! OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
! TRANSFERRED.
!
! THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
! AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
! CORPORATION.
!
! DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
! SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
!
!++
! FACILITY:
!	DECTPU - Text Processing Utility
!	EVE - Extensible Versatile Editor
!
! ABSTRACT:
!	This is the source program to enable EVE interface options.
!
! ENVIRONMENT:
!	OpenVMS VAX, OpenVMS AXP, RISC/ULTRIX
!
! Author: Jim Burrows
!
! CREATION DATE: 5-DEC-1986
!
! MODIFIED BY:
!
!-

! EVE$OPTIONS.TPU 							Page 2

!++
!				Table of Contents 
!
!				 EVE$OPTIONS.TPU
!				31-DEC-1992 11:52
!
!	Procedure name			Page	Description
!	--------------			----	------------
!
!	eve$$options_init 		   3	Init option flags
!--

! EVE$OPTIONS.TPU 							Page 3


procedure eve$$options_init		! Init option flags

local   tpu_version;

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

eve$x_at_least_tpu_2_2 := (tpu_version >= 202);

eve$x_option_2byte := 0;		! Not building 2-BYTE EVE
eve$x_option_fonts := 0;		! No support for fonts
eve$x_option_keyhelp := 1;		! Dynamic keypad help
eve$x_option_decwindows := 1;		! DECwindows menu interface

endprocedure;

eve$$options_init;

endmodule;

! EVE$OPTIONS.TPU 							Page 4

!
! EVE$BUILD time executable code
!

eve$$options_init;	! Need flags during build

! The minimal EVE editor requires the following modules.  They are commented
! out because eve$$require doesn't work for modules positioned after this one
! in EVE$MASTER.FILE.

!eve$$require ("eve$terminals");		! Build dependency
!eve$$require ("eve$windows");
!eve$$require ("eve$file");
!eve$$require ("eve$core");