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
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
function [OutArg,SharedInfo] = GenOutArgNames(FunctionName,InArg,NInArg,OldOutArg,NOutArg,LhsArg,NLhsArg,FileInfo,SharedInfo)
// function [OutArg,SharedInfo] = GenOutArgNames(FunctionName,OutArg,NOutArg,LhsArg,NLhsArg,FileInfo,SharedInfo)
// -----------------------------------------------------------------
//#RNU_RES_B
// Generate the names for the temporary variables that store the
// output arguments.
//#RNU_RES_E
//
// Input data:
// //NUT: add description here
//
// Output data:
// OutArg: is the Output arguments structure containing the field
// name that specifies the output argument names.
// //NUT: add description here
//
// Status:
// 11-Apr-2007 -- Raffaele Nutricato: Author.
//
// Copyright 2007 Raffaele Nutricato.
// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
// ------------------------------
// --- Check input arguments. ---
// ------------------------------
SCI2CNInArgCheck(argn(2),9,9);
// -----------------------
// --- Initialization. ---
// -----------------------
nxtscifunname = SharedInfo.NextSCIFunName;
nxtscifunnumber = SharedInfo.NextSCIFunNumber;
ReportFileName = FileInfo.Funct(nxtscifunnumber).ReportFileName;
global SCI2CSTACK
global StackPosition;
global STACKDEDUG
// #RNU_RES_B
PrintStringInfo(' Generating Out Arg names.',ReportFileName,'file','y');
// #RNU_RES_E
OutArg = OldOutArg;
//#RNU_RES_B
// ---------------------------------------------------------------------------------------
// --- Generate the names for the temporary variables that store the output arguments. ---
// ---------------------------------------------------------------------------------------
// At this step only the name of the output arguments can be generated. ---
//#RNU_RES_E
if (FunctionName ~= 'OpLogGt' & FunctionName ~= 'OpLogLt' & FunctionName ~= 'OpLogGe' & FunctionName ~= 'OpLogLe' & FunctionName ~= 'OpLogNe' & FunctionName ~= 'OpLogEq')
if (NLhsArg > 0)
//#RNU_RES_B
// Use the equal Lhs names.
PrintStringInfo('Using Equal Lhs names.',ReportFileName,'file','y');
//#RNU_RES_E
if (NLhsArg ~= NOutArg)
error(9999, 'NLhsArg='+string(NLhsArg)+' must be equal to NOutArg='+string(NOutArg)+'.');
end
for counteroutputargs = 1:NOutArg
OutArg(counteroutputargs).Name=LhsArg(counteroutputargs).Name;
OutArg(counteroutputargs).Scope=LhsArg(counteroutputargs).Scope;
end
else
//#RNU_RES_B
// Generate temporary variables.
PrintStringInfo('Generating temporary variables.',ReportFileName,'file','y');
//#RNU_RES_E
if ((sum(mtlb_strcmp(FunctionName,SharedInfo.Annotations.DataPrec)) > 0) & ...
(SharedInfo.SkipNextPrec == 1))
//#RNU_RES_B
PrintStringInfo(' Skipping code generating because already generated in the previous function.',ReportFileName,'file','y');
//#RNU_RES_E
for counteroutputargs = 1:NOutArg
OutArg(counteroutputargs).Name = InArg(counteroutputargs).Name;
end
elseif (mtlb_strcmp(FunctionName,'OpEqual'))
// do nothing.
//NUT: verifica questa parte di codice. e' sicuro che se ho equal gli oldoutarg contengono gia' il nome?
else
for counteroutputargs = 1:NOutArg
if ((SharedInfo.ASTReader.EnableTempVarsReuse == 1) & ...
(length(SharedInfo.ASTReader.ReusableTempVars) > 0))
TmpOutArgName = strcat([SharedInfo.ASTReader.TempVarsName,string(SharedInfo.ASTReader.ReusableTempVars(1))]);
SharedInfo.ASTReader.ReusableTempVars = SharedInfo.ASTReader.ReusableTempVars(2:$);
else
SharedInfo.ASTReader.UsedTempVars = SharedInfo.ASTReader.UsedTempVars + 1;
TmpOutArgName = strcat([SharedInfo.ASTReader.TempVarsName,string(SharedInfo.ASTReader.UsedTempVars)]);
end
OutArg(counteroutputargs).Name=TmpOutArgName;
end
end
end
else
for counterinputargs = 1:NInArg
tmppushstack=InArg(counterinputargs).Name;
PrintStringInfo(' Pushing in the AST stack: ""'+tmppushstack+'"".',ReportFileName,'file','y');
AST_PushASTStack(tmppushstack);
if FunctionName=='OpLogGt'
AST_PushASTStack('>');
elseif FunctionName=='OpLogGe'
AST_PushASTStack('>=');
elseif FunctionName=='OpLogLt'
AST_PushASTStack('<');
elseif FunctionName=='OpLogLe'
AST_PushASTStack('<=');
elseif FunctionName=='OpLogEq'
AST_PushASTStack('==');
elseif FunctionName=='OpLogNe'
AST_PushASTStack('!=');
end
end
s = AST_PopASTStack();
PrintStringInfo(' Pushing in the AST stack: ""'+s+'"".',ReportFileName,'file','y');
end
endfunction
|
