1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
/****************************************************************
* *
* Copyright 2010 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#ifndef GTM_TRIGGER_H
#define GTM_TRIGGER_H
#include "gtm_trigger_trc.h"
#define TRIGGER_NAME_RESERVED_SPACE 2 /* Reserved space in trigger name to make name unique if needbe */
/* This macro is used where it is possible for the top frame to be a trigger base frame if we are in
* "trigger-no-mans-land" which is characterized by us having created the trigger base frame but no
* trigger execution frame on the stack that would have incremented gtm_trigger_depth (gtm_trigger_depth
* is only incremented for the duration of the trigger execution frame which also means gtm_trigger and
* dm_start are also on the stack). To be in this state at this point, we must have driven at least one of
* a parallel trigger set, returned back to gvtr_match_n_invoke, then, while retrieving the trigger source
* for the next parallel trigger, we hit a restart condition. There are a few different handlers than can
* catch this condition depending on where this macro is used but they all share one thing in common:
* In a normal restart condition while the trigger is running, gtm_trigger itself will unwind the trigger
* base frame during restarts but in this condition where we are in "trigger-no-mans-land", we need to
* unwind the trigger. We use an interuptable state flag that contains this nomansland state to determine
* if we are eligible for this unwind. If not, this is an out-of-design condition we need to protect
* against.
*/
#define TRIGGER_BASE_FRAME_UNWIND_IF_NOMANSLAND \
{ \
if (SFT_TRIGR & frame_pointer->type) \
{ \
if (INTRPT_IN_TRIGGER_NOMANS_LAND == intrpt_ok_state) \
{ /* Remove this errant frame and continue to restart */ \
DBGTRIGR((stderr, "%s: trigger-no-mans-land situation - removing trigger " \
"base frame\n", __FILE__)); \
gtm_trigger_fini(FALSE, FALSE); \
} else \
/* Bad mojo - not in trigger-no-mans-land - unknown issue to protect against */ \
GTMASSERT; \
} \
}
typedef enum
{ /* Trigger rethrow types */
trigr_rethrow_nil,
trigr_rethrow_zg1, /* Rethrow level-only ZGOTO (op_zg1) */
trigr_rethrow_zgoto, /* Rethrow level/entryref ZGOTO (op_zgoto) */
trigr_rethrow_goerrorfrm /* Rethrow goerrorframe() unwind */
} trigr_rethrow_t;
/* Second parm to gtm_trigger() containing non-static type items for a given trigger */
typedef struct
{
mval *ztoldval_new; /* mval to set into $ZTOLDVAL.
* Points to stringpool at "gtm_trigger" entry - is NOT updated by the function */
mval *ztvalue_new; /* mval for current value to set into $ZTVALUE.
* Points to stringpool at "gtm_trigger" entry.
*/
const mval *ztdata_new; /* $Data status of trigger value being Set/Killed - points to a constant mval
* in mtables.c */
const mval *ztriggerop_new; /* Opcode type invoking the trigger - points to a constant mval in mtables.c */
mval *ztupdate_new; /* mval to set into $ZTUPDATE.
* Points to stringpool at "gtm_trigger" entry - is NOT updated by the function */
mval **lvvalarray; /* Value array for lvs named in "lvnamearray" member of gv_trigger_t structure.
* Values are derived from subscripts of matching key at runtime.
* Note that this points to an array of "mval *" each of which in turn point to
* mvals in the M-stack whose strings point to the stringpool.
* For performance reasons, we keep this an array of trigdsc->numsubs entries
* (not trigdsc->numlvsubs entries). So "gtm_trigger" has to look at
* trigdsc->lvindexarray and figure out the actual indices which correspond to
* local variables of interest to that trigdsc and obtain the corresponding
* indices from this array to get the actual local variable values.
* Points to stringpool at "gtm_trigger" entry - is NOT updated by the function */
boolean_t ztvalue_changed; /* Set to TRUE if $ZTVALUE was changed inside the trigger. "ztvalue_new" member
* is updated to point to the new value (in the stringpool) in this case.
*/
/* All above "mval *" fields that point to the stringpool have their corresponding mvals pushed onto the M-stack
* so they are safe from stp_gcol already. No special care needs to be taken by the function "gtm_trigger" for this.
*/
} gtm_trigger_parms;
int gtm_trigger(gv_trigger_t *trigdsc, gtm_trigger_parms *trigprm);
void gtm_trigger_fini(boolean_t forced_unwind, boolean_t fromzgoto);
void gtm_trigger_cleanup(gv_trigger_t *trigdsc);
int gtm_trigger_complink(gv_trigger_t *trigdsc, boolean_t dolink);
#endif
|
