;**************************************************************************
;* Although considerable effort has been expended to make this software   *
;* correct and reliable, no warranty is implied; the author disclaims any *
;* obligation or liability for damages, including but not limited to      *
;* special, indirect, or consequential damages arising out of or in       *
;* connection with the use or performance of this software.               *
;**************************************************************************

	.TITLE	VMSLIB
	.IDENT	/01/
;
;	THIS MODULE CONTAINS INTERFACE ROUTINES TO LIBRARY ROUTINES
;	THAT SIGNAL ERRORS RATHER THAN RETURNING A CONDITION VALUE.
;
	.MACRO	DEFRTN	PREFIX, NAME, NO_COND

	.ENTRY	'PREFIX'_'NAME', ^M<>
	MOVAB	G^LIB$SIG_TO_RET, (FP)	; ESTABLISH CONDITION HANDLER
	CALLG	(AP), G^'PREFIX'$'NAME'	; CALL REAL ROUTINE
	.IF	NOT_BLANK, NO_COND
	MOVL	#SS$_NORMAL, R0		; SET OK STATUS
	.ENDC
	RET				; RETURN TO CALLER

	.ENDM

	.psect	$code	pic,shr,exe,rd,nowrt

	DEFRTN	STR, ANALYZE_SDESC, Y
	DEFRTN	STR, APPEND
	DEFRTN	STR, CONCAT
	DEFRTN	STR, COPY_DX
	DEFRTN	STR, COPY_R
	DEFRTN	STR, FREE1_DX
	DEFRTN	STR, GET1_DX

	.END