X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/7e9997bc1271973ad0a157f168213a2f874fd02f..44d3f27862736e3b045abf68ad949bdac5a75f08:/tools/sg_unit_extractor.pl diff --git a/tools/sg_unit_extractor.pl b/tools/sg_unit_extractor.pl index 6baa7b711b..e626e3d096 100755 --- a/tools/sg_unit_extractor.pl +++ b/tools/sg_unit_extractor.pl @@ -1,18 +1,35 @@ -#! /usr/bin/perl +#! /usr/bin/env perl -use strict; -use Fcntl ':flock'; +# Copyright (c) 2005-2012, 2014. The SimGrid Team. All rights reserved. -open SELF, "< $0" or die "Cannot open the lock file"; -if (!flock SELF, LOCK_EX | LOCK_NB) { - print STDERR "sg_unit_extractor already running. Cancelling...\n"; - exit; -} +# 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); my $progname="sg_unit_extractor"; # Get the args -die "USAGE: $progname infile [infile+]\n" - if (scalar @ARGV == 0); + +sub usage($) { + my $ret; + 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; +} + +my $outdir=undef; +my $root; +my $help; + +Getopt::Long::config('permute','no_getopt_compat', 'no_auto_abbrev'); +GetOptions( + 'help|h' => sub {usage(0)}, + 'root=s' =>\$root, + 'outdir=s' =>\$outdir) or usage(1); + +usage(1) if (scalar @ARGV == 0); map {process_one($_)} @ARGV; @@ -20,14 +37,15 @@ sub process_one($) { my $infile = shift; my $outfile; - print "$progname: processing $infile...\n"; - $infile =~ s|src/|| unless (-e $infile); $outfile = $infile; $outfile =~ s/\.c$/_unit.c/; + $outfile =~ s/\.cpp$/_unit.cpp/; $outfile =~ s|.*/([^/]*)$|$1| if $outfile =~ m|/|; + $outfile = "$outdir$outfile"; + print "$progname: processing $infile (generating $outfile)...\n"; # Get the unit data my ($unit_source,$suite_name,$suite_title)=("","",""); @@ -35,7 +53,8 @@ sub process_one($) { my (@tests); # actual content open IN, "$infile" || die "$progname: Cannot open input file '$infile': $!\n"; - + $infile =~ s|$root|| if defined($root); + my $takeit=0; my $line=0; my $beginline=0; @@ -101,8 +120,8 @@ sub process_one($) { close OUT || die "$progname: Cannot close output file '$outfile': $!\n"; # write the main skeleton if needed - if (! -e "simgrid_units_main.c") { - open OUT,">simgrid_units_main.c" || die "$progname: Cannot open main file 'simgrid_units_main.c': $!\n"; + if (! -e "${outdir}simgrid_units_main.c") { + 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 \n\n"; print OUT "#include \"xbt.h\"\n\n"; @@ -115,8 +134,10 @@ sub process_one($) { int main(int argc, char *argv[]) { xbt_test_suite_t suite; char selection[1024]; - int i;\n - int res;\n + int verbosity = 0; + int i; + int res; + /* SGU: BEGIN SUITES DECLARATION */ /* SGU: END SUITES DECLARATION */ @@ -128,19 +149,22 @@ int main(int argc, char *argv[]) { if (!strncmp(argv[i],\"--tests=\",strlen(\"--tests=\"))) { char *p=strchr(argv[i],'=')+1; if (selection[0] == '\\0') { - strcpy(selection, p); + strncpy(selection,p,1024); } else { - strcat(selection, \",\"); - strcat(selection, p); + strncat(selection, \",\",1); + strncat(selection, p, 1023); } - } else if (!strncmp(argv[i],\"--dump-only\",strlen(\"--dump-only\"))|| - !strncmp(argv[i],\"--dump\", strlen(\"--dump\"))) { + } else if (!strcmp(argv[i], \"--verbose\")) { + verbosity++; + } else if (!strcmp(argv[i], \"--dump-only\")|| + !strcmp(argv[i], \"--dump\")) { xbt_test_dump(selection); return 0; - } else if (!strncmp(argv[i],\"--help\",strlen(\"--help\"))) { + } else if (!strcmp(argv[i], \"--help\")) { printf( "Usage: testall [--help] [--tests=selection] [--dump-only]\\n\\n" "--help: display this help\\n" + "--verbose: print the name for each running test\\n" "--dump-only: don't run the tests, but display some debuging info about the tests\\n" "--tests=selection: Use argument to select which suites/units/tests to run\\n" " --tests can be used more than once, and selection may be a comma\\n" @@ -165,13 +189,13 @@ int main(int argc, char *argv[]) { } /* Got all my tests to do */ - res = xbt_test_run(selection); + res = xbt_test_run(selection, verbosity); xbt_test_exit(); return res; } EOF print OUT $GENERATED; - close OUT || die "$progname: Cannot close main file 'simgrid_units_main.c': $!\n"; + close OUT || die "$progname: Cannot close main file '${outdir}simgrid_units_main.c': $!\n"; } print " Suite $suite_name: $suite_title (".(scalar @tests)." tests)\n"; @@ -184,7 +208,7 @@ EOF # add this suite to the main my $newmain=""; - open IN,"simgrid_units_main.c" || die "$progname: Cannot open main file 'simgrid_units_main.c': $!\n"; + open IN,"${outdir}simgrid_units_main.c" || die "$progname: Cannot open main file '${outdir}simgrid_units_main.c': $!\n"; # search prototypes while () { $newmain .= $_; @@ -225,7 +249,7 @@ EOF last if /SGU: BEGIN SUITES DECLARATION/; } - ### Done with prototypes. And now, the actual code + ### Done with prototypes. And now, the actual code # search my prototype while () { @@ -258,12 +282,12 @@ EOF while () { $newmain .= $_; } - close IN || die "$progname: Cannot close main file 'simgrid_units_main.c': $!\n"; + close IN || die "$progname: Cannot close main file '${outdir}simgrid_units_main.c': $!\n"; # write it back to main - open OUT,">simgrid_units_main.c" || die "$progname: Cannot open main file 'simgrid_units_main.c': $!\n"; + open OUT,">${outdir}simgrid_units_main.c" || die "$progname: Cannot open main file '${outdir}simgrid_units_main.c': $!\n"; print OUT $newmain; - close OUT || die "$progname: Cannot close main file 'simgrid_units_main.c': $!\n"; + close OUT || die "$progname: Cannot close main file '${outdir}simgrid_units_main.c': $!\n"; } # end if process_one($) 0;