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
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
#ifndef _CONTEXT_H
#define _CONTEXT_H
namespace ledger {
class context
{
public:
string description; // ex: 'While parsing file "%R" at line %L'
explicit context(const string& _description) throw()
: description(_description) {}
virtual ~context() {}
};
class file_context : public context
{
public:
path pathname; // ex: ledger.dat
uint_least32_t linenum_beg; // ex: 1010
uint_least32_t linenum_end; // ex: 1010
uint_least32_t position_beg;
uint_least32_t position_end;
optional<uint_least32_t> colnum_beg; // ex: 8
optional<uint_least32_t> colnum_end; // ex: 8
explicit file_context(const path& _pathname,
const uint_least32_t _linenum_beg,
const uint_least32_t _linenum_end,
const uint_least32_t _position_beg,
const uint_least32_t _position_end) throw()
: context(""),
pathname(_pathname),
linenum_beg(_linenum_beg),
linenum_end(_linenum_end),
position_beg(_position_beg),
position_end(_position_end) {}
};
class string_context : public context
{
public:
string text; // ex: (The multi-line text of an entry)
optional<uint_least32_t> linenum_beg_off; // ex: 2
optional<uint_least32_t> linenum_end_off; // ex: 2
optional<uint_least32_t> colnum_beg_off; // ex: 8
optional<uint_least32_t> colnum_end_off; // ex: 8
};
#if 0
class file_context : public error_context
{
protected:
string file;
unsigned long line;
public:
file_context(const string& _file, unsigned long _line,
const string& _desc = "") throw()
: error_context(_desc), file(_file), line(_line) {}
virtual ~file_context() throw() {}
virtual void describe(std::ostream& out) const throw() {
if (! desc.empty())
out << desc << " ";
out << "\"" << file << "\", line " << line << ": ";
}
};
class line_context : public error_context {
public:
string line;
long pos;
line_context(const string& _line, long _pos,
const string& _desc = "") throw()
: error_context(_desc), line(_line), pos(_pos) {}
virtual ~line_context() throw() {}
virtual void describe(std::ostream& out) const throw() {
if (! desc.empty())
out << desc << std::endl;
out << " " << line << std::endl << " ";
long idx = pos < 0 ? line.length() - 1 : pos;
for (int i = 0; i < idx; i++)
out << " ";
out << "^" << std::endl;
}
};
#endif
extern ptr_list<context> context_stack;
#define PUSH_CONTEXT() try {
#define POP_CONTEXT(ctxt) \
} catch (...) { \
context_stack.push_front(new ctxt); \
throw; \
}
} // namespace ledger
#endif // _CONTEXT_H
|
