X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/c7f552fd8888da2f0d8cfb228fe0f28d3df3a12c..b4b6f2ea75b9f0f3ca918f5b84016610bf7a4d4f:/interpretor/preprocessor/faust-0.9.47mr3/compiler/utils/names.cpp

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/compiler/utils/names.cpp b/interpretor/preprocessor/faust-0.9.47mr3/compiler/utils/names.cpp
new file mode 100644
index 0000000..479b1ce
--- /dev/null
+++ b/interpretor/preprocessor/faust-0.9.47mr3/compiler/utils/names.cpp
@@ -0,0 +1,151 @@
+/************************************************************************
+ ************************************************************************
+    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.
+ ************************************************************************
+ ************************************************************************/
+
+
+/**
+ * \file eval.cpp
+ * Interface for names propagation.
+ *
+ **/
+
+
+#include "ppsig.hh"
+#include "names.hh"
+#include "property.hh"
+#include "ppsig.hh"
+#include "doc_Text.hh"
+#include "Text.hh"
+#include <assert.h>
+
+
+// History
+// 2009/09/08 : get/setDefNameProperty
+
+
+extern int gMaxNameSize;
+
+
+/**
+ * Definition name property : a property to keep track of the definition name
+ * of an expression. Whenever an identifier is evaluated, it is attached as a
+ * property of its definitionObviously there is no perfect solution since a same
+ * definition quand be given to different names.
+ */
+Tree DEFNAMEPROPERTY = tree(symbol("DEFNAMEPROPERTY"));
+
+void setDefNameProperty(Tree t, Tree id)
+{
+	//cerr << "setDefNameProperty : " << *id << " FOR " << t << "#" << boxpp(t) << endl;
+	setProperty(t, DEFNAMEPROPERTY, id);
+}
+
+void setDefNameProperty(Tree t, const string& name)
+{
+	//cerr << "setDefNameProperty : " << name << " FOR " << t << "#" << boxpp(t) << endl;
+	int		n = name.size();
+	int 	m = (gMaxNameSize>1023) ? 1023 : gMaxNameSize;
+	if (n > m) {
+		// the name is too long we reduce it to 2/3 of maxsize
+		char 	buf[1024];
+		int i = 0;
+		// copy first third
+		for (; i < m/3; i++) { buf[i] = name[i]; }
+		// add ...
+		buf[i++] = '.';
+		buf[i++] = '.';
+		buf[i++] = '.';
+		// copy last third
+		for (int c = n-m/3; c<n; c++, i++) { buf[i] = name[c]; }
+		buf[i] = 0;
+		setProperty(t, DEFNAMEPROPERTY, tree(buf));
+	} else {
+		setProperty(t, DEFNAMEPROPERTY, tree(name.c_str()));
+	}
+
+}
+
+bool getDefNameProperty(Tree t, Tree& id)
+{
+	//cerr << "getDefNameProperty of : " << t << endl;
+	return getProperty(t, DEFNAMEPROPERTY, id);
+}
+
+
+/**
+ * Convert a definition name (can be long) into a short nickname
+ * that can be used as an equation name in latex
+ * @todo Simplify long definition names.
+ */
+string defName2NickName (const string& defname)
+{
+	return defname;
+}
+
+Tree NICKNAMEPROPERTY = tree(symbol("NICKNAMEPROPERTY"));
+
+
+/**
+ * Set the nickname property of a signal
+ */
+void setSigNickname(Tree t, const string& id)
+{
+	Tree 	s,d;
+	if (isSigFixDelay(t,s,d) && isZero(d)) {
+		setProperty(s, NICKNAMEPROPERTY, tree(id));
+	} else {
+		setProperty(t, NICKNAMEPROPERTY, tree(id));
+	}
+}
+
+
+/**
+ * Get the nickname property of a signal
+ */
+bool getSigNickname(Tree t, Tree& id)
+{
+	bool r = getProperty(t, NICKNAMEPROPERTY, id);
+	return r;
+}
+
+
+
+/**
+ * set the nickname property of a list of signals. If the list
+ * contains more than one signal, adds an index to the nickname
+ */
+void setSigListNickName (Tree  lsig, const string& nickname)
+{
+	assert(isList(lsig));
+	
+	if (isNil(tl(lsig))) {
+		setSigNickname(hd(lsig), nickname);
+	} else {
+		int 	i=0;
+		while (!isNil(lsig)) {
+			setSigNickname(hd(lsig), subst("$0_$1", nickname, T(++i)));
+			lsig = tl(lsig);
+		}
+	}
+}
+
+
+
+