X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fapply-dictionary.c;h=0b724044ae077a4a73ed58374355c59dd80f3b14;hb=338a3ecb26f25819c1cb1667a39ab40065f72fdb;hp=ac38a0899a1b6e7b849fdb7d00b4c63c55b1dcfe;hpb=92c09e564002d356d20fc1e2e131027ef89f6748;p=pspp-builds.git diff --git a/src/language/dictionary/apply-dictionary.c b/src/language/dictionary/apply-dictionary.c index ac38a089..0b724044 100644 --- a/src/language/dictionary/apply-dictionary.c +++ b/src/language/dictionary/apply-dictionary.c @@ -1,20 +1,18 @@ -/* PSPP - computes sample statistics. +/* PSPP - a program for statistical analysis. Copyright (C) 1997-9, 2000 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 . */ #include @@ -49,7 +47,7 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) int n_matched = 0; int i; - + lex_match_id (lexer, "FROM"); lex_match (lexer, '='); handle = fh_parse (lexer, FH_REF_FILE | FH_REF_SCRATCH); @@ -86,7 +84,7 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) if (strcspn (label, " ") != strlen (label)) var_set_label (t, label); } - + if (var_has_value_labels (s)) { if (!var_is_long_string (t)) @@ -100,13 +98,13 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) "long string variable %s."), var_get_name (s)); } - + if (var_has_missing_values (s)) { if (!var_is_long_string (t)) { const struct missing_values *miss = var_get_missing_values (s); - if (mv_is_resizable (miss, var_get_width (t))) + if (mv_is_resizable (miss, var_get_width (t))) var_set_missing_values (t, miss); } else @@ -125,9 +123,9 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) if (!n_matched) msg (SW, _("No matching variables found between the source " "and target files.")); - + /* Weighting. */ - if (dict_get_weight (dict) != NULL) + if (dict_get_weight (dict) != NULL) { struct variable *new_weight = dict_lookup_var (dataset_dict (ds), @@ -136,6 +134,6 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) if (new_weight != NULL) dict_set_weight (dataset_dict (ds), new_weight); } - + return lex_end_of_command (lexer); }