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
|
function FunName = Operator2FunName(OperatorName);
// -----------------------------------------------------------------
// Returns the function name corresponding to the input operator.
// From intmacr2tree.c we have:
// char *operators[]={"+","-","*",".*","*.",".*.","/","./","/.","./.",
// "\\",".\\","\\.",".\\.","^","==","<",">","<=",">=","~=",
// ":","rc","ins","ext","'","cc","|","&","~",".^",".'","cceol"};
// I also added "<>".
//
// Input data:
// //NUT: add description here
//
// Output data:
// //NUT: add description here
//
// Status:
// 29-May-2007 -- Nutricato Raffaele: Changed code into a function.
//
// Copyright 2007 Raffaele Nutricato.
// Contact: raffaele.nutricato@tiscali.it
// -----------------------------------------------------------------
//NUT: non e' inserito il "\" verifica come mai.
//NUT: il ".\" l'ho inserito io
// ------------------------------
// --- Check input arguments. ---
// ------------------------------
SCI2CNInArgCheck(argn(2),1,1);
FuncPrefix = 'Op';
FuncSuffix = '';
if (OperatorName == '+')
FunName = FuncPrefix+'Plus'+FuncSuffix;
elseif (OperatorName == '-')
FunName = FuncPrefix+'Minus'+FuncSuffix;
elseif (OperatorName == '*')
FunName = FuncPrefix+'Star'+FuncSuffix;
elseif (OperatorName == '.*')
FunName = FuncPrefix+'DotStar'+FuncSuffix;
elseif (OperatorName == '*.')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == '.*.')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == '/')
FunName = FuncPrefix+'Slash'+FuncSuffix;
elseif (OperatorName == './')
FunName = FuncPrefix+'DotSlash'+FuncSuffix;
elseif (OperatorName == '/.')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == './.')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == '.\')
FunName = FuncPrefix+'DotBackSlash'+FuncSuffix;
elseif (OperatorName == '\')
//PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
//SCI2Cerror(' ');
FunName = FuncPrefix+'BackSlash'+FuncSuffix;
elseif (OperatorName == '.\')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == '\.')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == '.\.')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
elseif (OperatorName == '^')
FunName = FuncPrefix+'Hat'+FuncSuffix;
elseif (OperatorName == '.^')
FunName = FuncPrefix+'DotHat'+FuncSuffix;
elseif (OperatorName == '''')
FunName = FuncPrefix+'Apex'+FuncSuffix;
elseif (OperatorName == '.''')
FunName = FuncPrefix+'DotApex'+FuncSuffix;
elseif (OperatorName == '==')
FunName = FuncPrefix+'LogEq'+FuncSuffix;
elseif (OperatorName == '<')
FunName = FuncPrefix+'LogLt'+FuncSuffix;
elseif (OperatorName == '>')
FunName = FuncPrefix+'LogGt'+FuncSuffix;
elseif (OperatorName == '<=')
FunName = FuncPrefix+'LogLe'+FuncSuffix;
elseif (OperatorName == '>=')
FunName = FuncPrefix+'LogGe'+FuncSuffix;
elseif (OperatorName == '~=')
FunName = FuncPrefix+'LogNe'+FuncSuffix;
elseif (OperatorName == '<>')
FunName = FuncPrefix+'LogNe'+FuncSuffix;
elseif (OperatorName == '|')
FunName = FuncPrefix+'LogOr'+FuncSuffix;
elseif (OperatorName == '&')
FunName = FuncPrefix+'LogAnd'+FuncSuffix;
elseif (OperatorName == '~')
FunName = FuncPrefix+'LogNot'+FuncSuffix;
elseif (OperatorName == ':')
FunName = FuncPrefix+'Colon'+FuncSuffix;
elseif (OperatorName == 'rc')
FunName = 'OpRc';
elseif (OperatorName == 'cc')
FunName = 'OpCc';
elseif (OperatorName == 'ins')
FunName = 'OpIns';
elseif (OperatorName == 'ext')
FunName = 'OpExt';
elseif (OperatorName == 'cceol')
PrintStringInfo('SCI2CERROR: Operator ""'+OperatorName+'"" not supported.','','stout','y');
error(9999, 'SCI2CERROR: Operator ""'+OperatorName+'"" not supported.');
else
PrintStringInfo('SCI2CERROR: Unknown Operator ""'+OperatorName+'.','','stout','y');
error(9999, 'SCI2CERROR: Unknown Operator ""'+OperatorName+'.');
end
endfunction
|
