1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) 2002-2004 - INRIA - Vincent COUVERT
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
function r=mtlb_exist(nam,wh)
// Emulation function for exist() Matlab function
[lhs,rhs]=argn(0)
fptr=funptr(nam)
r=0
if rhs==1 then
if fptr<>0 then
fptr=int(fptr/1000)
if fptr<=500 then
r=5
else
r=3
end
elseif exists(nam)==1 then
if type(nam)==11|type(nam)==13 then
r=2
else
r=1
end
end
else
select wh
case "var" then
if exists(nam)==1 then r=1,end
case "builtin" then
if fptr<>0 then
fptr=int(fptr/1000)
if fptr<=500 then
r=5
else
r=3
end
end
case "file" then
case "dir" then
end
end
endfunction
|
