X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Flanguage%2Flexer%2Flexer.h;h=87b1e2e7233e624487a8f3d97111990d68c2919b;hb=c93bf9192871e358daf5f30d537a24eb2c6c5aad;hp=b35ea7f54e05d9da00ffbcc23b18d71ebb174b97;hpb=3b74aa9059aefe4ce82ecab1a5fd48cd251600dc;p=pspp diff --git a/src/language/lexer/lexer.h b/src/language/lexer/lexer.h index b35ea7f54e..87b1e2e723 100644 --- a/src/language/lexer/lexer.h +++ b/src/language/lexer/lexer.h @@ -1,5 +1,5 @@ /* PSPP - a program for statistical analysis. - Copyright (C) 1997-9, 2000, 2010, 2011 Free Software Foundation, Inc. + Copyright (C) 1997-9, 2000, 2010, 2011, 2013 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 @@ -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" @@ -45,7 +38,7 @@ enum lex_syntax_mode /* Handling of errors. */ enum lex_error_mode { - LEX_ERROR_INTERACTIVE, /* Always continue to next command. */ + LEX_ERROR_TERMINAL, /* Discard input line and continue reading. */ LEX_ERROR_CONTINUE, /* Continue to next command, except for cascading failures. */ LEX_ERROR_STOP /* Stop processing. */ @@ -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);