7 # include <ctype.h> /* for isdigit */
8 # include "lclintMacros.nf"
10 # include "cgrammar.h"
11 # include "cgrammar_tokens.h"
13 # include "exprChecks.h"
14 # include "aliasChecks.h"
15 # include "exprNodeSList.h"
17 //# include "exprData.i"
21 //#include "constraintExpr.h"
23 /*@access exprNode, constraintTermValue @*/
25 void constraintTerm_free (/*@only@*/ constraintTerm term)
27 llassert(constraintTerm_isDefined(term) );
28 fileloc_free (term->loc);
33 /* we don't free an exprNode*/
37 //sRef_free (term->value.sref);
40 /* don't free an int */
42 case ERRORBADCONSTRAINTTERMTYPE:
44 /* type was set incorrectly */
45 llcontbug (message("constraintTerm_free type was set incorrectly"));
50 /*@only@*/ static/*@out@*/ constraintTerm new_constraintTermExpr (void)
53 ret = dmalloc (sizeof (* ret ) );
54 ret->value.intlit = 0;
59 bool constraintTerm_isIntLiteral (constraintTerm term)
61 llassert(term != NULL);
63 if (term->kind == INTLITERAL)
69 bool constraintTerm_isStringLiteral (constraintTerm c) /*@*/
72 if (c->kind == EXPRNODE)
74 if (exprNode_knownStringValue(c->value.expr) )
82 cstring constraintTerm_getStringLiteral (constraintTerm c)
85 llassert (constraintTerm_isStringLiteral (c) );
86 llassert (c->kind == EXPRNODE);
88 return (cstring_copy ( multiVal_forceString (exprNode_getValue (c->value.expr) ) ) );
91 constraintTerm constraintTerm_simplify (/*@returned@*/ constraintTerm term) /*@modifies term@*/
93 if (term->kind == EXPRNODE)
95 if ( exprNode_knownIntValue (term->value.expr ) )
98 #warning is this a leak?
99 temp = exprNode_getLongValue (term->value.expr);
100 term->value.intlit = (int)temp;
101 term->kind = INTLITERAL;
107 fileloc constraintTerm_getFileloc (constraintTerm t)
109 return (fileloc_copy (t->loc) );
112 constraintTermType constraintTerm_getKind (constraintTerm t)
114 llassert (constraintTerm_isDefined(t) );
119 /*@exposed@*/ sRef constraintTerm_getSRef (constraintTerm t)
121 llassert (constraintTerm_isDefined(t) );
122 llassert (t->kind == SREF);
124 return (t->value.sref);
127 /*@only@*/ constraintTerm constraintTerm_makeExprNode (/*@dependent@*/ exprNode e)
129 constraintTerm ret = new_constraintTermExpr();
130 ret->loc = fileloc_copy(exprNode_getfileloc(e));
132 ret->kind = EXPRNODE;
133 ret = constraintTerm_simplify(ret);
137 /*@only@*/ constraintTerm constraintTerm_makesRef (/*@exposed@*/ sRef s)
139 constraintTerm ret = new_constraintTermExpr();
140 ret->loc = fileloc_undefined;
141 ret->value.sref = sRef_saveCopy(s);
143 ret = constraintTerm_simplify(ret);
147 constraintTerm constraintTerm_copy (constraintTerm term)
150 ret = new_constraintTermExpr();
151 ret->loc = fileloc_copy (term->loc);
152 constraintTermValue_copy (ret->value, term->value);
153 ret->kind = term->kind;
157 constraintTerm constraintTerm_setFileloc (/*@returned@*/ constraintTerm term, fileloc loc)
159 llassert(term != NULL);
161 if (term->loc != fileloc_undefined)
162 fileloc_free(term->loc);
164 term->loc = fileloc_copy(loc);
169 static cstring constraintTerm_getName (constraintTerm term)
172 s = cstring_undefined;
174 llassert (term != NULL);
180 s = message ("%s", exprNode_unparse (term->value.expr) );
183 s = message (" %d ", term->value.intlit);
187 s = message ("%q", sRef_unparse (term->value.sref) );
200 constraintTerm_doSRefFixBaseParam (/*@returned@*/constraintTerm term, exprNodeList arglist) /*@modifies term@*/
202 llassert (term != NULL);
208 // s = message ("%s @ %s ", exprNode_unparse (term->value.expr),
209 // fileloc_unparse (term->loc) );
212 // s = message (" %d ", term->value.intlit);
216 term->value.sref = sRef_fixBaseParam (term->value.sref, arglist);
217 // s = message ("%s ", sRef_unparse (term->value.sref) );
227 cstring constraintTerm_print (constraintTerm term) /*@*/
230 s = cstring_undefined;
232 llassert (term != NULL);
238 s = message ("%s @ %q ", exprNode_unparse (term->value.expr),
239 fileloc_unparse (term->loc) );
242 s = message (" %d ", term->value.intlit);
246 s = message ("%q ", sRef_unparseDebug (term->value.sref) );
257 constraintTerm constraintTerm_makeIntLiteral (int i)
259 constraintTerm ret = new_constraintTermExpr();
260 ret->value.intlit = i;
261 ret->kind = INTLITERAL;
262 ret->loc = fileloc_undefined;
266 bool constraintTerm_canGetValue (constraintTerm term)
268 if (term->kind == INTLITERAL)
274 int constraintTerm_getValue (constraintTerm term)
276 llassert (term->kind == INTLITERAL);
277 return term->value.intlit;
282 /* same and similar are similar but not the same*/
284 static bool constraintTerm_same (constraintTerm term1, constraintTerm term2)
286 llassert (term1 !=NULL && term2 !=NULL);
288 if ( (term1->kind != term2->kind) || (term1->kind != EXPRNODE) )
294 ("Comparing srefs for %s and %s ", constraintTerm_print(term1), constraintTerm_print(term2)
299 if (sRef_same (term1->value.expr->sref, term2->value.expr->sref) )
301 DPRINTF ((message (" %s and %s are same", constraintTerm_print(term1), constraintTerm_print(term2) ) ));
306 DPRINTF ((message (" %s and %s are not same", constraintTerm_print(term1), constraintTerm_print(term2) ) ));
312 static /*@exposed@*/ sRef constraintTerm_getsRef (constraintTerm t)
314 llassert (t != NULL);
315 if (t->kind == EXPRNODE)
317 return exprNode_getSref(t->value.expr);
322 return t->value.sref;
325 return sRef_undefined;
328 bool constraintTerm_probSame (constraintTerm term1, constraintTerm term2)
332 llassert (term1 !=NULL && term2 !=NULL);
335 ("Comparing srefs for %s and %s ", constraintTerm_print(term1), constraintTerm_print(term2)
340 s1 = constraintTerm_getName (term1);
341 s2 = constraintTerm_getName (term2);
343 if (cstring_equal (s1, s2) )
345 DPRINTF ((message (" %q and %q are same", s1, s2 ) ) );
350 DPRINTF ((message (" %q and %q are not same", s1, s2 ) ) );
355 bool constraintTerm_similar (constraintTerm term1, constraintTerm term2)
359 llassert (term1 !=NULL && term2 !=NULL);
361 if ( (term1->kind == INTLITERAL) && (term2->kind == INTLITERAL) )
364 llassert (constraintTerm_canGetValue(term1) );
365 t1 = constraintTerm_getValue (term1);
367 llassert (constraintTerm_canGetValue(term2) );
368 t2 = constraintTerm_getValue (term2);
375 s1 = constraintTerm_getsRef (term1);
376 s2 = constraintTerm_getsRef (term2);
384 ("Comparing srefs for %s and %s ", constraintTerm_print(term1), constraintTerm_print(term2)
389 if (sRef_similarRelaxed(s1, s2) || sRef_sameName (s1, s2) )
391 DPRINTF ((message (" %s and %s are same", constraintTerm_print(term1), constraintTerm_print(term2) ) ));
396 DPRINTF ((message (" %s and %s are not same", constraintTerm_print(term1), constraintTerm_print(term2) ) ));