Mercurial > cpython-lru_cache-weakref
annotate Mac/Lib/test/ctbtest.py @ 5817:48b94de85bf3 legacy-trunk
Extensive changes by AMK.
| author | Guido van Rossum <guido@python.org> |
|---|---|
| date | Thu, 17 Jul 1997 16:29:42 +0000 |
| parents | 8f6cc717d817 |
| children | 42b2f1936254 |
| rev | line source |
|---|---|
| 2492 | 1 # |
| 2 # Simple test program for ctb module: emulate a terminal. | |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
3 # To simplify matters use the python console window for output. |
| 2492 | 4 # |
| 5 import ctb | |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
6 import Evt |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
7 import Events |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
8 import MacOS |
| 2492 | 9 import sys |
| 10 | |
| 11 def cb(err): | |
| 12 print 'Done, err=', err | |
| 13 | |
| 14 def main(): | |
| 15 if not ctb.available(): | |
| 16 print 'Communications Toolbox not available' | |
| 17 sys.exit(1) | |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
18 # Disable Python's event processing (we do that) |
|
5733
8f6cc717d817
Replaced MacOS.EnableAppswitch by MacOS.SchedParams
Jack Jansen <jack.jansen@cwi.nl>
parents:
5256
diff
changeset
|
19 MacOS.SchedParams(1, 0) |
| 2492 | 20 print 'Minimal terminal emulator V1.0' |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
21 print '(type command-Q to exit)' |
| 2492 | 22 print |
| 23 | |
| 24 l = ctb.CMNew('Serial Tool', None) | |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
25 l.Open(10) |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
26 l.SetConfig(l.GetConfig() + ' baud 4800') |
| 2492 | 27 |
| 28 while 1: | |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
29 l.Idle() # Give time to ctb |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
30 |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
31 ok, evt = Evt.WaitNextEvent(0xffff, 0) |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
32 if ok: |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
33 what, message, when, where, modifiers = evt |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
34 |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
35 if what == Events.keyDown: |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
36 # It is ours. Check for command-. to terminate |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
37 ch = chr(message & Events.charCodeMask) |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
38 if ch == 'q' and (modifiers & Events.cmdKey): |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
39 break |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
40 l.Write(ch, ctb.cmData, -1, 0) |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
41 d, dummy = l.Read(1000, ctb.cmData, 1) |
| 2492 | 42 if d: |
|
5256
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
43 for ch in d: |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
44 if ch != '\r': |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
45 sys.stdout.write(ch) |
|
71694a171324
Still not a real test, but at least it runs again
Jack Jansen <jack.jansen@cwi.nl>
parents:
3301
diff
changeset
|
46 sys.stdout.flush() |
| 2492 | 47 l.Close(-1, 1) |
| 48 del l | |
| 49 | |
| 3301 | 50 main() |