… | |
… | |
231 | $pathto = ""; |
231 | $pathto = ""; |
232 | } |
232 | } |
233 | open(ARC,$arch) || &die("cannot open ".$arch); |
233 | open(ARC,$arch) || &die("cannot open ".$arch); |
234 | line: while(<ARC>) { |
234 | line: while(<ARC>) { |
235 | chop; |
235 | chop; |
236 | ($var,@values) = split; |
|
|
237 | if ($var =~ /^\s*(?:#?.*|)$/) { |
236 | if (/^\s*(?:#.*|)$/) { |
238 | #developper comment, switch to next line |
237 | # comment, skip line |
239 | $commentNum++; |
238 | $commentNum++; |
240 | next line; |
239 | next line; |
241 | } elsif ($var eq "Object") { |
240 | } |
|
|
241 | ($var, @values) = split; |
|
|
242 | if ($var =~ /^[Oo]bject$/) { |
242 | $lface[0] = ""; |
243 | $lface[0] = ""; |
243 | $#lface = 0; |
244 | $#lface = 0; |
244 | $lfg = ""; |
245 | $lfg = ""; |
245 | $lbg = ""; |
246 | $lbg = ""; |
246 | $lvis = ""; |
247 | $lvis = ""; |