d82cc36c5a
OpenFOAM can now be compiled with single, double or long double scalars by setting the WM_PRECISION_OPTION environment variable to either SP, DP or LP respectively. On most 64bit systems long double is stored as 128bit but computed in the floating point hardware to 80bit. Due to the increased storage compared to double precision cache and memory access is significantly more time consuming causing a slow-down of floating point intensive operations by a factor of 2 to 3.
294 lines
7.1 KiB
C
294 lines
7.1 KiB
C
/*---------------------------------------------------------------------------*\
|
|
========= |
|
|
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
|
\\ / O peration |
|
|
\\ / A nd | Copyright (C) 2011-2018 OpenFOAM Foundation
|
|
\\/ M anipulation |
|
|
-------------------------------------------------------------------------------
|
|
License
|
|
This file is part of OpenFOAM.
|
|
|
|
OpenFOAM 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 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
OpenFOAM 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 OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
\*---------------------------------------------------------------------------*/
|
|
|
|
#include "error.H"
|
|
#include "token.H"
|
|
|
|
#include "IOstreams.H"
|
|
#include "scalar.H"
|
|
|
|
// * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
|
|
|
|
Foam::token::token(Istream& is)
|
|
:
|
|
type_(UNDEFINED)
|
|
{
|
|
is.read(*this);
|
|
}
|
|
|
|
|
|
// * * * * * * * * * * * * IOstream operators * * * * * * * * * * * * * * * //
|
|
|
|
Foam::Istream& Foam::operator>>(Istream& is, token& t)
|
|
{
|
|
t.clear();
|
|
return is.read(t);
|
|
}
|
|
|
|
|
|
Foam::Ostream& Foam::operator<<(Ostream& os, const token& t)
|
|
{
|
|
switch (t.type_)
|
|
{
|
|
case token::UNDEFINED:
|
|
os << "UNDEFINED";
|
|
WarningInFunction
|
|
<< "Undefined token" << endl;
|
|
break;
|
|
|
|
case token::PUNCTUATION:
|
|
os << t.punctuationToken_;
|
|
break;
|
|
|
|
case token::WORD:
|
|
os << *t.wordTokenPtr_;
|
|
break;
|
|
|
|
case token::STRING:
|
|
case token::VERBATIMSTRING:
|
|
os << *t.stringTokenPtr_;
|
|
break;
|
|
|
|
case token::VARIABLE:
|
|
// Behaviour differs according to stream type
|
|
os.write(t);
|
|
break;
|
|
|
|
case token::LABEL:
|
|
os << t.labelToken_;
|
|
break;
|
|
|
|
case token::FLOAT_SCALAR:
|
|
os << t.floatScalarToken_;
|
|
break;
|
|
|
|
case token::DOUBLE_SCALAR:
|
|
os << t.doubleScalarToken_;
|
|
break;
|
|
|
|
case token::LONG_DOUBLE_SCALAR:
|
|
os << *t.longDoubleScalarTokenPtr_;
|
|
break;
|
|
|
|
case token::COMPOUND:
|
|
os << *t.compoundTokenPtr_;
|
|
break;
|
|
|
|
case token::ERROR:
|
|
os << "ERROR";
|
|
WarningInFunction
|
|
<< "Error token" << endl;
|
|
break;
|
|
|
|
default:
|
|
os << "UNKNOWN";
|
|
SeriousErrorInFunction
|
|
<< "Unknown token"
|
|
<< endl;
|
|
}
|
|
|
|
// Check state of stream
|
|
os.check("Ostream& operator<<(Ostream&, const token&)");
|
|
|
|
return os;
|
|
}
|
|
|
|
|
|
ostream& Foam::operator<<(ostream& os, const token::punctuationToken& pt)
|
|
{
|
|
return os << char(pt);
|
|
}
|
|
|
|
|
|
Foam::Ostream& Foam::operator<<(Ostream& os, const token::punctuationToken& pt)
|
|
{
|
|
return os << char(pt);
|
|
}
|
|
|
|
|
|
Foam::Ostream& Foam::operator<<(Ostream& os, const token::compound& ct)
|
|
{
|
|
os << ct.type() << token::SPACE;
|
|
ct.write(os);
|
|
|
|
return os;
|
|
}
|
|
|
|
|
|
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
|
|
|
ostream& Foam::operator<<(ostream& os, const InfoProxy<token>& ip)
|
|
{
|
|
const token& t = ip.t_;
|
|
|
|
os << "on line " << t.lineNumber();
|
|
|
|
switch (t.type())
|
|
{
|
|
case token::UNDEFINED:
|
|
os << " an undefined token";
|
|
break;
|
|
|
|
case token::PUNCTUATION:
|
|
os << " the punctuation token " << '\'' << t.pToken() << '\'';
|
|
break;
|
|
|
|
case token::WORD:
|
|
os << " the word " << '\'' << t.wordToken() << '\'';
|
|
break;
|
|
|
|
case token::STRING:
|
|
os << " the string " << t.stringToken();
|
|
break;
|
|
|
|
case token::VARIABLE:
|
|
os << " the variable " << t.stringToken();
|
|
break;
|
|
|
|
case token::VERBATIMSTRING:
|
|
os << " the verbatim string " << t.stringToken();
|
|
break;
|
|
|
|
case token::LABEL:
|
|
os << " the label " << t.labelToken();
|
|
break;
|
|
|
|
case token::FLOAT_SCALAR:
|
|
os << " the floatScalar " << t.floatScalarToken();
|
|
break;
|
|
|
|
case token::DOUBLE_SCALAR:
|
|
os << " the doubleScalar " << t.doubleScalarToken();
|
|
break;
|
|
|
|
case token::LONG_DOUBLE_SCALAR:
|
|
os << " the longDoubleScalar " << t.longDoubleScalarToken();
|
|
break;
|
|
|
|
case token::COMPOUND:
|
|
{
|
|
if (t.compoundToken().empty())
|
|
{
|
|
os << " the empty compound of type "
|
|
<< t.compoundToken().type();
|
|
}
|
|
else
|
|
{
|
|
os << " the compound of type "
|
|
<< t.compoundToken().type();
|
|
}
|
|
}
|
|
break;
|
|
|
|
case token::ERROR:
|
|
os << " an error";
|
|
break;
|
|
|
|
default:
|
|
os << " an unknown token type " << '\'' << int(t.type()) << '\'';
|
|
}
|
|
|
|
return os;
|
|
}
|
|
|
|
|
|
template<>
|
|
Foam::Ostream& Foam::operator<<(Ostream& os, const InfoProxy<token>& ip)
|
|
{
|
|
const token& t = ip.t_;
|
|
|
|
os << "on line " << t.lineNumber();
|
|
|
|
switch (t.type())
|
|
{
|
|
case token::UNDEFINED:
|
|
os << " an undefined token";
|
|
break;
|
|
|
|
case token::PUNCTUATION:
|
|
os << " the punctuation token " << '\'' << t.pToken() << '\'';
|
|
break;
|
|
|
|
case token::WORD:
|
|
os << " the word " << '\'' << t.wordToken() << '\'';
|
|
break;
|
|
|
|
case token::STRING:
|
|
os << " the string " << t.stringToken();
|
|
break;
|
|
|
|
case token::VARIABLE:
|
|
os << " the variable " << t.stringToken();
|
|
break;
|
|
|
|
case token::VERBATIMSTRING:
|
|
os << " the verbatim string " << t.stringToken();
|
|
break;
|
|
|
|
case token::LABEL:
|
|
os << " the label " << t.labelToken();
|
|
break;
|
|
|
|
case token::FLOAT_SCALAR:
|
|
os << " the floatScalar " << t.floatScalarToken();
|
|
break;
|
|
|
|
case token::DOUBLE_SCALAR:
|
|
os << " the doubleScalar " << t.doubleScalarToken();
|
|
break;
|
|
|
|
case token::LONG_DOUBLE_SCALAR:
|
|
os << " the longDoubleScalar " << t.longDoubleScalarToken();
|
|
break;
|
|
|
|
case token::COMPOUND:
|
|
{
|
|
if (t.compoundToken().empty())
|
|
{
|
|
os << " the empty compound of type "
|
|
<< t.compoundToken().type();
|
|
}
|
|
else
|
|
{
|
|
os << " the compound of type "
|
|
<< t.compoundToken().type();
|
|
}
|
|
}
|
|
break;
|
|
|
|
case token::ERROR:
|
|
os << " an error";
|
|
break;
|
|
|
|
default:
|
|
os << " an unknown token type " << '\'' << int(t.type()) << '\'';
|
|
}
|
|
|
|
return os;
|
|
}
|
|
|
|
|
|
// ************************************************************************* //
|