From 1fd0dce8d72c4d5869ce5ff4025ac09af603bc0f Mon Sep 17 00:00:00 2001
From: siddhu8990
Date: Wed, 19 Apr 2017 14:57:49 +0530
Subject: Merged Shamik's work

---
 macros/ASTManagement/_while_string.sci | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 macros/ASTManagement/_while_string.sci

(limited to 'macros/ASTManagement/_while_string.sci')

diff --git a/macros/ASTManagement/_while_string.sci b/macros/ASTManagement/_while_string.sci
new file mode 100644
index 00000000..7d5e6223
--- /dev/null
+++ b/macros/ASTManagement/_while_string.sci
@@ -0,0 +1,14 @@
+function txt=%while_string(W)
+//overloading function for "while" 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
+//                           while instructions list)
+  txt=['While'
+       '  WhileExpression:'
+       '    '+string(W.expression)
+       '  WhileStatements:'
+       '    '+objectlist2string(W.statements)
+       'EndWhile']
+endfunction
-- 
cgit