2 files changed, 0 insertions, 195 deletions

diff --git a/src/Scilab2C/ASTGenerator/%program_p.sci b/src/Scilab2C/ASTGenerator/%program_p.sci
deleted file mode 100644
index 93e43a7a..00000000
--- a/src/Scilab2C/ASTGenerator/%program_p.sci
+++ /dev/null
@@ -1,153 +0,0 @@
-function %program_p(p)

-  //overloading function for "program" type tlist display

-  mprintf("%s\n",string(p))

-endfunction

-

-function txt=%program_string(p)

-//overloading function for "program" type tlist string function

-//main (root) node of the Abstract Formal Tree

-//fields: 

-//      name      : string (the function name)

-//      outputs   : list of "variable" type tlist (the output arg names)

-//      inputs    : list of "variable" type tlist (the intput arg names)

-//      statements: list of "equal" type tlist and list('EOL') (the

-//                           instructions list)

-//      nblines   : number (the number of lines in the scilab function)

-  txt=['Program'

-       'Name   : '+p.name

-       'Outputs: '+strcat(objectlist2string(p.outputs),' ')

-       'Inputs : '+strcat(objectlist2string(p.inputs),' ')

-       'Statements '

-       '    '+objectlist2string(p.statements)

-       'EndProgram'

-      ]

-endfunction

-

-

-function txt=%equal_string(e)

-//overloading function for "equal" type tlist string function

-//this is a node of the AST

-

-//fields:

-//   expression: "expression" type tlist (the right hand side)

-//   lhs       : list of "variable" type tlist and "operation" type tlist //   (the assignment)

-//   endsymbol : string (the orginal end-of-instruction symbol (, ; <CR>))

-  txt=['Equal'

-       '  Expression: '

-       '    '+string(e.expression)

-       '  Lhs       : '

-       '     '+objectlist2string(e.lhs)

-       'EndEqual'

-      ]

-endfunction

-

-

-function txt=%for_string(F)

-//overloading function for "for" type tlist string function

-//this is a node of the AST

-//fields:  

-//   expression : "expression" type tlist (the loop expression)

-//   statements : list of "equal" type tlist and list('EOL') (the

-//                           for instructions list)

-  txt=['For'

-       '  Expression:'

-       '    '+string(F.expression)

-       '  Statements:'

-       '    '+objectlist2string(F.statements)

-       'EndFor']

-endfunction

-

-function txt=%ifthenel_string(I)

-//overloading function for "ifthenel" type tlist string function

-//this is a node of the AST

-//fields:  

-//    expression  : "expression" type tlist (the if expression)

-//    then        : list of "equal" type tlist and list('EOL') (the

-//                           then instructions list)

-//    elseifs     : a list of tlists

-//    else        : list of "equal" type tlist and list('EOL') (the

-//                           else instructions list)

-  txt=['If '

-       '  Expression:' 

-       '     '+string(I.expression)

-       '  If Statements'

-       '    '+objectlist2string(I.then)]

-  for e=I.elseifs

-    txt=[txt;

-	 "  Else If Expression'

-	 '     '+string(e.expression)

-	 '  Else If Statements'

-       '    '+objectlist2string(e.then)]

-  end

-  txt=[txt;

-       "  Else Statements'

-       '    '+objectlist2string(I.else)

-       'EndIf']

-endfunction

-

-function txt=%operatio_string(O)

-//overloading function for "operation" type tlist string function

-//this is a node of the AST

-//fields:   

-//     operands: a list

-//     operator: a string

-  txt=['Operation'

-       '   Operands:'

-       '      '+objectlist2string(O.operands)

-       '   Operator: '+O.operator

-       'EndOperation'

-      ]

-endfunction

-

-function txt=%funcall_string(F)

-//overloading function for "funcall" type tlist string function

-//this is a node of the AST

-//fields:     

-//    rhs  : a list

-//    name : string, the name of the function

-//    lhsnb: number, the number of function lhs

-

-txt=['Funcall  : '+F.name

-     '  #lhs   : '+string(F.lhsnb)

-     '  Rhs    : '

-     '      '+objectlist2string(F.rhs)

-     'EndFuncall'

-    ]

-endfunction

-

-function txt=%variable_string(v)

-//overloading function for "variable" type tlist string function

-//fields: name  

-//this is a leaf of the AST

-  txt=v.name

-endfunction

-

-function txt=%cste_string(c)

-//overloading function for "cste" type tlist string function

-//this is a leaf of the AST

-//fields: 

-//    value : a number or a string

-  txt=string(c.value)

-endfunction

-

-function txt=%comment_string(e)

-//overloading function for "comment" type tlist string function

-//fields:

-//  text: a string

-//this is a leaf of the AST

-  txt=['Comment : '+e.text]

-endfunction

-

-function txt=objectlist2string(L)

-//auxiliary function for conversion of a list of objects

-//into a string vector

-  txt=[];

-  for o=L,

-    if type(o)==15 then //EOL case

-      txt=[txt;'<'+o(1)+'>'],

-    else

-      txt=[txt; string(o)],

-    end

-  end

-  if txt==[] then txt='<empty>',end

-endfunction

diff --git a/src/Scilab2C/ASTGenerator/GetASTFile.sci b/src/Scilab2C/ASTGenerator/GetASTFile.sci
deleted file mode 100644
index 3c9b4f48..00000000
--- a/src/Scilab2C/ASTGenerator/GetASTFile.sci
+++ /dev/null
@@ -1,42 +0,0 @@
-function GetASTFile(FileInfoDatFile);

-// function GetASTFile(FileInfoDatFile);

-// -----------------------------------------------------------------

-// Generates the AST file starting from the .sci file specified

-// in SharedInfo.Next(1).SCIFileName.

-//

-// Input data:

-// FileInfoDatFile: name of the .dat file containing the FileInfo structure.

-// SharedInfoDatFile: it is a buffer containing parameters that are exchanged by the

-//                   functions of the SCI2C tool.

-//

-// Output data:

-//

-// Status:

-// 11-Apr-2007 -- Nutricato Raffaele: Author.

-// -----------------------------------------------------------------

-

-// ---------------------------------

-// --- Load File Info Structure. ---

-// ---------------------------------

-load(FileInfoDatFile,'FileInfo');

-

-// -----------------------------------

-// --- Load Shared Info Structure. ---

-// -----------------------------------

-load(FileInfo.SharedInfoDatFile,'SharedInfo');

-

-// Extraction of the function name and number.

-funname   = SharedInfo.Next(1).SCIFunName;

-funnumber = SharedInfo.NextSCIFunNumber;

-

-PrintStepInfo('Generate the AST in '+FileInfo.Funct(funnumber).ASTFileName,...

-   FileInfo.GeneralReport,'both');

-

-// --- Generation of the AST file. ---

-SciFile2ASTFile(FileInfo.Funct(funnumber).SCIFileName,...

-   FileInfo.Funct(funnumber).ASTFileName);

-

-// --- Save File Info Structure. ---

-// save(FileInfoDatFile,FileInfo);

-

-endfunction