> Log Message: > Modified so the comment in arches are stripped away Just a note, a line like: if (/^#/) { (do comment stuff) } after the while <ARC> line would work better. The change as done below will not catch things like: #########################3 # block comment or things like: #this is a comment > > > > Start of context diffs > > > Index: crossfire/lib/collect.pl.in > diff -c crossfire/lib/collect.pl.in:1.11 crossfire/lib/collect.pl.in:1.12 > *** crossfire/lib/collect.pl.in:1.11 Fri Sep 12 22:01:40 2003 > --- crossfire/lib/collect.pl.in Sat Sep 25 09:02:15 2004 > *************** > *** 200,205 **** > --- 200,210 ---- > line: while(<ARC>) { > chop; > ($ var, at values ) = split; > + if ($var eq "#"){ > + #developper comment, switch to next line > + $commentNum++; > + next line; > + } > if ($var eq "Object") { > $lface[0] = ""; > $#lface = 0; > *************** > *** 453,456 **** > --- 458,462 ---- > &info(Treasures.":\t".($#treasure_files+1)); > &info(Trash.":\t".$trashNum); > &info(Smooths.":\t".$smoothNum); > + &info("Comment lines:\t".$commentNum); > } > > > ------------------------------------------------------- > This SF.Net email is sponsored by: YOU BE THE JUDGE. Be one of 170 > Project Admins to receive an Apple iPod Mini FREE for your judgement on > who ports your project to Linux PPC the best. Sponsored by IBM. > Deadline: Sept. 24. Go here: http://sf.net/ppc_contest.php > _______________________________________________ > Crossfire-cvs mailing list > Crossfire-cvs at lists.sourceforge.net > https://lists.sourceforge.net/lists/listinfo/crossfire-cvs _______________________________________________ crossfire-devel mailing list crossfire-devel at lists.real-time.com https://mailman.real-time.com/mailman/listinfo/crossfire-devel