/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:05 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]SOR$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE sor$routines ***/ #ifndef __SOR_ROUTINES_LOADED #define __SOR_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 /**************************************************************************** */ /* * */ /* COPYRIGHT (c) 1988 BY * */ /* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * */ /* ALL RIGHTS RESERVED. * */ /* * */ /* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * */ /* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * */ /* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * */ /* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * */ /* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * */ /* TRANSFERRED. * */ /* * */ /* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * */ /* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * */ /* CORPORATION. * */ /* * */ /* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * */ /* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * */ /* * */ /* * */ /**************************************************************************** */ /* */ /* SOR$BEGIN_MERGE */ /* */ /* Initialize a Merge Operation */ /* */ /* Initializes the merge operation by opening the input and output files */ /* and by providing the number of input files, the key specifications, */ /* and the merge options. */ /* */ #define sor$begin_merge SOR$BEGIN_MERGE #ifdef __NEW_STARLET unsigned int sor$begin_merge( __optional_params ); #else /* __OLD_STARLET */ unsigned int sor$begin_merge(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$BEGIN_SORT */ /* */ /* Begin a Sort Operation */ /* */ /* Initializes a sort operation by opening input and output files and by */ /* passing the key information and any sort options. */ /* */ #define sor$begin_sort SOR$BEGIN_SORT #ifdef __NEW_STARLET unsigned int sor$begin_sort( __optional_params ); #else /* __OLD_STARLET */ unsigned int sor$begin_sort(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$DO_MERGE */ /* */ /* Obsolete (from VMS V3) */ /* */ #define sor$do_merge SOR$DO_MERGE #ifdef __NEW_STARLET int sor$do_merge(void); #else /* __OLD_STARLET */ int sor$do_merge(void); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$END_SORT */ /* */ /* End a Sort Operation */ /* */ /* Does cleanup functions, such as closing files and releasing memory. */ /* */ #define sor$end_sort SOR$END_SORT #ifdef __NEW_STARLET unsigned int sor$end_sort( __optional_params); #else /* __OLD_STARLET */ unsigned int sor$end_sort(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$INIT_MERGE */ /* */ /* Obsolete (from VMS V3) */ /* */ #define sor$init_merge SOR$INIT_MERGE #ifdef __NEW_STARLET int sor$init_merge( __optional_params ); #else /* __OLD_STARLET */ int sor$init_merge(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$INIT_SORT */ /* */ /* Obsolete (from VMS V3) */ /* */ #define sor$init_sort SOR$INIT_SORT #ifdef __NEW_STARLET int sor$init_sort( __optional_params ); #else /* __OLD_STARLET */ int sor$init_sort(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$PASS_FILES */ /* */ /* Pass File Names */ /* */ /* Passes the names of input and output files and output file */ /* characteristics to SORT or MERGE. */ /* */ #define sor$pass_files SOR$PASS_FILES #ifdef __NEW_STARLET unsigned int sor$pass_files( __optional_params ); #else /* __OLD_STARLET */ unsigned int sor$pass_files(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$RELEASE_REC */ /* */ /* Pass One Record to Sort */ /* */ /* Used with the record interface to pass one input record to SORT or */ /* MERGE. */ /* */ #define sor$release_rec SOR$RELEASE_REC #ifdef __NEW_STARLET unsigned int sor$release_rec( void *desc, __optional_params); #else /* __OLD_STARLET */ unsigned int sor$release_rec(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$RETURN_REC */ /* */ /* Return One Sorted Record */ /* */ /* Used with the record interface to return one sorted or merged */ /* record to a program. */ /* */ #define sor$return_rec SOR$RETURN_REC #ifdef __NEW_STARLET unsigned int sor$return_rec( void *desc, __optional_params ); #else /* __OLD_STARLET */ unsigned int sor$return_rec(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$SORT_MERGE */ /* */ /* Sort */ /* */ /* Sorts the input records. */ /* */ #define sor$sort_merge SOR$SORT_MERGE #ifdef __NEW_STARLET unsigned int sor$sort_merge( __optional_params); #else /* __OLD_STARLET */ unsigned int sor$sort_merge(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$SPEC_FILE */ /* */ /* Pass a Specification File Name */ /* */ /* Used to pass a specification file or specification text. */ /* */ #define sor$spec_file SOR$SPEC_FILE #ifdef __NEW_STARLET unsigned int sor$spec_file( __optional_params ); #else /* __OLD_STARLET */ unsigned int sor$spec_file(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* SOR$STAT */ /* */ /* Obtain Sorting Statistics */ /* */ /* Returns one statistic about the sort or merge operation to the user */ /* program. */ /* */ #define sor$stat SOR$STAT #ifdef __NEW_STARLET unsigned int sor$stat( unsigned int *code, unsigned int *result, __optional_params); #else /* __OLD_STARLET */ unsigned int sor$stat(__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 /* __SOR_ROUTINES_LOADED */