X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fapply-dictionary.c;h=a1b3310176e1687385dd2dbf3bc124e711e08da1;hb=9a331fe64eb814ae5c1322e21717a04fb254bf65;hp=fc3c54b01c59c03e545972ec33236f1bfe978d44;hpb=42489b63e0b4bec2e20c2f55c9791234f7b41764;p=pspp-builds.git diff --git a/src/language/dictionary/apply-dictionary.c b/src/language/dictionary/apply-dictionary.c index fc3c54b0..a1b33101 100644 --- a/src/language/dictionary/apply-dictionary.c +++ b/src/language/dictionary/apply-dictionary.c @@ -1,29 +1,28 @@ -/* 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 . */ #include #include #include +#include #include #include +#include #include #include #include @@ -39,102 +38,111 @@ /* Parses and executes APPLY DICTIONARY. */ int -cmd_apply_dictionary (void) +cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) { struct file_handle *handle; - struct any_reader *reader; + struct casereader *reader; struct dictionary *dict; int n_matched = 0; int i; - - lex_match_id ("FROM"); - lex_match ('='); - handle = fh_parse (FH_REF_FILE | FH_REF_SCRATCH); + + lex_match_id (lexer, "FROM"); + lex_match (lexer, '='); + + handle = fh_parse (lexer, FH_REF_FILE | FH_REF_SCRATCH); if (!handle) return CMD_FAILURE; - reader = any_reader_open (handle, &dict); + fh_unref (handle); if (dict == NULL) return CMD_FAILURE; - any_reader_close (reader); + + casereader_destroy (reader); for (i = 0; i < dict_get_var_cnt (dict); i++) { struct variable *s = dict_get_var (dict, i); - struct variable *t = dict_lookup_var (dataset_dict (current_dataset), s->name); + struct variable *t = dict_lookup_var (dataset_dict (ds), + var_get_name (s)); if (t == NULL) continue; n_matched++; - if (s->type != t->type) + if (var_get_type (s) != var_get_type (t)) { msg (SW, _("Variable %s is %s in target file, but %s in " "source file."), - s->name, - t->type == ALPHA ? _("string") : _("numeric"), - s->type == ALPHA ? _("string") : _("numeric")); + var_get_name (s), + var_is_alpha (t) ? _("string") : _("numeric"), + var_is_alpha (s) ? _("string") : _("numeric")); continue; } - if (s->label && strcspn (s->label, " ") != strlen (s->label)) - { - free (t->label); - t->label = s->label; - s->label = NULL; - } + if (var_get_label (s)) + { + const char *label = var_get_label (s); + if (strcspn (label, " ") != strlen (label)) + var_set_label (t, label); + } - if (val_labs_count (s->val_labs) && t->width > MAX_SHORT_STRING) - msg (SW, _("Cannot add value labels from source file to " - "long string variable %s."), - s->name); - else if (val_labs_count (s->val_labs)) - { - if (val_labs_can_set_width (s->val_labs, t->width)) + if (var_has_value_labels (s)) + { + if (!var_is_long_string (t)) { - val_labs_destroy (t->val_labs); - t->val_labs = s->val_labs; - val_labs_set_width (t->val_labs, t->width); - s->val_labs = val_labs_create (s->width); + const struct val_labs *value_labels = var_get_value_labels (s); + if (val_labs_can_set_width (value_labels, var_get_width (t))) + var_set_value_labels (s, value_labels); } - } - - if (!mv_is_empty (&s->miss) && t->width > MAX_SHORT_STRING) - msg (SW, _("Cannot apply missing values from source file to " - "long string variable %s."), - s->name); - else if (!mv_is_empty (&s->miss)) - { - if (mv_is_resizable (&s->miss, t->width)) + else + msg (SW, _("Cannot add value labels from source file to " + "long string variable %s."), + var_get_name (s)); + } + + if (var_has_missing_values (s)) + { + if (!var_is_long_string (t)) { - mv_copy (&t->miss, &s->miss); - mv_resize (&t->miss, t->width); + const struct missing_values *miss = var_get_missing_values (s); + if (mv_is_resizable (miss, var_get_width (t))) + var_set_missing_values (t, miss); } - } + else + msg (SW, _("Cannot apply missing values from source file to " + "long string variable %s."), + var_get_name (s)); + } - if (s->type == NUMERIC) + if (var_is_numeric (s)) { - t->print = s->print; - t->write = s->write; + var_set_print_format (t, var_get_print_format (s)); + var_set_write_format (t, var_get_write_format (s)); } + + if (var_has_attributes (s)) + var_set_attributes (t, var_get_attributes (s)); } if (!n_matched) msg (SW, _("No matching variables found between the source " "and target files.")); - + + /* Data file attributes. */ + if (dict_has_attributes (dict)) + dict_set_attributes (dataset_dict (ds), dict_get_attributes (dict)); + /* Weighting. */ - if (dict_get_weight (dict) != NULL) + if (dict_get_weight (dict) != NULL) { struct variable *new_weight - = dict_lookup_var (dataset_dict (current_dataset), dict_get_weight (dict)->name); + = dict_lookup_var (dataset_dict (ds), + var_get_name (dict_get_weight (dict))); if (new_weight != NULL) - dict_set_weight (dataset_dict (current_dataset), new_weight); + dict_set_weight (dataset_dict (ds), new_weight); } - - any_reader_close (reader); - return lex_end_of_command (); + return lex_end_of_command (lexer); }