3 * Copyright © 2010 Intel Corporation
5 * Permission is hereby granted, free of charge, to any person obtaining a
6 * copy of this software and associated documentation files (the "Software"),
7 * to deal in the Software without restriction, including without limitation
8 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
9 * and/or sell copies of the Software, and to permit persons to whom the
10 * Software is furnished to do so, subject to the following conditions:
12 * The above copyright notice and this permission notice (including the next
13 * paragraph) shall be included in all copies or substantial portions of the
16 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
21 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
22 * DEALINGS IN THE SOFTWARE.
29 #include "s_expression.h"
31 s_symbol::s_symbol(const char *tmp
)
33 this->str
= new char [strlen(tmp
) + 1];
34 strcpy(this->str
, tmp
);
49 exec_list_iterator
it(this->subexpressions
.iterator());
53 assert(this->subexpressions
.is_empty());
57 s_list::length() const
60 foreach_iter(exec_list_iterator
, it
, this->subexpressions
) {
67 read_atom(const char *& src
)
71 if (sscanf(src
, " %100[^( \v\t\r\n)]%n", buf
, &n
) != 1)
72 return NULL
; // no atom
75 // Check if the atom is a number.
76 char *float_end
= NULL
;
77 double f
= strtod(buf
, &float_end
);
78 if (float_end
!= buf
) {
80 int i
= strtol(buf
, &int_end
, 10);
81 // If strtod matched more characters, it must have a decimal part
82 if (float_end
> int_end
)
83 return new s_float(f
);
87 // Not a number; return a symbol.
88 return new s_symbol(buf
);
92 s_expression::read_expression(const char *&src
)
96 s_expression
*atom
= read_atom(src
);
102 if (sscanf(src
, " %c%n", &c
, &n
) == 1 && c
== '(') {
105 s_list
*list
= new s_list
;
108 while ((expr
= read_expression(src
)) != NULL
) {
109 list
->subexpressions
.push_tail(expr
);
111 if (sscanf(src
, " %c%n", &c
, &n
) != 1 || c
!= ')') {
112 printf("Unclosed expression (check your parenthesis).\n");
123 printf("%d", this->val
);
126 void s_float::print()
128 printf("%f", this->val
);
131 void s_symbol::print()
133 printf("%s", this->str
);
139 foreach_iter(exec_list_iterator
, it
, this->subexpressions
) {
140 s_expression
*expr
= (s_expression
*) it
.get();