- Continued on the new C parser.
[wine] / tools / winapi / c_function.pm
1 package c_function;
2
3 use strict;
4
5 sub new {
6     my $proto = shift;
7     my $class = ref($proto) || $proto;
8     my $self  = {};
9     bless ($self, $class);
10
11     return $self;
12 }
13
14 sub file {
15     my $self = shift;
16     my $file = \${$self->{FILE}};
17
18     local $_ = shift;
19
20     if(defined($_)) { $$file = $_; }
21     
22     return $$file;
23 }
24
25 sub begin_line {
26     my $self = shift;
27     my $begin_line = \${$self->{BEGIN_LINE}};
28
29     local $_ = shift;
30
31     if(defined($_)) { $$begin_line = $_; }
32     
33     return $$begin_line;
34 }
35
36 sub begin_column {
37     my $self = shift;
38     my $begin_column = \${$self->{BEGIN_COLUMN}};
39
40     local $_ = shift;
41
42     if(defined($_)) { $$begin_column = $_; }
43     
44     return $$begin_column;
45 }
46
47 sub end_line {
48     my $self = shift;
49     my $end_line = \${$self->{END_LINE}};
50
51     local $_ = shift;
52
53     if(defined($_)) { $$end_line = $_; }
54     
55     return $$end_line;
56 }
57
58 sub end_column {
59     my $self = shift;
60     my $end_column = \${$self->{END_COLUMN}};
61
62     local $_ = shift;
63
64     if(defined($_)) { $$end_column = $_; }
65     
66     return $$end_column;
67 }
68
69 sub linkage {
70     my $self = shift;
71     my $linkage = \${$self->{LINKAGE}};
72
73     local $_ = shift;
74
75     if(defined($_)) { $$linkage = $_; }
76     
77     return $$linkage;
78 }
79
80 sub return_type {
81     my $self = shift;
82     my $return_type = \${$self->{RETURN_TYPE}};
83
84     local $_ = shift;
85
86     if(defined($_)) { $$return_type = $_; }
87     
88     return $$return_type;
89 }
90
91 sub calling_convention {
92     my $self = shift;
93     my $calling_convention = \${$self->{CALLING_CONVENTION}};
94
95     local $_ = shift;
96
97     if(defined($_)) { $$calling_convention = $_; }
98     
99     return $$calling_convention;
100 }
101
102 sub name {
103     my $self = shift;
104     my $name = \${$self->{NAME}};
105
106     local $_ = shift;
107
108     if(defined($_)) { $$name = $_; }
109     
110     return $$name;
111 }
112
113 sub argument_types {
114     my $self = shift;
115     my $argument_types = \${$self->{ARGUMENT_TYPES}};
116
117     local $_ = shift;
118
119     if(defined($_)) { $$argument_types = $_; }
120     
121     return $$argument_types;
122 }
123
124 sub argument_names {
125     my $self = shift;
126     my $argument_names = \${$self->{ARGUMENT_NAMES}};
127
128     local $_ = shift;
129
130     if(defined($_)) { $$argument_names = $_; }
131     
132     return $$argument_names;
133 }
134
135 sub statements_line {
136     my $self = shift;
137     my $statements_line = \${$self->{STATEMENTS_LINE}};
138
139     local $_ = shift;
140
141     if(defined($_)) { $$statements_line = $_; }
142     
143     return $$statements_line;
144 }
145
146 sub statements_column {
147     my $self = shift;
148     my $statements_column = \${$self->{STATEMENTS_COLUMN}};
149
150     local $_ = shift;
151
152     if(defined($_)) { $$statements_column = $_; }
153     
154     return $$statements_column;
155 }
156
157 sub statements {
158     my $self = shift;
159     my $statements = \${$self->{STATEMENTS}};
160
161     local $_ = shift;
162
163     if(defined($_)) { $$statements = $_; }
164     
165     return $$statements;
166 }
167
168 1;