Initial revision

diff --git a/Mac/Lib/test/ctbtest.py b/Mac/Lib/test/ctbtest.py
new file mode 100644 (file)
index 0000000..d6847d3
--- /dev/null
+++ b/Mac/Lib/test/ctbtest.py
@@ -0,0 +1,41 @@
+#
+# Simple test program for ctb module: emulate a terminal.
+#
+import ctb
+import macconsole
+import sys
+
+def cb(err):
+       print 'Done, err=', err
+
+def main():
+       if not ctb.available():
+               print 'Communications Toolbox not available'
+               sys.exit(1)
+#      c = macconsole.copen('Terminal window')
+       print 'Minimal terminal emulator V1.0'
+       print '(type @ to exit)'
+       print
+       c = macconsole.fopen(sys.stdin)
+       f = sys.stdin
+       c.setmode(macconsole.C_RAW)
+       
+       l = ctb.CMNew('Serial Tool', None)
+       l.Open(0)
+       
+       while 1:
+               l.Idle()
+               d = f.read(1)
+               if d == '@':
+                       break
+               if d:
+                       l.Write(d, ctb.cmData, -1, 0)
+               l.Idle()
+               d, dummy = l.Read(1000, ctb.cmData, 0)
+               if d:
+                       f.write(d)
+                       f.flush()
+       l.Close(-1, 1)
+       del l
+                       
+main()
\ No newline at end of file