// ============================================================================= // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab // Copyright (C) 2007-2008 - INRIA // // This file is distributed under the same license as the Scilab package. // ============================================================================= // <-- CLI SHELL MODE --> //=============================== if strspn('fcba73','fcb') <> 3 then bugmes();quit;end //=============================== if strspn('fcba73','f') <> 1 then bugmes();quit;end //=============================== if strspn('fcba73','') <> 0 then bugmes();quit;end //=============================== if strspn('129th','1234567890') <> 3 then bugmes();quit;end //=============================== STR1 = 'Scilab'; STR2 = 'The Numerical Tool for Engineers'; STR = [STR1,STR2;STR2,STR1]; if strspn(STR,'i') <> [ 0 , 0 ; 0 , 0] then bugmes();quit;end if strspn(STR,'The') <> [ 0 , 3 ; 3 , 0 ] then bugmes();quit;end if strspn(STR,['Sci','The';'u','a']) <> [ 3 , 3 ; 0 , 0 ] then bugmes();quit;end //=============================== STR1 = 'Scilab'; STR2 = 'The Numerical Tool for Engineers'; STR = [STR1,STR2]; if strspn(STR,['Scilab','Tool']) <> [ 6 , 1 ] then bugmes();quit;end //===============================