X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Fvalue-parser.c;h=ff2701e8dadfb586b64a791367de731177b00563;hb=9ade26c8349b4434008c46cf09bc7473ec743972;hp=c492658e28753ba5e3a9fe7780abf9a2fc7ba12c;hpb=d775f576e4ffc0973c5f183b57b2baa089f555dc;p=pspp-builds.git diff --git a/src/language/lexer/value-parser.c b/src/language/lexer/value-parser.c index c492658e..ff2701e8 100644 --- a/src/language/lexer/value-parser.c +++ b/src/language/lexer/value-parser.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 2005, 2006, 2009, 2010 Free Software Foundation, Inc. + Copyright (C) 2005, 2006, 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 @@ -25,6 +25,7 @@ #include "data/value.h" #include "language/lexer/lexer.h" #include "libpspp/cast.h" +#include "libpspp/i18n.h" #include "libpspp/message.h" #include "libpspp/str.h" @@ -100,12 +101,15 @@ parse_number (struct lexer *lexer, double *x, const enum fmt_type *format) lex_get (lexer); return true; } - else if (lex_token (lexer) == T_STRING && format != NULL) + else if (lex_is_string (lexer) && format != NULL) { union value v; - assert (! (fmt_get_category (*format) & ( FMT_CAT_STRING ))); - data_in (ds_ss (lex_tokstr (lexer)), LEGACY_NATIVE, - *format, 0, 0, 0, NULL, &v, 0); + + assert (fmt_get_category (*format) != FMT_CAT_STRING); + + if (!data_in_msg (lex_tokss (lexer), "UTF-8", *format, &v, 0, NULL)) + return false; + lex_get (lexer); *x = v.f; if (*x == SYSMIS) @@ -139,7 +143,7 @@ parse_value (struct lexer *lexer, union value *v, int width) } else if (lex_force_string (lexer)) { - const char *s = ds_cstr (lex_tokstr (lexer)); + const char *s = lex_tokcstr (lexer); value_copy_str_rpad (v, width, CHAR_CAST_BUG (const uint8_t *, s), ' '); } else