1 /* PSPP - a program for statistical analysis.
2 Copyright (C) 2021 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/>. */
23 #include "libpspp/hmap.h"
24 #include "libpspp/str.h"
25 #include "language/lexer/segment.h"
26 #include "language/lexer/token.h"
28 /* A token along with the syntax that was tokenized to produce it. The syntax
29 allows the token to be turned back into syntax accurately. */
33 struct substring representation;
36 void macro_token_copy (struct macro_token *, const struct macro_token *);
37 void macro_token_uninit (struct macro_token *);
39 void macro_token_to_representation (struct macro_token *, struct string *);
41 bool is_macro_keyword (struct substring);
43 /* A dynamic array of macro tokens.
45 The syntax for the tokens doesn't include white space, etc. between them. */
48 struct macro_token *mts;
53 void macro_tokens_copy (struct macro_tokens *, const struct macro_tokens *);
54 void macro_tokens_uninit (struct macro_tokens *);
55 struct macro_token *macro_tokens_add_uninit (struct macro_tokens *);
56 void macro_tokens_add (struct macro_tokens *, const struct macro_token *);
58 void macro_tokens_from_string (struct macro_tokens *, const struct substring,
61 void macro_tokens_to_representation (struct macro_tokens *, struct string *,
62 size_t *ofs, size_t *len);
64 void macro_tokens_print (const struct macro_tokens *, FILE *);
66 /* A parameter to a macro. */
69 bool positional; /* Is this a positional parameter? */
70 char *name; /* "!1" or "!name". */
71 struct macro_tokens def; /* Default expansion. */
72 bool expand_arg; /* Macro-expand the argument? */
84 int n_tokens; /* ARG_N_TOKENS. */
85 struct token charend; /* ARG_CHAREND. */
86 struct token enclose[2]; /* ARG_ENCLOSE. */
93 struct hmap_node hmap_node; /* Indexed by 'name'. */
96 /* Source code location of macro definition, for error reporting. */
102 struct macro_param *params;
106 struct macro_tokens body;
109 void macro_destroy (struct macro *);
111 /* A collection of macros. */
117 struct macro_set *macro_set_create (void);
118 void macro_set_destroy (struct macro_set *);
119 const struct macro *macro_set_find (const struct macro_set *,
121 void macro_set_add (struct macro_set *, struct macro *);
124 macro_set_is_empty (const struct macro_set *set)
126 return hmap_is_empty (&set->macros);
129 /* Parsing and expanding macro calls. */
133 int macro_call_create (const struct macro_set *, const struct token *,
134 struct macro_call **);
135 int macro_call_add (struct macro_call *, const struct macro_token *);
137 void macro_call_expand (struct macro_call *, enum segmenter_mode segmenter_mode,
138 struct macro_tokens *);
140 void macro_call_destroy (struct macro_call *);