mirror of https://github.com/tongzx/nt5src
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1422 lines
53 KiB
1422 lines
53 KiB
/*****************************************************************************
|
|
emrule.h
|
|
|
|
Owner: DaleG
|
|
Copyright (c) 1992-1997 Microsoft Corporation
|
|
|
|
General Rule-Network Propagation Engine functions and prototypes
|
|
|
|
----------------------------------------------------------------------------
|
|
NOTE:
|
|
|
|
1. BAD CODE, but it works: FIsDelayFactor(),LpruldependFromCDelay() and
|
|
CDelayFromLpruldepend() rely upon the fact (?) that pointers
|
|
on the machines we support are never (?) small integers. But if
|
|
this should ever prove false, it would be bad. We should rewrite
|
|
this to either have a RULDEP structure (as does the rule compiler),
|
|
or make the list of dependencies indexes to rules, rather than
|
|
pointers.
|
|
|
|
*****************************************************************************/
|
|
|
|
#ifndef EMRULE_H
|
|
|
|
#include "msodbglg.h"
|
|
#include "emkwd.h"
|
|
#include "emrulini.h"
|
|
#include "emrultk.h"
|
|
|
|
|
|
MSOEXTERN_C_BEGIN // ***************** Begin extern "C" ********************
|
|
|
|
// REVIEW: configure this in makefile, so emtest (for example) can build
|
|
// debug without dynamic rules
|
|
#ifdef DEBUG
|
|
#ifndef YY_NODYNRULES
|
|
#define DYN_RULES 1
|
|
#endif
|
|
#endif
|
|
|
|
|
|
/*----------------------------------------------------------------------------
|
|
System limits
|
|
----------------------------------------------------------------------------*/
|
|
|
|
#define wDelayMax 100 // Maximum delay poss
|
|
#define irultkRuleMax 256 // Max events cached
|
|
#define iruldepAllocMax 256 // Max ruldeps alloced
|
|
#define ichRulNameMax 128 // Max trace name len
|
|
#define ichRulNameAllocMax 1024 // Max name alloc
|
|
|
|
|
|
/*************************************************************************
|
|
Types:
|
|
|
|
irul Rule node ID.
|
|
ruldep Rule node dependency link.
|
|
ruldepblk Rule node dependency link allocation structure.
|
|
sv Split Value structure.
|
|
rul Rule node structure.
|
|
ruls Rule state structure.
|
|
|
|
*************************************************************************/
|
|
|
|
|
|
/* I R U L */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: IRUL
|
|
%%Contact: daleg
|
|
|
|
Rule Index definition
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef short IRUL;
|
|
|
|
#define IrulFromTk(tk) ((IRUL) (tk))
|
|
#define TkFromIrul(irul) (irul)
|
|
|
|
// Lexer tokens: hard-coded rule node IDs
|
|
#define irulERROR tkERROR
|
|
#ifdef tkNil
|
|
#define irulNil tkNil
|
|
#else /* !tkNil */
|
|
#define irulNil 0
|
|
#endif /* tkNil */
|
|
|
|
// Is rule ID valid (not irulNil and not irulERROR)
|
|
#define FValidIrul(irul) \
|
|
((irul) > 0)
|
|
|
|
|
|
|
|
|
|
/* R U L D E P */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: RULDEP
|
|
%%Contact: daleg
|
|
|
|
Rule node dependency structure.
|
|
This structure holds the dependency information that links a rule node
|
|
to its dependents.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef struct _RULDEP
|
|
{
|
|
struct _MSORUL *prul; // Node referenced
|
|
struct _RULDEP *pruldepNext; // Next dependency
|
|
// int cDelay; // Delay in eval
|
|
} RULDEP;
|
|
|
|
|
|
MSOAPI_(RULDEP *) _MsoPruldepNew( // Alloc blk of deps
|
|
int cruldep,
|
|
int fOnFreeList
|
|
);
|
|
|
|
|
|
// Return a new ruldep record from the free list (requires local var pruldep)
|
|
// Operates in either sequential mode (vlpruls->lpruldepNextFree) or free list
|
|
#define LpruldepNew() \
|
|
(vlpruls->lpruldepNextFree != NULL \
|
|
? (vlpruls->fSeqentialFreeRuldeps \
|
|
? vlpruls->lpruldepNextFree++ \
|
|
: (pruldep = vlpruls->lpruldepNextFree, \
|
|
vlpruls->lpruldepNextFree \
|
|
= pruldep->pruldepNext, \
|
|
pruldep->pruldepNext = NULL, \
|
|
pruldep)) \
|
|
: _MsoPruldepNew(iruldepAllocMax, TRUE))
|
|
|
|
// Push a ruldep record onto the free list
|
|
#define PushLpruldepOnFreeList(pruldep) \
|
|
((pruldep)->pruldepNext = vlpruls->lpruldepNextFree, \
|
|
vlpruls->lpruldepNextFree = (pruldep))
|
|
|
|
|
|
|
|
/* R U L D E P B L K */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: RULDEPBLK
|
|
%%Contact: daleg
|
|
|
|
Rule node dependency allocation block structure.
|
|
This structure allows us to batch-allocate RULDEP records.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef struct _RULDEPBLK
|
|
{
|
|
struct _RULDEPBLK *lpruldepblkNext; // Next block
|
|
RULDEP rgruldep[1]; // Array of ruldeps
|
|
} RULDEPBLK;
|
|
|
|
|
|
/* R U L C X T */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: RULCXT
|
|
%%Contact: daleg
|
|
|
|
(Rul)e (C)onte(x)t-group (T)able structure.
|
|
This structure allows the rule engine to support cheap sparse dependents
|
|
lists for special contexts.
|
|
The callback function allows us to perform any desired side effects
|
|
during the propagation, as well as offering the chance to optimize
|
|
the lookup algorithm.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef struct _RULCXT
|
|
{
|
|
struct _RULCXT *lprulcxtNext; // Next context
|
|
LPFNRULCXT lpfnrulcxt; // Callback fn
|
|
int iruldepMax; // Size of array
|
|
struct _RULCXL *rglprulcxl[1]; // Hash table
|
|
} RULCXT;
|
|
|
|
|
|
|
|
/* R U L C X L */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: RULCXL
|
|
%%Contact: daleg
|
|
|
|
(Rul)e (C)onte(x)t-group (L)ist item structure.
|
|
This is the item used in the hash table of the RULCXT above.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef struct _RULCXL
|
|
{
|
|
IRUL irul; // Rule ID
|
|
struct _RULDEP *pruldep; // Dependent list
|
|
struct _RULCXL *lprulcxlNext; // Next in hash chain
|
|
} RULCXL;
|
|
|
|
|
|
#ifdef DEBUG
|
|
/* R U L N B L K */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: RULNBLK
|
|
%%Contact: daleg
|
|
|
|
(Rul)e (N)ame block
|
|
Store dynamically constructed rule names.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef struct _RULNBLK
|
|
{
|
|
struct _RULNBLK *lprulnblkNext; // Next block
|
|
char rgch[1]; // Block of text
|
|
} RULNBLK;
|
|
|
|
|
|
char *LszGenNameForLprul( // Gen dyn rule name
|
|
struct _MSORUL *prul,
|
|
int irulAssert
|
|
);
|
|
char *SzSaveRulName(char *szName); // Save node name sz
|
|
char *LpchRulNameNew(int dichNeeded); // Get new name lpch
|
|
|
|
#endif /* DEBUG */
|
|
|
|
|
|
|
|
|
|
|
|
/* M S O R U L */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: MSORUL
|
|
%%Contact: daleg
|
|
|
|
Rule node structure.
|
|
This structure holds the state information for a rule within the
|
|
propagation network.
|
|
|
|
ASSUMPTIONS:
|
|
|
|
1. The wDelayMask field only applies to rules, but it is (currently)
|
|
faster to not have to test for whether a node is a rule, by
|
|
merely leaving the field empty for values.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef long RULV;
|
|
typedef struct _MSORUL *MSOPRUL;
|
|
|
|
#pragma pack(2)
|
|
|
|
typedef struct _MSORUL
|
|
{
|
|
IRUL irul; // Rule ID
|
|
char rultType; // Type: rule/event
|
|
char ipfnrulscSeqCheck; // Fn to ensure contig
|
|
short rulevl; // Evaluation level
|
|
short birulDependsOn; // Depends on: nodes
|
|
SVL svl; // 32-bit storage area
|
|
#ifdef DEBUG
|
|
char const *lpchName; // Name or rule text
|
|
#endif /* DEBUG */
|
|
IRUL irulNextChanged; // Next changed value
|
|
union
|
|
{
|
|
short ipociiInstrs; // Interp instrs
|
|
short USEME_IN_EVENTS; // Unsed slot
|
|
};
|
|
short wIntervalCount; // Ensure contig seqs
|
|
short wDelayMask; // Delays as bit pos's
|
|
struct _MSORUL *prulNext; // Next node in queue
|
|
#ifdef DEBUG
|
|
IRUL irulNextTrace; // Next traced rule
|
|
short wDebugFlags; // Random debug flags
|
|
#endif /* DEBUG */
|
|
} MSORUL;
|
|
|
|
#pragma pack()
|
|
|
|
|
|
|
|
// Allocate new nodes
|
|
MSOAPI_(MSORUL *) MsoPrulNew(void); // Allocate new node
|
|
MSOAPI_(int) MsoFEnsureIrulAllocated(int irulMax); // Pre-allocated nodes
|
|
|
|
// Discard an existing rul node
|
|
#define DiscardIrul(irul) \
|
|
(vlpruls->irulLim--)
|
|
|
|
|
|
|
|
#define msoprulNil ((MSORUL *) -1) // NIL value for MSORUL
|
|
#define msoprulInactive ((MSORUL *) -2) // Node is deactivated
|
|
#define wRulTrue 1000
|
|
#define wRulFalse 0
|
|
|
|
// Rule node type flags: shared with emrulini.h and rulc.h
|
|
#define rultNil 0
|
|
#define rultRule 0x00 // Rule
|
|
#define rultEvent 0x01 // Event/Variable
|
|
#define rultPrimaryRule 0x02 // Rule auto-scheduled
|
|
#define rultImmediateRule 0x04 // Rule executes immed
|
|
#define rultPersistentRule 0x20 // Rule not cleared
|
|
#define rultAlwaysPersist 0x40 // Rule never cleared
|
|
#define rultSpecialKwd 0x80 // Node is generic type
|
|
|
|
// Debug check that rule is not marked as both NonTerminal and Seq
|
|
#define rultRuleMask 0x19
|
|
|
|
#ifdef NEVER
|
|
#define FRultRuleIs(rult, rultExpected) \
|
|
(((rult) & rultRuleMask) == ((rultExpected)))
|
|
#endif /* NEVER */
|
|
|
|
|
|
#ifdef DEBUG
|
|
#define rultDynActionRule 0x04 // Dyn DEBUG only
|
|
#define rultNonTermRule 0x08 // Dyn DEBUG only
|
|
#define rultSeqRule 0x10 // Dyn DEBUG only
|
|
#endif /* DEBUG */
|
|
|
|
|
|
/* R U L S */
|
|
/*----------------------------------------------------------------------------
|
|
%%Structure: RULS
|
|
%%Contact: daleg
|
|
|
|
Rule state structure.
|
|
This structure holds the state information for the rule engine.
|
|
----------------------------------------------------------------------------*/
|
|
|
|
typedef int (WIN_CALLBACK *LPFNRul)(IRUL irul); // Rule Eval function
|
|
typedef short (WIN_CALLBACK *PFNRULSC)(void); // Interval seq chk fn
|
|
typedef int (*PFNRULVT)(IRUL irul); // Rule V-Table
|
|
|
|
typedef struct _RULS
|
|
{
|
|
// Rule base limits
|
|
RULLIMS rullims; // Rule base limits
|
|
int irulMax; // Num nodes allocated
|
|
int irulLim; // Num nodes used
|
|
|
|
// Rule base state information
|
|
RULDEP ***rgrgpruldepDependents; // List of Dep lists
|
|
RULDEP **rgpruldepDependents; // Active Dep lists
|
|
MSORUL **lrglprulBlk; // Array of node arrays
|
|
int ilprulNodesLim; // #arrays of arrays
|
|
#ifdef DEBUG
|
|
MSORUL **rgprulNodes; // Debug node array
|
|
#endif /* DEBUG */
|
|
const short *prulgAppendTo; // Group linkages
|
|
const short *prulgAppendedFrom; // Group linkages
|
|
short const *rgrulevlRulevt; // Event_type eval lvls
|
|
int *rgrulevlRulevtLast; // Highest Q of rulevts
|
|
MSORUL **rgprulActiveQueues; // Active eval queues
|
|
MSORUL **rgprulDelayedQueues; // Delayed eval queues
|
|
MSORUL *lprulQPersistent; // Temp Q: persistent
|
|
int *rgirulRulevtChanged; // Nodes changed in evt
|
|
int *rgrulevtEval; // Pending rulevt eval
|
|
MSORULTKH *prultkhRulevtHistory; // Ev history for type
|
|
long *rgdtkiRulevt; // #times enter rulevt
|
|
const int *rgrulevtFromRulevl; // Trans lvls to evts
|
|
const short *lpgrpirulDependBack; // Back dependencies
|
|
LPFNRul lpfnEvalRule; // Evaluate rule code
|
|
PFNRULSC const *rgpfnrulscSeqCheck; // Interval seq chk fns
|
|
MSOKWTB **rgpkwtbKeyTables; // Keyword tables
|
|
|
|
// Allocation information
|
|
WORD fDynamicInit : 1; // Structs alloced?
|
|
WORD fDynAlloced : 1; // vlpruls alloced?
|
|
WORD fDependBackDynAlloced : 1; // Back deps alloced?
|
|
WORD fRgDependDynAlloced : 1; // Dep lists alloced?
|
|
WORD fDynRulesAlloced : 1; // Dyn rulebase alloc?
|
|
WORD fRgrulevlRulevtAlloced : 1; // Last lvl tbl alloc?
|
|
WORD fRgprulQueuesAlloced : 1; // Eval queues alloc?
|
|
WORD fRgrulevtFromRulevlAlloced : 1; // Lvl-evt tbl alloc?
|
|
WORD fRgprulNodesAlloced : 1; // DEBUG nd arr alloc?
|
|
|
|
int rulgCurr; // Current rule group
|
|
IRUL irulSelf; // irulSelf under eval
|
|
MSORUL *prulEvent; // Event causing eval
|
|
IRUL irulPrimaryEvent; // Primary ev of intvl
|
|
RULDEP *lpruldepNextFree; // Next free dep rec
|
|
RULDEPBLK *lpruldepblkDependBlocks; // List of dep blocks
|
|
RULCXT *lprulcxtActive; // Active context list
|
|
RULCXT **lrglprulcxtContexts; // List of cntx groups
|
|
int rulevtCurr; // Current event_type
|
|
int *prulevtEvalLim; // Num Ev types to eval
|
|
MSORUL *lprulQueue; // Current queue
|
|
int rulevlRultevtMin; // 1st eval lvl in evt
|
|
int rulevlRulevtLast; // Last eval lvl in evt
|
|
void *pociiDynRules; // Dyn-loaded rulebase
|
|
#ifdef DEBUG
|
|
char *lpchNames; // Name/string buf
|
|
char const * const *rgpchDynNames; // Interp: node names
|
|
int irulQTrace; // Backtrace list
|
|
int dichNameFree; // Num chars avail
|
|
char *lpchNameNextFree; // Next free name rgch
|
|
RULNBLK *lprulnblkNames; // Dyn name list
|
|
#endif /* DEBUG */
|
|
|
|
// Run-time flags
|
|
WORD fInited : 1; // Rule base inited?
|
|
WORD fNew : 1; // Rule base new?
|
|
WORD fSeqentialFreeRuldeps : 1; // Free ruldeps are seq
|
|
WORD fEvaluatingDeferred : 1; // Evaling deferred nd?
|
|
WORD fEvaluating: 1; // Eval recursion check
|
|
|
|
// Multiple Rule base support
|
|
struct _RULS *lprulsNext; // Next struct LIFO
|
|
|
|
// Allocation info
|
|
WORD fAllocedSpare1 : 1;
|
|
WORD fAllocedSpare2 : 1;
|
|
WORD fAllocedSpare3 : 1;
|
|
WORD fAllocedSpare4 : 1;
|
|
WORD fAllocedSpare5 : 1;
|
|
WORD fAllocedSpare6 : 1;
|
|
WORD fAllocedSpare7 : 1;
|
|
WORD fAllocedSpare8 : 1;
|
|
WORD fAllocedSpare9 : 1;
|
|
WORD fAllocedSpare10 : 1;
|
|
WORD fAllocedSpare11 : 1;
|
|
int ilprulNodesAllocFirstLim; // Start alloc'd nds +1
|
|
long lReturn; // Return value
|
|
LPV lpvSpare3;
|
|
LPV lpvSpare4;
|
|
LPV lpvSpare5;
|
|
LPV lpvSpare6;
|
|
LPV lpvSpare7;
|
|
LPV lpvSpare8;
|
|
LPV lpvSpare9;
|
|
LPV lpvSpare10;
|
|
LPV lpvSpare11;
|
|
|
|
// Debug logging
|
|
#ifdef DEBUG
|
|
unsigned int grfDebugLogFilter; // DEBUG: how to log
|
|
#endif /* DEBUG */
|
|
|
|
#ifdef DYN_RULES
|
|
// Dynamically-loaded rulebase support
|
|
struct _MSOOCIS *pocis; // Op-Code Interp State
|
|
short irulRuleInterpLim; // #Interpreted rules
|
|
short irulRuleInterpMac; // #Alloced inter ptrs
|
|
void **rgpociiRules; // Rule instructions
|
|
#endif /* DYN_RULES */
|
|
} RULS;
|
|
|
|
extern RULS *vlpruls; // Global rule state
|
|
|
|
|
|
//----------------------------------------------------
|
|
// If using debugger, an rulebase node's value is given by:
|
|
// rulv_<irul> == vlpruls->rgprulNodes[irul]->svl.lValue
|
|
//
|
|
// Or if the rulebase is statically initialized, and
|
|
// DEBUG_RULE_POINTERS is #defined then
|
|
// event FOO can be accessed as *prulFOO and
|
|
// rule 126 can be accessed as *prul126
|
|
//----------------------------------------------------
|
|
|
|
// Return the number of rules in rule base
|
|
#define IrulMax() (vlpruls->irulMax)
|
|
|
|
// Return the number of compiled rules in rule base
|
|
#define IrulCompiledMax() (vlpruls->rullims.irulRulesMax)
|
|
|
|
// Return the number of event_types in rule base
|
|
#define RulevtMax() RulevtMaxPruls(vlpruls)
|
|
|
|
// Return the number of event_types in rule base
|
|
#define RulevtMaxPruls(pruls) \
|
|
((pruls)->rullims.rulevtMax)
|
|
|
|
// Return the number of evaluation levels in rule base
|
|
#define RulevlMax() RulevlMaxPruls(vlpruls)
|
|
|
|
// Return the number of evaluation levels in rule base
|
|
#define RulevlMaxPruls(pruls) \
|
|
((pruls)->rullims.rulevlMax)
|
|
|
|
#define irulMaxAlloc 128 // Max nodes/array
|
|
#define cbfIrulShift 7 // #bits irulMaxAlloc
|
|
#define wIrulMask 0x7F // Mask: irulMaxAlloc
|
|
#define ilprulMaxAlloc 256L // Max arrays of arrys
|
|
|
|
///#define irulMaxAlloc 2048 // Max nodes/array
|
|
///#define cbfIrulShift 11 // #bits irulMaxAlloc
|
|
///#define wIrulMask 0x7FF // Mask: irulMaxAlloc
|
|
///#define ilprulMaxAlloc 100L // Max arrays of arrys
|
|
|
|
///#define irulMaxAlloc 1024 // Max nodes/array
|
|
///#define cbfIrulShift 10 // #bits irulMaxAlloc
|
|
///#define wIrulMask 0x3FF // Mask: irulMaxAlloc
|
|
///#define ilprulMaxAlloc 100L // Max arrays of arrys
|
|
|
|
// Return the rule node structure pointer for the rule ID
|
|
#define LprulFromIrul(irul) \
|
|
(&vlpruls->lrglprulBlk \
|
|
[(irul) >> cbfIrulShift] [(irul) & wIrulMask])
|
|
|
|
// Return the rule ID of the rule node structure pointer
|
|
#define IrulFromLprul(prul) \
|
|
((prul)->irul)
|
|
|
|
// Return the Lim irul value for iruls that are contiguous with the irul
|
|
#define IrulLimContig(irul) \
|
|
((((irul) >> cbfIrulShift) << cbfIrulShift) + irulMaxAlloc)
|
|
|
|
// Return whether rule node is a primary rule
|
|
#define FPrimaryRule(prul) ((prul)->rultType & rultPrimaryRule)
|
|
|
|
#ifdef NEVER
|
|
// Return whether rule node is a action rule
|
|
#define FActionRule(prul) ((prul)->wDebugFlags & rultActionRule)
|
|
#endif /* NEVER */
|
|
|
|
#ifdef DEBUG
|
|
// Return whether rule node is a non-terminal rule (then)
|
|
#define FNonTermRule(prul) ((prul)->wDebugFlags & rultNonTermRule)
|
|
|
|
// Return whether rule node is a sequence rule (...)
|
|
#define FSeqRule(prul) ((prul)->wDebugFlags & rultSeqRule)
|
|
#endif /* DEBUG */
|
|
|
|
// Return whether the node ID refers to an event node
|
|
#define FIsEventIrul(irul) FIsEventPrul(LprulFromIrul(irul))
|
|
|
|
// Return whether the node is an event node
|
|
#define FIsEventPrul(prul) ((prul)->rultType & rultEvent)
|
|
|
|
// Return whether the node is a rule node
|
|
#define FIsRulePrul(prul) (!FIsEventPrul(prul))
|
|
|
|
#define IMMEDIATE_RULES
|
|
#ifdef IMMEDIATE_RULES
|
|
// Return whether rule node is a sequence rule (...)
|
|
#define FImmediateRulePrul(prul) ((prul)->rultType & rultImmediateRule)
|
|
#endif /* IMMEDIATE_RULES */
|
|
|
|
// Return whether the node is an *undefined* event
|
|
#define FSpecialKwdIrul(irul) \
|
|
FSpecialKwdLprul(LprulFromIrul(irul))
|
|
|
|
// Return whether the node is an *undefined* event
|
|
#define SetFSpecialKwdIrul(irul) \
|
|
SetFSpecialKwdLprul(LprulFromIrul(irul))
|
|
|
|
// Return whether the node is an *undefined* event
|
|
#define FSpecialKwdLprul(prul) ((prul)->rultType & rultSpecialKwd)
|
|
|
|
// Return whether the node is an *undefined* event
|
|
#define SetFSpecialKwdLprul(prul) \
|
|
((prul)->rultType |= rultSpecialKwd)
|
|
|
|
// Return whether rule node can persist in delayed queue in soft resets
|
|
#define FPersistentLprul(prul) \
|
|
((prul)->rultType & rultPersistentRule)
|
|
|
|
// Mark that rule node can persist in delayed queue in soft resets
|
|
#define SetFPersistentIrul(irul) \
|
|
SetFPersistentLprul(LprulFromIrul(irul))
|
|
|
|
// Mark that rule node can persist in delayed queue in soft resets
|
|
#define SetFPersistentLprul(prul) \
|
|
((prul)->rultType |= rultPersistentRule)
|
|
|
|
// Return whether rule node can persist in delayed queue in all resets
|
|
#define FAlwaysPersistLprul(prul) \
|
|
((prul)->rultType & rultAlwaysPersist)
|
|
|
|
// Mark that rule node can persist in delayed queue in all resets
|
|
#define SetFAlwaysPersistIrul(irul) \
|
|
SetFAlwaysPersistLprul(LprulFromIrul(irul))
|
|
|
|
// Mark that rule node can persist in delayed queue in all resets
|
|
#define SetFAlwaysPersistLprul(prul) \
|
|
((prul)->rultType |= rultAlwaysPersist)
|
|
|
|
// Return whether rule node can persist in delayed queue
|
|
#define FPersistLprulGrf(prul, grf) \
|
|
((prul)->rultType & (grf))
|
|
|
|
// Return the value for the current rule
|
|
#define RulvSelf() \
|
|
RulvOfIrul(irulSelf)
|
|
|
|
// Set the value for the current rule
|
|
#define SetRulvSelf(rulv) \
|
|
SetRulvOfIrul(irulSelf, (rulv))
|
|
|
|
// Increment the value for the current rule
|
|
#define IncrRulvSelf(drulv) \
|
|
IncrRulvOfIrul(irulSelf, (drulv))
|
|
|
|
|
|
// Return the value1 for the current rule
|
|
#define Rulv1Self() \
|
|
Rulv1OfIrul(irulSelf)
|
|
|
|
// Set the value1 for the current rule
|
|
#define SetRulv1Self(rulv) \
|
|
SetRulv1OfIrul(irulSelf, (rulv))
|
|
|
|
// Increment the value1 for the current rule
|
|
#define IncrRulv1Self(drulv) \
|
|
IncrRulv1OfIrul(irulSelf, (drulv))
|
|
|
|
|
|
// Return the value2 for the current rule
|
|
#define Rulv2Self() \
|
|
Rulv2OfIrul(irulSelf)
|
|
|
|
// Set the value2 for the current rule
|
|
#define SetRulv2Self(rulv) \
|
|
SetRulv2OfIrul(irulSelf, (rulv))
|
|
|
|
// Increment the value2 for the current rule
|
|
#define IncrRulv2Self(drulv) \
|
|
IncrRulv2OfIrul(irulSelf, (drulv))
|
|
|
|
|
|
// Return the value for the rule ID
|
|
#define RulvOfIrul(irul) \
|
|
(LprulFromIrul(irul)->svl.lValue)
|
|
|
|
// Set the value for the rule ID
|
|
#define SetRulvOfIrul(irul, rulv) \
|
|
(LprulFromIrul(irul)->svl.lValue = (rulv))
|
|
|
|
// Increment the value1 field for the rule ID
|
|
#define IncrRulvOfIrul(irul, drulv) \
|
|
IncrRulvOfLprul(LprulFromIrul(irul), (drulv))
|
|
|
|
|
|
// Return the lValue field for a rule node
|
|
#define RulvOfLprul(prul) ((prul)->svl.lValue)
|
|
|
|
// Set the lValue field for a rule node
|
|
#define SetRulvOfLprul(prul, w) ((prul)->svl.lValue = (w))
|
|
|
|
// Increment the value1 field for a rule node
|
|
#define IncrRulvOfLprul(prul, drulv) ((prul)->svl.lValue += (drulv))
|
|
|
|
|
|
// Set the value for the rule ID
|
|
#define PlValueOfIrul(irul) \
|
|
(&LprulFromIrul(irul)->svl.lValue)
|
|
|
|
// Return the value1 field for the rule ID
|
|
#define Rulv1OfIrul(irul) \
|
|
Rulv1OfLprul(LprulFromIrul(irul))
|
|
|
|
// Set the value1 field for the rule ID
|
|
#define SetRulv1OfIrul(irul, rulv) \
|
|
SetRulv1OfLprul(LprulFromIrul(irul), (rulv))
|
|
|
|
// Increment the value1 field for the rule ID
|
|
#define IncrRulv1OfIrul(irul, drulv) \
|
|
IncrRulv1OfLprul(LprulFromIrul(irul), (drulv))
|
|
|
|
// Return the value2 field for the rule ID
|
|
#define Rulv2OfIrul(irul) \
|
|
Rulv2OfLprul(LprulFromIrul(irul))
|
|
|
|
// Set the value2 field for the rule ID
|
|
#define SetRulv2OfIrul(irul, rulv) \
|
|
SetRulv2OfLprul(LprulFromIrul(irul), (rulv))
|
|
|
|
// Increment the value2 field for the rule ID
|
|
#define IncrRulv2OfIrul(irul, drulv) \
|
|
IncrRulv2OfLprul(LprulFromIrul(irul), (drulv))
|
|
|
|
// Return the value1 field for a rule node
|
|
#define Rulv1OfLprul(prul) W1OfPsv(PsvOfLprul(prul))
|
|
|
|
// Set the value1 field for a rule node
|
|
#define SetRulv1OfLprul(prul, w) SetW1OfPsv(PsvOfLprul(prul), (w))
|
|
|
|
// Increment the value1 field for a rule node
|
|
#define IncrRulv1OfLprul(prul, dw) IncrW1OfPsv(PsvOfLprul(prul), (dw))
|
|
|
|
|
|
// Return the value2 field for a rule node
|
|
#define Rulv2OfLprul(prul) W2OfPsv(PsvOfLprul(prul))
|
|
|
|
// Set the value2 field for a rule node
|
|
#define SetRulv2OfLprul(prul, w) SetW2OfPsv(PsvOfLprul(prul), (w))
|
|
|
|
// Increment the value2 field for a rule node
|
|
#define IncrRulv2OfLprul(prul, dw) IncrW2OfPsv(PsvOfLprul(prul), (dw))
|
|
|
|
|
|
// Return the Split Value pointer of a node
|
|
#define PsvOfLprul(prul) (&(prul)->svl.sv)
|
|
|
|
|
|
// Return the value1 field for an rule node
|
|
#define Rulv1(rulv) W1OfPsv((SV *) &(rulv))
|
|
|
|
// Set the value1 field for a node
|
|
#define SetRulv1(rulv, w) SetW1OfPsv(((SV *) &(rulv)), (w))
|
|
|
|
// Return the value2 field
|
|
#define Rulv2(rulv) W2OfPsv((SV *) &(rulv))
|
|
|
|
// Set the value2 field for a node
|
|
#define SetRulv2(rulv, w) SetW2OfPsv(((SV *) &(rulv)), (w))
|
|
|
|
|
|
// Return the confidence value of a node node
|
|
#define WConfidence(prul) Rulv1OfLprul(prul)
|
|
|
|
// Set the confidence value of a node node
|
|
#define SetConfidence(prul, wValue) SetRulv1OfLprul((prul), (wValue))
|
|
|
|
// Return the doubt value of a node node
|
|
#define WDoubt(prul) Rulv2OfLprul(prul)
|
|
|
|
// Set the doubt value of a node node
|
|
#define SetDoubt(prul, wValue) SetRulv2OfLprul((prul), (wValue))
|
|
|
|
|
|
// OBSOLETE FORMS OF MACROS
|
|
#define WValueOfIrul(irul) RulvOfIrul(irul)
|
|
#define SetWValueOfIrul(irul, rulv) SetRulvOfIrul(irul, rulv)
|
|
#define WRulValue1(prul) Rulv1OfLprul(prul)
|
|
#define SetWRulValue1(prul, w) SetRulv1OfLprul((prul), (w))
|
|
#define WRulValue2(prul) Rulv2OfLprul(prul)
|
|
#define SetWRulValue2(prul, w) SetRulv2OfLprul((prul), (w))
|
|
|
|
// Return the rule node for the rule value
|
|
#define LprulOfWValue(lplValue) \
|
|
((MSORUL *) \
|
|
(((char *) lplValue) - CchStructOffset(MSORUL, svl.lValue)))
|
|
|
|
#ifdef DEBUG
|
|
// Return the value name or rule text of the rule node structure pointer
|
|
#define LpchRulName(prul) ((prul)->lpchName)
|
|
|
|
// Return the value name or rule text of the rule node structure pointer
|
|
#define LpchIrulName(irul) LpchRulName(LprulFromIrul(irul))
|
|
|
|
// Return debug rule name for dynamic rule
|
|
#define PszNameDynLprul(prul) \
|
|
(vlpruls->rgpchDynNames[(prul)->irul - IrulCompiledMax()])
|
|
#endif /* DEBUG */
|
|
|
|
// Return the node evaluation level for the node
|
|
#define RulevlOfPrul(prul) \
|
|
(prul->rulevl)
|
|
|
|
// Return the event_type for the node
|
|
#define RulevtOfLprul(prul) \
|
|
RulevtOfRulevl(RulevlOfPrul(prul))
|
|
|
|
// Return the event_type for the evaluation level
|
|
#define RulevtOfRulevl(rulevl) \
|
|
(vlpruls->rgrulevtFromRulevl[rulevl])
|
|
|
|
// Return the rule queue of the rule level
|
|
#define LplprulQueueOf(rulevl) (&vlpruls->rgprulActiveQueues[rulevl])
|
|
|
|
// Return the delayed-evaluation rule queue of the event_type
|
|
#define LplprulDelayedQueueOf(rulevt) \
|
|
(&vlpruls->rgprulDelayedQueues[rulevt])
|
|
|
|
// Return the minimum evaluation level of the event_type
|
|
#define RulevlMinOfRulevt(rulevt) \
|
|
(vlpruls->rgrulevlRulevt[(rulevt)])
|
|
|
|
// Return the maximum evaluation level of the event_type
|
|
#define RulevlMaxOfRulevt(rulevt) \
|
|
(vlpruls->rgrulevlRulevt[(rulevt) + 1])
|
|
|
|
// Return the list of dependent node references of node ID
|
|
#define LpruldepFromIrul(irul) \
|
|
(vlpruls->rgpruldepDependents[irul])
|
|
|
|
// Return the list of dependent node references of node
|
|
#define LpruldepGetDependents(prul) \
|
|
LpruldepFromIrul(IrulFromLprul(prul))
|
|
|
|
// Set the list of dependent node references of node ID
|
|
#define SetLpruldepFromIrul(irul, pruldep) \
|
|
(vlpruls->rgpruldepDependents[irul] = (pruldep))
|
|
|
|
// Set the list of dependent node references of node
|
|
#define LpruldepSetDependents(prul, pruldep) \
|
|
SetLpruldepFromIrul(IrulFromLprul(prul), (pruldep))
|
|
|
|
// Return the list of dependent node references of node ID for specific group
|
|
#define LpruldepFromRulgIrul(rulg, irul) \
|
|
(*LplpruldepForRulgIrul(rulg, irul))
|
|
|
|
// Set the list of dependent node references of node ID for specific group
|
|
#define SetLpruldepFromRulgIrul(rulg, irul, pruldep) \
|
|
(*LplpruldepForRulgIrul(rulg, irul) = (pruldep))
|
|
|
|
// Return the address of the start of a ruldep list for the irul and group
|
|
#define LplpruldepForRulgIrul(rulg, irul) \
|
|
(&(vlpruls->rgrgpruldepDependents[rulg][irul]))
|
|
|
|
// Return whether a dependent reference is in fact a delay specfication
|
|
#define FIsDelayFactor(lprulDepend) \
|
|
((unsigned long) (lprulDepend) < wDelayMax)
|
|
|
|
// Return the delay value associated with the dependency record
|
|
#define CDelayFromLpruldepend(lprulDepend) \
|
|
((int) ((unsigned long) lprulDepend))
|
|
|
|
// Return a dependency record to represent the delay factor
|
|
#define LpruldependFromCDelay(cDelay) \
|
|
((MSORUL *) (cDelay))
|
|
|
|
// Add a delay to the delay field of a delayed rule
|
|
#define AddCDelayToLprul(prul, cDelay) \
|
|
((prul)->wDelayMask |= (cDelay))
|
|
|
|
// Return whether a rule has any delay factor
|
|
#define FHaveCDelay(prul) \
|
|
((prul)->wDelayMask)
|
|
|
|
// Return whether a rule has a specific delay factor
|
|
#define FHaveCDelayOf(prul, cDelay) \
|
|
((prul)->wDelayMask & (cDelay))
|
|
|
|
// Decrement the node's delay counts (by shifting right)
|
|
#define DecrementCDelaysOfLprul(prul) \
|
|
((prul)->wDelayMask >>= 1)
|
|
|
|
|
|
// Return whether the (event) node is marked for history recording
|
|
#define FHistoryRecordLprul(prul) \
|
|
(TRUE) // First version
|
|
// ((prul)->fRecordHistory) // Correct version
|
|
|
|
|
|
// Return whether node must check interval counts to detect seq discontinuities
|
|
#define FIntervalsSeqCheckedPrul(prul) \
|
|
((prul)->ipfnrulscSeqCheck)
|
|
|
|
// Return interval counts associated with node that has sequence checking
|
|
#define WIntervalsSeqCheckedPrul(prul) \
|
|
((*vlpruls->rgpfnrulscSeqCheck[(prul)->ipfnrulscSeqCheck])())
|
|
|
|
|
|
// Return whether the rule base is initialized
|
|
#define FRulesInited(lpruls) (lpruls != NULL && lpruls->fInited)
|
|
|
|
|
|
// Return the op-code instructions for an interpreted rule ID
|
|
#define PociiForIrul(irul) \
|
|
PociiForPrul(LprulFromIrul(irul))
|
|
|
|
// Return the op-code instructions for an interpreted rule
|
|
#define PociiForPrul(prul) \
|
|
((MSOOCII *) vlpruls->rgpociiRules[((prul)->ipociiInstrs)])
|
|
|
|
// Return any group(s) that append(s) the current group
|
|
#define RulgAppendedFrom(rulg) \
|
|
(vlpruls->prulgAppendedFrom[rulg])
|
|
|
|
// Return the list of groups that append from other groups
|
|
#define PrulgAppendedFrom() \
|
|
(vlpruls->prulgAppendedFrom)
|
|
|
|
// Return the group (if any) that the current group appends to
|
|
#define RulgAppendTo(rulg) \
|
|
(vlpruls->prulgAppendTo[rulg])
|
|
|
|
// Return the list of groups that append to other groups
|
|
#define PrulgAppendTo() \
|
|
(vlpruls->prulgAppendTo)
|
|
|
|
|
|
#define rulgNil (-1) // "No" rule group
|
|
#define rulevtNil (-1) // "No" event type
|
|
|
|
#ifdef DEBUG
|
|
// Return whether node is marked for automatic backtracing */
|
|
#define FTraceLprul(prul) \
|
|
((prul)->irulNextTrace != 0)
|
|
#endif /* DEBUG */
|
|
|
|
// Return the list of nodes that current node depends upon
|
|
#define LpirulGetDependsOn(prul) \
|
|
(&vlpruls->lpgrpirulDependBack[(prul)->birulDependsOn])
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
Prototypes and macros for rule.c
|
|
*************************************************************************/
|
|
|
|
#ifndef max
|
|
#define max(a,b) ((a) > (b) ? (a) : (b))
|
|
#endif /* !max */
|
|
#ifndef min
|
|
#define min(a,b) ((a) < (b) ? (a) : (b))
|
|
#endif /* !max */
|
|
|
|
|
|
// Push the node onto the queue
|
|
#define PushLprul(prul, lplprulQ) \
|
|
((prul)->prulNext = *(lplprulQ), \
|
|
*(lplprulQ) = (prul))
|
|
|
|
// Pop the node from the queue into the variable
|
|
#define PopLprul(lplprul, lplprulQ) \
|
|
(*lplprul = *lplprulQ, \
|
|
*lplprulQ = (*lplprul)->prulNext, \
|
|
(*lplprul)->prulNext = 0)
|
|
|
|
// Push event node into Auto-Clear (Changed) list
|
|
#define PushLpRulChanged(prul) \
|
|
if ((prul)->irulNextChanged == 0) \
|
|
{ \
|
|
int rulevt = RulevtOfLprul(prul); \
|
|
\
|
|
(prul)->irulNextChanged \
|
|
= vlpruls->rgirulRulevtChanged[rulevt]; \
|
|
vlpruls->rgirulRulevtChanged[rulevt] = IrulFromLprul(prul); \
|
|
}
|
|
|
|
// Mark event as never Auto-Clearing
|
|
#define SetNoAutoClearRulv(rulv) \
|
|
(LprulFromRulv(rulv)->irulNextChanged = irulNoAutoClear)
|
|
#define SetNoAutoClearLprul(prul) \
|
|
((prul)->irulNextChanged = irulNoAutoClear)
|
|
|
|
#define irulChangedNil -1
|
|
#define irulNoAutoClear -2
|
|
|
|
// Return the offset of a field from the start of its typedef'd structure
|
|
// NOTE: THIS IS TRICKY CODE, BUT COMPLETELY LEGAL C!!
|
|
// To understand it, remember that 0 is a valid pointer for ALL types!
|
|
#define CchStructOffset(type, field) \
|
|
(((char *) (&((type *) 0)->field)) - ((char *) 0))
|
|
|
|
|
|
// Call Rule Evaluation function provided by Application
|
|
#define FEvalRule(irul) \
|
|
(*vlpruls->lpfnEvalRule)(irul)
|
|
|
|
|
|
#ifndef STATIC_LINK_EM
|
|
MSOAPI_(RULS **) MsoPvlprulsMirror(RULS **pvlprulsApp); // Exchange &vlpruls
|
|
#else /* STATIC_LINK_EM */
|
|
#define MsoPvlprulsMirror(pvlprulsApp) pvlprulsApp
|
|
#endif /* !STATIC_LINK_EM */
|
|
MSOAPI_(int) MsoFInitRules( // Init rule base
|
|
LPFNRulinit lpfnRulInit,
|
|
RULS *lpruls
|
|
);
|
|
IRUL IrulDefineEvent(int rulevt, char *szName); // Define simple event
|
|
MSOAPI_(MSOKWD *) MsoFDefineStringKwdEvent( // Define str kwd event
|
|
int rulevt,
|
|
char *szName,
|
|
XCHAR *pxch,
|
|
int cch,
|
|
int ikwtb
|
|
);
|
|
MSOAPI_(MSOKWDLH *) MsoFDefineIntegerKwdEvent( // Define int kwd event
|
|
int rulevt,
|
|
char *szName,
|
|
long lValue,
|
|
int ikwtb
|
|
);
|
|
MSOAPI_(void) MsoClearRules(void); // Clear nodes & state
|
|
MSOAPI_(void) MsoClearEventsForRulevts( // Clr rg of ev types
|
|
int rulevtFirst,
|
|
int drulevtCount,
|
|
int fSavePersistentDelayed,
|
|
int fClearChanged,
|
|
int fClearIntervalCounts
|
|
);
|
|
MSOAPI_(void) MsoRestorePersistentDelayedRules(void); // Restore delayed Q
|
|
MSOAPI_(int) MsoFAddPruldepDependent( // Add dependent link
|
|
IRUL irul,
|
|
MSORUL *prulDependent,
|
|
int cDelay,
|
|
int rulg
|
|
);
|
|
MSOAPI_(void) MsoFixUpPruldeps( // Fix up after insert
|
|
IRUL irul,
|
|
int rulg,
|
|
int rulgBase,
|
|
RULDEP *lpruldepOldList,
|
|
RULDEP *lpruldepNewList
|
|
);
|
|
MSOAPI_(int) MsoFDelPruldepDependent( // Del dependent link
|
|
IRUL irul,
|
|
MSORUL *prulDependent,
|
|
int rulg,
|
|
int fDiscard
|
|
);
|
|
MSOAPI_(void) MsoSetActiveRuls(RULS *pruls); // Set curr vlpruls
|
|
MSOAPI_(void) MsoFreeRuleMem(RULS *pruls); // Free rule memory
|
|
#ifdef OFFICE_BUILD
|
|
MSOAPI_(void) MsoMarkRuleMem(RULS *pruls); // Mark rule mem used
|
|
#endif /* OFFICE_BUILD */
|
|
MSOAPI_(void) MsoSetEventTypeRulevt(int rulevt); // Change event_types
|
|
MSOAPI_(void) MsoClearChangedEventsForRulevt(int rulevt);// Clr event_type vals
|
|
void RemoveLprulChanged(MSORUL *prul); // Un-auto-clear event
|
|
MSOAPI_(int) MsoEvaluateEvents(int rulevt); // Event evaluation
|
|
MSOAPI_(int) MsoFEvalIrul(IRUL irul); // Eval single node
|
|
MSOAPI_(void) MsoDelaySignalIrul( // Signal node w/delay
|
|
IRUL irul,
|
|
long lValue,
|
|
int cDelay
|
|
);
|
|
MSOAPI_(void) MsoDelaySignalIrulFrom( // Signal node w/delay
|
|
IRUL irul,
|
|
IRUL irulFrom,
|
|
int cDelay
|
|
);
|
|
MSOAPI_(void) MsoSignalIrul(IRUL irul, long lValue); // Cond schedule irul
|
|
#define PushIrulToEval(irul, lValue) \
|
|
MsoSignalIrul(irul, lValue)
|
|
MSOAPI_(void) MsoScheduleIrul(IRUL irul, long lValue); // Schedule rule to run
|
|
#ifdef DEBUG
|
|
MSOAPI_(void) MsoScheduleIrulDebug(IRUL irul, long lValue);// Log and schedule
|
|
MSOAPI_(void) MsoScheduleIrulDebugMso(IRUL irul, long lValue);//Log &sched MSO
|
|
#else
|
|
#define MsoScheduleIrulDebug MsoScheduleIrul
|
|
#define MsoScheduleIrulDebugMso MsoScheduleIrul
|
|
#endif /* DEBUG */
|
|
|
|
MSOAPI_(void) MsoDelayScheduleIrul( // Schedule after delay
|
|
IRUL irul,
|
|
long lValue,
|
|
int cDelay
|
|
);
|
|
#ifdef DEBUG
|
|
MSOAPI_(void) MsoDelayScheduleIrulDebug( // Log and schedule
|
|
IRUL irul,
|
|
long lValue,
|
|
int cDelay
|
|
);
|
|
#else
|
|
#define MsoDelayScheduleIrulDebug MsoDelayScheduleIrul
|
|
#endif /* DEBUG */
|
|
MSOAPI_(void) MsoDelayScheduleIrulFrom( // Sched, pass value
|
|
IRUL irul,
|
|
IRUL irulFrom,
|
|
int cDelay
|
|
);
|
|
MSOAPI_(int) MsoFEvalIrulImmediately( // Eval irul now
|
|
IRUL irul,
|
|
long lValue
|
|
);
|
|
MSOAPI_(void) MsoPushLprulDependents(MSORUL *prul); // Push dependents
|
|
MSOAPI_(void) MsoPushDelayedEvalForRulevt(int rulevt); // Push delayed nodes
|
|
MSOAPI_(void) MsoAutoClearIrul(IRUL irul); // Mark node for clear
|
|
MSOAPI_(int) MsoFAliasPrulPrul( // Ret if 2 are aliases
|
|
MSORUL *prul,
|
|
MSORUL *prulTarget
|
|
);
|
|
void RecordLprulHistory(MSORUL *prul); // Push ev into hist
|
|
#ifdef NEVER
|
|
MSOAPI_(int) MsoFIrulHistoryValueWas( // Look 4 event in hist
|
|
int dirultkBackwards,
|
|
long *lpwVar
|
|
);
|
|
#endif // NEVER
|
|
#ifdef NEED_AS_FUNCTION
|
|
void SetCurrRulg(int rulgGroup); // Set rule group
|
|
#endif /* NEED_AS_FUNCTION */
|
|
MSOAPI_(void) MsoSignalEventIrul(IRUL irul, long lValue);// Signal an event
|
|
MSOAPI_(void) MsoSignalEventIrulFrom( // Signal ev from node
|
|
IRUL irul,
|
|
IRUL irulFrom
|
|
);
|
|
#ifdef NEVER
|
|
MSOAPI_(void) MsoSetRuleConfid(IRUL irul, int wFactor); // Set confidence val
|
|
#endif // NEVER
|
|
|
|
// Schedule a node for deferred evaluation, based upon a decision rule
|
|
// This macro gets invoked twice. See _MsoFDeferIrul() for details.
|
|
#define FDeferIrul(irul) \
|
|
(vlpruls->fEvaluatingDeferred || _MsoFDeferIrul(irul))
|
|
|
|
#define FDeferIrulExpr(irul, lExpr) \
|
|
(vlpruls->fEvaluatingDeferred \
|
|
|| (((int) lExpr) && _MsoFDeferIrul(irul)))
|
|
|
|
#define FDeferIrulExprL(irul, lExpr, lValue) \
|
|
(vlpruls->fEvaluatingDeferred \
|
|
|| (((int) lExpr) && _MsoFDeferIrulL((irul), (lValue))))
|
|
|
|
#define IrulPickDeferred(irulDecision) \
|
|
MsoIrulPickDeferred(irulDecision)
|
|
|
|
MSOAPI_(int) _MsoFDeferIrul(IRUL irul); // Add to defer list
|
|
MSOAPI_(int) _MsoFDeferIrulL(IRUL irul, long lValue); // Add to defer w/value
|
|
MSOAPI_(IRUL) MsoIrulPickDeferred(IRUL irulDecision); // Pick from defer list
|
|
|
|
|
|
MSOAPI_(void) MsoSetRulNotify( // Set up notification
|
|
long lExprValue, // Really an int
|
|
IRUL irulDecision,
|
|
IRUL irulNotify
|
|
);
|
|
MSOAPI_(int) MsoFRulNotify(long wNotify); // Notify on next eval
|
|
MSOAPI_(int) MsoFRulNotifyImmediately(long wNotify); // Notify immediately
|
|
MSOAPI_(long) MsoRulvElement(IRUL irulArray, IRUL iirul);// Get value of array
|
|
MSOAPI_(void) MsoSetElementRulv( // Set value of array
|
|
IRUL irulArray,
|
|
IRUL iirul,
|
|
long lValue
|
|
);
|
|
MSOAPI_(void) MsoSetAllElementsToRulv( // Set all vals of arr
|
|
IRUL irulArray,
|
|
IRUL cirul,
|
|
long lValue
|
|
);
|
|
|
|
|
|
/* M S O F A C T I V A T E I R U L */
|
|
/*----------------------------------------------------------------------------
|
|
%%Function: MsoFActivateIrul
|
|
%%Contact: daleg
|
|
|
|
Activate a node in the rulebase
|
|
----------------------------------------------------------------------------*/
|
|
|
|
_inline int MsoFActivateIrul(IRUL irul) // Activate a node
|
|
{
|
|
MSOPRUL prul = LprulFromIrul(irul);
|
|
|
|
if (prul->prulNext == msoprulInactive)
|
|
{
|
|
prul->prulNext = (MSOPRUL) NULL;
|
|
return TRUE;
|
|
}
|
|
else
|
|
return FALSE;
|
|
}
|
|
|
|
|
|
/* M S O F D E A C T I V A T E I R U L */
|
|
/*----------------------------------------------------------------------------
|
|
%%Function: MsoFDeactivateIrul
|
|
%%Contact: daleg
|
|
|
|
Deactivate a node in the rulebase
|
|
----------------------------------------------------------------------------*/
|
|
|
|
MSOAPI_(int) _MsoFDeactivateIrul(IRUL irul); // Deactivate a node
|
|
|
|
_inline int MsoFDeactivateIrul(IRUL irul)
|
|
{
|
|
MSOPRUL prul = LprulFromIrul(irul);
|
|
|
|
if (prul->prulNext == NULL)
|
|
{
|
|
prul->prulNext = msoprulInactive;
|
|
return TRUE;
|
|
}
|
|
else
|
|
return _MsoFDeactivateIrul(irul);
|
|
}
|
|
|
|
|
|
MSOAPI_(int) MsoFDeleteIrul(IRUL irul, int rulg); // Delete a node
|
|
|
|
|
|
/*************************************************************************
|
|
Prototypes and macros for rultest.c and rulconcl.c.
|
|
These prototypes "Hungarianize" the rule code so that the rule
|
|
authors do not have to know Hungarian, but it is preserved within
|
|
the application code.
|
|
*************************************************************************/
|
|
|
|
// Return the current interval number for the event_type
|
|
#define CIntervalsRulevt(rulevt) \
|
|
(vlpruls->rgdtkiRulevt[rulevt])
|
|
|
|
// OBSOLETE: Return the current interval number for the event_type
|
|
#define CIntervalsRsct(rulevt) CIntervalsRulevt(rulevt)
|
|
|
|
// Increment the current interval number for the event_type
|
|
#define IncrIntervalsRsct(rulevt, dc) \
|
|
(vlpruls->rgdtkiRulevt[rulevt] += (dc))
|
|
|
|
#ifdef NEVER
|
|
// Set long value of a node and force propagation
|
|
#define SetValue(wVar, lValue) \
|
|
SignalEvent(wVar, lValue)
|
|
#endif /* NEVER */
|
|
|
|
// Convert a "variable" event reference to an node address
|
|
#define LprulFromRulv(rulvVar) \
|
|
LprulOfWValue(&(rulvVar))
|
|
|
|
// Notify a node, on its next evaluation pass
|
|
#define FNotify(rgwVar) \
|
|
MsoFRulNotify(rgwVar)
|
|
|
|
// Notify an action rule, immediately
|
|
#define FNotifyImmediately(rgwVar) \
|
|
MsoFRulNotifyImmediately(rgwVar)
|
|
|
|
// Indicate the next event_type to enter when current event_type is exited
|
|
#define SetNextEventType(rulevt) \
|
|
if (vlpruls->prulevtEvalLim \
|
|
< vlpruls->rgrulevtEval + RulevtMax()) \
|
|
(*vlpruls->prulevtEvalLim++ = (rulevt)); \
|
|
else \
|
|
AssertSz0(FALSE, "Exceeded max number of rulevts to eval");
|
|
|
|
// Force delayed evaluation of rule of given ID: GENERATED BY RULE COMPILER
|
|
#define DelayEvalIrul(irul, cDelay) \
|
|
MsoDelayScheduleIrulFrom((irul), (irul), (cDelay))
|
|
|
|
// Return whether the dirultkBackwards'th previous value was the given event
|
|
#define ValueWas(dirultkBackwards, wVar) \
|
|
MsoFIrulHistoryValueWas(dirultkBackwards, &(wVar))
|
|
|
|
// Find the given value in its event_type history, and return the (neg) offset
|
|
#define FindPrevValueFrom(dirultkBackwards, wVar) \
|
|
DirultkFindPrevValueFrom(dirultkBackwards, &(wVar))
|
|
|
|
// Mark event/rule for automatic clearing on event_type exit
|
|
#define AutoClear(irul) \
|
|
MsoAutoClearIrul(irul)
|
|
|
|
// Mark expression as exempt from dependency linkage in rule if
|
|
#define Value(expr) (expr)
|
|
|
|
// Push all dependents of node of ID onto their evaluation queues
|
|
#define Propagate(irul) \
|
|
MsoPushLprulDependents(LprulFromIrul((int) irul))
|
|
|
|
// Evaluate the rule at normal time
|
|
#define GoToRule(irul) \
|
|
MsoDelayScheduleIrul((irul), TRUE, 0 /* cDelay */)
|
|
|
|
// Evaluate the rule at normal time
|
|
#define GoToIrul(irul) \
|
|
MsoDelayScheduleIrulFrom((IRUL) (irul), (irulSelf), 0 /* cDelay */)
|
|
|
|
// Evaluate the rule after delay of 1, incrementing value
|
|
#define GoToIrulNoValue(irul) \
|
|
MsoDelayScheduleIrulFrom \
|
|
((IRUL) (irul), (IRUL) (irul), 1 /* cDelay */)
|
|
|
|
// Evaluate the rule at normal time
|
|
#define GoToDirul(dirul) \
|
|
MsoDelayScheduleIrulFrom \
|
|
((IRUL) (irulSelf) + (dirul), (irulSelf), 0 /* cDelay */)
|
|
|
|
// Evaluate the rule after delay of 1
|
|
#define DelayGoToRule(irul) \
|
|
DelayGoToIrulNoValue(irul)
|
|
|
|
// Signal the event with the given value
|
|
#define SignalIrul(irul, lValue) \
|
|
MsoSignalIrul(irul, lValue)
|
|
|
|
// Signal the event with the given value
|
|
#define SignalEvent(wVar, lValue) \
|
|
MsoSignalEventIrul(IrulFromLprul(LprulFromRulv(wVar)), (lValue))
|
|
|
|
// Signal the event with the given value
|
|
#define SignalEventIrul(irul, lValue) \
|
|
MsoSignalEventIrul(irul, lValue)
|
|
|
|
// Signal the node with the value from the current rule
|
|
// REVIEW: THIS IS WRONG, NOT CONDITIONALLY SCHEDULING IF EVENT
|
|
#define SignalIrulSelf(irul) \
|
|
MsoDelayScheduleIrulFrom((IRUL) (irul), (irulSelf), 0)
|
|
|
|
// Signal the event with the value from the current rule
|
|
#define SignalEventIrulSelf(irul) \
|
|
MsoSignalEventIrulFrom((IRUL) (irul), (irulSelf))
|
|
|
|
// Evaluate the event after delay of 1
|
|
#define DelaySignalEventIrul(irul, lValue) \
|
|
MsoDelayScheduleIrul((irul), (lValue), 1 /* cDelay */)
|
|
|
|
// Evaluate the event after specified delay
|
|
#define DelaySignalEventIrulAfter(irul, lValue, cDelay) \
|
|
MsoDelayScheduleIrul((irul), (lValue), 1 << ((cDelay) - 1))
|
|
|
|
// Evaluate the node after delay of 1, getting value from rule
|
|
#define DelaySignalIrulSelf(irul) \
|
|
MsoDelayScheduleIrulFrom((irul), (irulSelf), 1 /* cDelay */)
|
|
|
|
// Evaluate the event after delay of 1, getting value from rule
|
|
#define DelaySignalEventIrulSelf(irul) \
|
|
MsoDelayScheduleIrulFrom((irul), (irulSelf), 1 /* cDelay */)
|
|
|
|
// Evaluate the event after delay of 1
|
|
// REVIEW daleg: OBSOLETE: USE DelaySignalEventIrul or "then ... (<event>)"
|
|
#define DelaySignalIrul(irul) \
|
|
MsoDelayScheduleIrul((irul), TRUE, 1 /* cDelay */)
|
|
|
|
// Evaluate the event after delay of 1
|
|
#define DelaySignal(rulvVar) \
|
|
DelaySignalRulv((rulvVar), TRUE)
|
|
|
|
// Evaluate the event after delay of 1
|
|
#define DelaySignalRulv(rulvVar, lValue) \
|
|
CDelaySignalRulv((rulvVar), (lValue), 1 /* cDelay */)
|
|
|
|
// Evaluate the event after delay of 1
|
|
#define CDelaySignalRulv(rulvVar, lValue, cDelay) \
|
|
MsoDelayScheduleIrul(LprulFromRulv(rulvVar)->irul, (lValue), \
|
|
(cDelay))
|
|
|
|
// Evaluate the rule after delay of 1 passing TRUE as the value
|
|
#define DelayGoToIrul1(irul) \
|
|
MsoDelayScheduleIrul((irul), TRUE, 1 /* cDelay */)
|
|
|
|
// Evaluate the rule after specified delay
|
|
#define DelayGoToIrulAfter(irul, cDelay) \
|
|
MsoDelayScheduleIrul((irul), TRUE, 1 << ((cDelay) - 1))
|
|
|
|
// Evaluate the rule with value after specified delay
|
|
#define DelayGoToIrulWithRulvAfter(irul, lValue, cDelay) \
|
|
MsoDelayScheduleIrul((irul), (lValue) - (cDelay) + 1, \
|
|
1 << ((cDelay) - 1))
|
|
|
|
// Evaluate the rule after specified delay
|
|
#define DelayGoToDirulAfter(dirul, cDelay) \
|
|
MsoDelayScheduleIrulFrom((IRUL) (irulSelf + (dirul)), (irulSelf), \
|
|
1 << ((cDelay) - 1))
|
|
|
|
// Evaluate the rule after delay of 1, incrementing value
|
|
#define DelayGoToIrulNoValue(irul) \
|
|
MsoDelayScheduleIrulFrom \
|
|
((IRUL) (irul), (IRUL) (irul), 1 /* cDelay */)
|
|
|
|
// Evaluate the rule after delay of 1, passing the value of the current node
|
|
#define DelayGoToIrul(irul) \
|
|
MsoDelayScheduleIrulFrom((IRUL) (irul), (irulSelf), 1 /* cDelay */)
|
|
|
|
// Evaluate the rule (via relative offset) after delay of 1
|
|
#define DelayGoToDirul(dirul) \
|
|
MsoDelayScheduleIrulFrom \
|
|
((IRUL) (irulSelf + (dirul)), (irulSelf), 1)
|
|
|
|
// Evaluate the rule (via relative offset) after delay of 1
|
|
#define DelayGoToDirulNoValue(dirul) \
|
|
MsoDelayScheduleIrulFrom((IRUL) (irulSelf + (dirul)), \
|
|
(IRUL) (irulSelf + (dirul)), 1)
|
|
|
|
// Evaluate the rule (via relative offset) after delay of 1, with value rulv
|
|
#define DelayGoToDirulWithRulv(dirul, rulv) \
|
|
(SetRulvOfIrul(irulSelf + (dirul), (rulv)), \
|
|
DelayGoToDirulNoValue(dirul))
|
|
|
|
// Evaluate the rule (via relative offset) after delay of 1, with value rulv2
|
|
#define DelayGoToDirulWithRulv2(dirul, rulv2) \
|
|
(SetRulv2OfIrul(irulSelf + (dirul), (short) (rulv2)), \
|
|
DelayGoToDirulNoValue(dirul))
|
|
|
|
// Evaluate the rule (via relative offset) after delay of 1, with value rulv2
|
|
#define DelayGoToDirulWithRulv1(dirul, rulv1) \
|
|
(SetRulv1OfIrul(irulSelf + (dirul), (short) (rulv1)), \
|
|
DelayGoToDirulNoValue(dirul))
|
|
|
|
// Evaluate the rule (via relative offset) after delay of 1, with values
|
|
#define DelayGoToDirulWithRulvs(dirul, rulv1, rulv2) \
|
|
(SetRulv1OfIrul(irulSelf + (dirul), (short) (rulv1)), \
|
|
SetRulv2OfIrul(irulSelf + (dirul), (short) (rulv2)), \
|
|
DelayGoToDirulNoValue(dirul))
|
|
|
|
// Deactivate curr rule if the fTest value is FALSE: used in rule test clause
|
|
#define FAutoDeactivateSelf(fTest) \
|
|
FAutoDeactivateIrul(irulSelf, (fTest))
|
|
|
|
// Deactivate the rule if the fTest value is FALSE: used in rule test clause
|
|
#define FAutoDeactivateIrul(irul, fTest) \
|
|
((fTest) ? FALSE : (_MsoFDeactivateIrul(irul), TRUE))
|
|
|
|
// Set the Rule Propagation Group to the given value
|
|
#define SetCurrRulg(rulgGroup) \
|
|
(vlpruls->rgpruldepDependents \
|
|
= vlpruls->rgrgpruldepDependents[vlpruls->rulgCurr \
|
|
= rulgGroup])
|
|
|
|
// Return the current main Rule Propagation Group
|
|
#define FCurrRulg(rulg) \
|
|
(vlpruls->rulgCurr == (rulg))
|
|
|
|
|
|
|
|
/*************************************************************************
|
|
Prototypes and macros for Debugging and Error Handling
|
|
*************************************************************************/
|
|
|
|
#ifdef DEBUG
|
|
MSOAPI_(int) MsoFTraceIrul(IRUL irul, int fTraceOn); // Trace a node
|
|
char *SzFromFixed3(long lValue, char *pchBuf); // Fixed to sz conv
|
|
|
|
#define DebugDumpQueues(wTraceLvl, sz, lValue, wToLevel) \
|
|
{ \
|
|
static const unsigned char _szDump[] = sz; \
|
|
\
|
|
_DumpQueues(wTraceLvl, _szDump, lValue, wToLevel); \
|
|
}
|
|
#define DebugDumpQueue(wTraceLvl, rulevl) \
|
|
_DumpQueue(wTraceLvl, rulevl, LplprulQueueOf(rulevl))
|
|
|
|
#else /* !DEBUG */
|
|
#define DebugDumpQueues(wTraceLvl, sz, lValue, wToLevel)
|
|
#define DebugDumpQueue(wTraceLvl, rulevl)
|
|
|
|
#endif /* DEBUG */
|
|
|
|
|
|
MSOEXTERN_C_END // ****************** End extern "C" *********************
|
|
|
|
|
|
#define EMRULE_H
|
|
|
|
#if !(defined(OFFICE_BUILD) || defined(XL))
|
|
|
|
#ifdef DYN_RULES
|
|
int FLoadDynEmRules(void); // Load dyn rulebase
|
|
#include "emruloci.h"
|
|
#endif /* DYN_RULES */
|
|
|
|
#endif /* !OFFICE_BUILD */
|
|
|
|
#endif /* !EMRULE_H */
|