/********************************************************************************************************************************/
/* Created:  9-Mar-2021 22:28:04 by OpenVMS SDL EV3-3      */
/* Source:  09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]RMSUSR.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE $FSCNDEF ***/
#ifndef __FSCNDEF_LOADED
#define __FSCNDEF_LOADED 1
 
#pragma __nostandard			 /* This file uses non-ANSI-Standard features */
#pragma __member_alignment __save
#pragma __nomember_alignment
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __save		 /* Save the previously-defined required ptr size */
#pragma __required_pointer_size __short		 /* And set ptr size default to 32-bit pointers */
#endif
 
#ifdef __cplusplus
    extern "C" {
#define __unknown_params ...
#define __optional_params ...
#else
#define __unknown_params
#define __optional_params ...
#endif
 
#ifndef __struct
#if !defined(__VAXC)
#define __struct struct
#else
#define __struct variant_struct
#endif
#endif
 
#ifndef __union
#if !defined(__VAXC)
#define __union union
#else
#define __union variant_union
#endif
#endif
 
/*                                                                          */
/*        Descriptor codes for SYS$FILESCAN                                 */
/*                                                                          */
#define FSCN$M_NODE 0x1
#define FSCN$M_DEVICE 0x2
#define FSCN$M_ROOT 0x4
#define FSCN$M_DIRECTORY 0x8
#define FSCN$M_NAME 0x10
#define FSCN$M_TYPE 0x20
#define FSCN$M_VERSION 0x40
#define FSCN$M_NODE_PRIMARY 0x80
#define FSCN$M_NODE_ACS 0x100
#define FSCN$M_NODE_SECONDARY 0x200
	
#ifdef __NEW_STARLET
typedef struct _fldflags {
    unsigned fscn$v_node : 1;           /* Node name present                */
    unsigned fscn$v_device : 1;         /* Device name present              */
    unsigned fscn$v_root : 1;           /* Root directory present           */
    unsigned fscn$v_directory : 1;      /* Directory present                */
    unsigned fscn$v_name : 1;           /* File name present                */
    unsigned fscn$v_type : 1;           /* File type present                */
    unsigned fscn$v_version : 1;        /* File version present             */
    unsigned fscn$v_node_primary : 1;   /* Primary (first) node present     */
    unsigned fscn$v_node_acs : 1;       /* Primary ACS present              */
    unsigned fscn$v_node_secondary : 1; /* Secondary node present           */
    unsigned fscndef$$_fill_1 : 22;     /* Fill out longword                */
    } FLDFLAGS;
#else	    /* __OLD_STARLET */
struct fldflags {
    unsigned fscn$v_node : 1;           /* Node name present                */
    unsigned fscn$v_device : 1;         /* Device name present              */
    unsigned fscn$v_root : 1;           /* Root directory present           */
    unsigned fscn$v_directory : 1;      /* Directory present                */
    unsigned fscn$v_name : 1;           /* File name present                */
    unsigned fscn$v_type : 1;           /* File type present                */
    unsigned fscn$v_version : 1;        /* File version present             */
    unsigned fscn$v_node_primary : 1;   /* Primary (first) node present     */
    unsigned fscn$v_node_acs : 1;       /* Primary ACS present              */
    unsigned fscn$v_node_secondary : 1; /* Secondary node present           */
    unsigned fscndef$$_fill_1 : 22;     /* Fill out longword                */
    } ;
#endif	    /* #ifdef __NEW_STARLET */
#define FSCN$_FILESPEC 1                /* complete filespec                */
#define FSCN$_NODE 2                    /* node:: field                     */
#define FSCN$_DEVICE 3                  /* device: field                    */
#define FSCN$_ROOT 4                    /* [root.] field                    */
#define FSCN$_DIRECTORY 5               /* [directory] field                */
#define FSCN$_NAME 6                    /* name field                       */
#define FSCN$_TYPE 7                    /* .typ field                       */
#define FSCN$_VERSION 8                 /* ;version field                   */
#define FSCN$_NODE_PRIMARY 9            /* primary node field               */
#define FSCN$_NODE_ACS 10               /* acc. cont. str. fld.             */
#define FSCN$_NODE_SECONDARY 11         /* secondary node field             */
#define FSCN$S_ITEM_LEN 8
	
#ifdef __NEW_STARLET
typedef struct _fscndef {
    unsigned short int fscn$w_length;   /* return length word               */
    unsigned short int fscn$w_item_code; /* item code value                 */
    void *fscn$l_addr;                  /* component address                */
    } FSCNDEF;
#else	    /* __OLD_STARLET */
struct fscndef {
    unsigned short int fscn$w_length;   /* return length word               */
    unsigned short int fscn$w_item_code; /* item code value                 */
    int fscn$l_addr;                    /* component address                */
    } ;
#endif	    /* #ifdef __NEW_STARLET */
	
 
#pragma __member_alignment __restore
#ifdef __INITIAL_POINTER_SIZE			 /* Defined whenever ptr size pragmas supported */
#pragma __required_pointer_size __restore		 /* Restore the previously-defined required ptr size */
#endif
#ifdef __cplusplus
    }
#endif
#pragma __standard
 
#endif /* __FSCNDEF_LOADED */