X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fexpressions%2Fprivate.h;h=4283b4ae694236d6118eb48c9890cfc26b70fd5c;hb=173d1687aea88e0e5e1b1d8615ed68ebefb15d08;hp=d4e032343949d448b5f9cf5f6a4e4fc2da6cba04;hpb=35dac0a274893c6ba1d58d33a0889096eef033b4;p=pspp diff --git a/src/language/expressions/private.h b/src/language/expressions/private.h index d4e0323439..4283b4ae69 100644 --- a/src/language/expressions/private.h +++ b/src/language/expressions/private.h @@ -1,34 +1,32 @@ -/* PSPP - computes sample statistics. +/* PSPP - a program for statistical analysis. 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 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 3 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. + 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., 51 Franklin Street, Fifth Floor, Boston, MA - 02110-1301, USA. */ + along with this program. If not, see . */ -#ifndef EXPRESSIONS_PRIVATE_H +#ifndef EXPRESSIONS_PRIVATE_H #define EXPRESSIONS_PRIVATE_H #include #include -#include #include #include "public.h" #include "operations.h" -enum operation_flags +#include + +enum operation_flags { /* Most operations produce a missing output value if any input value is missing. Setting this bit indicates that @@ -47,7 +45,7 @@ enum operation_flags 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, + OPF_MIN_VALID = 002, /* If set, operation is non-optimizable in general. Unless combined with OPF_ABSORB_MISS, missing input values are @@ -83,10 +81,10 @@ struct operation extern const struct operation operations[]; -/* Tree structured expressions. */ +/* Tree structured expressions. */ /* Atoms. */ -struct number_node +struct number_node { operation_type type; /* OP_number. */ double n; @@ -101,7 +99,7 @@ struct string_node struct variable_node { operation_type type; /* OP_variable. */ - struct variable *v; + const struct variable *v; }; struct integer_node @@ -144,12 +142,12 @@ union any_node struct composite_node composite; }; -union operation_data +union operation_data { operation_type operation; double number; struct substring string; - struct variable *variable; + const struct variable *variable; const struct vector *vector; struct fmt_spec *format; int integer; @@ -195,7 +193,7 @@ union any_node *expr_allocate_string_buffer (struct expression *e, union any_node *expr_allocate_string (struct expression *e, struct substring); union any_node *expr_allocate_variable (struct expression *e, - struct variable *); + const struct variable *); union any_node *expr_allocate_format (struct expression *e, const struct fmt_spec *); union any_node *expr_allocate_vector (struct expression *e,