diff options
author | jaortega <jaortega> | 2000-12-02 22:32:48 +0000 |
---|---|---|
committer | jaortega <jaortega> | 2000-12-02 22:32:48 +0000 |
commit | dda8ef14aca2b99d620323b3173e967456c92314 (patch) | |
tree | 54b3efaf81638539d3d9feb639aa22b4ffdc5a81 /mixlib/xmix_eval.h | |
parent | 99cc30339d9cb98b240a6e0ef59c333fe3194018 (diff) | |
download | mdk-dda8ef14aca2b99d620323b3173e967456c92314.tar.gz mdk-dda8ef14aca2b99d620323b3173e967456c92314.tar.bz2 |
added mix_eval_t, a w-expression evaluator
Diffstat (limited to 'mixlib/xmix_eval.h')
-rw-r--r-- | mixlib/xmix_eval.h | 55 |
1 files changed, 55 insertions, 0 deletions
diff --git a/mixlib/xmix_eval.h b/mixlib/xmix_eval.h new file mode 100644 index 0000000..5382d73 --- /dev/null +++ b/mixlib/xmix_eval.h @@ -0,0 +1,55 @@ +/* -*-c-*- ---------------- xmix_eval.h : + * Definition of opaque types in mix_eval.h + * ------------------------------------------------------------------ + * Last change: Time-stamp: <00/12/02 03:53:09 jose> + * ------------------------------------------------------------------ + * Copyright (C) 2000 jose antonio ortega ruiz <jaortega@acm.org> + * + * This program 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 2 of the License, or + * (at your option) any later version. + * + * This program 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 this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + * + */ + + +#ifndef XMIX_EVAL_H +#define XMIX_EVAL_H + +#include "mix_eval.h" + +/* the evaluator type */ +struct mix_eval_t +{ + mix_symbol_table_t *table; /* symbol table */ + gboolean towner; /* true if owns the table */ + mix_eval_result_t result; /* last evaluation result */ + gint errpos; /* location of last error */ + mix_word_t value; /* last computed value */ +}; + +/* flex scanner data/result struct */ +typedef struct mix_eval_data_ +{ + gchar *expr; + const mix_symbol_table_t *table; + mix_word_t value; + mix_short_t loc; + gint errpos; +} mix_eval_data_; + +/* flex scanner prototype */ +extern +mix_eval_result_t mix_eval_expr (mix_eval_data_ *data); + +#endif /* XMIX_EVAL_H */ + |