24 #include "sexpr/isexprable.h"
25 #include "sexpr/sexpr_exception.h"
33 enum class SEXPR_TYPE : char
36 SEXPR_TYPE_ATOM_INTEGER,
37 SEXPR_TYPE_ATOM_DOUBLE,
38 SEXPR_TYPE_ATOM_STRING,
39 SEXPR_TYPE_ATOM_SYMBOL,
42 typedef std::vector< class SEXPR * > SEXPR_VECTOR;
48 SEXPR( SEXPR_TYPE aType,
size_t aLineNumber );
49 SEXPR( SEXPR_TYPE aType );
54 bool IsList()
const {
return m_type == SEXPR_TYPE::SEXPR_TYPE_LIST; }
55 bool IsSymbol()
const {
return m_type == SEXPR_TYPE::SEXPR_TYPE_ATOM_SYMBOL; }
56 bool IsString()
const {
return m_type == SEXPR_TYPE::SEXPR_TYPE_ATOM_STRING; }
57 bool IsDouble()
const {
return m_type == SEXPR_TYPE::SEXPR_TYPE_ATOM_DOUBLE; }
58 bool IsInteger()
const {
return m_type == SEXPR_TYPE::SEXPR_TYPE_ATOM_INTEGER; }
59 void AddChild( SEXPR* aChild );
60 SEXPR_VECTOR
const * GetChildren()
const;
61 SEXPR * GetChild(
size_t aIndex )
const;
62 size_t GetNumberOfChildren()
const;
65 float GetFloat()
const;
66 double GetDouble()
const;
67 std::string
const & GetString()
const;
68 std::string
const & GetSymbol()
const;
69 SEXPR_LIST* GetList();
70 std::string AsString(
size_t aLevel = 0);
71 size_t GetLineNumber() {
return m_lineNumber; }
74 struct SEXPR_INTEGER :
public SEXPR
78 SEXPR_INTEGER(
int64_t aValue ) :
79 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_INTEGER ), m_value( aValue ) {};
81 SEXPR_INTEGER(
int64_t aValue,
int aLineNumber ) :
82 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_INTEGER, aLineNumber ), m_value( aValue ) {};
85 struct SEXPR_DOUBLE :
public SEXPR
89 SEXPR_DOUBLE(
double aValue ) :
90 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_DOUBLE ), m_value( aValue ) {};
92 SEXPR_DOUBLE(
double aValue,
int aLineNumber ) :
93 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_DOUBLE, aLineNumber ), m_value( aValue ) {};
96 struct SEXPR_STRING :
public SEXPR
100 SEXPR_STRING( std::string aValue ) :
101 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_STRING ), m_value(aValue) {};
103 SEXPR_STRING( std::string aValue,
int aLineNumber ) :
104 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_STRING, aLineNumber ), m_value( aValue ) {};
107 struct SEXPR_SYMBOL :
public SEXPR
111 SEXPR_SYMBOL( std::string aValue ) :
112 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_SYMBOL ), m_value( aValue ) {};
114 SEXPR_SYMBOL( std::string aValue,
int aLineNumber ) :
115 SEXPR( SEXPR_TYPE::SEXPR_TYPE_ATOM_SYMBOL, aLineNumber ), m_value( aValue ) {};
121 const std::string& _String;
124 inline _OUT_STRING AsSymbol(
const std::string& aString )
126 struct _OUT_STRING ret = {
true, aString };
130 inline _OUT_STRING AsString(
const std::string& aString )
132 struct _OUT_STRING ret = {
false, aString };
139 std::string& _String;
142 inline _IN_STRING AsSymbol( std::string& aString )
144 struct _IN_STRING ret = {
true, aString };
148 inline _IN_STRING AsString( std::string& aString )
150 struct _IN_STRING ret = {
false, aString };
156 friend class SEXPR_LIST;
159 SEXPR_SCAN_ARG(
int32_t* aValue ) :
160 type( Type::INT ) { u.int_value = aValue; }
162 SEXPR_SCAN_ARG(
int64_t* aValue ) :
163 type( Type::LONGINT ) { u.lint_value = aValue; }
165 SEXPR_SCAN_ARG(
double* aValue ) :
166 type( Type::DOUBLE ) { u.dbl_value = aValue; }
168 SEXPR_SCAN_ARG( std::string* aValue ) :
169 type( Type::STRING ) { u.str_value = aValue; }
171 SEXPR_SCAN_ARG( _IN_STRING& aValue ) :
172 type( Type::SEXPR_STRING ) { u.sexpr_str = &aValue; }
174 SEXPR_SCAN_ARG(
const std::string* aValue ) :
175 type( Type::STRING_COMP ) { str_value = *aValue; }
177 SEXPR_SCAN_ARG( std::string aValue ) :
178 type( Type::STRING_COMP ) { str_value = aValue; }
180 SEXPR_SCAN_ARG(
const char* aValue ) :
181 type( Type::STRING_COMP ) { str_value = aValue; }
184 enum class Type : char { INT, DOUBLE, STRING, LONGINT, STRING_COMP, SEXPR_STRING };
192 std::string* str_value;
193 _IN_STRING* sexpr_str;
196 std::string str_value;
199 class SEXPR_CHILDREN_ARG
201 friend class SEXPR_LIST;
204 SEXPR_CHILDREN_ARG(
int32_t aValue ) :
205 type( Type::INT ) { u.int_value = aValue; }
207 SEXPR_CHILDREN_ARG(
int64_t aValue ) :
208 type( Type::LONGINT ) { u.lint_value = aValue; }
210 SEXPR_CHILDREN_ARG(
double aValue ) :
211 type( Type::DOUBLE ) { u.dbl_value = aValue; }
213 SEXPR_CHILDREN_ARG( std::string aValue ) :
214 type( Type::STRING ) { str_value = aValue; }
216 SEXPR_CHILDREN_ARG(
const char* aValue ) :
217 type( Type::STRING ) { str_value = aValue; }
219 SEXPR_CHILDREN_ARG(
const _OUT_STRING& aValue ) :
220 type( Type::SEXPR_STRING ) { str_value = aValue._String; u.symbol = aValue._Symbol; }
222 SEXPR_CHILDREN_ARG( SEXPR* aPointer ) :
223 type( Type::SEXPR_ATOM ) { u.sexpr_ptr = aPointer; }
226 enum class Type : char { INT, DOUBLE, STRING, LONGINT, SEXPR_STRING, SEXPR_ATOM };
238 std::string str_value;
241 class SEXPR_LIST :
public SEXPR
244 SEXPR_LIST() : SEXPR( SEXPR_TYPE::SEXPR_TYPE_LIST ), m_inStreamChild( 0 ) {};
246 SEXPR_LIST(
int aLineNumber ) :
247 SEXPR( SEXPR_TYPE::SEXPR_TYPE_LIST, aLineNumber), m_inStreamChild( 0 ) {};
249 template <
typename... Args>
250 SEXPR_LIST(
const Args&... args ) :
251 SEXPR( SEXPR_TYPE::SEXPR_TYPE_LIST ), m_inStreamChild( 0 )
253 AddChildren(args...);
256 SEXPR_VECTOR m_children;
258 template <
typename... Args>
259 size_t Scan(
const Args&... args )
261 SEXPR_SCAN_ARG arg_array[] = { args... };
262 return doScan( arg_array,
sizeof...( Args ) );
265 template <
typename... Args>
266 void AddChildren(
const Args&... args )
268 SEXPR_CHILDREN_ARG arg_array[] = { args... };
269 doAddChildren( arg_array,
sizeof...( Args ) );
272 virtual ~SEXPR_LIST();
274 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list,
double value );
275 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list,
float value );
276 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list,
int64_t value );
277 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list,
int32_t value );
278 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list, std::string value );
279 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list,
const _OUT_STRING setting );
280 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list,
const ISEXPRABLE& obj );
281 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list, SEXPR_LIST* list2 );
282 friend SEXPR_LIST& operator<< ( SEXPR_LIST& list, SEXPR* obj );
283 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input, ISEXPRABLE& obj );
284 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input, std::string& str );
285 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input,
int32_t& inte );
286 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input,
int64_t& inte );
287 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input,
float& inte );
288 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input,
double& inte );
289 friend SEXPR_LIST& operator>> ( SEXPR_LIST& input,
const _IN_STRING is );
293 size_t doScan(
const SEXPR_SCAN_ARG *args,
size_t num_args );
294 void doAddChildren(
const SEXPR_CHILDREN_ARG *args,
size_t num_args );