1 #
2 # Copyright 1999, 2000, 2001 Patrik Stridvall
3 #
4 # This library is free software; you can redistribute it and/or
5 # modify it under the terms of the GNU Lesser General Public
6 # License as published by the Free Software Foundation; either
7 # version 2.1 of the License, or (at your option) any later version.
8 #
9 # This library is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 # Lesser General Public License for more details.
13 #
14 # You should have received a copy of the GNU Lesser General Public
15 # License along with this library; if not, write to the Free Software
16 # Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17 #
18
19 package preprocessor;
20
21 use strict;
22
23 sub new($) {
24 my $proto = shift;
25 my $class = ref($proto) || $proto;
26 my $self = {};
27 bless ($self, $class);
28
29 my $state = \%{$self->{STATE}};
30 my $stack = \@{$self->{STACK}};
31 my $include_found = \${$self->{INCLUDE_FOUND}};
32 my $conditional_found = \${$self->{CONDITIONAL_FOUND}};
33
34 $$include_found = shift;
35 $$conditional_found = shift;
36
37 return $self;
38 }
39
40 sub include($$) {
41 my $self = shift;
42 my $include_found = \${$self->{INCLUDE_FOUND}};
43
44 my $argument = shift;
45
46 &$$include_found($argument);
47 }
48
49 sub define($$) {
50 my $self = shift;
51 my $state = \%{$self->{STATE}};
52 my $conditional_found = \${$self->{CONDITIONAL_FOUND}};
53
54 my $name = shift;
55
56 $$state{$name} = "def";
57
58 &$$conditional_found($name);
59 }
60
61 sub undefine($$) {
62 my $self = shift;
63 my $state = \%{$self->{STATE}};
64 my $conditional_found = \${$self->{CONDITIONAL_FOUND}};
65
66 my $name = shift;
67
68 $$state{$name} = "undef";
69
70 &$$conditional_found($name);
71 }
72
73 sub begin_if($$$) {
74 my $self = shift;
75 my $state = \%{$self->{STATE}};
76 my $stack = \@{$self->{STACK}};
77
78 my $directive = shift;
79 local $_ = shift;
80
81 while(!/^$/) {
82 if(/^0\s*\&\&/s) {
83 $_ = "0";
84 } elsif(/^1\s*\|\|/s) {
85 $_ = "1";
86 }
87
88 if (/^(!\s*)?defined\s*\(\s*(\w+)\s*\)\s*(?:(\&\&|\|\|)\s*)?/s ||
89 /^(!\s*)?defined\s*(\w+)\s*(?:(\&\&|\|\|)\s*)?/s)
90 {
91 $_ = $';
92
93 my $sign = $1;
94 my $var = $2;
95
96 if (defined($sign) && $sign eq "!") {
97 $self->undefine($var);
98 push @$stack, $var;
99 } else {
100 $self->define($var);
101 push @$stack, $var;
102 }
103 } elsif (/^(!\s*)?(\w+)\s*(?:(<|<=|==|!=|>=|>|\+|\-|\*\/)\s*(\w+)\s*)?(?:(\&\&|\|\|)\s*)?/s) {
104 $_ = $';
105
106 my $sign = $1;
107 my $var = $2;
108
109 if (defined($sign) && $sign eq "!") {
110 $self->undefine($var);
111 push @$stack, $var;
112 } else {
113 $self->define($var);
114 push @$stack, $var;
115 }
116 } elsif(/^(!\s*)?\(/s) {
117 $_ = "";
118 } else {
119 print "*** Can't parse '#$directive $_' ***\n";
120 $_ = "";
121 }
122 }
123 }
124
125 sub else_if($$) {
126 my $self = shift;
127 my $state = \%{$self->{STATE}};
128 my $stack = \@{$self->{STACK}};
129
130 my $argument = shift;
131
132 $self->end_if;
133
134 if(defined($argument)) {
135 $self->begin_if("elif", $argument);
136 }
137 }
138
139 sub end_if($) {
140 my $self = shift;
141 my $state = \%{$self->{STATE}};
142 my $stack = \@{$self->{STACK}};
143
144 my $macro = pop @$stack;
145 delete $$state{$macro} if defined($macro);
146 }
147
148 sub directive($$$) {
149 my $self = shift;
150 my $state = \%{$self->{STATE}};
151 my $stack = \@{$self->{STACK}};
152
153 my $directive = shift;
154 my $argument = shift;
155
156 local $_ = $directive;
157 if(/^if$/) {
158 $self->begin_if("if",$argument);
159 } elsif(/^ifdef$/) {
160 $self->begin_if("if", "defined($argument)");
161 } elsif(/^ifndef$/) {
162 $self->begin_if("if", "!defined($argument)");
163 push @$stack, $argument;
164 } elsif(/^elif$/) {
165 $self->else_if($argument);
166 } elsif(/^else$/) {
167 $self->else_if;
168 } elsif(/^endif$/) {
169 $self->end_if;
170 } elsif(/^include/) {
171 $self->include($argument);
172 }
173 }
174
175 sub is_def($$) {
176 my $self = shift;
177 my $state = \%{$self->{STATE}};
178
179 my $name = shift;
180
181 my $status = $$state{$name};
182
183 return defined($status) && $status eq "def";
184 }
185
186 sub is_undef($$) {
187 my $self = shift;
188 my $state = \%{$self->{STATE}};
189
190 my $name = shift;
191
192 my $status = $$state{$name};
193
194 return defined($status) && $status eq "undef";
195 }
196
197 sub is_unknown($$) {
198 my $self = shift;
199 my $state = \%{$self->{STATE}};
200
201 my $name = shift;
202
203 my $status = $$state{$name};
204
205 return !defined($status);
206 }
207
208 1;
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.