X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Flexer.h;h=a6be161fe100ceb5919871b05601f1efd2e03e2f;hb=acb9e3de8a50ad77df80375d90a4a4b526e42c1c;hp=b35ea7f54e05d9da00ffbcc23b18d71ebb174b97;hpb=3b74aa9059aefe4ce82ecab1a5fd48cd251600dc;p=pspp diff --git a/src/language/lexer/lexer.h b/src/language/lexer/lexer.h index b35ea7f54e..a6be161fe1 100644 --- a/src/language/lexer/lexer.h +++ b/src/language/lexer/lexer.h @@ -20,13 +20,6 @@ #include #include -/* The following #include avoids a potential problem when Gnulib substitutes - * for close() by putting "#define close rpl_close" into , by - * ensuring that every source file that includes this one sees the #define. - * (It would probably be better to rename the 'close' member of struct - * lex_reader_class.) */ -#include - #include "data/identifier.h" #include "data/variable.h" #include "libpspp/compiler.h" @@ -79,7 +72,7 @@ struct lex_reader_class The caller will free the 'file_name' member of READER, so the implementation should not do so. */ - void (*close) (struct lex_reader *reader); + void (*destroy) (struct lex_reader *reader); }; /* Helper functions for lex_reader. */ @@ -135,6 +128,7 @@ bool lex_force_int (struct lexer *); bool lex_force_num (struct lexer *); bool lex_force_id (struct lexer *); bool lex_force_string (struct lexer *); +bool lex_force_string_or_id (struct lexer *); /* Token accessors. */ enum token_type lex_token (const struct lexer *); @@ -162,8 +156,15 @@ void lex_next_error (struct lexer *, int n0, int n1, const char *, ...) PRINTF_FORMAT (4, 5); int lex_end_of_command (struct lexer *); +void lex_error_expecting (struct lexer *, const char *, ...) SENTINEL(0); + void lex_sbc_only_once (const char *); -void lex_sbc_missing (struct lexer *, const char *); +void lex_sbc_missing (const char *); + +void lex_spec_only_once (struct lexer *, const char *subcommand, + const char *specification); +void lex_spec_missing (struct lexer *, const char *subcommand, + const char *specification); void lex_error_valist (struct lexer *, const char *, va_list) PRINTF_FORMAT (2, 0);