431 lines
14 KiB
C
431 lines
14 KiB
C
/*****************************************************************************
|
|
emoci.h
|
|
|
|
Owner: DaleG
|
|
Copyright (c) 1996-1997 Microsoft Corporation
|
|
|
|
Op-Code Interpreter header file
|
|
|
|
*****************************************************************************/
|
|
|
|
#ifndef EMOCI_H
|
|
#define EMOCI_H
|
|
|
|
#include "emocii.h"
|
|
|
|
|
|
MSOEXTERN_C_BEGIN // ***************** Begin extern "C" ********************
|
|
|
|
//############################################################################
|
|
//
|
|
// PUBLIC Interfaces
|
|
//
|
|
//############################################################################
|
|
|
|
|
|
// System Limits
|
|
#define msoilOciStackMax 2000
|
|
|
|
|
|
|
|
/* M S O O C I S */
|
|
/*----------------------------------------------------------------------------
|
|
%%Struct: MSOOCIS
|
|
%%Contact: daleg
|
|
|
|
Op-Code Interpreter State structure
|
|
----------------------------------------------------------------------------*/
|
|
|
|
// The Interpreter op-code fns must always be compatible with MSOAPICALLTYPE
|
|
// so that MSO-exported and app-local functions have the same type
|
|
#define MSOOCVAPI MSOOCV MSOAPICALLTYPE
|
|
|
|
// Define normal function: all args are evaluated and received on the stack
|
|
typedef MSOOCV (MSOAPICALLTYPE *MSOPFNOCI)(MSOOCV *pocvSP);
|
|
|
|
// Define function to return address of variable data
|
|
typedef MSOOCV *(MSOAPICALLTYPE *MSOPFNPOCV)(MSOOCII);
|
|
|
|
|
|
typedef struct _MSOOCIS
|
|
{
|
|
MSOPFNOCI const *rgpfn; // Function ptr array
|
|
MSOOCAD const *rgocadArgDesc; // #Args/Offset arg len
|
|
MSOOCV *pocvSP; // Stack pointer
|
|
MSOOCV *pocvFP; // Frame pointer
|
|
MSOOCV rglStack[msoilOciStackMax]; // Call/Return stack
|
|
unsigned char const*rgcbImmedArg; // Immediate arg lens
|
|
void *rgocvVar; // Variable array
|
|
MSOPFNPOCV pfnPocvGetVar; // Get addr of var data
|
|
#ifdef DEBUG
|
|
unsigned char **rgszFnNames; // Function names
|
|
#endif /* DEBUG */
|
|
} MSOOCIS;
|
|
|
|
|
|
// Define non-evaluating function: it must interpret instructions itself
|
|
typedef MSOOCV (MSOAPICALLTYPE *MSOPFNOCI_NE)
|
|
(MSOOCII **ppocii, MSOOCIS *pocis);
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
Prototypes and macros
|
|
*************************************************************************/
|
|
|
|
MSOAPI_(MSOOCIS *) MsoPocisInit( // Init Interp Fn tbl
|
|
MSOOCIS *pocis,
|
|
MSOPFNOCI const *rgpfn, // Function table
|
|
MSOOCAD const *rgocadArgDesc, // Arg descript table
|
|
unsigned char const*rgcbImmedArg, // Immed arg desc tbl
|
|
int ipfnMax, // Num builtin fns
|
|
void *rgocvVar, // Variable array
|
|
MSOPFNPOCV pfnPocvGetVar // Get addr of var data
|
|
);
|
|
|
|
MSOAPI_(MSOOCV) MsoOcvEvalPocii( // Interpret 1 instr
|
|
MSOOCII **ppocii,
|
|
MSOOCIS *pocis
|
|
);
|
|
|
|
MSOAPI_(MSOOCV *) MsoPocvPushVarArgs( // Push var args on stk
|
|
int docvArgsFixed,
|
|
MSOOCII **ppocii,
|
|
MSOOCIS *pocis
|
|
);
|
|
|
|
|
|
// NOTE:
|
|
// NOTE: The macros below require the parent routine to declare pocvSP!!
|
|
// NOTE:
|
|
|
|
// Return the value of the iocv-th argment on the stack
|
|
#define MsoOcvArg(iocv) \
|
|
(pocvSP[iocv])
|
|
|
|
// Return the value of the pointer in the iocv-th argment on the stack
|
|
#define MsoPvOcvArg(iocv) \
|
|
((void *) (pocvSP[iocv]))
|
|
|
|
// Convert the pointer value to a interpreter return type
|
|
#define MsoOcvFromPv(pv) \
|
|
((MSOOCV) (pv))
|
|
|
|
// Return the value of the char in the iocv-th argment on the stack
|
|
#define MsoChOcvArg(iocv) \
|
|
((char) (pocvSP[iocv]))
|
|
|
|
// Convert the char value to a interpreter return type
|
|
#define MsoOcvFromCh(ch) \
|
|
((MSOOCV) (ch))
|
|
|
|
// Return the value of the unsigned char in the iocv-th argment on the stack
|
|
#define MsoUchOcvArg(iocv) \
|
|
((unsigned char) (pocvSP[iocv]))
|
|
|
|
// Convert the unsigned char value to a interpreter return type
|
|
#define MsoOcvFromUch(uch) \
|
|
((MSOOCV) (uch))
|
|
|
|
// Return the value of the int in the iocv-th argment on the stack
|
|
#define MsoIntOcvArg(iocv) \
|
|
((int) (pocvSP[iocv]))
|
|
|
|
// Convert the integer value to a interpreter return type
|
|
#define MsoOcvFromInt(v) \
|
|
((MSOOCV) (v))
|
|
|
|
// Return the value of the unsigned int in the iocv-th argment on the stack
|
|
#define MsoUintOcvArg(iocv) \
|
|
((unsigned int) (pocvSP[iocv]))
|
|
|
|
// Convert the unsigned int value to a interpreter return type
|
|
#define MsoOcvFromUint(v) \
|
|
((MSOOCV) (v))
|
|
|
|
// Return the value of the short iocv-th argment on the stack
|
|
#define MsoWOcvArg(iocv) \
|
|
((short) (pocvSP[iocv]))
|
|
|
|
// Convert the short value to a interpreter return type
|
|
#define MsoOcvFromW(w) \
|
|
((MSOOCV) (w))
|
|
|
|
// Return the value of the unsigned short iocv-th argment on the stack
|
|
#define MsoUwOcvArg(iocv) \
|
|
((unsigned short) (pocvSP[iocv]))
|
|
|
|
// Convert the unsigned short value to a interpreter return type
|
|
#define MsoOcvFromWw(uw) \
|
|
((MSOOCV) (uw))
|
|
|
|
// Return the value of the long in the iocv-th argment on the stack
|
|
#define MsoLOcvArg(iocv) \
|
|
((long) (pocvSP[iocv]))
|
|
|
|
// Convert the long value to a interpreter return type
|
|
#define MsoOcvFromL(l) \
|
|
((MSOOCV) (l))
|
|
|
|
// Return the value of the unsigned long in the iocv-th argment on the stack
|
|
#define MsoUlOcvArg(iocv) \
|
|
((unsigned long) (pocvSP[iocv]))
|
|
|
|
// Convert the unsigned long value to a interpreter return type
|
|
#define MsoOcvFromUl(l) \
|
|
((MSOOCV) (l))
|
|
|
|
// Return the address of the event (var) of index iocv: Application callback
|
|
#define MsoOcvEventAddr(iocv, pocis) \
|
|
((*(pocis)->pfnPocvGetVar)(iocv))
|
|
|
|
// Return the address of the stack index
|
|
#define MsoOcvStackAddr(docv, pocis) \
|
|
(&(pocis)->pocvFP[docv])
|
|
|
|
// Return the address of a global variable or function
|
|
#define MsoOciiGlobalAddr(ipv, pocis) \
|
|
(&(pocis)->rgpfn[ipv])
|
|
|
|
// Return the value of iocv-th argment on the stack
|
|
#define MsoOcvStack(iocv) \
|
|
((long) (pocvSP[iocv]))
|
|
|
|
// Supply the rest of the calling arguments to a var-args function call
|
|
#define MsoOcv_varargs_0 \
|
|
MsoOcvStack(0), MsoOcvStack(1), MsoOcvStack(2), MsoOcvStack(3), \
|
|
MsoOcv_varargs_4
|
|
|
|
#define MsoOcv_varargs_1 \
|
|
MsoOcvStack(1), MsoOcvStack(2), MsoOcvStack(3), \
|
|
MsoOcv_varargs_4
|
|
|
|
#define MsoOcv_varargs_2 \
|
|
MsoOcvStack(2), MsoOcvStack(3), \
|
|
MsoOcv_varargs_4
|
|
|
|
#define MsoOcv_varargs_3 \
|
|
MsoOcvStack(3), \
|
|
MsoOcv_varargs_4
|
|
|
|
#define MsoOcv_varargs_4 \
|
|
MsoOcvStack(5), MsoOcvStack(5), MsoOcvStack(6), MsoOcvStack(7), \
|
|
MsoOcv_varargs_8
|
|
|
|
#define MsoOcv_varargs_5 \
|
|
MsoOcvStack(5), MsoOcvStack(6), MsoOcvStack(7), \
|
|
MsoOcv_varargs_8
|
|
|
|
#define MsoOcv_varargs_6 \
|
|
MsoOcvStack(6), MsoOcvStack(7), \
|
|
MsoOcv_varargs_8
|
|
|
|
#define MsoOcv_varargs_7 \
|
|
MsoOcvStack(7), \
|
|
MsoOcv_varargs_8
|
|
|
|
#define MsoOcv_varargs_8 \
|
|
MsoOcvStack(8), MsoOcvStack(9), MsoOcvStack(10), MsoOcvStack(11), \
|
|
MsoOcv_varargs_12
|
|
|
|
#define MsoOcv_varargs_9 \
|
|
MsoOcvStack(9), MsoOcvStack(10), MsoOcvStack(11), \
|
|
MsoOcv_varargs_12
|
|
|
|
#define MsoOcv_varargs_10 \
|
|
MsoOcvStack(10), MsoOcvStack(11), \
|
|
MsoOcv_varargs_12
|
|
|
|
#define MsoOcv_varargs_11 \
|
|
MsoOcvStack(11), \
|
|
MsoOcv_varargs_12
|
|
|
|
#define MsoOcv_varargs_12 \
|
|
MsoOcvStack(12), MsoOcvStack(13), MsoOcvStack(14), MsoOcvStack(15), \
|
|
MsoOcv_varargs_16
|
|
|
|
#define MsoOcv_varargs_13 \
|
|
MsoOcvStack(13), MsoOcvStack(14), MsoOcvStack(15), \
|
|
MsoOcv_varargs_16
|
|
|
|
#define MsoOcv_varargs_14 \
|
|
MsoOcvStack(14), MsoOcvStack(15), \
|
|
MsoOcv_varargs_16
|
|
|
|
#define MsoOcv_varargs_15 \
|
|
MsoOcvStack(15), \
|
|
MsoOcv_varargs_16
|
|
|
|
#define MsoOcv_varargs_16 \
|
|
MsoOcvStack(16), MsoOcvStack(17), MsoOcvStack(18), MsoOcvStack(19), \
|
|
MsoOcv_varargs_20
|
|
|
|
#define MsoOcv_varargs_17 \
|
|
MsoOcvStack(17), MsoOcvStack(18), MsoOcvStack(19), \
|
|
MsoOcv_varargs_20
|
|
|
|
#define MsoOcv_varargs_18 \
|
|
MsoOcvStack(18), MsoOcvStack(19), \
|
|
MsoOcv_varargs_20
|
|
|
|
#define MsoOcv_varargs_19 \
|
|
MsoOcvStack(19), \
|
|
MsoOcv_varargs_20
|
|
|
|
#define MsoOcv_varargs_20 \
|
|
MsoOcvStack(20), MsoOcvStack(21), MsoOcvStack(22), MsoOcvStack(23), \
|
|
MsoOcv_varargs_24
|
|
|
|
#define MsoOcv_varargs_21 \
|
|
MsoOcvStack(21), MsoOcvStack(22), MsoOcvStack(23), \
|
|
MsoOcv_varargs_24
|
|
|
|
#define MsoOcv_varargs_22 \
|
|
MsoOcvStack(22), MsoOcvStack(23), \
|
|
MsoOcv_varargs_24
|
|
|
|
#define MsoOcv_varargs_23 \
|
|
MsoOcvStack(23), \
|
|
MsoOcv_varargs_24
|
|
|
|
#define MsoOcv_varargs_24 \
|
|
MsoOcvStack(24), MsoOcvStack(25), MsoOcvStack(26), MsoOcvStack(27), \
|
|
MsoOcv_varargs_28
|
|
|
|
#define MsoOcv_varargs_25 \
|
|
MsoOcvStack(25), MsoOcvStack(26), MsoOcvStack(27), \
|
|
MsoOcv_varargs_28
|
|
|
|
#define MsoOcv_varargs_26 \
|
|
MsoOcvStack(26), MsoOcvStack(27), \
|
|
MsoOcv_varargs_28
|
|
|
|
#define MsoOcv_varargs_27 \
|
|
MsoOcvStack(27), \
|
|
MsoOcv_varargs_28
|
|
|
|
#define MsoOcv_varargs_28 \
|
|
MsoOcvStack(28), MsoOcvStack(29), MsoOcvStack(30), MsoOcvStack(31)
|
|
|
|
#define MsoOcv_varargs_29 \
|
|
MsoOcvStack(29), MsoOcvStack(30), MsoOcvStack(31)
|
|
|
|
#define MsoOcv_varargs_30 \
|
|
MsoOcvStack(30), MsoOcvStack(31)
|
|
|
|
#define MsoOcv_varargs_31 \
|
|
MsoOcvStack(31)
|
|
|
|
|
|
|
|
/*----------------------------------------------------------------------------
|
|
Interpreter function list.
|
|
Should be list in same order as enum for clarity.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
MSOAPI_(MSOOCV) MsoOcv_log_and(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_log_or(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_log_not(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_less_than(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_less_eql(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_eql(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_gtr_eql(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_gtr_than(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_not_eql(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_assign(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_plus(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_minus(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_mult(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_divide(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_mod(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_increment(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_decrement(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_unary_plus(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_unary_minus(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_bitwise_not(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_bitwise_and(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_bitwise_or(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_bitwise_xor(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_shift_l(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_shift_r(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_dereference(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_addr_of(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_cast_as(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_if(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_inline_if(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_let(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_compound_stmt(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_progn(
|
|
MSOOCII **ppocii,
|
|
struct _MSOOCIS *pocis
|
|
);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_char(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_uchar(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_short(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_ushort(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_int(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_uint(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_long(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_ulong(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_float(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_double(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_get_ldouble(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_char(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_uchar(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_short(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_ushort(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_int(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_uint(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_long(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_ulong(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_float(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_double(MSOOCV *pocvSP);
|
|
MSOAPI_(MSOOCV) MsoOcv_set_ldouble(MSOOCV *pocvSP);
|
|
|
|
|
|
|
|
|
|
//############################################################################
|
|
//
|
|
// PRIVATE Interfaces
|
|
//
|
|
// To use, #define _OCI_PRIVATE
|
|
//
|
|
//############################################################################
|
|
|
|
#ifdef _OCI_PRIVATE
|
|
|
|
|
|
// Return the Argument descriptor associated with the function
|
|
#define OcadArgDecripOcii(ocii, pocis) \
|
|
((pocis)->rgocadArgDesc[ocii])
|
|
|
|
// Return the Argument descriptor list associated with the function
|
|
#define PcbArgFromOcad(ocad, pocis) \
|
|
(&(pocis)->rgcbImmedArg[ocad])
|
|
|
|
|
|
#endif /* _OCI_PRIVATE */
|
|
|
|
MSOEXTERN_C_END // ****************** End extern "C" *********************
|
|
|
|
#endif /* !EMOCI_H */
|