1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2009 - DIGITEO - Allan CORNET
4//
5//  This file is distributed under the same license as the Scilab package.
6// =============================================================================
7// <-- CLI SHELL MODE -->
8this_file = pathconvert(TMPDIR+"/mputstr.txt",%F);
9fd = mopen(this_file,"wt");
10mputstr("Scilab",fd);
11mclose(fd);
12if mgetl(this_file) <> "Scilab" then bugmes();quit;end
13ierr = execstr('mputstr(""Scilab"",5)','errcatch');
14if ierr <> 999 then bugmes();quit;end
15