| version 1.11 | | version 1.12 |
|---|
| | |
| line: while(<ARC>) { | | line: while(<ARC>) { |
| chop; | | chop; |
| ($var,@values) = split; | | ($var,@values) = split; |
| | | if ($var eq "#"){ |
| | | #developper comment, switch to next line |
| | | $commentNum++; |
| | | next line; |
| | | } |
| if ($var eq "Object") { | | if ($var eq "Object") { |
| $lface[0] = ""; | | $lface[0] = ""; |
| $#lface = 0; | | $#lface = 0; |
| | |
| &info(Treasures.":\t".($#treasure_files+1)); | | &info(Treasures.":\t".($#treasure_files+1)); |
| &info(Trash.":\t".$trashNum); | | &info(Trash.":\t".$trashNum); |
| &info(Smooths.":\t".$smoothNum); | | &info(Smooths.":\t".$smoothNum); |
| | | &info("Comment lines:\t".$commentNum); |
| } | | } |