From: Jérémie Astor <astor.jeremie@wanadoo.fr>
Date: Mon, 15 Jun 2020 16:19:12 +0000 (+0200)
Subject: :art: Move compat_func
X-Git-Tag: nightly~1471
X-Git-Url: http://10.10.0.4:5575/?a=commitdiff_plain;h=672b6d95618cb8e88e9b1d17825ad2245885c2cc;p=gwion.git

:art: Move compat_func
---

diff --git a/ast b/ast
index bb6cb30f..0835f974 160000
--- a/ast
+++ b/ast
@@ -1 +1 @@
-Subproject commit bb6cb30ffd3fbc8daccff74ba19f90de7b7a6029
+Subproject commit 0835f9740272e180bc609e82a3c0f80218814be0
diff --git a/src/parse/compat_func.h b/src/parse/compat_func.h
new file mode 100644
index 00000000..f8646a7a
--- /dev/null
+++ b/src/parse/compat_func.h
@@ -0,0 +1,18 @@
+#include "gwion_util.h"
+#include "gwion_ast.h"
+#include "gwion_env.h"
+
+ANN m_bool compat_func(const restrict Func_Def lhs, const restrict Func_Def rhs) {
+  Arg_List e1 = lhs->base->args;
+  Arg_List e2 = rhs->base->args;
+
+  while(e1 && e2) {
+    if(e1->type != e2->type)
+      return GW_ERROR;
+    e1 = e1->next;
+    e2 = e2->next;
+  }
+  if(e1 || e2) 
+    return GW_ERROR;
+  return GW_OK;
+}