xml2test : better management of the build path
[scilab.git] / 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
        # ==========================================================================