1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 2010, 2011 Free Software Foundation, Inc.
4 This program is free software: you can redistribute it and/or modify
5 it under the terms of the GNU General Public License as published by
6 the Free Software Foundation, either version 3 of the License, or
7 (at your option) any later version.
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program. If not, see <http://www.gnu.org/licenses/>. */
22 #include "libpspp/assertion.h"
23 #include "libpspp/str.h"
24 #include "data/identifier.h"
26 /* A PSPP syntax token.
28 The 'type' member is used by the scanner (see scan.h) for SCAN_* values as
29 well, which is why it is not declared as type "enum token_type". */
32 int type; /* Usually a "enum token_type" value. */
34 struct substring string;
37 void token_copy (struct token *, const struct token *);
38 void token_uninit (struct token *);
40 bool token_equal (const struct token *, const struct token *);
42 char *token_to_string (const struct token *);
44 void token_print (const struct token *, FILE *);
53 void tokens_copy (struct tokens *, const struct tokens *);
54 void tokens_uninit (struct tokens *);
55 void tokens_add (struct tokens *, const struct token *);
57 void tokens_print (const struct tokens *, FILE *);
59 static inline bool token_is_number (const struct token *);
60 static inline double token_number (const struct token *);
61 bool token_is_integer (const struct token *);
62 long token_integer (const struct token *);
63 static inline bool token_is_string (const struct token *);
66 token_is_number (const struct token *t)
68 return t->type == T_POS_NUM || t->type == T_NEG_NUM;
72 token_number (const struct token *t)
74 assert (token_is_number (t));
79 token_is_string (const struct token *t)
81 return t->type == T_STRING;