Merged code tree with Dave Evans's version. Many changes to numberous to list....

[splint.git] / src / mtContextNode.c

diff --git a/src/mtContextNode.c b/src/mtContextNode.c
new file mode 100644 (file)
index 0000000..f0597e0
--- /dev/null
+++ b/src/mtContextNode.c
@@ -0,0 +1,218 @@
+/*
+** LCLint - annotation-assisted static program checker
+** Copyright (C) 1994-2001 University of Virginia,
+**         Massachusetts Institute of Technology
+**
+** This program is free software; you can redistribute it and/or modify it
+** under the terms of the GNU General Public License as published by the
+** Free Software Foundation; either version 2 of the License, or (at your
+** option) any later version.
+** 
+** This program is distributed in the hope that it will be useful, but
+** WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+** General Public License for more details.
+** 
+** The GNU General Public License is available from http://www.gnu.org/ or
+** the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+** MA 02111-1307, USA.
+**
+** For information on lclint: lclint-request@cs.virginia.edu
+** To report a bug: lclint-bug@cs.virginia.edu
+** For more information: http://lclint.cs.virginia.edu
+*/
+/*
+** mtContextNode.c
+*/
+
+# include "lclintMacros.nf"
+# include "basic.h"
+# include "mtgrammar.h"
+
+static bool mtContextNode_matchesType (mtContextNode, ctype) /*@*/ ;
+
+static /*@observer@*/ cstring mtContextKind_unparse (mtContextKind ck)
+{
+  switch (ck)
+    {
+    case MTC_ANY: return cstring_makeLiteralTemp ("any");
+    case MTC_PARAM: return cstring_makeLiteralTemp ("param"); 
+    case MTC_REFERENCE: return cstring_makeLiteralTemp ("reference");
+    case MTC_CLAUSE: return cstring_makeLiteralTemp ("clause");
+    }
+
+  BADBRANCH;
+}
+ 
+static mtContextNode mtContextNode_create (mtContextKind context, ctype ct) 
+{
+  mtContextNode res = (mtContextNode) dmalloc (sizeof (*res));
+  res->context = context;
+  res->type = ct;
+  DPRINTF (("Create: %s", mtContextNode_unparse (res)));
+  return res;
+}
+
+extern mtContextNode mtContextNode_createAny ()
+{
+  return mtContextNode_create (MTC_ANY, ctype_unknown);
+}
+
+extern mtContextNode mtContextNode_createParameter (ctype ct) 
+{
+  return mtContextNode_create (MTC_PARAM, ct);
+}
+
+extern mtContextNode mtContextNode_createReference (ctype ct) 
+{
+  return mtContextNode_create (MTC_REFERENCE, ct);
+}
+
+extern mtContextNode mtContextNode_createClause (ctype ct) 
+{
+  return mtContextNode_create (MTC_CLAUSE, ct);
+}
+
+extern void mtContextNode_free (/*@only@*/ mtContextNode node) 
+{
+  sfree (node);
+}
+
+bool mtContextNode_matchesEntry (mtContextNode context, uentry ue)
+{
+  ctype ct;
+
+  llassert (mtContextNode_isDefined (context));
+
+  DPRINTF (("Matches context: %s / %s",
+           mtContextNode_unparse (context), uentry_unparse (ue)));
+
+  switch (context->context)
+    {
+    case MTC_ANY: break; /* everything matches */
+    case MTC_PARAM: 
+      if (!uentry_isParam (ue))
+       {
+         return FALSE;
+       }
+      break;
+    case MTC_REFERENCE:
+      break;
+    case MTC_CLAUSE:
+      BADBRANCH;
+    }
+
+  if (uentry_isFunction (ue))
+    {
+      ct = ctype_getReturnType (uentry_getType (ue));
+    }
+  else
+    {
+      ct = uentry_getType (ue);
+    }
+
+  return mtContextNode_matchesType (context, ct);
+}
+
+bool mtContextNode_matchesRef (mtContextNode context, sRef sr)
+{
+  ctype ct;
+
+  llassert (mtContextNode_isDefined (context));
+
+  DPRINTF (("Matches context: %s / %s",
+           mtContextNode_unparse (context), sRef_unparse (sr)));
+
+  switch (context->context)
+    {
+    case MTC_ANY: break; /* everything matches */
+    case MTC_PARAM: 
+      if (!sRef_isParam (sr))
+       {
+         return FALSE;
+       }
+      break;
+    case MTC_REFERENCE:
+      break;
+    case MTC_CLAUSE:
+      BADBRANCH;
+    }
+
+  ct = sRef_getType (sr);
+  return mtContextNode_matchesType (context, ct);
+}
+
+bool mtContextNode_matchesRefStrict (mtContextNode context, sRef s)
+{
+  if (mtContextNode_matchesRef (context, s))
+    {
+      if (ctype_isKnown (context->type) 
+         && (ctype_isUnknown (sRef_getType (s))
+             || ctype_isVoidPointer (sRef_getType (s))))
+       {
+         return FALSE;
+       }
+      else
+       {
+         return TRUE;
+       }
+    }
+  
+  return FALSE;
+}
+
+bool mtContextNode_matchesType (mtContextNode context, ctype ct)
+{
+  DPRINTF (("Context type..."));
+  
+  if (!ctype_match (context->type, ct))
+    {
+      DPRINTF (("Type mismatch: %s / %s",
+               ctype_unparse (context->type),
+               ctype_unparse (ct)));
+      return FALSE;
+    }
+  else
+    {
+      DPRINTF (("Type okay: %s / %s",
+               ctype_unparse (context->type),
+               ctype_unparse (ct)));
+    }
+  
+  return TRUE;
+}
+
+cstring mtContextNode_unparse (mtContextNode node)
+{
+  if (ctype_isKnown (node->type))
+    {
+      return message ("%s %s", mtContextKind_unparse (node->context),
+                     ctype_unparse (node->type));
+    }
+  else
+    {
+      return message ("%s", mtContextKind_unparse (node->context));
+    }
+}
+
+bool mtContextNode_isClause (mtContextNode n)
+{
+  llassert (mtContextNode_isDefined (n));
+  return (n->context == MTC_CLAUSE);
+}
+
+bool mtContextNode_isParameter (mtContextNode n)
+{
+  llassert (mtContextNode_isDefined (n));
+  return (n->context == MTC_PARAM);
+}
+
+bool mtContextNode_isRef (mtContextNode n)
+{
+  llassert (mtContextNode_isDefined (n));
+  return (n->context == MTC_REFERENCE);
+}
+
+
+
+