-- with starlet; use starlet; -- package GLOBAL_CONSTANTS is --+---------------------------------------------------------------------- -- -- Unit Type : PACKAGE -- Unit Name : GLOBAL_CONSTANTS -- Version : V01.0F -- -- Author : Stephen R. Rainier Date : 11/01/85 -- -- Purpose : Specification for a slew of global constants. -- -- -- Parameters : None. -- -- Name Mode(I,O,IO) Type/Subtype Description -- ---- ------------ ------------ ------------ -- -- -- Modifications : -- -- Name Date Description of Change -- ---- ---- --------------------- -- -- -- Packages "WITH"ed : starlet -- -- -- Procedure/Function "CALL"s : None. -- -- -- Exceptions : None. -- -- Name Handled/Raised Description -- ---- -------------- ----------- -- -- -- -- Side Effects : -- -- -- Comments : -- --%---------------------------------------------------------------------- -- -- Declarations -- -- -- Local Environment Related Constants -- COM_DIR : constant string := ".COM]"; DATA_DIR : constant string := ".DATA]"; DOC_DIR : constant string := ".DOC]"; EXE_DIR : constant string := ".EXE]"; HIST_DIR : constant string := ".HISTORY]"; INTEG_DIR : constant string := ".INTEG]"; LIST_DIR : constant string := ".LIS]"; LOG_DIR : constant string := ".LOG]"; LIB_DIR : constant string := ".ADALIB]"; SOURCE_DIR : constant string := ".SOURCE]"; TEMP_DIR : constant string := ".TEMP]"; VERS_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$VERS"; TEST_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$TEST"; ENV_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$ENVIRON"; FAC_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$FACILITY"; MOD_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$MODULE"; DATA_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$DATA"; DOC_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$DOC"; LOG_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$LOG"; INTEG_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$INTEG"; TMP_LIB_LOGICAL : constant LOGICAL_NAME_TYPE := "APSE$TMP$LIB"; -- -- Global Environment Related Constants -- LIB_LOGICAL : constant LOGICAL_NAME_TYPE := "ADA$LIB"; DISK_LOGICAL : constant LOGICAL_NAME_TYPE := "SYS$DISK"; INPUT_LOGICAL : constant LOGICAL_NAME_TYPE := "SYS$INPUT"; OUTPUT_LOGICAL : constant LOGICAL_NAME_TYPE := "SYS$OUTPUT"; DIRECTORY_FILE : constant string := ".DIR"; -- -- Data File Constants -- USER_FILE : constant string := DATA_LOGICAL & ":USER_PRIVILEDGE.DAT"; SOURCE_HEADER : constant string := DATA_LOGICAL & ":ADA_SOURCE.HDR"; ILLEGAL_CMDS : constant string := DATA_LOGICAL & ":ILLEGAL_DCL.DAT"; VERS_FILE : constant string := DATA_LOGICAL & ":VERSION.DAT"; TEST_FILE : constant string := DATA_LOGICAL & ":TEST_BED.DAT"; ENV_FILE : constant string := DATA_LOGICAL & ":ENVIRON.DAT"; FAC_FILE : constant string := DATA_LOGICAL & ":FACILITY.DAT"; CHECKOUT_FILE : constant string := LOG_DIR & "MODULE_STATUS.LOG"; USERLOG_FILE : constant string := LOG_DIR & "USER_LOGIN.LOG"; EDT_INIT_FILE : constant string := "EDTINI.EDT"; LIS_EXT : constant string := ".LIS"; EXE_EXT : constant string := ".EXE"; ADA_EXT : constant string := ".ADA"; ADC_EXT : constant string := ".ADC"; OBJ_EXT : constant string := ".OBJ"; COM_EXT : constant string := ".COM"; -- -- Access Control List Constants -- MAX_ACL : constant := 20; -- maximum number of ACL's -- -- Error Message Constants -- PRIV_ERR : constant := 1; -- priviledge error -- DCL_ERR : constant := 2; -- illegal DCL command -- SRCE_ERR : constant := 3; -- source file error -- EXT_ERR : constant := 4; -- file extension error -- ESC_ERR : constant := 5; -- escape error -- ACC_ERR : constant := 6; -- system access error -- DAT_ERR : constant := 7; -- data file error -- ACL_ERR : constant := 8; -- access control list error -- HDR_ERR : constant := 9; -- source header error -- NOT_IMP : constant := 10; -- unimplemented command -- NO_FILE : constant := 11; -- file unavailable -- CMD_ERR : constant := 12; -- command line error -- ENV_ERR : constant := 13; -- environment spec. error -- MISSING_FILE : constant := 14; -- disk file missing or uncreateable -- UNKNOWN_ERROR : constant := 15; -- unexpected exception raised -- VD_ERR : constant := 16; -- unexpected error with virtual disp.-- -- -- Common DCL Commands -- HELP_DIR_CMD : constant string := "DIR/NOHEAD/NOTRAIL/COL=1/BRIEF "; COMPILE_STR : constant string := "/SHOW=ALL/NONOTE_SOURCE" & "/COPY_SOURCE/LIBRARY=ADA$LIB/LIST="; ADA_CMD : constant string := "ADA"; TTY_PRINT : constant string := "TYPE "; LP_PRINT : constant string := "PRINT/FLAG=ALL"; COPY : constant string := "COPY "; RENAME : constant string := "RENAME/NOLOG "; DEL : constant string := "DELETE/NOLOG "; PURGE : constant string := "PURGE/NOLOG "; EDIT : constant string := "EDIT/EDT/COM="; INC_SEARCH : constant string := "SEARCH/WIN=0/MAT=AND"; MAIL_CMD1 : constant string := "MAIL/SUBJ="; MAIL_CMD2 : constant string := "]_Source_Request "; TREE : constant string := COM_DIR & "DRAWTREE"; -- -- Ada Compilation System Commands -- ACS_CMP : constant string := "COMPILE"; ACS_REC : constant string := "RECOMPILE"; ACS_ADE : constant string := "DELETE UNIT"; ACS_ASE : constant string := "SET LIBRARY"; ACS_CHE : constant string := "CHECK"; ACS_EXP : constant string := "EXPORT"; ACS_LIB : constant string := "DIRECTORY"; ACS_LNK : constant string := "LINK"; ACS_REF : constant string := "SHOW PROGRAM/BRIEF"; ACS_ENT : constant string := "ENTER UNIT"; ACS_VER : constant string := "VERIFY"; ACS_GET : constant string := "EXTRACT SOURCE"; ACS_FOR : constant string := "COPY FOREIGN"; ACS_MER : constant string := "MERGE"; ACS_CLIB : constant string := "CREATE LIBRARY"; ACS_DLIB : constant string := "DELETE LIBRARY"; ACS_CSUB : constant string := "CREATE SUBLIBRARY"; ACS_DSUB : constant string := "DELETE SUBLIBRARY"; -- -- Misc. String Constants -- CHK_OUT_HDR_ONE : constant string := "Module Checkout Status - "; CHK_OUT_HDR_TWO : constant string := "Last Access - "; CHK_OUT_EMPTY : constant string := "No Modules Currently Checked Out"; end GLOBAL_CONSTANTS;