summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--macros/ASTManagement/%trycatch_string.sci14
1 files changed, 14 insertions, 0 deletions
diff --git a/macros/ASTManagement/%trycatch_string.sci b/macros/ASTManagement/%trycatch_string.sci
new file mode 100644
index 00000000..54441f75
--- /dev/null
+++ b/macros/ASTManagement/%trycatch_string.sci
@@ -0,0 +1,14 @@
+function txt=%trycatch_string(p)
+//overloading function for "trycatch" type tlist string function
+//
+//fields:
+// trystat : list('EOL') (the instructions list)
+// catchstat : list('EOL') (the instructions list on error)
+
+ txt=['Statements'
+ ' '+objectlist2string(p.trystat)
+ 'CatchStatements'
+ ' '+objectlist2string(p.catchstat)
+ 'EndProgram'
+ ]
+endfunction