Commit | Line | Data |
---|---|---|
cc61049c AC |
1 | /* OBSOLETE /* Remote serial interface for local (hardwired) serial ports for Macintosh. */ |
2 | /* OBSOLETE Copyright 1994, 1995, 1996, 1998, 2000 Free Software Foundation, Inc. */ | |
3 | /* OBSOLETE Contributed by Cygnus Support. Written by Stan Shebs. */ | |
4 | /* OBSOLETE */ | |
5 | /* OBSOLETE This file is part of GDB. */ | |
6 | /* OBSOLETE */ | |
7 | /* OBSOLETE This program is free software; you can redistribute it and/or modify */ | |
8 | /* OBSOLETE it under the terms of the GNU General Public License as published by */ | |
9 | /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */ | |
10 | /* OBSOLETE (at your option) any later version. */ | |
11 | /* OBSOLETE */ | |
12 | /* OBSOLETE This program is distributed in the hope that it will be useful, */ | |
13 | /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */ | |
14 | /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ | |
15 | /* OBSOLETE GNU General Public License for more details. */ | |
16 | /* OBSOLETE */ | |
17 | /* OBSOLETE You should have received a copy of the GNU General Public License */ | |
18 | /* OBSOLETE along with this program; if not, write to the Free Software */ | |
19 | /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */ | |
20 | /* OBSOLETE Boston, MA 02111-1307, USA. */ */ | |
21 | /* OBSOLETE */ | |
22 | /* OBSOLETE #include "defs.h" */ | |
23 | /* OBSOLETE #include "serial.h" */ | |
24 | /* OBSOLETE */ | |
25 | /* OBSOLETE #include <Types.h> */ | |
26 | /* OBSOLETE #include <Devices.h> */ | |
27 | /* OBSOLETE /* This is the regular Mac Serial.h, but copied to a different name */ | |
28 | /* OBSOLETE so as not to get confused with the GDB serial.h above. */ */ | |
29 | /* OBSOLETE #include "MacSerial.h" */ | |
30 | /* OBSOLETE */ | |
31 | /* OBSOLETE /* This is unused for now. We just return a placeholder. */ */ | |
32 | /* OBSOLETE */ | |
33 | /* OBSOLETE struct mac_ttystate */ | |
34 | /* OBSOLETE { */ | |
35 | /* OBSOLETE int bogus; */ | |
36 | /* OBSOLETE }; */ | |
37 | /* OBSOLETE */ | |
38 | /* OBSOLETE static int mac_open (serial_t scb, const char *name); */ | |
39 | /* OBSOLETE static void mac_raw (serial_t scb); */ | |
40 | /* OBSOLETE static int mac_readchar (serial_t scb, int timeout); */ | |
41 | /* OBSOLETE static int mac_setbaudrate (serial_t scb, int rate); */ | |
42 | /* OBSOLETE static int mac_write (serial_t scb, const char *str, int len); */ | |
43 | /* OBSOLETE static void mac_close (serial_t scb); */ | |
44 | /* OBSOLETE static serial_ttystate mac_get_tty_state (serial_t scb); */ | |
45 | /* OBSOLETE static int mac_set_tty_state (serial_t scb, serial_ttystate state); */ | |
46 | /* OBSOLETE static char *aptr (short p); */ | |
47 | /* OBSOLETE */ | |
48 | /* OBSOLETE short input_refnum; */ | |
49 | /* OBSOLETE short output_refnum; */ | |
50 | /* OBSOLETE */ | |
51 | /* OBSOLETE char *mac_input_buffer; */ | |
52 | /* OBSOLETE char *mac_output_buffer; */ | |
53 | /* OBSOLETE */ | |
54 | /* OBSOLETE static int */ | |
55 | /* OBSOLETE mac_open (serial_t scb, const char *name) */ | |
56 | /* OBSOLETE { */ | |
57 | /* OBSOLETE OSErr err; */ | |
58 | /* OBSOLETE */ | |
59 | /* OBSOLETE /* Alloc buffer space first - that way any allocation failures are */ | |
60 | /* OBSOLETE intercepted before the serial driver gets involved. */ */ | |
61 | /* OBSOLETE if (mac_input_buffer == NULL) */ | |
62 | /* OBSOLETE mac_input_buffer = (char *) xmalloc (4096); */ | |
63 | /* OBSOLETE /* Match on a name and open a port. */ */ | |
64 | /* OBSOLETE if (strcmp (name, "modem") == 0) */ | |
65 | /* OBSOLETE { */ | |
66 | /* OBSOLETE err = OpenDriver ("\p.AIn", &input_refnum); */ | |
67 | /* OBSOLETE if (err != 0) */ | |
68 | /* OBSOLETE { */ | |
69 | /* OBSOLETE return (-1); */ | |
70 | /* OBSOLETE } */ | |
71 | /* OBSOLETE err = OpenDriver ("\p.AOut", &output_refnum); */ | |
72 | /* OBSOLETE if (err != 0) */ | |
73 | /* OBSOLETE { */ | |
74 | /* OBSOLETE CloseDriver (input_refnum); */ | |
75 | /* OBSOLETE return (-1); */ | |
76 | /* OBSOLETE } */ | |
77 | /* OBSOLETE } */ | |
78 | /* OBSOLETE else if (strcmp (name, "printer") == 0) */ | |
79 | /* OBSOLETE { */ | |
80 | /* OBSOLETE err = OpenDriver ("\p.BIn", &input_refnum); */ | |
81 | /* OBSOLETE if (err != 0) */ | |
82 | /* OBSOLETE { */ | |
83 | /* OBSOLETE return (-1); */ | |
84 | /* OBSOLETE } */ | |
85 | /* OBSOLETE err = OpenDriver ("\p.BOut", &output_refnum); */ | |
86 | /* OBSOLETE if (err != 0) */ | |
87 | /* OBSOLETE { */ | |
88 | /* OBSOLETE CloseDriver (input_refnum); */ | |
89 | /* OBSOLETE return (-1); */ | |
90 | /* OBSOLETE } */ | |
91 | /* OBSOLETE /* fake */ */ | |
92 | /* OBSOLETE scb->fd = 1; */ | |
93 | /* OBSOLETE return 0; */ | |
94 | /* OBSOLETE } */ | |
95 | /* OBSOLETE else */ | |
96 | /* OBSOLETE { */ | |
97 | /* OBSOLETE error ("You must specify a valid serial port name; your choices are `modem' or `printer'."); */ | |
98 | /* OBSOLETE errno = ENOENT; */ | |
99 | /* OBSOLETE return (-1); */ | |
100 | /* OBSOLETE } */ | |
101 | /* OBSOLETE /* We got something open. */ */ | |
102 | /* OBSOLETE if (1 /* using custom buffer */ ) */ | |
103 | /* OBSOLETE SerSetBuf (input_refnum, mac_input_buffer, 4096); */ | |
104 | /* OBSOLETE /* Set to a GDB-preferred state. */ */ | |
105 | /* OBSOLETE SerReset (input_refnum, stop10 | noParity | data8 | baud9600); */ | |
106 | /* OBSOLETE SerReset (output_refnum, stop10 | noParity | data8 | baud9600); */ | |
107 | /* OBSOLETE { */ | |
108 | /* OBSOLETE CntrlParam cb; */ | |
109 | /* OBSOLETE struct SerShk *handshake; */ | |
110 | /* OBSOLETE */ | |
111 | /* OBSOLETE cb.ioCRefNum = output_refnum; */ | |
112 | /* OBSOLETE cb.csCode = 14; */ | |
113 | /* OBSOLETE handshake = (struct SerShk *) &cb.csParam[0]; */ | |
114 | /* OBSOLETE handshake->fXOn = 0; */ | |
115 | /* OBSOLETE handshake->fCTS = 0; */ | |
116 | /* OBSOLETE handshake->xOn = 0; */ | |
117 | /* OBSOLETE handshake->xOff = 0; */ | |
118 | /* OBSOLETE handshake->errs = 0; */ | |
119 | /* OBSOLETE handshake->evts = 0; */ | |
120 | /* OBSOLETE handshake->fInX = 0; */ | |
121 | /* OBSOLETE handshake->fDTR = 0; */ | |
122 | /* OBSOLETE err = PBControl ((ParmBlkPtr) & cb, 0); */ | |
123 | /* OBSOLETE if (err < 0) */ | |
124 | /* OBSOLETE return (-1); */ | |
125 | /* OBSOLETE } */ | |
126 | /* OBSOLETE /* fake */ */ | |
127 | /* OBSOLETE scb->fd = 1; */ | |
128 | /* OBSOLETE return 0; */ | |
129 | /* OBSOLETE } */ | |
130 | /* OBSOLETE */ | |
131 | /* OBSOLETE static int */ | |
132 | /* OBSOLETE mac_noop (serial_t scb) */ | |
133 | /* OBSOLETE { */ | |
134 | /* OBSOLETE return 0; */ | |
135 | /* OBSOLETE } */ | |
136 | /* OBSOLETE */ | |
137 | /* OBSOLETE static void */ | |
138 | /* OBSOLETE mac_raw (serial_t scb) */ | |
139 | /* OBSOLETE { */ | |
140 | /* OBSOLETE /* Always effectively in raw mode. */ */ | |
141 | /* OBSOLETE } */ | |
142 | /* OBSOLETE */ | |
143 | /* OBSOLETE /* Read a character with user-specified timeout. TIMEOUT is number of seconds */ | |
144 | /* OBSOLETE to wait, or -1 to wait forever. Use timeout of 0 to effect a poll. Returns */ | |
145 | /* OBSOLETE char if successful. Returns -2 if timeout expired, EOF if line dropped */ | |
146 | /* OBSOLETE dead, or -3 for any other error (see errno in that case). */ */ | |
147 | /* OBSOLETE */ | |
148 | /* OBSOLETE static int */ | |
149 | /* OBSOLETE mac_readchar (serial_t scb, int timeout) */ | |
150 | /* OBSOLETE { */ | |
151 | /* OBSOLETE int status, n; */ | |
152 | /* OBSOLETE /* time_t */ unsigned long start_time, now; */ | |
153 | /* OBSOLETE OSErr err; */ | |
154 | /* OBSOLETE CntrlParam cb; */ | |
155 | /* OBSOLETE IOParam pb; */ | |
156 | /* OBSOLETE */ | |
157 | /* OBSOLETE if (scb->bufcnt-- > 0) */ | |
158 | /* OBSOLETE return *scb->bufp++; */ | |
159 | /* OBSOLETE */ | |
160 | /* OBSOLETE time (&start_time); */ | |
161 | /* OBSOLETE */ | |
162 | /* OBSOLETE while (1) */ | |
163 | /* OBSOLETE { */ | |
164 | /* OBSOLETE cb.ioCRefNum = input_refnum; */ | |
165 | /* OBSOLETE cb.csCode = 2; */ | |
166 | /* OBSOLETE err = PBStatus ((ParmBlkPtr) & cb, 0); */ | |
167 | /* OBSOLETE if (err < 0) */ | |
168 | /* OBSOLETE return SERIAL_ERROR; */ | |
169 | /* OBSOLETE n = *((long *) &cb.csParam[0]); */ | |
170 | /* OBSOLETE if (n > 0) */ | |
171 | /* OBSOLETE { */ | |
172 | /* OBSOLETE pb.ioRefNum = input_refnum; */ | |
173 | /* OBSOLETE pb.ioBuffer = (Ptr) (scb->buf); */ | |
174 | /* OBSOLETE pb.ioReqCount = (n > 64 ? 64 : n); */ | |
175 | /* OBSOLETE err = PBRead ((ParmBlkPtr) & pb, 0); */ | |
176 | /* OBSOLETE if (err < 0) */ | |
177 | /* OBSOLETE return SERIAL_ERROR; */ | |
178 | /* OBSOLETE scb->bufcnt = pb.ioReqCount; */ | |
179 | /* OBSOLETE scb->bufcnt--; */ | |
180 | /* OBSOLETE scb->bufp = scb->buf; */ | |
181 | /* OBSOLETE return *scb->bufp++; */ | |
182 | /* OBSOLETE } */ | |
183 | /* OBSOLETE else if (timeout == 0) */ | |
184 | /* OBSOLETE return SERIAL_TIMEOUT; */ | |
185 | /* OBSOLETE else if (timeout == -1) */ | |
186 | /* OBSOLETE ; */ | |
187 | /* OBSOLETE else */ | |
188 | /* OBSOLETE { */ | |
189 | /* OBSOLETE time (&now); */ | |
190 | /* OBSOLETE if (now > start_time + timeout) */ | |
191 | /* OBSOLETE return SERIAL_TIMEOUT; */ | |
192 | /* OBSOLETE } */ | |
193 | /* OBSOLETE PROGRESS (1); */ | |
194 | /* OBSOLETE } */ | |
195 | /* OBSOLETE } */ | |
196 | /* OBSOLETE */ | |
197 | /* OBSOLETE /* mac_{get set}_tty_state() are both dummys to fill out the function */ | |
198 | /* OBSOLETE vector. Someday, they may do something real... */ */ | |
199 | /* OBSOLETE */ | |
200 | /* OBSOLETE static serial_ttystate */ | |
201 | /* OBSOLETE mac_get_tty_state (serial_t scb) */ | |
202 | /* OBSOLETE { */ | |
203 | /* OBSOLETE struct mac_ttystate *state; */ | |
204 | /* OBSOLETE */ | |
205 | /* OBSOLETE state = (struct mac_ttystate *) xmalloc (sizeof *state); */ | |
206 | /* OBSOLETE */ | |
207 | /* OBSOLETE return (serial_ttystate) state; */ | |
208 | /* OBSOLETE } */ | |
209 | /* OBSOLETE */ | |
210 | /* OBSOLETE static int */ | |
211 | /* OBSOLETE mac_set_tty_state (serial_t scb, serial_ttystate ttystate) */ | |
212 | /* OBSOLETE { */ | |
213 | /* OBSOLETE return 0; */ | |
214 | /* OBSOLETE } */ | |
215 | /* OBSOLETE */ | |
216 | /* OBSOLETE static int */ | |
217 | /* OBSOLETE mac_noflush_set_tty_state (serial_t scb, serial_ttystate new_ttystate, */ | |
218 | /* OBSOLETE serial_ttystate old_ttystate) */ | |
219 | /* OBSOLETE { */ | |
220 | /* OBSOLETE return 0; */ | |
221 | /* OBSOLETE } */ | |
222 | /* OBSOLETE */ | |
223 | /* OBSOLETE static void */ | |
224 | /* OBSOLETE mac_print_tty_state (serial_t scb, */ | |
225 | /* OBSOLETE serial_ttystate ttystate, */ | |
226 | /* OBSOLETE struct ui_file *stream) */ | |
227 | /* OBSOLETE { */ | |
228 | /* OBSOLETE /* Nothing to print. */ */ | |
229 | /* OBSOLETE return; */ | |
230 | /* OBSOLETE } */ | |
231 | /* OBSOLETE */ | |
232 | /* OBSOLETE /* If there is a tricky formula to relate real baud rates */ | |
233 | /* OBSOLETE to what the serial driver wants, we should use it. Until */ | |
234 | /* OBSOLETE we get one, this table will have to do. */ */ | |
235 | /* OBSOLETE */ | |
236 | /* OBSOLETE static struct */ | |
237 | /* OBSOLETE { */ | |
238 | /* OBSOLETE int real_rate; */ | |
239 | /* OBSOLETE int bits; */ | |
240 | /* OBSOLETE } */ | |
241 | /* OBSOLETE mac_baud_rate_table[] = */ | |
242 | /* OBSOLETE { */ | |
243 | /* OBSOLETE { */ | |
244 | /* OBSOLETE 57600, baud57600 */ | |
245 | /* OBSOLETE } */ | |
246 | /* OBSOLETE , */ | |
247 | /* OBSOLETE { */ | |
248 | /* OBSOLETE 38400, 1 */ | |
249 | /* OBSOLETE } */ | |
250 | /* OBSOLETE , */ | |
251 | /* OBSOLETE { */ | |
252 | /* OBSOLETE 19200, baud19200 */ | |
253 | /* OBSOLETE } */ | |
254 | /* OBSOLETE , */ | |
255 | /* OBSOLETE { */ | |
256 | /* OBSOLETE 9600, baud9600 */ | |
257 | /* OBSOLETE } */ | |
258 | /* OBSOLETE , */ | |
259 | /* OBSOLETE { */ | |
260 | /* OBSOLETE 7200, baud7200 */ | |
261 | /* OBSOLETE } */ | |
262 | /* OBSOLETE , */ | |
263 | /* OBSOLETE { */ | |
264 | /* OBSOLETE 4800, baud4800 */ | |
265 | /* OBSOLETE } */ | |
266 | /* OBSOLETE , */ | |
267 | /* OBSOLETE { */ | |
268 | /* OBSOLETE 3600, baud3600 */ | |
269 | /* OBSOLETE } */ | |
270 | /* OBSOLETE , */ | |
271 | /* OBSOLETE { */ | |
272 | /* OBSOLETE 2400, baud2400 */ | |
273 | /* OBSOLETE } */ | |
274 | /* OBSOLETE , */ | |
275 | /* OBSOLETE { */ | |
276 | /* OBSOLETE 1800, baud1800 */ | |
277 | /* OBSOLETE } */ | |
278 | /* OBSOLETE , */ | |
279 | /* OBSOLETE { */ | |
280 | /* OBSOLETE 1200, baud1200 */ | |
281 | /* OBSOLETE } */ | |
282 | /* OBSOLETE , */ | |
283 | /* OBSOLETE { */ | |
284 | /* OBSOLETE 600, baud600 */ | |
285 | /* OBSOLETE } */ | |
286 | /* OBSOLETE , */ | |
287 | /* OBSOLETE { */ | |
288 | /* OBSOLETE 300, baud300 */ | |
289 | /* OBSOLETE } */ | |
290 | /* OBSOLETE , */ | |
291 | /* OBSOLETE { */ | |
292 | /* OBSOLETE 0, 0 */ | |
293 | /* OBSOLETE } */ | |
294 | /* OBSOLETE }; */ | |
295 | /* OBSOLETE */ | |
296 | /* OBSOLETE static int */ | |
297 | /* OBSOLETE mac_set_baud_rate (serial_t scb, int rate) */ | |
298 | /* OBSOLETE { */ | |
299 | /* OBSOLETE int i, bits; */ | |
300 | /* OBSOLETE */ | |
301 | /* OBSOLETE for (i = 0; mac_baud_rate_table[i].real_rate != 0; ++i) */ | |
302 | /* OBSOLETE { */ | |
303 | /* OBSOLETE if (mac_baud_rate_table[i].real_rate == rate) */ | |
304 | /* OBSOLETE { */ | |
305 | /* OBSOLETE bits = mac_baud_rate_table[i].bits; */ | |
306 | /* OBSOLETE break; */ | |
307 | /* OBSOLETE } */ | |
308 | /* OBSOLETE } */ | |
309 | /* OBSOLETE SerReset (input_refnum, stop10 | noParity | data8 | bits); */ | |
310 | /* OBSOLETE SerReset (output_refnum, stop10 | noParity | data8 | bits); */ | |
311 | /* OBSOLETE } */ | |
312 | /* OBSOLETE */ | |
313 | /* OBSOLETE static int */ | |
314 | /* OBSOLETE mac_set_stop_bits (serial_t scb, int num) */ | |
315 | /* OBSOLETE { */ | |
316 | /* OBSOLETE return 0; */ | |
317 | /* OBSOLETE } */ | |
318 | /* OBSOLETE */ | |
319 | /* OBSOLETE int first_mac_write = 0; */ | |
320 | /* OBSOLETE */ | |
321 | /* OBSOLETE static int */ | |
322 | /* OBSOLETE mac_write (serial_t scb, const char *str, int len) */ | |
323 | /* OBSOLETE { */ | |
324 | /* OBSOLETE OSErr err; */ | |
325 | /* OBSOLETE IOParam pb; */ | |
326 | /* OBSOLETE */ | |
327 | /* OBSOLETE if (first_mac_write++ < 4) */ | |
328 | /* OBSOLETE { */ | |
329 | /* OBSOLETE sleep (1); */ | |
330 | /* OBSOLETE } */ | |
331 | /* OBSOLETE pb.ioRefNum = output_refnum; */ | |
332 | /* OBSOLETE pb.ioBuffer = (Ptr) str; */ | |
333 | /* OBSOLETE pb.ioReqCount = len; */ | |
334 | /* OBSOLETE err = PBWrite ((ParmBlkPtr) & pb, 0); */ | |
335 | /* OBSOLETE if (err < 0) */ | |
336 | /* OBSOLETE { */ | |
337 | /* OBSOLETE return 1; */ | |
338 | /* OBSOLETE } */ | |
339 | /* OBSOLETE return 0; */ | |
340 | /* OBSOLETE } */ | |
341 | /* OBSOLETE */ | |
342 | /* OBSOLETE static void */ | |
343 | /* OBSOLETE mac_close (serial_t scb) */ | |
344 | /* OBSOLETE { */ | |
345 | /* OBSOLETE if (input_refnum) */ | |
346 | /* OBSOLETE { */ | |
347 | /* OBSOLETE if (1 /* custom buffer */ ) */ | |
348 | /* OBSOLETE SerSetBuf (input_refnum, mac_input_buffer, 0); */ | |
349 | /* OBSOLETE CloseDriver (input_refnum); */ | |
350 | /* OBSOLETE input_refnum = 0; */ | |
351 | /* OBSOLETE } */ | |
352 | /* OBSOLETE if (output_refnum) */ | |
353 | /* OBSOLETE { */ | |
354 | /* OBSOLETE if (0 /* custom buffer */ ) */ | |
355 | /* OBSOLETE SerSetBuf (input_refnum, mac_output_buffer, 0); */ | |
356 | /* OBSOLETE CloseDriver (output_refnum); */ | |
357 | /* OBSOLETE output_refnum = 0; */ | |
358 | /* OBSOLETE } */ | |
359 | /* OBSOLETE } */ | |
360 | /* OBSOLETE */ | |
361 | /* OBSOLETE static struct serial_ops mac_ops = */ | |
362 | /* OBSOLETE { */ | |
363 | /* OBSOLETE "hardwire", */ | |
364 | /* OBSOLETE 0, */ | |
365 | /* OBSOLETE mac_open, */ | |
366 | /* OBSOLETE mac_close, */ | |
367 | /* OBSOLETE mac_readchar, */ | |
368 | /* OBSOLETE mac_write, */ | |
369 | /* OBSOLETE mac_noop, /* flush output */ */ | |
370 | /* OBSOLETE mac_noop, /* flush input */ */ | |
371 | /* OBSOLETE mac_noop, /* send break -- currently only for nindy */ */ | |
372 | /* OBSOLETE mac_raw, */ | |
373 | /* OBSOLETE mac_get_tty_state, */ | |
374 | /* OBSOLETE mac_set_tty_state, */ | |
375 | /* OBSOLETE mac_print_tty_state, */ | |
376 | /* OBSOLETE mac_noflush_set_tty_state, */ | |
377 | /* OBSOLETE mac_set_baud_rate, */ | |
378 | /* OBSOLETE mac_set_stop_bits, */ | |
379 | /* OBSOLETE mac_noop, /* wait for output to drain */ */ | |
380 | /* OBSOLETE }; */ | |
381 | /* OBSOLETE */ | |
382 | /* OBSOLETE void */ | |
383 | /* OBSOLETE _initialize_ser_mac (void) */ | |
384 | /* OBSOLETE { */ | |
385 | /* OBSOLETE serial_add_interface (&mac_ops); */ | |
386 | /* OBSOLETE } */ |