X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Fformat-parser.c;h=45a0b4b1e32d1c4cb473cfcdc810d3add3c52361;hb=cf40a7c5308d086195265623f35b310c0b35f766;hp=9adbeb1552bd13a398cb39ccc2b67777080aeaaf;hpb=32c8a9891f2c0bdc9e1cda13f1313843bc4e6044;p=pspp diff --git a/src/language/lexer/format-parser.c b/src/language/lexer/format-parser.c index 9adbeb1552..45a0b4b1e3 100644 --- a/src/language/lexer/format-parser.c +++ b/src/language/lexer/format-parser.c @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2006 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2006, 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 @@ -16,19 +16,17 @@ #include -#include "format-parser.h" - #include #include #include -#include "lexer.h" -#include -#include -#include -#include -#include -#include +#include "data/format.h" +#include "data/variable.h" +#include "language/lexer/format-parser.h" +#include "language/lexer/lexer.h" +#include "libpspp/message.h" +#include "libpspp/misc.h" +#include "libpspp/str.h" #include "gettext.h" #define _(msgid) gettext (msgid) @@ -46,13 +44,13 @@ parse_abstract_format_specifier__ (struct lexer *lexer, goto error; /* Extract pieces. */ - s = ds_ss (lex_tokstr (lexer)); - ss_get_chars (&s, ss_span (s, ss_cstr (CC_LETTERS)), &type_ss); - ss_get_chars (&s, ss_span (s, ss_cstr (CC_DIGITS)), &width_ss); - if (ss_match_char (&s, '.')) + s = ss_cstr (lex_tokcstr (lexer)); + ss_get_bytes (&s, ss_span (s, ss_cstr (CC_LETTERS)), &type_ss); + ss_get_bytes (&s, ss_span (s, ss_cstr (CC_DIGITS)), &width_ss); + if (ss_match_byte (&s, '.')) { has_decimals = true; - ss_get_chars (&s, ss_span (s, ss_cstr (CC_DIGITS)), &decimals_ss); + ss_get_bytes (&s, ss_span (s, ss_cstr (CC_DIGITS)), &decimals_ss); } else has_decimals = false; @@ -133,9 +131,9 @@ parse_format_specifier_name (struct lexer *lexer, enum fmt_type *type) lex_error (lexer, _("expecting format type")); return false; } - if (!fmt_from_name (ds_cstr (lex_tokstr (lexer)), type)) + if (!fmt_from_name (lex_tokcstr (lexer), type)) { - msg (SE, _("Unknown format type `%s'."), ds_cstr (lex_tokstr (lexer))); + msg (SE, _("Unknown format type `%s'."), lex_tokcstr (lexer)); return false; } lex_get (lexer);