From 428558c89850fe8c79b9c89a943bd996912d12f5 Mon Sep 17 00:00:00 2001
From: Boris Kolpackov <boris@codesynthesis.com>
Date: Mon, 5 Sep 2011 10:36:33 +0200
Subject: Support for views; native part

---
 odb/context.cxx | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'odb/context.cxx')

diff --git a/odb/context.cxx b/odb/context.cxx
index 33d9e08..56b9ab0 100644
--- a/odb/context.cxx
+++ b/odb/context.cxx
@@ -279,6 +279,19 @@ null (semantics::data_member& m, string const& kp)
   }
 }
 
+context::class_kind_type context::
+class_kind (semantics::class_& c)
+{
+  if (object (c))
+    return class_object;
+  else if (view (c))
+    return class_view;
+  else if (composite (c))
+    return class_composite;
+  else
+    return class_other;
+}
+
 string context::
 upcase (string const& s)
 {
@@ -1006,10 +1019,10 @@ is_a (semantics::data_member& m,
 }
 
 bool context::
-has_a (semantics::type& t, unsigned short flags)
+has_a (semantics::class_& c, unsigned short flags)
 {
   has_a_impl impl (flags);
-  impl.dispatch (t);
+  impl.dispatch (c);
   return impl.result ();
 }
 
-- 
cgit v1.1