X-Git-Url: https://git.draconx.ca/gitweb/gob-dx.git/blobdiff_plain/77fd2f2194af12f95959506910f3babe842c5f1f..714b58ab4606ed4d40cec3702cb378938f8c883f:/src/checks.c

diff --git a/src/checks.c b/src/checks.c
index 2bb3b69..062d635 100644
--- 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;
+}