Updated Scilab2C

1 files changed, 107 insertions, 0 deletions

diff --git a/macros/ASTManagement/AST_ExtractNameAndScope.sci b/macros/ASTManagement/AST_ExtractNameAndScope.sci
new file mode 100644
index 00000000..1dbaaad7
--- /dev/null
+++ b/macros/ASTManagement/AST_ExtractNameAndScope.sci
@@ -0,0 +1,107 @@
+function [ArgName,ArgScope] = AST_ExtractNameAndScope(ASTField)
+// -----------------------------------------------------------------
+// //NUT: add description here
+//
+// Input data:
+// //NUT: add description here
+//
+// Output data:
+// //NUT: add description here
+//
+// Status:
+// 27-Dec-2007 -- Raffaele Nutricato: Author.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
+
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),1,1);
+
+// -----------------------
+// --- Initialization. ---
+// -----------------------
+ArgName  = '';
+ArgScope = '';
+
+cnttag = 0;
+cnttag = cnttag + 1; 
+tagname(cnttag)   = 'Number_';
+taglength(cnttag) = length(tagname(cnttag));
+
+cnttag = cnttag + 1; 
+tagname(cnttag)   = 'String:';
+taglength(cnttag) = length(tagname(cnttag));
+
+cnttag = cnttag + 1; 
+tagname(cnttag)   = 'Variable:';
+taglength(cnttag) = length(tagname(cnttag));
+
+cnttag = cnttag + 1; 
+tagname(cnttag)   = 'Global:';
+taglength(cnttag) = length(tagname(cnttag));
+
+cnttag = cnttag + 1; 
+tagname(cnttag)   = 'Local:';
+taglength(cnttag) = length(tagname(cnttag));
+
+cnttag = cnttag + 1; 
+tagname(cnttag)   = 'Temp:';
+taglength(cnttag) = length(tagname(cnttag));
+
+cnttag = cnttag + 1; 
+tagname(cnttag)   = '<empty>';
+taglength(cnttag) = length(tagname(cnttag));
+
+fieldlength  = length(ASTField);
+
+
+//NUT: il seguente codice e' poco elegante.
+if (SCI2Cstrncmps1size(tagname(1),ASTField))
+   // Here we can have:
+   // Number_x: it means default precision.
+   // Number_s: it means float real type.
+   // Number_d: it means double real type.
+   // Number_c: it means float complex type.
+   // Number_z: it means double complex type.
+  
+   // If ArgName is i, make it string
+   if(mtlb_strcmp(ASTField,"Number_x: i") == %T)
+      ArgName = stripblanks(part(ASTField,taglength(1)+3:fieldlength));
+      ArgScope = 'String';
+   else   
+      ArgName = stripblanks(part(ASTField,taglength(1)+3:fieldlength));
+      ArgScope = stripblanks(part(ASTField,1:taglength(1)+1));
+   end
+   
+elseif (SCI2Cstrncmps1size(tagname(2),ASTField))
+   ArgName = stripblanks(part(ASTField,taglength(2)+1:fieldlength));
+   ArgName = part(ArgName,2:length(ArgName)-1); // I remove also the first and the last " 
+   ArgScope = 'String';
+  
+elseif (SCI2Cstrncmps1size(tagname(3),ASTField))
+   ArgName  = stripblanks(part(ASTField,taglength(3)+1:fieldlength));
+   ArgScope = 'Variable';
+   
+elseif (SCI2Cstrncmps1size(tagname(4),ASTField))
+   ArgName  = stripblanks(part(ASTField,taglength(4)+1:fieldlength));
+   ArgScope = 'Global';
+   
+elseif (SCI2Cstrncmps1size(tagname(5),ASTField))
+   ArgName  = stripblanks(part(ASTField,taglength(5)+1:fieldlength));
+   ArgScope = 'Local';
+   
+elseif (SCI2Cstrncmps1size(tagname(6),ASTField))
+   ArgName  = stripblanks(part(ASTField,taglength(6)+1:fieldlength));
+   ArgScope = 'Temp';
+   
+elseif (SCI2Cstrncmps1size(tagname(7),ASTField))
+   ArgName  = '<empty>';
+   ArgScope = 'None';
+else
+   error(9999, 'Argument specifier not found in the AST field: '+ASTField);
+end
+
+endfunction