/********************************************************************************************************************************/
/* Created:  9-Mar-2021 22:28:02 by OpenVMS SDL EV3-3      */
/* Source:  09-MAR-2021 22:28:00 $1$DGA8085:[STARLET_H.SRC]FDL$ROUTINES.SDI;1 */
/********************************************************************************************************************************/
/*** MODULE FDL$ROUTINES IDENT X-2 ***/
#ifndef __FDL_ROUTINES_LOADED
#define __FDL_ROUTINES_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
 
/*                                                                          */
/* File Definition Language (FDL) Routines                                  */
/*                                                                          */
/* Note - FDL routines accept only class S string descriptors               */
/*                                                                          */
/*                                                                          */
/* FDL$CREATE - Create a file                                               */
/*                                                                          */
/* status = FDL$CREATE (fdl_desc [,filename] [,default_name]                */
/*                      [,result_name] [,fid_block] [,flags]                */
/*                      [,stmnt_num] [,retlen] [,sts] [,stv]                */
/*			[,dflt-fdl-spc]                                     */
/*                                                                          */
/*  fdl_desc     - Name of file or string containg FDL statements           */
/*  filename     - Name of file to be created                               */
/*  default_name - Default name string                                      */
/*  result_name  - Receives resultant file name                             */
/*  fid_block    - Receives file ID of created file                         */
/*  flags        - Flags controlling operation                              */
/*  stmt_num     - Receives number of statement in error                    */
/*  retlen       - Receives length of result_name                           */
/*  sts          - Receives RMS STS value                                   */
/*  stv          - Receives RMS STV value                                   */
/*  dflt-fdl-spc - Name of file or string containing default FDL statements */
#define  fdl$create  FDL$CREATE
	
#ifdef __NEW_STARLET
unsigned int fdl$create(
	void *fdl_desc,
	__optional_params
	);
#else	/* __OLD_STARLET */
unsigned int fdl$create(__unknown_params);
#endif	/* #ifdef __NEW_STARLET */
/*                                                                          */
/* FDL$GENERATE - Generate an FDL specification from a file                 */
/*                                                                          */
/* status = FDL$GENERATE (flags, fab_pointer, rab_pointer                   */
/*                       [,fdl_file_dst] [,fdl_file_resnam]                 */
/*			 [,fdl_str_dst] [,bad_blk_addr] [,retlen])          */
/*                                                                          */
/*  flags           - Flags controlling operation                           */
/*  fab_pointer     - Address of FAB block                                  */
/*  rab_pointer     - Address of RAB block                                  */
/*  fdl_file_dst    - Name of FDL file to be created                        */
/*  fdl_file_resnam - Receives resultant name of FDL file                   */
/*  fdl_str_dst     - Receives FDL string                                   */
/*  bad_blk_addr    - Receives address of invalid RMS block                 */
/*  retlen          - Receives length of fdl_file_resnam or fdl_str_dst     */
/*                                                                          */
#define  fdl$generate  FDL$GENERATE
	
#ifdef __NEW_STARLET
unsigned int fdl$generate(
	unsigned int *flags,
	void *fab_pointer,
	void *rab_pointer,
	__optional_params
	);
#else	/* __OLD_STARLET */
unsigned int fdl$generate(__unknown_params);
#endif	/* #ifdef __NEW_STARLET */
/*                                                                          */
/* FDL$PARSE - Parse an FDL specification                                   */
/*                                                                          */
/* status = FDL$PARSE (fdl_spec, fdl_fab_pointer, fdl_rab_pointer           */
/*                     [,flags] [,dflt_fdl_spec] [,stmt_num])               */
/*                                                                          */
/*  fdl_spec        - Name of FDL file or FDL string to be parsed           */
/*  fdl_fab_pointer - Receives address of created FAB                       */
/*  fdl_rab_pointer - Receives address of created RAB                       */
/*  flags           - Flags controlling operation                           */
/*  dflt_fdl_spec   - Name of default FDL file or default FDL string        */
/*  stmt_num        - Receives number of statement in error                 */
/*                                                                          */
#define  fdl$parse  FDL$PARSE
	
#ifdef __NEW_STARLET
unsigned int fdl$parse(
	void *fdl_spec,
	void *fdl_fab_pointer,
	void *fdl_rab_pointer,
	__optional_params
	);
#else	/* __OLD_STARLET */
unsigned int fdl$parse(__unknown_params);
#endif	/* #ifdef __NEW_STARLET */
/*                                                                          */
/* FDL$RELEASE - Release FDL context                                        */
/*                                                                          */
/* status = FDL$RELEASE ([fab_pointer] [,rab_pointer] [,flags]              */
/*                       [,badblk_addr])                                    */
/*                                                                          */
/*  fab_pointer - Address of FAB to be deallocated                          */
/*  rab_pointer - Address of RAB to be deallocated                          */
/*  flags       - Flags controlling operation                               */
/*  badblk_addr - Recives address of invalid RMS block                      */
/*                                                                          */
#define  fdl$release  FDL$RELEASE
	
#ifdef __NEW_STARLET
unsigned int fdl$release(
	__optional_params
	);
#else	/* __OLD_STARLET */
unsigned int fdl$release(__unknown_params);
#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 /* __FDL_ROUTINES_LOADED */