X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Fdictionary%2Fapply-dictionary.c;h=36877302afc80dfa878685b211b9a0dcaa4f70f5;hb=9ade26c8349b4434008c46cf09bc7473ec743972;hp=ce5cc15ddf7fb7f9c63931164674750752608fd8;hpb=bd17d2af982332ee1791998361b1ac6731fe14fa;p=pspp-builds.git diff --git a/src/language/dictionary/apply-dictionary.c b/src/language/dictionary/apply-dictionary.c index ce5cc15d..36877302 100644 --- a/src/language/dictionary/apply-dictionary.c +++ b/src/language/dictionary/apply-dictionary.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2009 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2009, 2010, 2011 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 @@ -18,20 +18,19 @@ #include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include +#include "data/any-reader.h" +#include "data/casereader.h" +#include "data/dictionary.h" +#include "data/file-handle-def.h" +#include "data/missing-values.h" +#include "data/procedure.h" +#include "data/value-labels.h" +#include "data/variable.h" +#include "language/command.h" +#include "language/data-io/file-handle.h" +#include "language/lexer/lexer.h" +#include "libpspp/message.h" +#include "libpspp/str.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -49,7 +48,7 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) int i; lex_match_id (lexer, "FROM"); - lex_match (lexer, '='); + lex_match (lexer, T_EQUALS); handle = fh_parse (lexer, FH_REF_FILE | FH_REF_SCRATCH); if (!handle) @@ -80,12 +79,9 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) continue; } - if (var_get_label (s)) - { - const char *label = var_get_label (s); - if (strcspn (label, " ") != strlen (label)) - var_set_label (t, label); - } + if (var_has_label (s)) + var_set_label (t, var_get_label (s), + dict_get_encoding (dataset_dict (ds)), false); if (var_has_value_labels (s)) { @@ -130,5 +126,5 @@ cmd_apply_dictionary (struct lexer *lexer, struct dataset *ds) dict_set_weight (dataset_dict (ds), new_weight); } - return lex_end_of_command (lexer); + return CMD_SUCCESS; }