--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:30 by OpenVMS SDL EV3-3      
-- Source:  13-MAY-1993 17:16:34 $1$DGA8085:[LIB_ADA.LIS]NAFV5DEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package NAFV5DEF is
 
--  module $NAFV5DEF
 
--++
--
-- Structure for network proxy login file, NETPROXY.DAT
--
----
 
    NAFV5_C_PROXY_FIXEDLEN	: constant := 4;
    NAFV5_K_PROXY_FIXEDLEN	: constant := 4;
    NAFV5_C_DEFPROXY		: constant := 1;			--  Default proxy account
    NAFV5_C_PROXY		: constant := 2;			--  NONdefault proxy account
    NAFV5_C_MAXPROXY		: constant := 15;			--  Max number of proxy accounts
    NAFV5_K_MAXPROXY		: constant := 15;			--  Max number of proxy accounts
    NAFV5_C_MAXPROXYLEN		: constant := 32;			--  Max length of proxy string
    NAFV5_K_MAXPROXYLEN		: constant := 32;			--  Max length of proxy string
 
    type NAFV5PROXY_TYPE is
	record
	    PROXYLEN	: UNSIGNED_WORD;				--  String length
	    TYP		: UNSIGNED_WORD;				--  Type field
	    PROXY	: STRING(1 .. 0);				--  Local proxy account name
	end record;
 
	    for NAFV5PROXY_TYPE use 
		record
		    PROXYLEN	at 0 range 0 .. 15;
		    TYP		at 2 range 0 .. 15;
		    PROXY	at 4 range 0 .. -1;
		end record;
	    for NAFV5PROXY_TYPE'SIZE use 32;
 
    NAFV5PROXY_TYPE_INIT : constant NAFV5PROXY_TYPE := 
	    (PROXYLEN	=> 0,
	    TYP		=> 0,
	    PROXY	=> (others => ASCII.NUL));
 
    NAFV5_M_TASK		: constant := 16#00000001#;
    NAFV5_M_BATCH		: constant := 16#00000002#;
    NAFV5_M_INTERACTIVE		: constant := 16#00000004#;
    NAFV5_M_UIC			: constant := 16#00000008#;
    NAFV5_K_FIXEDLEN		: constant := 76;			--  Length of fixed part of record 
    NAFV5_C_FIXEDLEN		: constant := 76;			--  Length of fixed part of record 
    NAFV5_C_FORMAT1		: constant := 1;			--  format version #
    NAFV5_K_FORMAT1		: constant := 1;			--  format version #
 
-- Define the max record size
 
    NAFV5_C_MAXREC		: constant := 656;
    NAFV5_K_MAXREC		: constant := 656;
    NAFV5_S_NAFV5DEF		: constant := 76;			--  Old size name - synonym
 
    type NAFV5_FLAGS_TYPE is						--  Flags longword
	record
	    TAS		: BOOLEAN;					--  Allow task=0 access
	    BATCH	: BOOLEAN;					--  Allow batch jobs
	    INTERACTIVE	: BOOLEAN;					--  Allow interactive login
	    UIC		: BOOLEAN;					--  Remote user uses UIC authentication
	    FILLER_1	: UNSIGNED_28;
	end record;
 
	    for NAFV5_FLAGS_TYPE use 
		record
		    TAS		at 0 range 0 .. 0;
		    BATCH	at 0 range 1 .. 1;
		    INTERACTIVE	at 0 range 2 .. 2;
		    UIC		at 0 range 3 .. 3;
		    FILLER_1	at 0 range 4 .. 31;
		end record;
	    for NAFV5_FLAGS_TYPE'SIZE use 32;
 
    NAFV5_FLAGS_TYPE_INIT : constant NAFV5_FLAGS_TYPE := 
	    (TAS	=> FALSE,
	    BATCH	=> FALSE,
	    INTERACTIVE	=> FALSE,
	    UIC		=> FALSE,
	    FILLER_1	=> 0);
 
    type NAFV5_REMUIC_TYPE is						--  Remote UIC
	record
	    REMUIC_MEM	: UNSIGNED_WORD;				--  Member number
	    REMUIC_GRP	: UNSIGNED_WORD;				--  Group number
	end record;
 
	    for NAFV5_REMUIC_TYPE use 
		record
		    REMUIC_MEM	at 0 range 0 .. 15;
		    REMUIC_GRP	at 2 range 0 .. 15;
		end record;
	    for NAFV5_REMUIC_TYPE'SIZE use 32;
 
    NAFV5_REMUIC_TYPE_INIT : constant NAFV5_REMUIC_TYPE := 
	    (REMUIC_MEM	=> 0,
	    REMUIC_GRP	=> 0);
 
    type NAFV5_REMNAME_TYPE is						--  Combined nodename and remote username 
	record
	    NODE	: STRING(1 .. 32);				--  Node name 
	    REMUSER	: STRING(1 .. 32);				--  Remote username 
 
	    ----Component(s) below are defined as comments since they
	    ----overlap other fields
	    ----
	    ----REMUIC	: NAFV5_REMUIC_TYPE;				--  Remote UIC
 
	end record;
 
	    for NAFV5_REMNAME_TYPE use 
		record
		    NODE	at 0 range 0 .. 255;
		    REMUSER	at 44 range 0 .. 255;
 
		    ----Component representation spec(s) below are defined as
		    ----comments since they overlap other fields
		    ----
		    ----REMUIC	at 44 range 0 .. 31;
 
		end record;
	    for NAFV5_REMNAME_TYPE'SIZE use 512;
 
    NAFV5_REMNAME_TYPE_INIT : constant NAFV5_REMNAME_TYPE := 
	    (NODE	=> (others => ASCII.NUL),
	    REMUSER	=> (others => ASCII.NUL)
	    );
 
    type NAFV5_TYPE is
	record
	    FORMAT	: UNSIGNED_WORD;				--  Record format version
	    RECLEN	: UNSIGNED_WORD;				--  Record length
	    NODELEN	: UNSIGNED_WORD;				--  Length of remote node string
	    REMUSERLEN	: UNSIGNED_WORD;				--  Length of remote user string
	    FLAGS	: NAFV5_FLAGS_TYPE;				--  Flags longword
	    REMNAME	: NAFV5_REMNAME_TYPE;				--  Combined nodename and remote username 
	end record;
 
	    for NAFV5_TYPE use 
		record
		    FORMAT	at 0 range 0 .. 15;
		    RECLEN	at 2 range 0 .. 15;
		    NODELEN	at 4 range 0 .. 15;
		    REMUSERLEN	at 6 range 0 .. 15;
		    FLAGS	at 8 range 0 .. 31;
		    REMNAME	at 12 range 0 .. 511;
		end record;
	    for NAFV5_TYPE'SIZE use 608;
 
    NAFV5_TYPE_INIT : constant NAFV5_TYPE := 
	    (FORMAT	=> 0,
	    RECLEN	=> 0,
	    NODELEN	=> 0,
	    REMUSERLEN	=> 0,
	    FLAGS	=> NAFV5_FLAGS_TYPE_INIT,
	    REMNAME	=> NAFV5_REMNAME_TYPE_INIT
	    );
 
end NAFV5DEF;