blob: 2535e4adbeee9b0779424feca8c3dbc74cfd4613 (
plain)
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
|
function CFunCall = GetCFunCall(FunTree,FunName,InArg,OutArg);
// -----------------------------------------------------------------
// Returns the C function call.
//
// FunTree is the name of the tree passed as string. Ex.: 'SCI2CLib'.
// Status:
// 06-Apr-2006 -- Nutricato Raffaele: Author.
// -----------------------------------------------------------------
// ------------
// --- getf ---
// ------------
// ----------------
// --- End getf ---
// ----------------
NInputs = size(InArg,1);
NOutputs = size(OutArg,1);
// Generate the string to access the tree.
TreeAccessString = FunName;
for counterinput = 1:NInputs
if prod(InArg(counterinput).Size) == 1
TreeAccessString = TreeAccessString+".S";
else
TreeAccessString = TreeAccessString+".A";
end
if InArg(counterinput).Type == "s"
TreeAccessString = TreeAccessString+".R.F";
elseif InArg(counterinput).Type == "d"
TreeAccessString = TreeAccessString+".R.D";
elseif InArg(counterinput).Type == "c"
TreeAccessString = TreeAccessString+".C.F";
elseif InArg(counterinput).Type == "z"
TreeAccessString = TreeAccessString+".C.D";
else
error("Unknown input argument type");
end
end
CFunName = FunTree+"."+TreeAccessString+".CINFO("+mtlb_num2str(NOutputs)+").NAME";
CFunArgList = FunTree+"."+TreeAccessString+".CINFO("+mtlb_num2str(NOutputs)+").ARGLIST";
CFunCall = [eval(CFunName),"(",eval(eval(CFunArgList)),")"];
// CFunCall = [execstr(CFunName),"(",eval(eval(CFunArgList)),")"];
endfunction
|
