blob: c248690c559176dc8b330767dadb64f7ee5218e4 (
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
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
111
112
|
// file : cli/header.cxx
// author : Boris Kolpackov <boris@codesynthesis.com>
// copyright : Copyright (c) 2009 Code Synthesis Tools CC
// license : MIT; see accompanying LICENSE file
#include "header.hxx"
namespace
{
//
//
struct option: traversal::option, context
{
option (context& c) : context (c) {}
virtual void
traverse (type& o)
{
string name (ename (o));
string type (o.type ().name ());
os << type << " const&" << endl
<< name << " () const;"
<< endl;
}
};
struct option_data: traversal::option, context
{
option_data (context& c) : context (c) {}
virtual void
traverse (type& o)
{
string member (emember (o));
string type (o.type ().name ());
os << type << " " << member << ";";
}
};
//
//
struct class_: traversal::class_, context
{
class_ (context& c)
: context (c),
option_ (c),
option_data_ (c)
{
names_option_ >> option_;
names_option_data_ >> option_data_;
}
virtual void
traverse (type& c)
{
string name (escape (c.name ()));
os << "class " << name
<< "{"
<< "public:" << endl
<< endl;
names (c, names_option_);
os << "private:" << endl;
names (c, names_option_data_);
os << "};";
}
private:
option option_;
traversal::names names_option_;
option_data option_data_;
traversal::names names_option_data_;
};
//
//
struct includes: traversal::cxx_includes, context
{
includes (context& c) : context (c) {}
virtual void
traverse (semantics::cxx_includes& i)
{
os << "#include " << i.file () << endl
<< endl;
}
};
}
void
generate_header (context& ctx)
{
traversal::cli_unit unit;
includes includes (ctx);
traversal::names unit_names;
namespace_ ns (ctx);
traversal::names ns_names;
class_ cl (ctx);
unit >> includes;
unit >> unit_names >> ns >> ns_names >> ns;
ns_names >> cl;
unit.dispatch (ctx.unit);
}
|