Retrace.h

Go to the documentation of this file.

 
#ifndef __RETRACE__
#define __RETRACE__
 
#ifndef __MACTYPES__
#include <MacTypes.h>
#endif
 
#ifndef __OSUTILS__
#include <OSUtils.h>
#endif
 
#if PRAGMA_ONCE
#pragma once
#endif
 
#ifdef __cplusplus
extern "C"
{
#endif
 
#if PRAGMA_IMPORT
#pragma import on
#endif
 
#if PRAGMA_STRUCT_ALIGN
#pragma options align = mac68k
#elif PRAGMA_STRUCT_PACKPUSH
#pragma pack(push, 2)
#elif PRAGMA_STRUCT_PACK
#pragma pack(2)
#endif
 
    typedef struct VBLTask VBLTask;
    typedef VBLTask *VBLTaskPtr;
    typedef CALLBACK_API_REGISTER68K(void, VBLProcPtr, (VBLTaskPtr vblTaskPtr));
    typedef REGISTER_UPP_TYPE(VBLProcPtr) VBLUPP;
    struct VBLTask
    {
        QElemPtr qLink;
        short qType;
        VBLUPP vblAddr;
        short vblCount;
        short vblPhase;
    };
 
#if CALL_NOT_IN_CARBON
    VBLUPP
    NewVBLUPP(VBLProcPtr userRoutine);
#if !OPAQUE_UPP_TYPES
    enum
    {
        uppVBLProcInfo = 0x00009802
    }; /* register no_return_value Func(4_bytes:A0) */
#ifdef __cplusplus
    inline VBLUPP NewVBLUPP(VBLProcPtr userRoutine)
    {
        return (VBLUPP)NewRoutineDescriptor((ProcPtr)(userRoutine), uppVBLProcInfo,
                                            GetCurrentArchitecture());
    }
#else
#define NewVBLUPP(userRoutine)                                            \
    (VBLUPP) NewRoutineDescriptor((ProcPtr)(userRoutine), uppVBLProcInfo, \
                                  GetCurrentArchitecture())
#endif
#endif
 
    void
    DisposeVBLUPP(VBLUPP userUPP);
#if !OPAQUE_UPP_TYPES
#ifdef __cplusplus
    inline void DisposeVBLUPP(VBLUPP userUPP)
    {
        DisposeRoutineDescriptor((UniversalProcPtr)userUPP);
    }
#else
#define DisposeVBLUPP(userUPP) DisposeRoutineDescriptor(userUPP)
#endif
#endif
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter InvokeVBLUPP(__A0, __A1)
#endif
    void
    InvokeVBLUPP(VBLTaskPtr vblTaskPtr, VBLUPP userUPP);
#if !OPAQUE_UPP_TYPES && \
    (!TARGET_OS_MAC || !TARGET_CPU_68K || TARGET_RT_MAC_CFM)
#ifdef __cplusplus
    inline void InvokeVBLUPP(VBLTaskPtr vblTaskPtr, VBLUPP userUPP)
    {
        CALL_ONE_PARAMETER_UPP(userUPP, uppVBLProcInfo, vblTaskPtr);
    }
#else
#define InvokeVBLUPP(vblTaskPtr, userUPP) \
    CALL_ONE_PARAMETER_UPP((userUPP), uppVBLProcInfo, (vblTaskPtr))
#endif
#endif
 
#endif /* CALL_NOT_IN_CARBON */
 
#if CALL_NOT_IN_CARBON || OLDROUTINENAMES
/* support for pre-Carbon UPP routines: New...Proc and Call...Proc */
#define NewVBLProc(userRoutine) NewVBLUPP(userRoutine)
#define CallVBLProc(userRoutine, vblTaskPtr) \
    InvokeVBLUPP(vblTaskPtr, userRoutine)
#endif /* CALL_NOT_IN_CARBON */
 
#if CALL_NOT_IN_CARBON
 
    while (qep != 0)
    {
        printf("Task at %lx has %d ticks to go\n", qep, qep->vblCount);
        qep = qep->qLink;
    }
    </ pre>
                * \copyright THINK Reference © 1991 - 1992 Symantec Corporation
                                                          *    \non_carbon_cfm in InterfaceLib 7.1 and
        later
                *    \carbon_lib not available *    \mac_os_x not available *
            /
            QHdrPtr
                GetVBLQHdr(void);
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter __D0 SlotVInstall(__A0, __D0)
#endif
    OSErr
    SlotVInstall(QElemPtr vblBlockPtr, short theSlot);
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter __D0 SlotVRemove(__A0, __D0)
#endif
    OSErr
    SlotVRemove(QElemPtr vblBlockPtr, short theSlot);
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter __D0 AttachVBL(__D0)
#endif
    OSErr
    AttachVBL(short theSlot);
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter __D0 DoVBLTask(__D0)
#endif
    OSErr
    DoVBLTask(short theSlot);
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter __D0 VInstall(__A0)
#endif
    OSErr
    VInstall(QElemPtr vblTaskPtr);
 
#if TARGET_OS_MAC && TARGET_CPU_68K && !TARGET_RT_MAC_CFM
#pragma parameter __D0 VRemove(__A0)
#endif
    OSErr
    VRemove(QElemPtr vblTaskPtr);
 
#endif /* CALL_NOT_IN_CARBON */
 
#if PRAGMA_STRUCT_ALIGN
#pragma options align = reset
#elif PRAGMA_STRUCT_PACKPUSH
#pragma pack(pop)
#elif PRAGMA_STRUCT_PACK
#pragma pack()
#endif
 
#ifdef PRAGMA_IMPORT_OFF
#pragma import off
#elif PRAGMA_IMPORT
#pragma import reset
#endif
 
#ifdef __cplusplus
}
#endif
 
#endif /* __RETRACE__ */
* /*/*/ * /*/*/ * /