blob: 2a837c7b7ad01c1e74bbf95b0c53188475912310 (
plain)
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "cpp.h"
/*
Nlist * pMacro;
Token * pTokenWhereMacroBecomesValid;
struct macroValidator *
pNext;
*/
void
mvl_init(MacroValidatorList * out_pValidators)
{
out_pValidators->pFirst = 0;
out_pValidators->nextFreeIdentifier = 1;
}
void
mvl_destruct(MacroValidatorList * out_pValidators)
{
MacroValidator * pV = out_pValidators->pFirst;
MacroValidator * pDel;
for ( pDel = out_pValidators->pFirst;
pDel != 0;
pDel = pV )
{
pV = pV->pNext;
pDel->pMacro->flag &= (~ISACTIVE);
dofree(pDel);
}
}
#define INVALID_TILL_ENDOFROW 32000
/* If in_pTokenWhereMacroBecomesValid == 0, the macro is at row end
and therefore there does not exist any token, where the macro becomes
valid again. It is revalidated, when the row was processed complete.
*/
void
mvl_add( MacroValidatorList * inout_pValidators,
Nlist * in_pMacro,
Token * in_pTokenWhereMacroBecomesValid )
{
MacroValidator * pNew = new(MacroValidator);
pNew->pMacro = in_pMacro;
if (in_pTokenWhereMacroBecomesValid == 0)
{
pNew->nTokenWhereMacroBecomesValid = INVALID_TILL_ENDOFROW;
}
else if (in_pTokenWhereMacroBecomesValid->identifier > 0)
{
pNew->nTokenWhereMacroBecomesValid = in_pTokenWhereMacroBecomesValid->identifier;
}
else
{
pNew->nTokenWhereMacroBecomesValid = inout_pValidators->nextFreeIdentifier;
in_pTokenWhereMacroBecomesValid->identifier = inout_pValidators->nextFreeIdentifier;
inout_pValidators->nextFreeIdentifier++;
}
pNew->pNext = inout_pValidators->pFirst;
inout_pValidators->pFirst = pNew;
}
void
mvl_move( MacroValidatorList * inout_pValidators,
int in_nSpace )
{
/*
MacroValidator * pV;
for ( pV = inout_pValidators->pFirst;
pV != 0;
pV = pV->pNext )
{
pV->pTokenWhereMacroBecomesValid += in_nSpace;
}
*/
}
void
mvl_check( MacroValidatorList * inout_pValidators,
Token * inout_pTokenToCheck)
{
MacroValidator * pV; /* Running pointer */
MacroValidator * pCheckedOnes; /* Here new list is built. */
pCheckedOnes = 0;
for ( pV = inout_pValidators->pFirst;
pV != 0;
pV = inout_pValidators->pFirst )
{
inout_pValidators->pFirst = pV->pNext;
if (pV->nTokenWhereMacroBecomesValid == inout_pTokenToCheck->identifier)
{
pV->pMacro->flag &= (~ISACTIVE);
dofree(pV);
}
else
{
pV->pNext = pCheckedOnes;
pCheckedOnes = pV;
}
} /* end for */
/* Assign new built list (too old ones were removed) to
original list:
*/
inout_pValidators->pFirst = pCheckedOnes;
}
void
tokenrow_zeroTokenIdentifiers(Tokenrow* trp)
{
Token * tp;
for (tp = trp->bp; tp < trp->lp; tp++)
{
tp->identifier = 0;
}
}
|