1 /* PSPP - computes sample statistics.
2 Copyright (C) 1997-9, 2000 Free Software Foundation, Inc.
3 Written by Ben Pfaff <blp@gnu.org>.
5 This program is free software; you can redistribute it and/or
6 modify it under the terms of the GNU General Public License as
7 published by the Free Software Foundation; either version 2 of the
8 License, or (at your option) any later version.
10 This program is distributed in the hope that it will be useful, but
11 WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 #include "file-handle.h"
29 #include "value-labels.h"
32 #include "debug-print.h"
34 /* Parses and executes APPLY DICTIONARY. */
36 cmd_apply_dictionary (void)
38 struct file_handle *handle;
39 struct dictionary *dict;
45 lex_match_id ("FROM");
47 handle = fh_parse_file_handle ();
51 dict = sfm_read_dictionary (handle, NULL);
55 for (i = 0; i < dict_get_var_cnt (dict); i++)
57 struct variable *s = dict_get_var (dict, i);
58 struct variable *t = dict_lookup_var (default_dict, s->name);
63 if (s->type != t->type)
65 msg (SW, _("Variable %s is %s in target file, but %s in "
68 t->type == ALPHA ? _("string") : _("numeric"),
69 s->type == ALPHA ? _("string") : _("numeric"));
73 if (s->label && strcspn (s->label, " ") != strlen (s->label))
80 if (val_labs_count (s->val_labs) && t->width > MAX_SHORT_STRING)
81 msg (SW, _("Cannot add value labels from source file to "
82 "long string variable %s."),
84 else if (val_labs_count (s->val_labs))
86 /* Whether to apply the value labels. */
89 if (t->width < s->width)
91 struct val_labs_iterator *i;
94 for (lab = val_labs_first (s->val_labs, &i); lab != NULL;
95 lab = val_labs_next (s->val_labs, &i))
99 /* We will apply the value labels only if all
100 the truncated characters are blanks. */
101 for (j = t->width; j < s->width; j++)
102 if (lab->value.s[j] != ' ')
112 /* Fortunately, we follow the convention that all value
113 label values are right-padded with spaces, so it is
114 unnecessary to bother padding values here. */
119 val_labs_destroy (t->val_labs);
120 t->val_labs = s->val_labs;
121 val_labs_set_width (t->val_labs, t->width);
122 s->val_labs = val_labs_create (s->width);
126 if (s->miss_type != MISSING_NONE && t->width > MAX_SHORT_STRING)
127 msg (SW, _("Cannot apply missing values from source file to "
128 "long string variable %s."),
130 else if (s->miss_type != MISSING_NONE)
132 if (t->width < s->width)
134 static const int miss_count[MISSING_COUNT] =
136 0, 1, 2, 3, 2, 1, 1, 3, 2, 2,
141 for (j = 0; j < miss_count[s->miss_type]; j++)
142 for (k = t->width; k < s->width; k++)
143 if (s->missing[j].s[k] != ' ')
144 goto skip_missing_values;
147 t->miss_type = s->miss_type;
148 memcpy (t->missing, s->missing, sizeof s->missing);
150 skip_missing_values: ;
152 if (s->type == NUMERIC)
160 msg (SW, _("No matching variables found between the source "
161 "and target files."));
164 if (dict_get_weight (dict) != NULL)
166 struct variable *new_weight
167 = dict_lookup_var (default_dict, dict_get_weight (dict)->name);
169 if (new_weight != NULL)
170 dict_set_weight (default_dict, new_weight);
173 sfm_maybe_close (handle);
175 return lex_end_of_command ();