annotate 3rdparty/packages/uemacs/uetermio.c @ 1371:1ed7c47503e8

More changes
author boisy
date Fri, 26 Sep 2003 14:59:09 +0000
parents 48c646212b1c
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
995
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
1 /*
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
2 * The functions in this file negotiate with the operating system for
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
3 * characters, and write characters in a barely buffered fashion on the display.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
4 * All operating systems.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
5 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
6 #include <stdio.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
7 #include "ueed.h"
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
8
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
9 #ifdef AMIGA
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
10 #define NEW 1006
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
11 #define LEN 1
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
12
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
13 static long terminal;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
14 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
15
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
16 #ifdef VMS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
17 #include <stsdef.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
18 #include <ssdef.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
19 #include <descrip.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
20 #include <iodef.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
21 #include <ttdef.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
22
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
23 #define NIBUF 128 /* Input buffer size */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
24 #define NOBUF 1024 /* MM says bug buffers win! */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
25 #define EFN 0 /* Event flag */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
26
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
27
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
28 char obuf[NOBUF]; /* Output buffer */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
29 int nobuf; /* # of bytes in above */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
30 char ibuf[NIBUF]; /* Input buffer */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
31 int nibuf; /* # of bytes in above */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
32 int ibufi; /* Read index */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
33 int oldmode[2]; /* Old TTY mode bits */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
34 int newmode[2]; /* New TTY mode bits */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
35 short iochan; /* TTY I/O channel */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
36 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
37
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
38 #ifdef CPM
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
39 #include <bdos.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
40 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
41
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
42 #ifdef MSDOS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
43 #undef LATTICE
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
44 #include <dos.h>
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
45 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
46
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
47 #ifdef RAINBOW
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
48 #include "rainbow.h"
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
49 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
50
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
51 #ifdef V7
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
52 #include <sgtty.h> /* for stty/gtty functions */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
53
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
54 struct sgttyb ostate; /* saved tty state */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
55 struct sgttyb nstate; /* values for editor mode */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
56 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
57
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
58 #ifdef OS9
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
59 #include <sgstat.h> /* for stty/gtty functions */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
60 struct sgbuf ostate; /* saved tty state */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
61 struct sgbuf nstate; /* values for editor mode */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
62 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
63
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
64 #ifdef OSK
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
65 #include <sgstat.h> /* same as os9/6809 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
66 struct sgbuf ostate;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
67 struct sgbuf nstate;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
68 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
69
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
70 /*
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
71 * This function is called once to set up the terminal device streams.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
72 * On VMS, it translates SYS$INPUT until it finds the terminal, then assigns
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
73 * a channel to it and sets it raw. On CPM it is a no-op.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
74 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
75 ttopen()
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
76 {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
77 #ifdef AMIGA
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
78 terminal = Open("RAW:1/1/639/199/MicroEmacs", NEW);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
79 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
80 #ifdef VMS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
81 struct dsc$descriptor idsc;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
82 struct dsc$descriptor odsc;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
83 char oname[40];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
84 int iosb[2];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
85 int status;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
86
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
87 odsc.dsc$a_pointer = "SYS$INPUT";
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
88 odsc.dsc$w_length = strlen(odsc.dsc$a_pointer);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
89 odsc.dsc$b_dtype = DSC$K_DTYPE_T;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
90 odsc.dsc$b_class = DSC$K_CLASS_S;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
91 idsc.dsc$b_dtype = DSC$K_DTYPE_T;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
92 idsc.dsc$b_class = DSC$K_CLASS_S;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
93 do {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
94 idsc.dsc$a_pointer = odsc.dsc$a_pointer;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
95 idsc.dsc$w_length = odsc.dsc$w_length;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
96 odsc.dsc$a_pointer = &oname[0];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
97 odsc.dsc$w_length = sizeof(oname);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
98 status = LIB$SYS_TRNLOG(&idsc, &odsc.dsc$w_length, &odsc);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
99 if (status!=SS$_NORMAL && status!=SS$_NOTRAN)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
100 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
101 if (oname[0] == 0x1B) {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
102 odsc.dsc$a_pointer += 4;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
103 odsc.dsc$w_length -= 4;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
104 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
105 } while (status == SS$_NORMAL);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
106 status = SYS$ASSIGN(&odsc, &iochan, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
107 if (status != SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
108 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
109 status = SYS$QIOW(EFN, iochan, IO$_SENSEMODE, iosb, 0, 0,
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
110 oldmode, sizeof(oldmode), 0, 0, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
111 if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
112 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
113 newmode[0] = oldmode[0];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
114 newmode[1] = oldmode[1] | TT$M_PASSALL | TT$M_NOECHO;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
115 status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0,
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
116 newmode, sizeof(newmode), 0, 0, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
117 if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
118 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
119 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
120 #ifdef CPM
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
121 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
122 #ifdef MSDOS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
123 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
124 #ifdef V7
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
125 gtty(1, &ostate); /* save old state */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
126 gtty(1, &nstate); /* get base of new state */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
127 nstate.sg_flags |= RAW;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
128 nstate.sg_flags &= ~(ECHO|CRMOD); /* no echo for now... */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
129 stty(1, &nstate); /* set mode */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
130 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
131 #ifdef OS9
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
132 getstat(0, 0, &ostate); /* save old state */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
133 getstat(0, 0, &nstate); /* get base of new state *
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
134 /
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
135 nstate.sg_echo = 0; /* no echo for now... */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
136 nstate.sg_bellch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
137 nstate.sg_bsech = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
138 nstate.sg_kbach = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
139 nstate.sg_kbich = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
140 nstate.sg_psch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
141 nstate.sg_dulnch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
142 nstate.sg_rlnch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
143 nstate.sg_eofch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
144 nstate.sg_eorch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
145 nstate.sg_dlnch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
146 nstate.sg_bspch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
147 nstate.sg_pause = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
148 nstate.sg_alf = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
149 nstate.sg_backsp = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
150 setstat(0, 0, &nstate); /* set mode */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
151 stdin->_flag &= ~_SCF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
152 stdin->_flag |= _RBF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
153 stdout->_flag &= ~_SCF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
154 stdout->_flag |= _RBF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
155 setbuf(stdout,0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
156 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
157 #ifdef OSK
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
158 getstat(0, 0, &ostate); /* save old state */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
159 getstat(0, 0, &nstate); /* get base of new state *
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
160 /
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
161 nstate.sg_echo = 0; /* no echo for now... */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
162 nstate.sg_bellch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
163 nstate.sg_bsech = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
164 nstate.sg_kbach = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
165
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
166 nstate.sg_kbich = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
167 nstate.sg_psch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
168 nstate.sg_dulnch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
169 nstate.sg_rlnch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
170 nstate.sg_eofch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
171 nstate.sg_eorch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
172 nstate.sg_dlnch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
173 nstate.sg_bspch = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
174 nstate.sg_pause = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
175 nstate.sg_alf = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
176 nstate.sg_backsp = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
177 nstate.sg_xoff =0; /* new for OSK */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
178 nstate.sg_xon =0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
179 setstat(0, 0, &nstate); /* set mode */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
180 stdin->_flag &= ~_SCF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
181 stdin->_flag |= _RBF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
182 stdout->_flag &= ~_SCF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
183 stdout->_flag |= _RBF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
184 setbuf(stdout,0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
185 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
186 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
187
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
188 /*
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
189 * This function gets called just before we go back home to the command
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
190 * interpreter. On VMS it puts the terminal back in a reasonable state.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
191 * Another no-operation on CPM.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
192 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
193 ttclose()
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
194 {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
195 #ifdef AMIGA
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
196 Close(terminal);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
197 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
198 #ifdef VMS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
199 int status;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
200 int iosb[1];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
201
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
202 ttflush();
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
203 status = SYS$QIOW(EFN, iochan, IO$_SETMODE, iosb, 0, 0,
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
204 oldmode, sizeof(oldmode), 0, 0, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
205 if (status!=SS$_NORMAL || (iosb[0]&0xFFFF)!=SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
206 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
207 status = SYS$DASSGN(iochan);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
208 if (status != SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
209 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
210 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
211 #ifdef CPM
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
212 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
213 #ifdef MSDOS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
214 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
215 #ifdef V7
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
216 stty(1, &ostate);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
217 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
218 #ifdef OS9
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
219 setstat(0, 0, &ostate);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
220 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
221 #ifdef OSK
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
222 setstat(0, 0, &ostate);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
223 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
224 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
225
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
226 /*
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
227 * Write a character to the display. On VMS, terminal output is buffered, and
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
228 * we just put the characters in the big array, after checking for overflow.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
229 * On CPM terminal I/O unbuffered, so we just write the byte out. Ditto on
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
230 * MS-DOS (use the very very raw console output routine).
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
231 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
232 ttputc(c)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
233 char c;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
234 {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
235 #ifdef AMIGA
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
236 Write(terminal, &c, LEN);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
237 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
238 #ifdef VMS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
239 if (nobuf >= NOBUF)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
240 ttflush();
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
241 obuf[nobuf++] = c;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
242 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
243
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
244 #ifdef CPM
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
245 bios(BCONOUT, c, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
246 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
247
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
248 #ifdef MSDOS & CWC86
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
249 dosb(CONDIO, c, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
250 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
251
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
252 #ifdef RAINBOW
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
253 Put_Char(c); /* fast video */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
254 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
255
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
256 #ifdef V7
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
257 fputc(c, stdout);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
258 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
259 #ifdef OS9
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
260 putc(c, stdout);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
261 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
262 #ifdef OSK
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
263 putc(c, stdout);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
264 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
265 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
266
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
267 /*
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
268 * Flush terminal buffer. Does real work where the terminal output is buffered
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
269 * up. A no-operation on systems where byte at a time terminal I/O is done.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
270 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
271 ttflush()
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
272 {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
273 #ifdef AMIGA
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
274 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
275 #ifdef VMS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
276 int status;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
277 int iosb[2];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
278
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
279 status = SS$_NORMAL;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
280 if (nobuf != 0) {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
281 status = SYS$QIOW(EFN, iochan, IO$_WRITELBLK|IO$M_NOFORMAT,
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
282 iosb, 0, 0, obuf, nobuf, 0, 0, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
283 if (status == SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
284 status = iosb[0] & 0xFFFF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
285 nobuf = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
286 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
287 return (status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
288 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
289 #ifdef CPM
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
290 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
291 #ifdef MSDOS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
292 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
293 #ifdef V7
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
294 fflush(stdout);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
295 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
296 #ifdef OS9
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
297 fflush(stdout);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
298 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
299 #ifdef OSK
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
300 fflush(stdout);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
301 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
302 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
303
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
304 /*
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
305 * Read a character from the terminal, performing no editing and doing no echo
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
306 * at all. More complex in VMS that almost anyplace else, which figures. Very
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
307 * simple on CPM, because the system can do exactly what you want.
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
308 */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
309 ttgetc()
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
310 {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
311 #ifdef AMIGA
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
312 char ch;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
313
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
314 Read(terminal, &ch, LEN);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
315 return (int) ch;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
316 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
317 #ifdef VMS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
318 int status;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
319 int iosb[2];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
320 int term[2];
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
321
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
322 while (ibufi >= nibuf) {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
323 ibufi = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
324 term[0] = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
325 term[1] = 0;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
326 status = SYS$QIOW(EFN, iochan, IO$_READLBLK|IO$M_TIMED,
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
327 iosb, 0, 0, ibuf, NIBUF, 0, term, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
328 if (status != SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
329 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
330 status = iosb[0] & 0xFFFF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
331 if (status!=SS$_NORMAL && status!=SS$_TIMEOUT)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
332 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
333 nibuf = (iosb[0]>>16) + (iosb[1]>>16);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
334 if (nibuf == 0) {
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
335 status = SYS$QIOW(EFN, iochan, IO$_READLBLK,
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
336 iosb, 0, 0, ibuf, 1, 0, term, 0, 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
337 if (status != SS$_NORMAL
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
338 || (status = (iosb[0]&0xFFFF)) != SS$_NORMAL)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
339 exit(status);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
340 nibuf = (iosb[0]>>16) + (iosb[1]>>16);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
341 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
342 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
343 return (ibuf[ibufi++] & 0xFF); /* Allow multinational */
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
344 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
345
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
346 #ifdef CPM
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
347 return (biosb(BCONIN, 0, 0));
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
348 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
349
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
350 #ifdef RAINBOW
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
351 int Ch;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
352
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
353 while ((Ch = Read_Keyboard()) < 0);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
354
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
355 if ((Ch & Function_Key) == 0)
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
356 if (!((Ch & 0xFF) == 015 || (Ch & 0xFF) == 0177))
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
357 Ch &= 0xFF;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
358
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
359 return Ch;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
360 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
361
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
362 #ifdef MSDOS
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
363 #ifdef MWC86
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
364 return (dosb(CONRAW, 0, 0));
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
365 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
366 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
367
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
368 #ifdef V7
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
369 return(fgetc(stdin));
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
370 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
371 #ifdef OS9
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
372 char ch;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
373
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
374 read(0, &ch, 1);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
375 return((int)ch);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
376 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
377 #ifdef OSK
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
378 char ch;
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
379
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
380 read(0, &ch, 1);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
381 return((int)ch);
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
382 #endif
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
383 }
48c646212b1c 'microEMACS' for OS-9.
roug
parents:
diff changeset
384