sapi51.inc

; SAPI 5.1
; GUIDS ---------------------------------------------------------------------------

.data
CLSID_SpVoice  GUID {096749377h,03391h,011D2h,<09Eh,0E3h,000h,0C0h,04Fh,079h,073h,096h>}
IID_ISpVoice   GUID {06C44DF74h,072B9h,04992h,<0A1h,0ECh,0EFh,099h,06Eh,004h,022h,0D4h>}
.const


TEXT_ MACRO your_text:VARARG
   LOCAL text_string
   .data
    text_string db your_text,0
   .code
   EXITM <addr text_string>
ENDM

;Com

CoMethod1Proto  typedef proto :DWORD
CoMethod2Proto  typedef proto :DWORD, :DWORD
CoMethod3Proto  typedef proto :DWORD, :DWORD, :DWORD
CoMethod4Proto  typedef proto :DWORD, :DWORD, :DWORD, :DWORD
CoMethod5Proto  typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod6Proto  typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod7Proto  typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod8Proto  typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod9Proto  typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod10Proto typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod11Proto typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod12Proto typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod13Proto typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod14Proto typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD
CoMethod15Proto typedef proto :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD, :DWORD

CoMethod1   typedef ptr CoMethod1Proto
CoMethod2   typedef ptr CoMethod2Proto
CoMethod3   typedef ptr CoMethod3Proto
CoMethod4   typedef ptr CoMethod4Proto
CoMethod5   typedef ptr CoMethod5Proto
CoMethod6   typedef ptr CoMethod6Proto
CoMethod7   typedef ptr CoMethod7Proto
CoMethod8   typedef ptr CoMethod8Proto
CoMethod9   typedef ptr CoMethod9Proto
CoMethod10  typedef ptr CoMethod10Proto
CoMethod11  typedef ptr CoMethod11Proto
CoMethod12  typedef ptr CoMethod12Proto
CoMethod13  typedef ptr CoMethod13Proto
CoMethod14  typedef ptr CoMethod14Proto
CoMethod15  typedef ptr CoMethod15Proto

_vtIUnknown MACRO Name:REQ
    &Name&_QueryInterface   CoMethod3   ?
    &Name&_AddRef       CoMethod1   ?
    &Name&_Release      CoMethod1   ?
ENDM

IUnknown struct
    _vtIUnknown IUnknown
IUnknown ends


coinvoke MACRO pInterface:REQ, Interface:REQ, Function:REQ, args:VARARG
    LOCAL istatement, arg
    FOR arg, <args>     ;; run thru args to see if edx is lurking in there
        IFIDNI <&arg>, <edx>
            .ERR <edx is not allowed as a coinvoke parameter>
        ENDIF
    ENDM
    istatement CATSTR <invoke (Interface PTR[edx]).&Interface>,<_>,<&Function, pInterface>
    IFNB <args>     ;; add the list of parameter arguments if any
        istatement CATSTR istatement, <, >, <&args>
    ENDIF
    mov edx, pInterface
    mov edx, [edx]
    istatement
ENDM


RELEASE_INTERFACE MACRO Interface:REQ
    .if &Interface != 0
        coinvoke Interface,IUnknown,Release
        mov Interface,0
    .endif
ENDM



; INTERFACES ---------------------------------------------------------------------------

_vtISpVoice MACRO Name:REQ

   ;; IUnknown Methods
   _vtIUnknown Name

   ;; ISpVoice Methods
   &Name&_SetNotifySink                CoMethod1      ?
   &Name&_SetNotifyWindowMessage       CoMethod5      ?
   &Name&_SetNotifyCallbackFunction    CoMethod4      ?
   &Name&_SetNotifyCallbackInterface   CoMethod4      ?
   &Name&_SetNotifyWin32Event          CoMethod1      ?
   &Name&_WaitForNotifyEvent           CoMethod2      ?
   &Name&_GetNotifyEventHandl          CoMethod1      ?
   &Name&_SetInterest                  CoMethod3      ?
   &Name&_GetEvents                    CoMethod4      ?
   &Name&_GetInfo                      CoMethod2      ?
   &Name&_SetOutput                    CoMethod3      ?
   &Name&_GetOutputObjectToken         CoMethod2      ?
   &Name&_GetOutputStream              CoMethod2      ?
   &Name&_Pause                        CoMethod1      ?
   &Name&_Resume                       CoMethod1      ?
   &Name&_SetVoice                     CoMethod2      ?
   &Name&_GetVoice                     CoMethod2      ?
   &Name&_Speak                        CoMethod4      ?
   &Name&_SpeakStream                  CoMethod4      ?
   &Name&_GetStatus                    CoMethod3      ?
   &Name&_Skip                         CoMethod4      ?
   &Name&_SetPriority                  CoMethod2      ?
   &Name&_GetPriority                  CoMethod2      ?
   &Name&_SetAlertBoundary             CoMethod2      ?
   &Name&_GetAlertBoundary             CoMethod2      ?
   &Name&_SetRate                      CoMethod2      ?
   &Name&_GetRate                      CoMethod2      ?
   &Name&_SetVolume                    CoMethod2      ?
   &Name&_GetVolume                    CoMethod2      ?
   &Name&_WaitUntilDone                CoMethod2      ?
   &Name&_SetSyncSpeakTimeout          CoMethod2      ?
   &Name&_GetSyncSpeakTimeout          CoMethod2      ?
   &Name&_SpeakCompleteEvent           CoMethod1      ?
   &Name&_IsUISupported                CoMethod5      ?
   &Name&_DisplayUI                    CoMethod6      ?
ENDM
ISpVoice struct dword
   _vtISpVoice ISpVoice
ISpVoice ends

SpVoice    TYPEDEF PTR ISpVoice


SPF_DEFAULT            equ 0
SPF_ASYNC              equ 1
SPF_PURGEBEFORESPEAK   equ 2
SPF_IS_FILENAME        equ 4
SPF_IS_XML             equ 8
SPF_IS_NOT_XML         equ 16
SPF_PERSIST_XML        equ 32
SPF_NLP_SPEAK_PUNC     equ 64
SPF_NLP_MASK           equ SPF_NLP_SPEAK_PUNC
SPF_VOICE_MASK         equ SPF_ASYNC or SPF_PURGEBEFORESPEAK or SPF_IS_FILENAME or SPF_IS_XML or SPF_IS_NOT_XML or SPF_NLP_MASK or SPF_PERSIST_XML
SPF_UNUSED_FLAGS       equ NOT SPF_VOICE_MASK