blob: 745477fc1a717394b8a17ce3caa100fff0951c43 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
/*
* Copyright 1993, 1995 Christopher Seiwald.
*
* This file is part of Jam - see jam.c for Copyright information.
*/
/*
* scan.h - the jam yacc scanner
*
* External functions:
* yyerror( char *s ) - print a parsing error message.
* yyfparse( char *s ) - scan include file s.
* yylex() - parse the next token, returning its type.
* yymode() - adjust lexicon of scanner.
* yyparse() - declaration for yacc parser.
* yyanyerrors() - indicate if any parsing errors occured.
*
* The yymode() function is for the parser to adjust the lexicon of the scanner.
* Aside from normal keyword scanning, there is a mode to handle action strings
* (look only for the closing }) and a mode to ignore most keywords when looking
* for a punctuation keyword. This allows non-punctuation keywords to be used in
* lists without quoting.
*/
#include "lists.h"
#include "object.h"
#include "parse.h"
/*
* YYSTYPE - value of a lexical token
*/
#define YYSTYPE YYSYMBOL
typedef struct _YYSTYPE
{
int type;
OBJECT * string;
PARSE * parse;
LIST * list;
int number;
OBJECT * file;
int line;
char const * keyword;
} YYSTYPE;
extern YYSTYPE yylval;
void yymode( int n );
void yyerror( char const * s );
int yyanyerrors();
void yyfparse( OBJECT * s );
int yyline();
int yylex();
int yyparse();
void yyinput_last_read_token( OBJECT * * name, int * line );
#define SCAN_NORMAL 0 /* normal parsing */
#define SCAN_STRING 1 /* look only for matching } */
#define SCAN_PUNCT 2 /* only punctuation keywords */
|