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

diff --git a/interpretor/preprocessor/faust-0.9.47mr3/compiler/generator/floats.cpp b/interpretor/preprocessor/faust-0.9.47mr3/compiler/generator/floats.cpp
new file mode 100644
index 0000000..42187de
--- /dev/null
+++ b/interpretor/preprocessor/faust-0.9.47mr3/compiler/generator/floats.cpp
@@ -0,0 +1,59 @@
+/************************************************************************
+ ************************************************************************
+    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 "floats.hh"
+
+#define FLOATMACRO "FAUSTFLOAT"
+#define FLOATCAST "(" FLOATMACRO ")"
+
+//-----------------------------------------------
+// float size coding :
+//-----------------------------------------------
+//          0: external float (macro name)
+//          1: single precision float
+//          2: double precision float
+//          3: long double precision float
+
+extern int  gFloatSize;
+
+
+const char* mathsuffix[] = {"", "f", "", "l"};                                  // suffix for math functions
+const char* numsuffix[]  = {"", "f", "", ""};                                   // suffix for numeric constants
+const char* floatname[]  = {FLOATMACRO, "float", "double", "quad"};      // float types
+const char* castname[]   = {FLOATCAST, "(float)", "(double)", "(quad)"}; // float castings
+
+const char* isuffix() { return mathsuffix[gFloatSize]; } ///< suffix for math functions
+const char* inumix()  { return numsuffix [gFloatSize]; } ///< suffix for numeric constants
+
+const char* ifloat() { return floatname[gFloatSize]; }
+const char* icast()  { return castname[gFloatSize]; }
+
+const char* xfloat() { return floatname[0]; }
+const char* xcast()  { return castname[0]; }
+
+void printfloatdef (std::ostream& fout)
+{
+    fout << "#ifndef " << FLOATMACRO << std::endl;
+    fout << "#define " << FLOATMACRO << " " << "float" << std::endl;
+    fout << "#endif  " << std::endl;
+    fout << std::endl;
+    fout << "typedef long double quad;" << std::endl;
+}