xml2test : better management of the build path
Pierre MARECHAL [Wed, 8 Jul 2009 16:05:22 +0000 (18:05 +0200)]
scilab/modules/development_tools/src/perl/xml2test/xml2test.pl

index 27198b8..8915f3e 100644 (file)
@@ -433,6 +433,12 @@ sub write_scilab_code
        my $tagsref = $_[1];
        my %tags    = %$tagsref;
        
+       # TMPDIR management
+       # ==========================================================================
+       
+       my $TMPDIR = basename($fileout);
+       $TMPDIR =~ s/\.tst$//g;
+       $TMPDIR = 'pathconvert(TMPDIR+"/'.$TMPDIR.'")';
        
        # table management (ilib_build 2nd input argument)
        # ==========================================================================
@@ -488,7 +494,8 @@ sub write_scilab_code
        # ==========================================================================
        
        print FILEOUT 'ilib_verbose(0);'."\n";
-       print FILEOUT 'cd TMPDIR;'."\n";
+       print FILEOUT 'mkdir('.$TMPDIR.');'."\n";
+       print FILEOUT 'cd('.$TMPDIR.');'."\n";
        print FILEOUT 'cflags = "-I"+SCI+"/modules/localization/includes";'."\n";
        
        print FILEOUT 'ilib_build(';
@@ -500,6 +507,7 @@ sub write_scilab_code
        print FILEOUT '"",';                      # ldflags
        print FILEOUT 'cflags);'."\n";            # cflags
        
+       print FILEOUT 'exec("loader.sce");'."\n";
        
        # Ecriture du code
        # ==========================================================================