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
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
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;
<<<<<<< HEAD
global SCI2CSTACK
global StackPosition;
global STACKDEDUG
=======
>>>>>>> 9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0
// #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
<<<<<<< HEAD
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
=======
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
>>>>>>> 9e5793a7b05b23e6044a6d7a9ddd5db39ba375f0
endfunction
|
