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
|
function CINFO = CinfoI1AO1A(Pfx,FunctionName,Sfx,ArgType,InStr,OutStr);
// -----------------------------------------------------------------
// Returns the CINFO structure for elementary functions that work
// with one input and one output array arguments.
//
// Function name prefixes.
// FunPfx = [...
// "s",...
// "d",...
// "c",...
// "z"];
// Function name suffixes.
// FunSfx = [...
// "s",...
// "a",...
// "m"];
// Types of the function arguments.
// FunArgTypes = [...
// "float ",...
// "double ",...
// "floatComplex ",...
// "doubleComplex ",...
// "float* ",...
// "double* ",...
// "floatComplex* ",...
// "doubleComplex* ",...
// "int "];
//
// Status:
// 19-Mar-2006 -- Intelligente Fabio: Author.
// 19-Apr-2002 -- Nutricato Raffaele: Changed code into a function.
// -----------------------------------------------------------------
a = """"; // apex
b = " "; // blank
c = ","; // comma
so = "["; // square open
sc = "]"; // square close
CINFO.NAME = Pfx + FunctionName + Sfx;
CINFO.ARGLIST = ...
so+a+ArgType+a+c+ ...
InStr.Name+c+ ...
a+c+a+c+ ...
a+ArgType+a+c+ ...
OutStr.Name+c+ ...
a+c+a+c+ ...
a+"int "+a+c+ ...
"mtlb_num2str(prod(InArg(1).Size))"+sc;
CINFO.SIZE = Sfx;
CINFO.TYPE = Pfx;
CINFO.DIM = "O1Sz = I1Sz";
CINFO.NOut = 1;
endfunction
|
