X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c25ced7e11be75f13a8c7a5eb8ccb36545409054..905103cd39c5edeb095e77f65a18695ac81f38dd:/tools/internal/spell_comments.pl diff --git a/tools/internal/spell_comments.pl b/tools/internal/spell_comments.pl index 961254f84c..1852ad0149 100755 --- a/tools/internal/spell_comments.pl +++ b/tools/internal/spell_comments.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl -# Copyright (c) 2013-2015. The SimGrid Team. +# Copyright (c) 2013-2018. The SimGrid Team. # All rights reserved. # This program is free software; you can redistribute it and/or modify it @@ -30,7 +30,7 @@ $DICTFILE="./spell_dict.txt" unless (-e $DICTFILE); die "Call this script from its location or from the SimGrid root directory\n" unless (-e $DICTFILE); die "Usage: ". ($DICTFILE eq "./spell_dict.txt"? "./":"tools/internal/")."spell_comments.pl " - ."`find ". ($DICTFILE eq "./spell_dict.txt"? "../../":".")." -name '*.[ch]' -o -name '*.hpp' -o -name '*.cpp' |grep -v umpire|grep -v smpi/mpich3-test|grep -v NAS`\n" + ."`find ". ($DICTFILE eq "./spell_dict.txt"? "../../":".")." -name '*.[ch]' -o -name '*.hpp' -o -name '*.cpp' |grep -v umpire|grep -v smpi/mpich3-test|grep -v NAS | grep -v src/smpi/colls`\n" unless scalar(@ARGV)>0; my $total = 0; @@ -47,14 +47,14 @@ foreach my $file (@ARGV) { open(PIN, "ispell -d american -p $DICTFILE -l < $TEMPFILE | sort -uf |") || die; my @badwords; while (my $err = ) { - chomp $err; + chomp $err; push(@badwords, $err) if ($err =~ /\w/ && length($err)>0); } close(PIN) || die; if (@badwords) { print "$file: ".scalar(@badwords)." errors: '".join("','",@badwords)."'\n"; - $total += scalar(@badwords); + $total += scalar(@badwords); } }