X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Fvariable-parser.h;h=06704d3f4d907db2ef6980740a810acd64cc7561;hb=e2f99612bf4f4691623f16730eed3e55afdc54f0;hp=cacb524eacaae2eee4261ed921b643f51931e779;hpb=8e018d25310cb53e5339b46e95f0abe02db83782;p=pspp diff --git a/src/language/lexer/variable-parser.h b/src/language/lexer/variable-parser.h index cacb524eac..06704d3f4d 100644 --- a/src/language/lexer/variable-parser.h +++ b/src/language/lexer/variable-parser.h @@ -1,21 +1,18 @@ -/* PSPP - computes sample statistics. - Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. - Written by Ben Pfaff . +/* PSPP - a program for statistical analysis. + Copyright (C) 1997-9, 2000, 2006, 2007, 2010 Free Software Foundation, Inc. - 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 VARIABLE_PARSER_H #define VARIABLE_PARSER_H 1 @@ -26,19 +23,18 @@ struct pool; struct dictionary; struct var_set; +struct const_var_set; struct variable; +struct lexer ; struct var_set *var_set_create_from_dict (const struct dictionary *d); struct var_set *var_set_create_from_array (struct variable *const *var, size_t); size_t var_set_get_cnt (const struct var_set *vs); -struct variable *var_set_get_var (const struct var_set *vs, size_t idx); -struct variable *var_set_lookup_var (const struct var_set *vs, - const char *name); -bool var_set_lookup_var_idx (const struct var_set *vs, const char *name, - size_t *idx); + void var_set_destroy (struct var_set *vs); + /* Variable parsers. */ @@ -52,22 +48,101 @@ enum PV_NUMERIC = 0020, /* Vars must be numeric. */ PV_STRING = 0040, /* Vars must be string. */ PV_SAME_TYPE = 00100, /* All vars must be the same type. */ - PV_NO_SCRATCH = 00200 /* Disallow scratch variables. */ + PV_SAME_WIDTH = 00200, /* All vars must be the same type and width. */ + PV_NO_SCRATCH = 00400 /* Disallow scratch variables. */ }; -struct variable *parse_variable (void); -struct variable *parse_dict_variable (const struct dictionary *); -int parse_variables (const struct dictionary *, struct variable ***, size_t *, +struct variable *parse_variable (struct lexer *, const struct dictionary *); +bool parse_variables (struct lexer *, const struct dictionary *, struct variable ***, size_t *, int opts); -int parse_variables_pool (struct pool *, const struct dictionary *, +bool parse_variables_pool (struct lexer *, struct pool *, const struct dictionary *, struct variable ***, size_t *, int opts); -int parse_var_set_vars (const struct var_set *, struct variable ***, size_t *, +bool parse_var_set_vars (struct lexer *, const struct var_set *, struct variable ***, size_t *, int opts); -int parse_DATA_LIST_vars (char ***names, size_t *cnt, int opts); -int parse_DATA_LIST_vars_pool (struct pool *, - char ***names, size_t *cnt, int opts); -int parse_mixed_vars (char ***names, size_t *cnt, int opts); -int parse_mixed_vars_pool (struct pool *, + +char *parse_DATA_LIST_var (struct lexer *, const struct dictionary *); +bool parse_DATA_LIST_vars (struct lexer *, const struct dictionary *, char ***names, size_t *cnt, int opts); +bool parse_DATA_LIST_vars_pool (struct lexer *, const struct dictionary *, + struct pool *, + char ***names, size_t *cnt, int opts); +bool parse_mixed_vars (struct lexer *, const struct dictionary *dict, + char ***names, size_t *cnt, int opts); +bool parse_mixed_vars_pool (struct lexer *, const struct dictionary *dict, + struct pool *, + char ***names, size_t *cnt, int opts); + + +/* Const wrappers */ + +static inline const struct variable * +parse_variable_const (struct lexer *l, const struct dictionary *d) +{ + return parse_variable (l, d); +} + +static inline bool +parse_variables_const (struct lexer *l, const struct dictionary *d, + const struct variable ***v, size_t *s, + int opts) +{ + return parse_variables (l, d, (struct variable ***) v, s, opts); +} + +static inline bool +parse_variables_const_pool (struct lexer *l, struct pool *p, + const struct dictionary *d, + const struct variable ***v, size_t *s, int opts) +{ + return parse_variables_pool (l, p, d, (struct variable ***) v, s, opts); +} + + + +static inline struct const_var_set * +const_var_set_create_from_dict (const struct dictionary *d) +{ + return (struct const_var_set *) var_set_create_from_dict (d); +} + +static inline struct const_var_set * +const_var_set_create_from_array (const struct variable *const *var, + size_t s) +{ + return (struct const_var_set *) var_set_create_from_array ((struct variable *const *) var, s); +} + + +static inline bool +parse_const_var_set_vars (struct lexer *l, const struct const_var_set *vs, + const struct variable ***v, size_t *s, int opts) +{ + return parse_var_set_vars (l, (const struct var_set *) vs, + (struct variable ***) v, s, opts); +} + +static inline void +const_var_set_destroy (struct const_var_set *vs) +{ + var_set_destroy ( (struct var_set *) vs); +} + +/* Match a variable. + If the match succeeds, the variable will be placed in VAR. + Returns true if successful */ +bool +lex_match_variable (struct lexer *lexer, const struct dictionary *dict, const struct variable **var); + +struct interaction; + +/* Parse an interaction. + If not successful return false. + Otherwise, a newly created interaction will be placed in IACT. + It is the caller's responsibility to destroy this interaction. + */ +bool +parse_design_interaction (struct lexer *lexer, const struct dictionary *dict, struct interaction **iact); + + #endif /* variable-parser.h */