/********************************************************************************************************************************/ /* Created: 9-Mar-2021 22:28:02 by OpenVMS SDL EV3-3 */ /* Source: 09-MAR-2021 22:28:00 $1$DGA8085:[STARLET_H.SRC]DCX$ROUTINES.SDI;1 */ /********************************************************************************************************************************/ /*** MODULE DCX$ROUTINES IDENT X-1 ***/ #ifndef __DCX_ROUTINES_LOADED #define __DCX_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 /*--------------------------------------------------------------- */ /* */ /* Data Compression/Expansion (DCX) Routines */ /* */ /* */ /* DCX$ANALYZE_DATA - Analyze a data record */ /* */ /* status = DCX$ANALYZE_DATA (context, record) */ /* */ /* context - Context value returned by DCX$ANALYZE_INIT */ /* record - Record to be analyzed */ #define dcx$analyze_data DCX$ANALYZE_DATA #ifdef __NEW_STARLET unsigned int dcx$analyze_data( unsigned int *context, void *record); #else /* __OLD_STARLET */ unsigned int dcx$analyze_data(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$ANALYZE_DONE - Complete analysis */ /* */ /* status = DCX$ANALYZE_DONE (context) */ /* */ /* context - Context value returned by DCX$ANALYZE_INIT */ #define dcx$analyze_done DCX$ANALYZE_DONE #ifdef __NEW_STARLET unsigned int dcx$analyze_done( unsigned int *context); #else /* __OLD_STARLET */ unsigned int dcx$analyze_done(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$ANALYZE_INIT - Initialize context for analysis */ /* */ /* status = DCX$ANALYZE_INIT (context [,item_code, item_value]) */ /* */ /* context - Receives context value for data stream */ /* item_code - Specifies information to be used during analysis */ /* item_value - Value of information item */ /* [Note - successive pairs of item_code and item_value can be passed */ /* in the argument list] */ /* */ #define dcx$analyze_init DCX$ANALYZE_INIT #ifdef __NEW_STARLET unsigned int dcx$analyze_init( unsigned int *context, __optional_params ); #else /* __OLD_STARLET */ unsigned int dcx$analyze_init(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$COMPRESS_DATA - Compress a data record */ /* */ /* status = DCX$COMPRESS_DATA (context, in_rec, out_rec, out_length) */ /* */ /* context - Value returned by DCX$COMPRESS_INIT */ /* in_rec - Data record to be compressed */ /* out_rec - Receives compressed record */ /* out_length - Receives length of compressed record */ /* */ #define dcx$compress_data DCX$COMPRESS_DATA #ifdef __NEW_STARLET unsigned int dcx$compress_data( unsigned int *context, void *in_rec, void *out_rec, __optional_params); #else /* __OLD_STARLET */ unsigned int dcx$compress_data(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$COMPRESS_DONE - Delete context for compression */ /* */ /* status = DCX$COMPRESS_DONE (context) */ /* */ /* context - Value returned by DCX$COMPRESS_INIT */ /* */ #define dcx$compress_done DCX$COMPRESS_DONE #ifdef __NEW_STARLET unsigned int dcx$compress_done( unsigned int *context); #else /* __OLD_STARLET */ unsigned int dcx$compress_done(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$COMPRESS_INIT - Initialize context for compression */ /* */ /* status = DCX$COMPRESS_INIT (context, map) */ /* */ /* context - Context value for this data stream */ /* map - Map value returned by DCX$MAKE_MAP */ /* */ #define dcx$compress_init DCX$COMPRESS_INIT #ifdef __NEW_STARLET unsigned int dcx$compress_init( unsigned int *context, void *map); #else /* __OLD_STARLET */ unsigned int dcx$compress_init(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$EXPAND_DATA - Expand a compressed data record */ /* */ /* status = DCX$EXPAND_DATA (context, in_rec, out_rec [,out_length]) */ /* */ /* context - Value returned by DCX$EXPAND_INIT */ /* in_rec - Data record to be expanded */ /* out_rec - Receives expanded data record */ /* out_length - Receives length of expanded record */ /* */ #define dcx$expand_data DCX$EXPAND_DATA #ifdef __NEW_STARLET unsigned int dcx$expand_data( unsigned int *context, void *in_rec, void *out_rec, __optional_params); #else /* __OLD_STARLET */ unsigned int dcx$expand_data(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$EXPAND_DONE - Delete context for expansion */ /* */ /* status = DCX$EXPAND_DONE (context) */ /* */ /* context - Value returned by DCX$EXPAND_INIT */ /* */ #define dcx$expand_done DCX$EXPAND_DONE #ifdef __NEW_STARLET unsigned int dcx$expand_done( unsigned int *context); #else /* __OLD_STARLET */ unsigned int dcx$expand_done(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$EXPAND_INIT - Initialize context for expansion */ /* */ /* status = DCX$EXPAND_INIT (context, map) */ /* */ /* context - Receives context value identifying data stream */ /* map - Map value returned by DCX$MAKE_MAP */ /* */ #define dcx$expand_init DCX$EXPAND_INIT #ifdef __NEW_STARLET unsigned int dcx$expand_init( unsigned int *context, void *map); #else /* __OLD_STARLET */ unsigned int dcx$expand_init(__unknown_params); #endif /* #ifdef __NEW_STARLET */ /* */ /* DCX$MAKE_MAP - Compute compression/expansion map */ /* */ /* status = DCX$MAKE_MAP (context, map_addr [, map_size]) */ /* */ /* context - Value returned by DCX$ANALYZE_INIT */ /* map_addr - Receives address of allocated map data */ /* map_size - Receives size of allocated map data */ /* */ #define dcx$make_map DCX$MAKE_MAP #ifdef __NEW_STARLET unsigned int dcx$make_map( unsigned int *context, void *map_addr, __optional_params); #else /* __OLD_STARLET */ unsigned int dcx$make_map(__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 /* __DCX_ROUTINES_LOADED */