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
|
function FunNameCFuncList = FL_InOutArgs2CFunNames(FunctionName,CommaSepCFuncList,CFuncListNElem)
// function FunNameCFuncList = FL_InOutArgs2CFunNames(FunctionName,CommaSepCFuncList,CFuncListNElem)
// -----------------------------------------------------------------
// #RNU_RES_B
// Reads a Comma Separated Function List and converts it into the
// corresponding list of C function. In the Comma Separated
// Function List only input and output arguments are specified
// and they are separated by a comma.
// #RNU_RES_E
//
// Input data:
// //NUT: add description here
//
// Output data:
// //NUT: add description here
//
// Status:
// 05-Jan-2008 -- Nutricato Raffaele: Author.
//
// Copyright 2008 Raffaele Nutricato.
// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
// ------------------------------
// --- Check input arguments. ---
// ------------------------------
SCI2CNInArgCheck(argn(2),3,3);
FunNameCFuncList = '';
SepChar = ',';
for cntelem = 1:CFuncListNElem
tmptokens = tokens(CommaSepCFuncList(cntelem),SepChar);
if (size(tmptokens,1) == 0)
FunNameCFuncList(cntelem) = FunctionName;
elseif (size(tmptokens,1) == 1)
if part(tmptokens,1:1) == ','
FunNameCFuncList(cntelem) = FunctionName+tmptokens(2);
else
FunNameCFuncList(cntelem) = tmptokens(1)+FunctionName;
end
elseif (size(tmptokens,1) == 2)
FunNameCFuncList(cntelem) = tmptokens(1)+FunctionName+tmptokens(2);
else
disp('Incorrect format for the function list class.');
error(9999, 'Check the following function list class item: ""'+CommaSepCFuncList(cntelem)+'"".');
end
end
endfunction
|
