Updated testsystem. Added test suites. Added Autostart tests. Autotester with T32.

[arc.git] / tools / t32 / term.cmm

diff --git a/tools/t32/term.cmm b/tools/t32/term.cmm
index 6bf684c2c8524178d8f551c84f670985204295cd..749aeaa583056e05f2b174b24b1fab5a116ccb9d 100644 (file)
--- a/tools/t32/term.cmm
+++ b/tools/t32/term.cmm
@@ -1,5 +1,12 @@
+// Manage T32 terminal   \r
+// \r
+// args\r
+//   1 - file, if non-empty output is also written to this file.\r
+\r
+LOCAL &file\r
+ENtry &file\r
 winclear my_term\r
-WinPOS 60% 0% 50% 30. 1. 1. my_term\r
+WinPOS 50% 50% 50% 50% 1. 1. my_term\r
 term.size 80. 300.\r
 term.scroll on\r
 term.mode ASCII\r
@@ -12,7 +19,8 @@ IF CPUFAMILY()=="ARM"
 ELSE\r
 (\r
   term.view e:address.offset(v.address(t32_outport)) e:0\r
-  term.write e:address.offset(v.address(t32_outport))  hoppsan.log \r
+  IF "&file"!=""\r
+    term.write e:address.offset(v.address(t32_outport)) "&file"\r
 )\r
 \r
 enddo\r
@@ -25,3 +33,5 @@ enddo
 \r
 \r
 \r
+\r
+\r