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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
// Copyright (C) DIGITEO - 2008 - Allan CORNET
//
// 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 bok = mputl(str,fd)
[lhs,rhs]=argn();
if ~or(lhs ==[0 1]) then
error(999,msprintf(gettext("%s: Wrong number of output argument(s).\n"),'mputl'));
return
end
if rhs <> 2 then
error(999,msprintf(gettext("%s: Wrong number of input argument(s).\n"),'mputl'));
return
end
if type(str) <> 10 then
error(999,msprintf(gettext("%s: Wrong type for input argument: A string expected.\n"),'mputl'));
return
end
mn = size(str);
if ~or(mn == 1) then
error(999,msprintf(gettext("%s: Wrong size for input argument #%d: A 1-by-n or m-by-1 array expected.\n"),'mputl',1));
return
end
opened = %f;
if type(fd) == 10 then // file given by its path
opened = %t;
fil = fd;
[fd,ierr] = mopen(fil,'wt');
if ierr ~= 0 then
error(999,msprintf(gettext("%s: Cannot open file %s.\n"),'mputl',fil));
end
else // file given by its logical unit
opened = %f;
end
// checks that file is not read only
// units,typ,nams,mod,swap
[uk, tk, nk, mk, sk] = file(fd);
// READ ONLY MODE mk
if ( (mk >= 100) & (mk < 200) ) then
bok = %f;
return
end
mn = size(str,'*');
for i = 1:mn
try
mfprintf(fd, '%s\n',str(i));
catch
bok = %f;
return
end
end
if opened then mclose(fd),end
bok = %t;
endfunction
|
