1 files changed, 119 insertions, 0 deletions
diff --git a/2.3-1/macros/ASTManagement/Operator2FunName.sci b/2.3-1/macros/ASTManagement/Operator2FunName.sci
new file mode 100644
index 00000000..1aa934cb
--- /dev/null
+++ b/2.3-1/macros/ASTManagement/Operator2FunName.sci
@@ -0,0 +1,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