0,0 → 1,141 |
/* -*- c++ -*- */ |
/* |
* Copyright © 2010 Intel Corporation |
* |
* Permission is hereby granted, free of charge, to any person obtaining a |
* copy of this software and associated documentation files (the "Software"), |
* to deal in the Software without restriction, including without limitation |
* the rights to use, copy, modify, merge, publish, distribute, sublicense, |
* and/or sell copies of the Software, and to permit persons to whom the |
* Software is furnished to do so, subject to the following conditions: |
* |
* The above copyright notice and this permission notice (including the next |
* paragraph) shall be included in all copies or substantial portions of the |
* Software. |
* |
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL |
* THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER |
* DEALINGS IN THE SOFTWARE. |
*/ |
|
#include <stdio.h> |
#include <stdlib.h> |
#include <string.h> |
#include <assert.h> |
#include "s_expression.h" |
|
s_symbol::s_symbol(const char *tmp, size_t n) |
{ |
this->str = ralloc_strndup (this, tmp, n); |
assert(this->str != NULL); |
} |
|
s_list::s_list() |
{ |
} |
|
unsigned |
s_list::length() const |
{ |
unsigned i = 0; |
foreach_iter(exec_list_iterator, it, this->subexpressions) { |
i++; |
} |
return i; |
} |
|
static s_expression * |
read_atom(void *ctx, const char *& src) |
{ |
s_expression *expr = NULL; |
|
// Skip leading spaces. |
src += strspn(src, " \v\t\r\n"); |
|
size_t n = strcspn(src, "( \v\t\r\n)"); |
if (n == 0) |
return NULL; // no atom |
|
// Check if the atom is a number. |
char *float_end = NULL; |
double f = glsl_strtod(src, &float_end); |
if (float_end != src) { |
char *int_end = NULL; |
int i = strtol(src, &int_end, 10); |
// If strtod matched more characters, it must have a decimal part |
if (float_end > int_end) |
expr = new(ctx) s_float(f); |
else |
expr = new(ctx) s_int(i); |
} else { |
// Not a number; return a symbol. |
expr = new(ctx) s_symbol(src, n); |
} |
|
src += n; |
|
return expr; |
} |
|
s_expression * |
s_expression::read_expression(void *ctx, const char *&src) |
{ |
assert(src != NULL); |
|
s_expression *atom = read_atom(ctx, src); |
if (atom != NULL) |
return atom; |
|
// Skip leading spaces. |
src += strspn(src, " \v\t\r\n"); |
if (src[0] == '(') { |
++src; |
|
s_list *list = new(ctx) s_list; |
s_expression *expr; |
|
while ((expr = read_expression(ctx, src)) != NULL) { |
list->subexpressions.push_tail(expr); |
} |
src += strspn(src, " \v\t\r\n"); |
if (src[0] != ')') { |
printf("Unclosed expression (check your parenthesis).\n"); |
return NULL; |
} |
++src; |
return list; |
} |
return NULL; |
} |
|
void s_int::print() |
{ |
printf("%d", this->val); |
} |
|
void s_float::print() |
{ |
printf("%f", this->val); |
} |
|
void s_symbol::print() |
{ |
printf("%s", this->str); |
} |
|
void s_list::print() |
{ |
printf("("); |
foreach_iter(exec_list_iterator, it, this->subexpressions) { |
s_expression *expr = (s_expression*) it.get(); |
expr->print(); |
if (!expr->next->is_tail_sentinel()) |
printf(" "); |
} |
printf(")"); |
} |
|