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
did I mention that I hate blank lines?
[simgrid.git]
/
tools
/
sg_unit_extractor.pl
diff --git
a/tools/sg_unit_extractor.pl
b/tools/sg_unit_extractor.pl
index
41ab6cb
..
2dee83a
100755
(executable)
--- a/
tools/sg_unit_extractor.pl
+++ b/
tools/sg_unit_extractor.pl
@@
-1,6
+1,9
@@
-#! /usr/bin/perl
+#! /usr/bin/
env
perl
-use strict;
+# Copyright (c) 2005-2012, 2014. The SimGrid Team. All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
use strict;
use Getopt::Long qw(GetOptions);
use strict;
use Getopt::Long qw(GetOptions);
@@
-10,11
+13,12
@@
my $progname="sg_unit_extractor";
sub usage($) {
my $ret;
sub usage($) {
my $ret;
- print "USAGE: $progname [--root=part/to/cut] [--path=where/to/search NOT WORKING] [--outdir=where/to/generate/files] infile [infile+]\n";
+ print "USAGE: $progname [--root=part/to/cut] [--outdir=where/to/generate/files] infile [infile+]\n\n";
+ print "This program is in charge of extracting the unit tests out of the SimGrid source code.\n";
+ print "See http://simgrid.gforge.inria.fr/doc/latest/inside_tests.html for more details.\n";
exit $ret;
}
exit $ret;
}
-my $path=undef;
my $outdir=undef;
my $root;
my $help;
my $outdir=undef;
my $root;
my $help;
@@
-23,7
+27,6
@@
Getopt::Long::config('permute','no_getopt_compat', 'no_auto_abbrev');
GetOptions(
'help|h' => sub {usage(0)},
'root=s' =>\$root,
GetOptions(
'help|h' => sub {usage(0)},
'root=s' =>\$root,
- 'path=s' =>\$path,
'outdir=s' =>\$outdir) or usage(1);
usage(1) if (scalar @ARGV == 0);
'outdir=s' =>\$outdir) or usage(1);
usage(1) if (scalar @ARGV == 0);
@@
-38,6
+41,7
@@
sub process_one($) {
$outfile = $infile;
$outfile =~ s/\.c$/_unit.c/;
$outfile = $infile;
$outfile =~ s/\.c$/_unit.c/;
+ $outfile =~ s/\.cpp$/_unit.cpp/;
$outfile =~ s|.*/([^/]*)$|$1| if $outfile =~ m|/|;
$outfile = "$outdir$outfile";
$outfile =~ s|.*/([^/]*)$|$1| if $outfile =~ m|/|;
$outfile = "$outdir$outfile";
@@
-120,7
+124,6
@@
sub process_one($) {
open OUT,">${outdir}simgrid_units_main.c" || die "$progname: Cannot open main file '${outdir}simgrid_units_main.c': $!\n";
print OUT $GENERATED;
print OUT "#include <stdio.h>\n\n";
open OUT,">${outdir}simgrid_units_main.c" || die "$progname: Cannot open main file '${outdir}simgrid_units_main.c': $!\n";
print OUT $GENERATED;
print OUT "#include <stdio.h>\n\n";
- print OUT "#include \"msg/msg.h\" /* MSG_init, xbt_init is not enough when using synchronized dynars */\n";
print OUT "#include \"xbt.h\"\n\n";
print OUT "extern xbt_test_unit_t _xbt_current_unit;\n\n";
print OUT "/* SGU: BEGIN PROTOTYPES */\n";
print OUT "#include \"xbt.h\"\n\n";
print OUT "extern xbt_test_unit_t _xbt_current_unit;\n\n";
print OUT "/* SGU: BEGIN PROTOTYPES */\n";
@@
-138,7
+141,7
@@
int main(int argc, char *argv[]) {
/* SGU: BEGIN SUITES DECLARATION */
/* SGU: END SUITES DECLARATION */
/* SGU: BEGIN SUITES DECLARATION */
/* SGU: END SUITES DECLARATION */
-
MSG
_init(&argc,argv);
+
xbt
_init(&argc,argv);
/* Search for the tests to do */
selection[0]='\\0';
/* Search for the tests to do */
selection[0]='\\0';