New Faustine tested by sin.dsp and fft.dsp.
[Faustine.git] / interpretor / faust-0.9.47mr3 / compiler / generator / floats.cpp
1 /************************************************************************
2 ************************************************************************
3 FAUST compiler
4 Copyright (C) 2003-2004 GRAME, Centre National de Creation Musicale
5 ---------------------------------------------------------------------
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
19 ************************************************************************
20 ************************************************************************/
21
22 #include "floats.hh"
23
24 #define FLOATMACRO "FAUSTFLOAT"
25 #define FLOATCAST "(" FLOATMACRO ")"
26
27 //-----------------------------------------------
28 // float size coding :
29 //-----------------------------------------------
30 // 0: external float (macro name)
31 // 1: single precision float
32 // 2: double precision float
33 // 3: long double precision float
34
35 extern int gFloatSize;
36
37
38 const char* mathsuffix[] = {"", "f", "", "l"}; // suffix for math functions
39 const char* numsuffix[] = {"", "f", "", ""}; // suffix for numeric constants
40 const char* floatname[] = {FLOATMACRO, "float", "double", "quad"}; // float types
41 const char* castname[] = {FLOATCAST, "(float)", "(double)", "(quad)"}; // float castings
42
43 const char* isuffix() { return mathsuffix[gFloatSize]; } ///< suffix for math functions
44 const char* inumix() { return numsuffix [gFloatSize]; } ///< suffix for numeric constants
45
46 const char* ifloat() { return floatname[gFloatSize]; }
47 const char* icast() { return castname[gFloatSize]; }
48
49 const char* xfloat() { return floatname[0]; }
50 const char* xcast() { return castname[0]; }
51
52 void printfloatdef (std::ostream& fout)
53 {
54 fout << "#ifndef " << FLOATMACRO << std::endl;
55 fout << "#define " << FLOATMACRO << " " << "float" << std::endl;
56 fout << "#endif " << std::endl;
57 fout << std::endl;
58 fout << "typedef long double quad;" << std::endl;
59 }