--- /dev/null
+/************************************************************************
+ ************************************************************************
+ 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;
+}