1// ============================================================================= 2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 3// Copyright (C) 2009 - DIGITEO 4// 5// This file is distributed under the same license as the Scilab package. 6// ============================================================================= 7 8// <-- CLI SHELL MODE --> 9 10[x,err] = fileinfo(SCI); 11if err <> 0 then pause,end 12if size(x,"*") <> 13 then pause,end 13 14[x,err] = fileinfo("My_file_not_exist"); 15if err == 0 then pause,end 16if x <> [] then pause,end 17 18ierr = execstr("fileinfo([SCI,SCIHOME])","errcatch"); 19if ierr <> 0 then pause,end 20 21FILES = [SCI;"My_file_not_exist";SCIHOME;TMPDIR]; 22[X,ERRS] = fileinfo(FILES); 23 24if or(isnan(X(1,:))) then pause,end 25if ~ and(isnan(X(2,:))) then pause,end 26if or(isnan(X(3,:))) then pause,end 27if or(isnan(X(4,:))) then pause,end 28 29if size(X(1,:),"*") <> 13 then pause,end 30if size(FILES,"*") <> size(ERRS,"*") then pause,end 31