| … | |
… | |
| 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 = ""; |
