#ifndef PRAGMAS_CIA_PRAGMAS_H
#define PRAGMAS_CIA_PRAGMAS_H

/*
**	$VER: cia_pragmas.h 47.4 (5.2.2022)
**
**	Lattice 'C', Aztec 'C', SAS/C and DICE format pragma files.
*/

#ifndef CLIB_CIA_PROTOS_H
#include <clib/cia_protos.h>
#endif /* CLIB_CIA_PROTOS_H */

/****************************************************************************/

/* The ciaa.resource/ciab.resource library stub functions are part of
 * amiga.lib, but it should not be necessary to use them. The following
 * defines local stub functions which then in turn call the respective
 * ciaa.resource/ciab.resource functions through the "#pragma libcall"
 * command.
 *
 * Because the definition of these local stub functions may conflict with
 * the creation of precompiled header files in Lattice and SAS/C this feature
 * is not enabled by default. You need to add "#define __USE_CIA_STUBS" to
 * enable it.
 */

#ifdef __USE_CIA_STUBS

/****************************************************************************/

struct Interrupt * __AddICRVector(LONG iCRBit, struct Interrupt *interrupt);
VOID __RemICRVector(LONG iCRBit, struct Interrupt *interrupt);
WORD __AbleICR(LONG mask);
WORD __SetICR(LONG mask);

/****************************************************************************/

#pragma libcall __CIABase __AddICRVector 6 9002
#pragma libcall __CIABase __RemICRVector c 9002
#pragma libcall __CIABase __AbleICR 12 001
#pragma libcall __CIABase __SetICR 18 001

/****************************************************************************/

STATIC struct Interrupt *
__AddICRVector_stub(
	struct Library *	__CIABase,
	WORD			iCRBit,
	struct Interrupt *	interrupt)
{
	return __AddICRVector(iCRBit, interrupt);
}

#define AddICRVector(resource, iCRBit, interrupt) \
	__AddICRVector_stub((resource), (iCRBit), (interrupt))

/****************************************************************************/

STATIC VOID
__RemICRVector_stub(
	struct Library *	__CIABase,
	WORD			iCRBit,
	struct Interrupt *	interrupt)
{
	__RemICRVector(iCRBit, interrupt);
}

#define RemICRVector(resource, iCRBit, interrupt) \
	__RemICRVector_stub((resource), (iCRBit), (interrupt))

/****************************************************************************/

STATIC WORD
__AbleICR_stub(
	struct Library *	__CIABase,
	WORD			mask)
{
	return __AbleICR(mask);
}

#define AbleICR(resource, mask) \
	__AbleICR_stub((resource), (mask))

/****************************************************************************/

STATIC WORD
__SetICR_stub(
	struct Library *	__CIABase,
	WORD			mask)
{
	return __SetICR(mask);
}

#define SetICR(resource, mask) \
	__SetICR_stub((resource), (mask))

/****************************************************************************/

#endif /* __USE_CIA_STUBS */

/****************************************************************************/

#endif /* PRAGMAS_CIA_PRAGMAS_H */