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
113
114
115
116
117
118
119
120
121
122
123
|
# build parse functions for a parsed struct file
function parse_elem(f, v, struct_num, elem_num,
LOCAL, type, elem)
{
type = structs[struct_num, elem_num, "type"];
elem = structs[struct_num, elem_num, "elem"];
v["ELEM"] = noptr(elem);
v["TYPE"] = type;
if (structs[type] != "") {
if (isaptr(elem)) {
print_template(f, "prs_struct_alloc.tpl", v);
} else {
print_template(f, "prs_struct.tpl", v);
}
} else {
print_template(f, "prs_"type".tpl", v);
}
}
function parse_pointer(f, v, struct_num, elem_num,
LOCAL, elem)
{
elem = structs[struct_num, elem_num, "elem"];
v["ELEM"] = noptr(elem);
print_template(f, "prs_pointer.tpl", v);
}
function parse_array(f, v, struct_num, elem_num,
LOCAL, elem, type)
{
elem = structs[struct_num, elem_num, "elem"];
type = structs[struct_num, elem_num, "type"];
v["ARRAYLEN"] = structs[struct_num, elem_num, "array_len"]
v["ELEM"] = elem;
v["TYPE"] = type;
print_template(f, "prs_array.tpl", v);
}
function parse_union(f, v, struct_num, elem_num,
LOCAL, union, type, i, elem, value)
{
union = structs[struct_num, elem_num, "elem"];
v["UNION"] = noptr(union);
v["SWITCH"] = structs[struct_num, "unions", union, "switch"];
print_template(f, "union_start.tpl", v);
for (i=0;i<structs[struct_num, "unions", union, "num_elems"];i++) {
elem = structs[struct_num, "unions", union, i, "elem"];
type = structs[struct_num, "unions", union, i, "type"];
value = structs[struct_num, "unions", union, i, "value"];
v["ELEM"] = v["UNION"]"->"noptr(elem);
v["TYPE"] = type;
v["VALUE"] = value;
print_template(f, "prs_case.tpl", v);
if (structs[type] != "") {
print_template(f, "prs_struct.tpl", v);
} else {
print_template(f, "prs_"type".tpl", v);
}
print_template(f, "prs_case_end.tpl", v);
}
print_template(f, "union_end.tpl", v);
}
function parse_ptr_elem(f, v, struct_num, elem_num,
LOCAL, elem, type)
{
elem = structs[struct_num, elem_num, "elem"];
type = structs[struct_num, elem_num, "type"];
v["ELEM"] = noptr(elem);
print_template(f, "ifptr_start.tpl", v);
if (type == "union") {
parse_union(f, v, struct_num, elem_num);
} else {
parse_elem(f, v, struct_num, elem_num);
}
print_template(f, "ifptr_end.tpl", v);
}
function struct_parser(f, v, struct_num,
LOCAL, i)
{
v["STRUCTNAME"] = structs[struct_num, "name"];
v["FUNCNAME"] = v["MODULE"] "_io_" v["STRUCTNAME"];
print_template(f, "fn_start.tpl", v);
# first all the structure pointers, scalars and arrays
for (i=0;i<structs[struct_num, "num_elems"];i++) {
if (isaptr(structs[struct_num, i, "elem"])) {
parse_pointer(f, v, struct_num, i);
} else if (structs[struct_num, i, "array_len"]) {
parse_array(f, v, struct_num, i);
} else {
parse_elem(f, v, struct_num, i);
}
}
# now the structures
for (i=0;i<structs[struct_num, "num_elems"];i++) {
if (!isaptr(structs[struct_num, i, "elem"])) continue;
parse_ptr_elem(f, v, struct_num, i);
}
print_template(f, "fn_end.tpl", v);
}
function produce_parsers(f,
LOCAL, v)
{
v["MODULE"]=module;
print_template(f, "module_start.tpl", v);
for (i=0;i < num_structs;i++) {
struct_parser(f, v, i);
}
print_template(f, "module_end.tpl", v);
}
|
