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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
/***************************************************************************
* Copyright (C) 2004 by Roberto Raggi *
* roberto@tdevelop.org *
* *
* This program is free software; you can redistribute it and/or modify *
* it under the terms of the GNU Library General Public License as *
* published by the Free Software Foundation; either version 2 of the *
* License, or (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU Library General Public *
* License along with this program; if not, write to the *
* Free Software Foundation, Inc., *
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
***************************************************************************/
#ifndef MIPARSER_H
#define MIPARSER_H
#include "milexer.h"
#include "gdbmi.h"
#include <tqstring.h>
#include <tqvaluelist.h>
/**
@author Roberto Raggi
*/
class MIParser
{
public:
MIParser();
~MIParser();
GDBMI::Record *parse(FileSymbol *file);
protected: // rules
bool parseResultRecord(GDBMI::Record *&record);
bool parsePrompt(GDBMI::Record *&record);
bool parseStreamRecord(GDBMI::Record *&record);
bool parseResult(GDBMI::Result *&result);
bool parseValue(GDBMI::Value *&value);
bool parseTuple(GDBMI::Value *&value);
bool parseList(GDBMI::Value *&value);
/** Creates new TupleValue object, writes its address
into *value, parses a comma-separated set of values,
and adds each new value into (*value)->results.
If 'start' and 'end' are not zero, they specify
start and end delimiter of the list.
Parsing stops when we see 'end' character, or, if
'end' is zero, at the end of input.
*/
bool parseCSV(GDBMI::TupleValue** value,
char start = 0, char end = 0);
/** @overload
Same as above, but writes into existing tuple.
*/
bool parseCSV(GDBMI::TupleValue& value,
char start = 0, char end = 0);
/** Parses a string literal and returns it. Advances
the lexer past the literal. Processes C escape sequences
in the string.
@pre lex->lookAhead(0) == Token_string_literal
*/
TQString parseStringLiteral();
private:
MILexer lexer;
TokenStream *lex;
};
#endif
|
