TypeSelect.h

Go to the documentation of this file.

 
#ifndef __TYPESELECT__
#define __TYPESELECT__
 
#ifndef __EVENTS__
#include <Events.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 SInt16 TSCode;
  enum
  {
    tsPreviousSelectMode = -1,
    tsNormalSelectMode = 0,
    tsNextSelectMode = 1
  };
 
  struct TypeSelectRecord
  {
    unsigned long tsrLastKeyTime;
    ScriptCode tsrScript;
    Str63 tsrKeyStrokes;
  };
  typedef struct TypeSelectRecord TypeSelectRecord;
  typedef CALLBACK_API(Boolean, IndexToStringProcPtr)(short item,
                                                      ScriptCode *itemsScript,
                                                      StringPtr *itemsStringPtr,
                                                      void *yourDataPtr);
  typedef STACK_UPP_TYPE(IndexToStringProcPtr) IndexToStringUPP;
  void
  TypeSelectClear(TypeSelectRecord *tsr);
 
  Boolean
  TypeSelectNewKey(const EventRecord *theEvent, TypeSelectRecord *tsr);
 
  short
  TypeSelectFindItem(const TypeSelectRecord *tsr, short listSize,
                     TSCode selectMode, IndexToStringUPP getStringProc,
                     void *yourDataPtr);
 
  short
  TypeSelectCompare(const TypeSelectRecord *tsr, ScriptCode testStringScript,
                    StringPtr testStringPtr);
 
  IndexToStringUPP
  NewIndexToStringUPP(IndexToStringProcPtr userRoutine);
#if !OPAQUE_UPP_TYPES
  enum
  {
    uppIndexToStringProcInfo = 0x00003F90
  }; /* pascal 1_byte Func(2_bytes, 4_bytes, 4_bytes, 4_bytes) */
#ifdef __cplusplus
  inline IndexToStringUPP NewIndexToStringUPP(IndexToStringProcPtr userRoutine)
  {
    return (IndexToStringUPP)NewRoutineDescriptor((ProcPtr)(userRoutine),
                                                  uppIndexToStringProcInfo,
                                                  GetCurrentArchitecture());
  }
#else
#define NewIndexToStringUPP(userRoutine)                                     \
  (IndexToStringUPP)                                                         \
      NewRoutineDescriptor((ProcPtr)(userRoutine), uppIndexToStringProcInfo, \
                           GetCurrentArchitecture())
#endif
#endif
 
  void
  DisposeIndexToStringUPP(IndexToStringUPP userUPP);
#if !OPAQUE_UPP_TYPES
#ifdef __cplusplus
  inline void DisposeIndexToStringUPP(IndexToStringUPP userUPP)
  {
    DisposeRoutineDescriptor((UniversalProcPtr)userUPP);
  }
#else
#define DisposeIndexToStringUPP(userUPP) DisposeRoutineDescriptor(userUPP)
#endif
#endif
 
  Boolean
  InvokeIndexToStringUPP(short item, ScriptCode *itemsScript,
                         StringPtr *itemsStringPtr, void *yourDataPtr,
                         IndexToStringUPP userUPP);
#if !OPAQUE_UPP_TYPES
#ifdef __cplusplus
  inline Boolean InvokeIndexToStringUPP(short item, ScriptCode *itemsScript,
                                        StringPtr *itemsStringPtr,
                                        void *yourDataPtr,
                                        IndexToStringUPP userUPP)
  {
    return (Boolean)CALL_FOUR_PARAMETER_UPP(userUPP, uppIndexToStringProcInfo,
                                            item, itemsScript, itemsStringPtr,
                                            yourDataPtr);
  }
#else
#define InvokeIndexToStringUPP(item, itemsScript, itemsStringPtr, yourDataPtr, \
                               userUPP)                                        \
  (Boolean)                                                                    \
      CALL_FOUR_PARAMETER_UPP((userUPP), uppIndexToStringProcInfo, (item),     \
                              (itemsScript), (itemsStringPtr), (yourDataPtr))
#endif
#endif
 
#if CALL_NOT_IN_CARBON || OLDROUTINENAMES
/* support for pre-Carbon UPP routines: New...Proc and Call...Proc */
#define NewIndexToStringProc(userRoutine) NewIndexToStringUPP(userRoutine)
#define CallIndexToStringProc(userRoutine, item, itemsScript, itemsStringPtr, \
                              yourDataPtr)                                    \
  InvokeIndexToStringUPP(item, itemsScript, itemsStringPtr, yourDataPtr,      \
                         userRoutine)
#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 /* __TYPESELECT__ */