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
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) ???? - INRIA - Scilab
//
// 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.1-en.txt
function str=mtlb_is(sto,sfrom,i,j)
//emulate the matlab syntax sto(i [,j])=sfrom for strings
[lhs,rhs]=argn()
[mto,nto]=size(sto)
// convert sto to a regular matrix
if type(sto)==10 then
if nto<>1 then error(msprintf(gettext("%s: Wrong size for input argument #%d: Matlab vector of strings expected.\n"),"mtlb_is",1)),end
if mto==1 then
lnto=length(sto)
sto=ascii(sto)
else
lnto=max(length(sto))
sto=matrix(ascii(part(sto,1:lnto)),lnto,mto)'
end
typeout=10
else
typeout=1
end
[mfrom,nfrom]=size(sfrom)
// convert sfrom to a regular matrix
if type(sfrom)==10 then
if nfrom<>1 then error(msprintf(gettext("%s: Wrong size for input argument #%d: Matlab vector of strings expected.\n"),"mtlb_is",2)),end
if mfrom==1 then
lnfrom=length(sfrom)
sfrom=ascii(sfrom)
else
lnfrom=max(length(sfrom))
sfrom=matrix(ascii(part(sfrom,1:lnfrom)),lnfrom,mfrom)'
end
end
//insert
if rhs==4 then
sto(i,j)=sfrom
else
sto(i)=sfrom
if sfrom==[] then sto=sto',end
end
if typeout==10 then
// convert back
str=[]
for k=1:size(sto,1)
str=[str;ascii(sto(k,:))]
end
end
endfunction
|
