/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:03 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:01 $1$DGA8085:[STARLET_H.SRC]NCS$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE ncs$routines ***/ #ifndef __NCS_ROUTINES_LOADED #define __NCS_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. * */ /* * */ /* * */ /**************************************************************************** */ /* NCS$COMPARE */ /* */ /* Compare Strings */ /* */ /* Compares two strings using specified collating sequence as comparison */ /* basis. */ /* */ #define ncs$compare NCS$COMPARE #ifdef __NEW_STARLET int ncs$compare( unsigned int *cs_id, void *string_1, void *string_2); #else /* __OLD_STARLET */ int ncs$compare(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$CONVERT */ /* */ /* Convert String */ /* */ /* Convert a string using the specified conversion function. */ /* */ #define ncs$convert NCS$CONVERT #ifdef __NEW_STARLET unsigned int ncs$convert( unsigned int *cf_id, void *source, void *dest, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$convert(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$END_CF */ /* */ /* End Conversion Function */ /* */ /* Terminates the use of a conversion function by the calling program. */ /* */ #define ncs$end_cf NCS$END_CF #ifdef __NEW_STARLET unsigned int ncs$end_cf( unsigned int *cf_id); #else /* __OLD_STARLET */ unsigned int ncs$end_cf(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$END_CS */ /* */ /* End Collating Sequence */ /* */ /* Terminates the use of a collating sequence by the calling program. */ /* */ #define ncs$end_cs NCS$END_CS #ifdef __NEW_STARLET unsigned int ncs$end_cs( unsigned int *cs_id); #else /* __OLD_STARLET */ unsigned int ncs$end_cs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$GET_CF */ /* */ /* Get Conversion Function */ /* */ /* Retrieves the definition of the named conversion function from the NCS */ /* library. */ /* */ #define ncs$get_cf NCS$GET_CF #ifdef __NEW_STARLET unsigned int ncs$get_cf( unsigned int *cf_id, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$get_cf(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$GET_CS */ /* */ /* Get Collating Sequence */ /* */ /* Retrieves the definition of the named collating sequence from the NCS */ /* library. */ /* */ #define ncs$get_cs NCS$GET_CS #ifdef __NEW_STARLET unsigned int ncs$get_cs( unsigned int *cs_id, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$get_cs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$RESTORE_CF */ /* */ /* Restore Conversion Function */ /* */ /* Permits the calling program to restore the definition of a "saved" */ /* conversion function from a data base or an RMS file. */ /* */ #define ncs$restore_cf NCS$RESTORE_CF #ifdef __NEW_STARLET unsigned int ncs$restore_cf( unsigned int *cf_id, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$restore_cf(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$RESTORE_CS */ /* */ /* Restore Collating Sequence */ /* */ /* Permits the calling program to restore the definition of a "saved" collating */ /* sequence from a data base or an RMS file. */ /* */ #define ncs$restore_cs NCS$RESTORE_CS #ifdef __NEW_STARLET unsigned int ncs$restore_cs( unsigned int *cs_id, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$restore_cs(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$SAVE_CF */ /* */ /* Save Conversion Function */ /* */ /* Provides the calling program with information that permits the application */ /* to store the definition of a conversion function in a local data base or an */ /* RMS file rather than the NCS$LIBRARY. */ /* */ #define ncs$save_cf NCS$SAVE_CF #ifdef __NEW_STARLET unsigned int ncs$save_cf( unsigned int *cf_id, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$save_cf(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* NCS$SAVE_CS */ /* */ /* Save Collating Sequence */ /* */ /* Provides the calling program with information that permits the application */ /* to store the definition of a collating sequence in a local data base or an */ /* RMS file rather than the NCS$LIBRARY. */ /* */ #define ncs$save_cs NCS$SAVE_CS #ifdef __NEW_STARLET unsigned int ncs$save_cs( unsigned int *cs_id, __optional_params ); #else /* __OLD_STARLET */ unsigned int ncs$save_cs(__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 /* __NCS_ROUTINES_LOADED */