X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/1059e1cc0c2ecfa237406949aa26155b6a5b9154..66f23d4fabf89ad09adbd4dfc15ac6b5b2b7da83:/interpretor/preprocessor/faust-0.9.47mr3/compiler/signals/prim2.cpp?ds=sidebyside

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/compiler/signals/prim2.cpp b/interpretor/preprocessor/faust-0.9.47mr3/compiler/signals/prim2.cpp
deleted file mode 100644
index f85d7c2..0000000
--- a/interpretor/preprocessor/faust-0.9.47mr3/compiler/signals/prim2.cpp
+++ /dev/null
@@ -1,72 +0,0 @@
-/************************************************************************
- ************************************************************************
-    FAUST compiler
-	Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
-    ---------------------------------------------------------------------
-    This program is free software; you can redistribute it and/or modify
-    it under the terms of the GNU General Public License as published by
-    the Free Software Foundation; either version 2 of the License, or
-    (at your option) any later version.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-    GNU General Public License for more details.
-
-    You should have received a copy of the GNU General Public License
-    along with this program; if not, write to the Free Software
-    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- ************************************************************************
- ************************************************************************/
- 
- 
- 
-#include "prim2.hh"
-#include "stdlib.h"
-
-Sym FFUN = symbol ("ForeignFunction");
-
-Tree ffunction (Tree signature, Tree incfile, Tree libfile)
-{
-	return tree(FFUN, signature, incfile, libfile);
-}
-
-bool isffunction(Tree t)
-{
-	return t->node() == Node(FFUN); 
-}
-
-Tree ffsignature(Tree ff) 
-{ 
-	return ff->branch(0); 
-}
-
-const char* ffincfile(Tree ff)
-{
-	return tree2str(ff->branch(1));
-}
-
-const char* fflibfile(Tree ff)
-{
-	return tree2str(ff->branch(2));
-}
-
-int ffrestype(Tree t)
-{
-	return tree2int(hd(ffsignature(t)));
-}
-
-const char* ffname(Tree t)
-{
-	return tree2str(nth(ffsignature(t),1));
-}
-
-int ffarity(Tree t)
-{
-	return len(ffsignature(t))-2;
-}
-
-int ffargtype(Tree t, int i)
-{
-	return tree2int(nth(ffsignature(t), i+2));
-}