/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:02 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:00 $1$DGA8085:[STARLET_H.SRC]EDT$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE EDT$ROUTINES IDENT X-1 ***/ #ifndef __EDT_ROUTINES_LOADED #define __EDT_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 /* */ /* EDT Editor (EDT) Routines */ /* */ /* */ /* EDT$EDIT - Edit a file */ /* */ /* status = EDT$EDIT (in_file [,out_file] [,com_file] [,jou_file] [,options] */ /* [,fileio] [,workio] [,xlate] ) */ /* */ /* in_file - Input file specification */ /* out_file - Output file specification */ /* com_file - Startup command file specification */ /* jou_file - Journal file specification */ /* options - Options for edit operation */ /* fileio - Bound procedure value for file I/O routine */ /* workio - Bound procedure value for work I/O routine */ /* xlate - Bound procedure value for XLATE routine */ /* */ #define edt$edit EDT$EDIT #ifdef __NEW_STARLET unsigned int edt$edit( void *in_file, __optional_params ); #else /* __OLD_STARLET */ unsigned int edt$edit(__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 /* __EDT_ROUTINES_LOADED */