--********************************************************************************************************************
-- Created: 30-Mar-2010 17:01:47 by OpenVMS SDL EV3-3      
-- Source:  13-MAR-2008 19:17:24 $1$DGA7274:[STARLET_ADA.LIS]CSTDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package CSTDEF is
 
--  module $CSTDEF
 
--+
--
-- Constants defining single-transition operations
--
 
    CST_K_CPU_STOP		: constant := 1;
    CST_K_CPU_MIGRATE		: constant := 2;
    CST_K_CPU_START		: constant := 3;
    CST_K_CPU_ASSIGN		: constant := 4;
    CST_K_CPU_DEASSIGN		: constant := 5;
    CST_K_CPU_FAILOVER		: constant := 6;
    CST_K_CPU_POWER_OFF		: constant := 7;
    CST_K_CPU_POWER_ON		: constant := 8;
 
--
-- Constants defining multiple operation masks.  The starting
-- position of these values must be in the upper word to save
-- space for future single-operation codes
--
 
    CST_M_RESERVED1		: constant := 16#000000FF#;
    CST_M_CPU_STOP		: constant := 16#00000100#;
    CST_M_CPU_MIGRATE		: constant := 16#00000200#;
    CST_M_CPU_START		: constant := 16#00000400#;
    CST_M_CPU_ASSIGN		: constant := 16#00000800#;
    CST_M_CPU_DEASSIGN		: constant := 16#00001000#;
    CST_M_CPU_FAILOVER		: constant := 16#00002000#;
    CST_M_CPU_POWER_OFF		: constant := 16#00004000#;
    CST_M_CPU_POWER_ON		: constant := 16#00008000#;
 
    type CST_MASK_TYPE is
	record
	    RESERVED1	: UNSIGNED_8;
	    CPU_STOP	: BOOLEAN;
	    CPU_MIGRATE	: BOOLEAN;
	    CPU_START	: BOOLEAN;
	    CPU_ASSIGN	: BOOLEAN;
	    CPU_DEASSIGN	: BOOLEAN;
	    CPU_FAILOVER	: BOOLEAN;
	    CPU_POWER_OFF	: BOOLEAN;
	    CPU_POWER_ON	: BOOLEAN;
	end record;
 
	    for CST_MASK_TYPE use 
		record
		    RESERVED1	at 0 range 0 .. 7;
		    CPU_STOP	at 1 range 0 .. 0;
		    CPU_MIGRATE	at 1 range 1 .. 1;
		    CPU_START	at 1 range 2 .. 2;
		    CPU_ASSIGN	at 1 range 3 .. 3;
		    CPU_DEASSIGN	at 1 range 4 .. 4;
		    CPU_FAILOVER	at 1 range 5 .. 5;
		    CPU_POWER_OFF	at 1 range 6 .. 6;
		    CPU_POWER_ON	at 1 range 7 .. 7;
		end record;
	    for CST_MASK_TYPE'SIZE use 16;
 
    CST_MASK_TYPE_INIT : constant CST_MASK_TYPE := 
	    (RESERVED1	=> 0,
	    CPU_STOP	=> FALSE,
	    CPU_MIGRATE	=> FALSE,
	    CPU_START	=> FALSE,
	    CPU_ASSIGN	=> FALSE,
	    CPU_DEASSIGN	=> FALSE,
	    CPU_FAILOVER	=> FALSE,
	    CPU_POWER_OFF	=> FALSE,
	    CPU_POWER_ON	=> FALSE);
 
    type CST_MASK_TYPE is
	record
	    CST_MASK	: CST_MASK_TYPE;
	end record;
 
	    for CST_MASK_TYPE use 
		record
		    CST_MASK	at 0 range 0 .. 15;
		end record;
	    for CST_MASK_TYPE'SIZE use 16;
 
    CST_MASK_TYPE_INIT : constant CST_MASK_TYPE := 
	    (
	    CST_MASK	=> CST_MASK_TYPE_INIT);
 
--
-- Constants defining target software nodes for reassignment
--
 
    CST_K_PARTITION		: constant := -1;
    CST_K_COMMUNITY		: constant := -2;
    CST_K_HARD_PARTITION	: constant := -3;
    CST_K_SW_ROOT		: constant := -4;
 
--
-- Constants defining CPU types
--
 
    CST_K_ANY_OWNED_CPU		: constant := -1;
    CST_K_ANY_ACTIVE_CPU	: constant := -2;
    CST_K_ANY_STOPPED_CPU	: constant := -3;
    CST_K_ANY_UNOWNED_CPU	: constant := -4;
 
--
-- Constants defining flag parameter characteristics
--
 
    CST_M_CPU_DEFAULT_CAPABILITIES	: constant := 16#00000001#;
    CST_M_CPU_ALLOW_ORPHANS	: constant := 16#00000002#;
    CST_M_CPU_DECONFIGURE	: constant := 16#00000004#;
 
    type CST_FLAGS_TYPE is
	record
	    CPU_DEFAULT_CAPABILITIES	: BOOLEAN;
	    CPU_ALLOW_ORPHANS	: BOOLEAN;
	    CPU_DECONFIGURE	: BOOLEAN;
	    FILLER_1	: UNSIGNED_5;
	end record;
 
	    for CST_FLAGS_TYPE use 
		record
		    CPU_DEFAULT_CAPABILITIES	at 0 range 0 .. 0;
		    CPU_ALLOW_ORPHANS	at 0 range 1 .. 1;
		    CPU_DECONFIGURE	at 0 range 2 .. 2;
		    FILLER_1	at 0 range 3 .. 7;
		end record;
	    for CST_FLAGS_TYPE'SIZE use 8;
 
    CST_FLAGS_TYPE_INIT : constant CST_FLAGS_TYPE := 
	    (CPU_DEFAULT_CAPABILITIES	=> FALSE,
	    CPU_ALLOW_ORPHANS	=> FALSE,
	    CPU_DECONFIGURE	=> FALSE,
	    FILLER_1	=> 0);
 
    type CST_FLAGS_TYPE is
	record
	    CST_FLAGS	: CST_FLAGS_TYPE;
	end record;
 
	    for CST_FLAGS_TYPE use 
		record
		    CST_FLAGS	at 0 range 0 .. 7;
		end record;
	    for CST_FLAGS_TYPE'SIZE use 8;
 
    CST_FLAGS_TYPE_INIT : constant CST_FLAGS_TYPE := 
	    (
	    CST_FLAGS	=> CST_FLAGS_TYPE_INIT);
 
end CSTDEF;