--********************************************************************************************************************
-- Created: 30-Mar-2010 17:01:52 by OpenVMS SDL EV3-3      
-- Source:  12-MAR-2008 14:46:08 $1$DGA7274:[STARLET_ADA.LIS]LIBFILDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package LIBFILDEF is
 
--  module $LIBFILDEF
 
-- Interface definitions for LIB$*_FILE
--
-- LIB$FIND_FILE flag definitions
 
    LIB_M_FIL_NOWILD		: constant := 1;			--  No wild carding allow
    LIB_M_FIL_MULTIPLE		: constant := 2;			--  Multiple input files
 
-- LIB$RENAME_FILE flag definitions
 
    LIB_M_FIL_CUR_VER		: constant := 1;			--  Current version used
    LIB_M_FIL_INH_SECUR		: constant := 2;			--  Inherit security
 
-- LIB$DELETE_FILE & LIB$FIND_FILE & LIB$RENAME_FILE flag definition
 
    LIB_M_FIL_LONG_NAMES	: constant := 4;			--  Handle long file names
    LIB_M_FIL_IGNORE_ACCESS	: constant := 8;			--  Ignore write access on delete
    LIB_M_FIL_OPEN_SPECIAL	: constant := 16;			--  Correspands to NAML$V_OPEN_SPECIAL
 
-- NOTE: Symlink search mode encodings are coordinated across $JPIDEF, $LIBCQDEF,
-- $LIBFILDEF, $PPROPDEF, and $NAMLDEF.
 
    LIB_M_FIL_SYMLINK_DEFAULT	: constant := 0;			--  use process default
    LIB_M_FIL_SYMLINK_NONE	: constant := 32;			--  use no symlinks
    LIB_M_FIL_SYMLINK_ALL	: constant := 64;			--  use symlinks always
    LIB_M_FIL_SYMLINK_NOELLIPS	: constant := 96;			--  use symlinks except in ellipsis
 
end LIBFILDEF;