-#!/usr/bin/perl
+#!/usr/bin/env perl
# Copyright (c) 2013-2015. The SimGrid Team.
# All rights reserved.
# Copyright 2003, Dan Kegel. Licensed under GPL. See the file ../COPYING for details.
use strict;
+use warnings;
-die "Please install iamerican to use that script."
+die "Please install iamerican to use that script.\n"
unless (-r "/usr/lib/ispell/american.hash");
sub check_content($) {
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'`\n"
- unless length(@ARGV)>1;
+ ."`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"
+ unless scalar(@ARGV)>0;
my $total = 0;
foreach my $file (@ARGV) {