]> git.draconx.ca Git - gob-dx.git/blobdiff - src/checks.c
Release 0.93.0
[gob-dx.git] / src / checks.c
index 73b10d88b3aa20beb1f3f05fdfa5064a20da8a97..80602d1f16b189aba043b6ab6844371aa6be3b7a 100644 (file)
@@ -396,3 +396,35 @@ count_protecteds(Class *c)
        }
        return num;
 }
+
+int
+count_destructors(Class *c)
+{
+       int num = 0;
+       GList *l;
+       for(l=c->nodes;l;l=g_list_next(l)) {
+               Node *n = l->data;
+               if(n->type == VARIABLE_NODE) {
+                       Variable *v = (Variable *)n;
+                       if(v->destructor)
+                               num++;
+               }
+       }
+       return num;
+}
+
+int
+count_initializers(Class *c)
+{
+       int num = 0;
+       GList *l;
+       for(l=c->nodes;l;l=g_list_next(l)) {
+               Node *n = l->data;
+               if(n->type == VARIABLE_NODE) {
+                       Variable *v = (Variable *)n;
+                       if(v->initializer)
+                               num++;
+               }
+       }
+       return num;
+}