bb10e081c8
We always want to use '.' as the decimal point. See http://bugs.freedesktop.org/show_bug.cgi?id=24531 NOTE: this is a candidate for the 7.10 branch.
142 lines
3.3 KiB
C++
142 lines
3.3 KiB
C++
/* -*- 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 <cstdio>
|
|
#include <cstdlib>
|
|
#include <cstring>
|
|
#include <assert.h>
|
|
#include "s_expression.h"
|
|
|
|
s_symbol::s_symbol(const char *tmp, size_t n)
|
|
{
|
|
this->str = talloc_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(")");
|
|
}
|
|
|