summaryrefslogtreecommitdiff
path: root/2.3-1/macros/ASTManagement/%for_string.sci
diff options
context:
space:
mode:
Diffstat (limited to '2.3-1/macros/ASTManagement/%for_string.sci')
-rw-r--r--2.3-1/macros/ASTManagement/%for_string.sci15
1 files changed, 15 insertions, 0 deletions
diff --git a/2.3-1/macros/ASTManagement/%for_string.sci b/2.3-1/macros/ASTManagement/%for_string.sci
new file mode 100644
index 00000000..0ed9ca28
--- /dev/null
+++ b/2.3-1/macros/ASTManagement/%for_string.sci
@@ -0,0 +1,15 @@
+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)
+//NUT: raf cambiato ForExpression e ForStatements
+ txt=['For'
+ ' ForExpression:'
+ ' '+string(F.expression)
+ ' ForStatements:'
+ ' '+objectlist2string(F.statements)
+ 'EndFor']
+endfunction \ No newline at end of file