Release 1.0.7

[gob-dx.git] / src / checks.c

diff --git a/src/checks.c b/src/checks.c
index 2bb3b69043b209cd28c6cebdce032c0c7c8c35fa..062d6357c2e11521ed3cbe1cbdb4dcc5967ea2fb 100644 (file)
--- a/src/checks.c
+++ b/src/checks.c
@@ -582,3 +582,27 @@ count_initializers(Class *c)
        }
        return num;
 }
+
+gboolean
+find_get_type (Class *c)
+{
+       GList *l;
+       for(l = c->nodes; l != NULL; l = g_list_next(l)) {
+               Node *n = l->data;
+               Method *m = (Method *)n;
+               if(n->type == METHOD_NODE &&
+                  strcmp (m->id, "get_type") == 0) {
+                       if (m->method != REGULAR_METHOD ||
+                           m->scope != PUBLIC_SCOPE ||
+                           m->args != NULL) {
+                               error_printf (GOB_ERROR, m->line_no,
+                                             "get_type method must be a "
+                                             "regular public method with "
+                                             "no arguments");
+                       }
+                       return TRUE;
+               }
+       }
+
+       return FALSE;
+}