1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
// =============================================================================
// 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 strrchr('Scilab','l') <> 'lab' then bugmes();quit;end
//===============================
if strrchr('Scilab',' ')<> '' then bugmes();quit;end
//===============================
STR = 'Scilab string module';
STR_MAT = [STR,STR;STR,STR];
if strrchr(STR_MAT,'l') <> ['le','le';'le','le'] then bugmes();quit;end
//===============================
REF = ['le','string module';'ring module','ab string module'];
if strrchr(STR_MAT,['l','s';'r','a']) <> REF then bugmes();quit;end
//===============================
STR_MAT = ["STR1","STR2";"STR3","STR4"];
if strrchr(STR_MAT,["1","2";"3","4"]) <> ["1","2";"3","4"] then bugmes();quit;end
//===============================
|
