A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add a missing independence theorem about Mutex
[simgrid.git]
/
tools
/
internal
/
spell_comments.pl
diff --git
a/tools/internal/spell_comments.pl
b/tools/internal/spell_comments.pl
index ceea60d83caf4c13002f628e0f651f3696fa4fe2..d53cf9a7731cada95bb3ab88ff11879ad885c3b3 100755
(executable)
--- a/
tools/internal/spell_comments.pl
+++ b/
tools/internal/spell_comments.pl
@@
-1,6
+1,6
@@
#!/usr/bin/env perl
#!/usr/bin/env perl
-# Copyright (c) 2013-20
19
. The SimGrid Team.
+# Copyright (c) 2013-20
23
. The SimGrid Team.
# All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# 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 "
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 | grep -v src/smpi/colls`\n"
+ ."`find ". ($DICTFILE eq "./spell_dict.txt"? "../../":".")." -name '*.[ch]' -o -name '*.hpp' -o -name '*.cpp' |grep -v smpi/mpich3-test|grep -v NAS | grep -v src/smpi/colls`\n"
unless scalar(@ARGV)>0;
my $total = 0;
unless scalar(@ARGV)>0;
my $total = 0;
@@
-47,7
+47,7
@@
foreach my $file (@ARGV) {
open(PIN, "ispell -d american -p $DICTFILE -l < $TEMPFILE | sort -uf |") || die;
my @badwords;
while (my $err = <PIN>) {
open(PIN, "ispell -d american -p $DICTFILE -l < $TEMPFILE | sort -uf |") || die;
my @badwords;
while (my $err = <PIN>) {
- chomp $err;
+ chomp $err;
push(@badwords, $err) if ($err =~ /\w/ && length($err)>0);
}
close(PIN) || die;
push(@badwords, $err) if ($err =~ /\w/ && length($err)>0);
}
close(PIN) || die;