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