/* PSPP - computes sample statistics. Copyright (C) 1997-9, 2000 Free Software Foundation, Inc. Written by Ben Pfaff . 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 EXPRESSIONS_PRIVATE_H #define EXPRESSIONS_PRIVATE_H #include #include #include "format.h" #include "str.h" #include "public.h" #include "operations.h" enum operation_flags { /* Most operations produce a missing output value if any input value is missing. Setting this bit indicates that this operation may produce a non-missing result given missing input values (although it is not obliged to do so). Unless this bit is set, the operation's evaluation function will never be passed a missing argument. */ OPF_ABSORB_MISS = 004, /* If set, this operation's final operand is an array of one or more elements. */ OPF_ARRAY_OPERAND = 001, /* If set, the user can specify the minimum number of array elements that must be non-missing for the function result to be non-missing. The operation must have an array operand and the array must contain `double's. Both OPF_ABSORB_MISS and OPF_ARRAY_OPERAND must also be set. */ OPF_MIN_VALID = 002, /* If set, operation is non-optimizable in general. Unless combined with OPF_ABSORB_MISS, missing input values are still assumed to yield missing results. */ OPF_NONOPTIMIZABLE = 010, /* If set, this operation is not implemented. */ OPF_UNIMPLEMENTED = 020, /* If set, this operation is a PSPP extension. */ OPF_EXTENSION = 040 }; #define EXPR_ARG_MAX 4 struct operation { const char *name; const char *prototype; enum operation_flags flags; atom_type returns; int arg_cnt; atom_type args[EXPR_ARG_MAX]; int array_min_elems; int array_granularity; }; extern struct operation operations[]; /* Tree structured expressions. */ /* Atoms. */ struct number_node { operation_type type; /* OP_number. */ double n; }; struct string_node { operation_type type; /* OP_string. */ struct fixed_string s; }; struct variable_node { operation_type type; /* OP_variable. */ struct variable *v; }; struct integer_node { operation_type type; /* OP_integer. */ int i; }; struct vector_node { operation_type type; /* OP_vector. */ const struct vector *v; }; struct format_node { operation_type type; /* OP_format. */ struct fmt_spec f; }; /* Any composite node. */ struct composite_node { operation_type type; /* One of OP_*. */ size_t arg_cnt; /* Number of arguments. */ union any_node **args; /* Arguments. */ size_t min_valid; /* Min valid array args to get valid result. */ }; /* Any node. */ union any_node { operation_type type; struct number_node number; struct string_node string; struct variable_node variable; struct integer_node integer; struct vector_node vector; struct format_node format; struct composite_node composite; }; union operation_data { operation_type operation; double number; struct fixed_string string; struct variable *variable; const struct vector *vector; struct fmt_spec *format; int integer; }; /* An expression. */ struct expression { struct pool *expr_pool; /* Pool for expression static data. */ struct dictionary *dict; /* Dictionary for variables, vectors. */ atom_type type; /* Type of expression result. */ union operation_data *ops; /* Expression data. */ operation_type *op_types; /* ops[] element types (for debugging). */ size_t op_cnt, op_cap; /* Number of ops, amount of allocated space. */ double *number_stack; /* Evaluation stack: numerics, Booleans. */ struct fixed_string *string_stack; /* Evaluation stack: strings. */ struct pool *eval_pool; /* Pool for evaluation temporaries. */ }; struct expression *expr_parse_any (struct dictionary *, bool optimize); void expr_debug_print_postfix (const struct expression *); union any_node *expr_optimize (union any_node *, struct expression *); void expr_flatten (union any_node *, struct expression *); atom_type expr_node_returns (const union any_node *); union any_node *expr_allocate_nullary (struct expression *e, operation_type); union any_node *expr_allocate_unary (struct expression *e, operation_type, union any_node *); union any_node *expr_allocate_binary (struct expression *e, operation_type, union any_node *, union any_node *); union any_node *expr_allocate_composite (struct expression *e, operation_type, union any_node **, size_t); union any_node *expr_allocate_number (struct expression *e, double); union any_node *expr_allocate_boolean (struct expression *e, double); union any_node *expr_allocate_integer (struct expression *e, int); union any_node *expr_allocate_pos_int (struct expression *e, int); union any_node *expr_allocate_string_buffer (struct expression *e, const char *string, size_t length); union any_node *expr_allocate_string (struct expression *e, struct fixed_string); union any_node *expr_allocate_variable (struct expression *e, struct variable *); union any_node *expr_allocate_format (struct expression *e, const struct fmt_spec *); union any_node *expr_allocate_vector (struct expression *e, const struct vector *); #endif /* expressions/private.h */