1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 1997-9, 2000, 2006, 2007 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
21 #include <libpspp/alloc.h>
22 #include <libpspp/assertion.h>
23 #include <libpspp/message.h>
26 #include <libpspp/pool.h>
29 expr_evaluate (struct expression *e, const struct ccase *c, int case_idx,
32 struct dataset *ds = e->ds;
33 union operation_data *op = e->ops;
35 double *ns = e->number_stack;
36 struct substring *ss = e->string_stack;
38 /* Without a dictionary/dataset, the expression can't refer to variables,
39 and you don't need to specify a case when you evaluate the
40 expression. With a dictionary/dataset, the expression can refer
41 to variables, so you must specify a case when you evaluate the
43 assert ((c != NULL) == (e->ds != NULL));
45 pool_clear (e->eval_pool);
49 assert (op < e->ops + e->op_cnt);
50 switch (op++->operation)
59 const struct substring *s = &op++->string;
60 *ss++ = copy_string (e, s->string, s->length);
64 case OP_return_number:
65 *(double *) result = finite (ns[-1]) ? ns[-1] : SYSMIS;
68 case OP_return_string:
69 *(struct substring *) result = ss[-1];
72 #include "evaluate.inc"
81 expr_evaluate_num (struct expression *e, const struct ccase *c, int case_idx)
85 assert (e->type == OP_number || e->type == OP_boolean);
86 expr_evaluate (e, c, case_idx, &d);
91 expr_evaluate_str (struct expression *e, const struct ccase *c, int case_idx,
92 char *dst, size_t dst_size)
96 assert (e->type == OP_string);
97 assert ((dst == NULL) == (dst_size == 0));
98 expr_evaluate (e, c, case_idx, &s);
100 buf_copy_rpad (dst, dst_size, s.string, s.length);
103 #include <language/lexer/lexer.h>
104 #include <language/command.h>
107 cmd_debug_evaluate (struct lexer *lexer, struct dataset *dsother UNUSED)
109 bool optimize = true;
110 int retval = CMD_FAILURE;
111 bool dump_postfix = false;
113 struct ccase *c = NULL;
115 struct dataset *ds = NULL;
117 struct expression *expr;
121 struct dictionary *d = NULL;
122 if (lex_match_id (lexer, "NOOPTIMIZE"))
124 else if (lex_match_id (lexer, "POSTFIX"))
126 else if (lex_match (lexer, '('))
128 char name[LONG_NAME_LEN + 1];
130 size_t old_value_cnt;
133 if (!lex_force_id (lexer))
135 strcpy (name, lex_tokid (lexer));
138 if (!lex_force_match (lexer, '='))
141 if (lex_is_number (lexer))
144 fprintf (stderr, "(%s = %.2f)", name, lex_tokval (lexer));
146 else if (lex_token (lexer) == T_STRING)
148 width = ds_length (lex_tokstr (lexer));
149 fprintf (stderr, "(%s = \"%.2s\")", name, ds_cstr (lex_tokstr (lexer)));
153 lex_error (lexer, _("expecting number or string"));
159 ds = create_dataset (NULL, NULL);
160 d = dataset_dict (ds);
163 old_value_cnt = dict_get_next_value_idx (d);
164 v = dict_create_var (d, name, width);
167 msg (SE, _("Duplicate variable name %s."), name);
173 c = xmalloc (sizeof *c);
174 case_create (c, dict_get_next_value_idx (d));
177 case_resize (c, dict_get_next_value_idx (d));
179 if (lex_is_number (lexer))
180 case_data_rw (c, v)->f = lex_tokval (lexer);
182 memcpy (case_data_rw (c, v)->s, ds_data (lex_tokstr (lexer)),
186 if (!lex_force_match (lexer, ')'))
192 if (lex_token (lexer) != '/')
194 lex_force_match (lexer, '/');
199 fprintf(stderr, "; ");
200 fprintf (stderr, "%s => ", lex_rest_of_line (lexer));
203 expr = expr_parse_any (lexer, ds, optimize);
204 if (!expr || lex_end_of_command (lexer) != CMD_SUCCESS)
208 fprintf (stderr, "error\n");
213 expr_debug_print_postfix (expr);
219 double d = expr_evaluate_num (expr, c, 0);
221 fprintf (stderr, "sysmis\n");
223 fprintf (stderr, "%.2f\n", d);
229 double b = expr_evaluate_num (expr, c, 0);
230 fprintf (stderr, "%s\n",
231 b == SYSMIS ? "sysmis" : b == 0.0 ? "false" : "true");
238 expr_evaluate (expr, c, 0, &s);
241 fwrite (s.string, s.length, 1, stderr);
242 fputs ("\"\n", stderr);
251 retval = CMD_SUCCESS;
255 destroy_dataset (ds);
267 expr_debug_print_postfix (const struct expression *e)
271 for (i = 0; i < e->op_cnt; i++)
273 union operation_data *op = &e->ops[i];
276 switch (e->op_types[i])
279 if (op->operation == OP_return_number)
280 fprintf (stderr, "return_number");
281 else if (op->operation == OP_return_string)
282 fprintf (stderr, "return_string");
283 else if (is_function (op->operation))
284 fprintf (stderr, "%s", operations[op->operation].prototype);
285 else if (is_composite (op->operation))
286 fprintf (stderr, "%s", operations[op->operation].name);
288 fprintf (stderr, "%s:", operations[op->operation].name);
291 if (op->number != SYSMIS)
292 fprintf (stderr, "n<%g>", op->number);
294 fprintf (stderr, "n<SYSMIS>");
297 fprintf (stderr, "s<%.*s>",
298 (int) op->string.length,
299 op->string.string != NULL ? op->string.string : "");
303 char str[FMT_STRING_LEN_MAX + 1];
304 fmt_to_string (op->format, str);
305 fprintf (stderr, "f<%s>", str);
309 fprintf (stderr, "v<%s>", var_get_name (op->variable));
312 fprintf (stderr, "vec<%s>", vector_get_name (op->vector));
315 fprintf (stderr, "i<%d>", op->integer);
321 fprintf (stderr, "\n");