Statistics
| Branch: | Revision:

root / qemu-char.c @ 1eec614b

History | View | Annotate | Download (53.9 kB)

1
/*
2
 * QEMU System Emulator
3
 *
4
 * Copyright (c) 2003-2008 Fabrice Bellard
5
 *
6
 * Permission is hereby granted, free of charge, to any person obtaining a copy
7
 * of this software and associated documentation files (the "Software"), to deal
8
 * in the Software without restriction, including without limitation the rights
9
 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
10
 * copies of the Software, and to permit persons to whom the Software is
11
 * furnished to do so, subject to the following conditions:
12
 *
13
 * The above copyright notice and this permission notice shall be included in
14
 * all copies or substantial portions of the Software.
15
 *
16
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
17
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
18
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
19
 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
20
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
21
 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
22
 * THE SOFTWARE.
23
 */
24
#include "qemu-common.h"
25
#include "net.h"
26
#include "console.h"
27
#include "sysemu.h"
28
#include "qemu-timer.h"
29
#include "qemu-char.h"
30
#include "block.h"
31
#include "hw/usb.h"
32
#include "hw/baum.h"
33

    
34
#include <unistd.h>
35
#include <fcntl.h>
36
#include <signal.h>
37
#include <time.h>
38
#include <errno.h>
39
#include <sys/time.h>
40
#include <zlib.h>
41

    
42
#ifndef _WIN32
43
#include <sys/times.h>
44
#include <sys/wait.h>
45
#include <termios.h>
46
#include <sys/mman.h>
47
#include <sys/ioctl.h>
48
#include <sys/resource.h>
49
#include <sys/socket.h>
50
#include <netinet/in.h>
51
#include <net/if.h>
52
#ifdef __NetBSD__
53
#include <net/if_tap.h>
54
#endif
55
#ifdef __linux__
56
#include <linux/if_tun.h>
57
#endif
58
#include <arpa/inet.h>
59
#include <dirent.h>
60
#include <netdb.h>
61
#include <sys/select.h>
62
#ifdef _BSD
63
#include <sys/stat.h>
64
#ifdef __FreeBSD__
65
#include <libutil.h>
66
#include <dev/ppbus/ppi.h>
67
#include <dev/ppbus/ppbconf.h>
68
#else
69
#include <util.h>
70
#endif
71
#elif defined (__GLIBC__) && defined (__FreeBSD_kernel__)
72
#include <freebsd/stdlib.h>
73
#else
74
#ifdef __linux__
75
#include <pty.h>
76

    
77
#include <linux/ppdev.h>
78
#include <linux/parport.h>
79
#endif
80
#ifdef __sun__
81
#include <sys/stat.h>
82
#include <sys/ethernet.h>
83
#include <sys/sockio.h>
84
#include <netinet/arp.h>
85
#include <netinet/in.h>
86
#include <netinet/in_systm.h>
87
#include <netinet/ip.h>
88
#include <netinet/ip_icmp.h> // must come after ip.h
89
#include <netinet/udp.h>
90
#include <netinet/tcp.h>
91
#include <net/if.h>
92
#include <syslog.h>
93
#include <stropts.h>
94
#endif
95
#endif
96
#endif
97

    
98
#include "qemu_socket.h"
99

    
100
/***********************************************************/
101
/* character device */
102

    
103
static void qemu_chr_event(CharDriverState *s, int event)
104
{
105
    if (!s->chr_event)
106
        return;
107
    s->chr_event(s->handler_opaque, event);
108
}
109

    
110
static void qemu_chr_reset_bh(void *opaque)
111
{
112
    CharDriverState *s = opaque;
113
    qemu_chr_event(s, CHR_EVENT_RESET);
114
    qemu_bh_delete(s->bh);
115
    s->bh = NULL;
116
}
117

    
118
void qemu_chr_reset(CharDriverState *s)
119
{
120
    if (s->bh == NULL) {
121
        s->bh = qemu_bh_new(qemu_chr_reset_bh, s);
122
        qemu_bh_schedule(s->bh);
123
    }
124
}
125

    
126
int qemu_chr_write(CharDriverState *s, const uint8_t *buf, int len)
127
{
128
    return s->chr_write(s, buf, len);
129
}
130

    
131
int qemu_chr_ioctl(CharDriverState *s, int cmd, void *arg)
132
{
133
    if (!s->chr_ioctl)
134
        return -ENOTSUP;
135
    return s->chr_ioctl(s, cmd, arg);
136
}
137

    
138
int qemu_chr_can_read(CharDriverState *s)
139
{
140
    if (!s->chr_can_read)
141
        return 0;
142
    return s->chr_can_read(s->handler_opaque);
143
}
144

    
145
void qemu_chr_read(CharDriverState *s, uint8_t *buf, int len)
146
{
147
    s->chr_read(s->handler_opaque, buf, len);
148
}
149

    
150
void qemu_chr_accept_input(CharDriverState *s)
151
{
152
    if (s->chr_accept_input)
153
        s->chr_accept_input(s);
154
}
155

    
156
void qemu_chr_printf(CharDriverState *s, const char *fmt, ...)
157
{
158
    char buf[4096];
159
    va_list ap;
160
    va_start(ap, fmt);
161
    vsnprintf(buf, sizeof(buf), fmt, ap);
162
    qemu_chr_write(s, (uint8_t *)buf, strlen(buf));
163
    va_end(ap);
164
}
165

    
166
void qemu_chr_send_event(CharDriverState *s, int event)
167
{
168
    if (s->chr_send_event)
169
        s->chr_send_event(s, event);
170
}
171

    
172
void qemu_chr_add_handlers(CharDriverState *s,
173
                           IOCanRWHandler *fd_can_read,
174
                           IOReadHandler *fd_read,
175
                           IOEventHandler *fd_event,
176
                           void *opaque)
177
{
178
    s->chr_can_read = fd_can_read;
179
    s->chr_read = fd_read;
180
    s->chr_event = fd_event;
181
    s->handler_opaque = opaque;
182
    if (s->chr_update_read_handler)
183
        s->chr_update_read_handler(s);
184
}
185

    
186
static int null_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
187
{
188
    return len;
189
}
190

    
191
static CharDriverState *qemu_chr_open_null(void)
192
{
193
    CharDriverState *chr;
194

    
195
    chr = qemu_mallocz(sizeof(CharDriverState));
196
    chr->chr_write = null_chr_write;
197
    return chr;
198
}
199

    
200
/* MUX driver for serial I/O splitting */
201
static int term_timestamps;
202
static int64_t term_timestamps_start;
203
#define MAX_MUX 4
204
#define MUX_BUFFER_SIZE 32        /* Must be a power of 2.  */
205
#define MUX_BUFFER_MASK (MUX_BUFFER_SIZE - 1)
206
typedef struct {
207
    IOCanRWHandler *chr_can_read[MAX_MUX];
208
    IOReadHandler *chr_read[MAX_MUX];
209
    IOEventHandler *chr_event[MAX_MUX];
210
    void *ext_opaque[MAX_MUX];
211
    CharDriverState *drv;
212
    unsigned char buffer[MUX_BUFFER_SIZE];
213
    int prod;
214
    int cons;
215
    int mux_cnt;
216
    int term_got_escape;
217
    int max_size;
218
} MuxDriver;
219

    
220

    
221
static int mux_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
222
{
223
    MuxDriver *d = chr->opaque;
224
    int ret;
225
    if (!term_timestamps) {
226
        ret = d->drv->chr_write(d->drv, buf, len);
227
    } else {
228
        int i;
229

    
230
        ret = 0;
231
        for(i = 0; i < len; i++) {
232
            ret += d->drv->chr_write(d->drv, buf+i, 1);
233
            if (buf[i] == '\n') {
234
                char buf1[64];
235
                int64_t ti;
236
                int secs;
237

    
238
                ti = qemu_get_clock(rt_clock);
239
                if (term_timestamps_start == -1)
240
                    term_timestamps_start = ti;
241
                ti -= term_timestamps_start;
242
                secs = ti / 1000;
243
                snprintf(buf1, sizeof(buf1),
244
                         "[%02d:%02d:%02d.%03d] ",
245
                         secs / 3600,
246
                         (secs / 60) % 60,
247
                         secs % 60,
248
                         (int)(ti % 1000));
249
                d->drv->chr_write(d->drv, (uint8_t *)buf1, strlen(buf1));
250
            }
251
        }
252
    }
253
    return ret;
254
}
255

    
256
static const char * const mux_help[] = {
257
    "% h    print this help\n\r",
258
    "% x    exit emulator\n\r",
259
    "% s    save disk data back to file (if -snapshot)\n\r",
260
    "% t    toggle console timestamps\n\r"
261
    "% b    send break (magic sysrq)\n\r",
262
    "% c    switch between console and monitor\n\r",
263
    "% %  sends %\n\r",
264
    NULL
265
};
266

    
267
int term_escape_char = 0x01; /* ctrl-a is used for escape */
268
static void mux_print_help(CharDriverState *chr)
269
{
270
    int i, j;
271
    char ebuf[15] = "Escape-Char";
272
    char cbuf[50] = "\n\r";
273

    
274
    if (term_escape_char > 0 && term_escape_char < 26) {
275
        snprintf(cbuf, sizeof(cbuf), "\n\r");
276
        snprintf(ebuf, sizeof(ebuf), "C-%c", term_escape_char - 1 + 'a');
277
    } else {
278
        snprintf(cbuf, sizeof(cbuf),
279
                 "\n\rEscape-Char set to Ascii: 0x%02x\n\r\n\r",
280
                 term_escape_char);
281
    }
282
    chr->chr_write(chr, (uint8_t *)cbuf, strlen(cbuf));
283
    for (i = 0; mux_help[i] != NULL; i++) {
284
        for (j=0; mux_help[i][j] != '\0'; j++) {
285
            if (mux_help[i][j] == '%')
286
                chr->chr_write(chr, (uint8_t *)ebuf, strlen(ebuf));
287
            else
288
                chr->chr_write(chr, (uint8_t *)&mux_help[i][j], 1);
289
        }
290
    }
291
}
292

    
293
static int mux_proc_byte(CharDriverState *chr, MuxDriver *d, int ch)
294
{
295
    if (d->term_got_escape) {
296
        d->term_got_escape = 0;
297
        if (ch == term_escape_char)
298
            goto send_char;
299
        switch(ch) {
300
        case '?':
301
        case 'h':
302
            mux_print_help(chr);
303
            break;
304
        case 'x':
305
            {
306
                 const char *term =  "QEMU: Terminated\n\r";
307
                 chr->chr_write(chr,(uint8_t *)term,strlen(term));
308
                 exit(0);
309
                 break;
310
            }
311
        case 's':
312
            {
313
                int i;
314
                for (i = 0; i < nb_drives; i++) {
315
                        bdrv_commit(drives_table[i].bdrv);
316
                }
317
            }
318
            break;
319
        case 'b':
320
            qemu_chr_event(chr, CHR_EVENT_BREAK);
321
            break;
322
        case 'c':
323
            /* Switch to the next registered device */
324
            chr->focus++;
325
            if (chr->focus >= d->mux_cnt)
326
                chr->focus = 0;
327
            break;
328
       case 't':
329
           term_timestamps = !term_timestamps;
330
           term_timestamps_start = -1;
331
           break;
332
        }
333
    } else if (ch == term_escape_char) {
334
        d->term_got_escape = 1;
335
    } else {
336
    send_char:
337
        return 1;
338
    }
339
    return 0;
340
}
341

    
342
static void mux_chr_accept_input(CharDriverState *chr)
343
{
344
    int m = chr->focus;
345
    MuxDriver *d = chr->opaque;
346

    
347
    while (d->prod != d->cons &&
348
           d->chr_can_read[m] &&
349
           d->chr_can_read[m](d->ext_opaque[m])) {
350
        d->chr_read[m](d->ext_opaque[m],
351
                       &d->buffer[d->cons++ & MUX_BUFFER_MASK], 1);
352
    }
353
}
354

    
355
static int mux_chr_can_read(void *opaque)
356
{
357
    CharDriverState *chr = opaque;
358
    MuxDriver *d = chr->opaque;
359

    
360
    if ((d->prod - d->cons) < MUX_BUFFER_SIZE)
361
        return 1;
362
    if (d->chr_can_read[chr->focus])
363
        return d->chr_can_read[chr->focus](d->ext_opaque[chr->focus]);
364
    return 0;
365
}
366

    
367
static void mux_chr_read(void *opaque, const uint8_t *buf, int size)
368
{
369
    CharDriverState *chr = opaque;
370
    MuxDriver *d = chr->opaque;
371
    int m = chr->focus;
372
    int i;
373

    
374
    mux_chr_accept_input (opaque);
375

    
376
    for(i = 0; i < size; i++)
377
        if (mux_proc_byte(chr, d, buf[i])) {
378
            if (d->prod == d->cons &&
379
                d->chr_can_read[m] &&
380
                d->chr_can_read[m](d->ext_opaque[m]))
381
                d->chr_read[m](d->ext_opaque[m], &buf[i], 1);
382
            else
383
                d->buffer[d->prod++ & MUX_BUFFER_MASK] = buf[i];
384
        }
385
}
386

    
387
static void mux_chr_event(void *opaque, int event)
388
{
389
    CharDriverState *chr = opaque;
390
    MuxDriver *d = chr->opaque;
391
    int i;
392

    
393
    /* Send the event to all registered listeners */
394
    for (i = 0; i < d->mux_cnt; i++)
395
        if (d->chr_event[i])
396
            d->chr_event[i](d->ext_opaque[i], event);
397
}
398

    
399
static void mux_chr_update_read_handler(CharDriverState *chr)
400
{
401
    MuxDriver *d = chr->opaque;
402

    
403
    if (d->mux_cnt >= MAX_MUX) {
404
        fprintf(stderr, "Cannot add I/O handlers, MUX array is full\n");
405
        return;
406
    }
407
    d->ext_opaque[d->mux_cnt] = chr->handler_opaque;
408
    d->chr_can_read[d->mux_cnt] = chr->chr_can_read;
409
    d->chr_read[d->mux_cnt] = chr->chr_read;
410
    d->chr_event[d->mux_cnt] = chr->chr_event;
411
    /* Fix up the real driver with mux routines */
412
    if (d->mux_cnt == 0) {
413
        qemu_chr_add_handlers(d->drv, mux_chr_can_read, mux_chr_read,
414
                              mux_chr_event, chr);
415
    }
416
    chr->focus = d->mux_cnt;
417
    d->mux_cnt++;
418
}
419

    
420
static CharDriverState *qemu_chr_open_mux(CharDriverState *drv)
421
{
422
    CharDriverState *chr;
423
    MuxDriver *d;
424

    
425
    chr = qemu_mallocz(sizeof(CharDriverState));
426
    d = qemu_mallocz(sizeof(MuxDriver));
427

    
428
    chr->opaque = d;
429
    d->drv = drv;
430
    chr->focus = -1;
431
    chr->chr_write = mux_chr_write;
432
    chr->chr_update_read_handler = mux_chr_update_read_handler;
433
    chr->chr_accept_input = mux_chr_accept_input;
434
    return chr;
435
}
436

    
437

    
438
#ifdef _WIN32
439
int send_all(int fd, const void *buf, int len1)
440
{
441
    int ret, len;
442

    
443
    len = len1;
444
    while (len > 0) {
445
        ret = send(fd, buf, len, 0);
446
        if (ret < 0) {
447
            errno = WSAGetLastError();
448
            if (errno != WSAEWOULDBLOCK) {
449
                return -1;
450
            }
451
        } else if (ret == 0) {
452
            break;
453
        } else {
454
            buf += ret;
455
            len -= ret;
456
        }
457
    }
458
    return len1 - len;
459
}
460

    
461
#else
462

    
463
static int unix_write(int fd, const uint8_t *buf, int len1)
464
{
465
    int ret, len;
466

    
467
    len = len1;
468
    while (len > 0) {
469
        ret = write(fd, buf, len);
470
        if (ret < 0) {
471
            if (errno != EINTR && errno != EAGAIN)
472
                return -1;
473
        } else if (ret == 0) {
474
            break;
475
        } else {
476
            buf += ret;
477
            len -= ret;
478
        }
479
    }
480
    return len1 - len;
481
}
482

    
483
int send_all(int fd, const void *buf, int len1)
484
{
485
    return unix_write(fd, buf, len1);
486
}
487
#endif /* !_WIN32 */
488

    
489
#ifndef _WIN32
490

    
491
typedef struct {
492
    int fd_in, fd_out;
493
    int max_size;
494
} FDCharDriver;
495

    
496
#define STDIO_MAX_CLIENTS 1
497
static int stdio_nb_clients = 0;
498

    
499
static int fd_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
500
{
501
    FDCharDriver *s = chr->opaque;
502
    return send_all(s->fd_out, buf, len);
503
}
504

    
505
static int fd_chr_read_poll(void *opaque)
506
{
507
    CharDriverState *chr = opaque;
508
    FDCharDriver *s = chr->opaque;
509

    
510
    s->max_size = qemu_chr_can_read(chr);
511
    return s->max_size;
512
}
513

    
514
static void fd_chr_read(void *opaque)
515
{
516
    CharDriverState *chr = opaque;
517
    FDCharDriver *s = chr->opaque;
518
    int size, len;
519
    uint8_t buf[1024];
520

    
521
    len = sizeof(buf);
522
    if (len > s->max_size)
523
        len = s->max_size;
524
    if (len == 0)
525
        return;
526
    size = read(s->fd_in, buf, len);
527
    if (size == 0) {
528
        /* FD has been closed. Remove it from the active list.  */
529
        qemu_set_fd_handler2(s->fd_in, NULL, NULL, NULL, NULL);
530
        return;
531
    }
532
    if (size > 0) {
533
        qemu_chr_read(chr, buf, size);
534
    }
535
}
536

    
537
static void fd_chr_update_read_handler(CharDriverState *chr)
538
{
539
    FDCharDriver *s = chr->opaque;
540

    
541
    if (s->fd_in >= 0) {
542
        if (nographic && s->fd_in == 0) {
543
        } else {
544
            qemu_set_fd_handler2(s->fd_in, fd_chr_read_poll,
545
                                 fd_chr_read, NULL, chr);
546
        }
547
    }
548
}
549

    
550
static void fd_chr_close(struct CharDriverState *chr)
551
{
552
    FDCharDriver *s = chr->opaque;
553

    
554
    if (s->fd_in >= 0) {
555
        if (nographic && s->fd_in == 0) {
556
        } else {
557
            qemu_set_fd_handler2(s->fd_in, NULL, NULL, NULL, NULL);
558
        }
559
    }
560

    
561
    qemu_free(s);
562
}
563

    
564
/* open a character device to a unix fd */
565
static CharDriverState *qemu_chr_open_fd(int fd_in, int fd_out)
566
{
567
    CharDriverState *chr;
568
    FDCharDriver *s;
569

    
570
    chr = qemu_mallocz(sizeof(CharDriverState));
571
    s = qemu_mallocz(sizeof(FDCharDriver));
572
    s->fd_in = fd_in;
573
    s->fd_out = fd_out;
574
    chr->opaque = s;
575
    chr->chr_write = fd_chr_write;
576
    chr->chr_update_read_handler = fd_chr_update_read_handler;
577
    chr->chr_close = fd_chr_close;
578

    
579
    qemu_chr_reset(chr);
580

    
581
    return chr;
582
}
583

    
584
static CharDriverState *qemu_chr_open_file_out(const char *file_out)
585
{
586
    int fd_out;
587

    
588
    TFR(fd_out = open(file_out, O_WRONLY | O_TRUNC | O_CREAT | O_BINARY, 0666));
589
    if (fd_out < 0)
590
        return NULL;
591
    return qemu_chr_open_fd(-1, fd_out);
592
}
593

    
594
static CharDriverState *qemu_chr_open_pipe(const char *filename)
595
{
596
    int fd_in, fd_out;
597
    char filename_in[256], filename_out[256];
598

    
599
    snprintf(filename_in, 256, "%s.in", filename);
600
    snprintf(filename_out, 256, "%s.out", filename);
601
    TFR(fd_in = open(filename_in, O_RDWR | O_BINARY));
602
    TFR(fd_out = open(filename_out, O_RDWR | O_BINARY));
603
    if (fd_in < 0 || fd_out < 0) {
604
        if (fd_in >= 0)
605
            close(fd_in);
606
        if (fd_out >= 0)
607
            close(fd_out);
608
        TFR(fd_in = fd_out = open(filename, O_RDWR | O_BINARY));
609
        if (fd_in < 0)
610
            return NULL;
611
    }
612
    return qemu_chr_open_fd(fd_in, fd_out);
613
}
614

    
615

    
616
/* for STDIO, we handle the case where several clients use it
617
   (nographic mode) */
618

    
619
#define TERM_FIFO_MAX_SIZE 1
620

    
621
static uint8_t term_fifo[TERM_FIFO_MAX_SIZE];
622
static int term_fifo_size;
623

    
624
static int stdio_read_poll(void *opaque)
625
{
626
    CharDriverState *chr = opaque;
627

    
628
    /* try to flush the queue if needed */
629
    if (term_fifo_size != 0 && qemu_chr_can_read(chr) > 0) {
630
        qemu_chr_read(chr, term_fifo, 1);
631
        term_fifo_size = 0;
632
    }
633
    /* see if we can absorb more chars */
634
    if (term_fifo_size == 0)
635
        return 1;
636
    else
637
        return 0;
638
}
639

    
640
static void stdio_read(void *opaque)
641
{
642
    int size;
643
    uint8_t buf[1];
644
    CharDriverState *chr = opaque;
645

    
646
    size = read(0, buf, 1);
647
    if (size == 0) {
648
        /* stdin has been closed. Remove it from the active list.  */
649
        qemu_set_fd_handler2(0, NULL, NULL, NULL, NULL);
650
        return;
651
    }
652
    if (size > 0) {
653
        if (qemu_chr_can_read(chr) > 0) {
654
            qemu_chr_read(chr, buf, 1);
655
        } else if (term_fifo_size == 0) {
656
            term_fifo[term_fifo_size++] = buf[0];
657
        }
658
    }
659
}
660

    
661
/* init terminal so that we can grab keys */
662
static struct termios oldtty;
663
static int old_fd0_flags;
664
static int term_atexit_done;
665

    
666
static void term_exit(void)
667
{
668
    tcsetattr (0, TCSANOW, &oldtty);
669
    fcntl(0, F_SETFL, old_fd0_flags);
670
}
671

    
672
static void term_init(void)
673
{
674
    struct termios tty;
675

    
676
    tcgetattr (0, &tty);
677
    oldtty = tty;
678
    old_fd0_flags = fcntl(0, F_GETFL);
679

    
680
    tty.c_iflag &= ~(IGNBRK|BRKINT|PARMRK|ISTRIP
681
                          |INLCR|IGNCR|ICRNL|IXON);
682
    tty.c_oflag |= OPOST;
683
    tty.c_lflag &= ~(ECHO|ECHONL|ICANON|IEXTEN);
684
    /* if graphical mode, we allow Ctrl-C handling */
685
    if (nographic)
686
        tty.c_lflag &= ~ISIG;
687
    tty.c_cflag &= ~(CSIZE|PARENB);
688
    tty.c_cflag |= CS8;
689
    tty.c_cc[VMIN] = 1;
690
    tty.c_cc[VTIME] = 0;
691

    
692
    tcsetattr (0, TCSANOW, &tty);
693

    
694
    if (!term_atexit_done++)
695
        atexit(term_exit);
696

    
697
    fcntl(0, F_SETFL, O_NONBLOCK);
698
}
699

    
700
static void qemu_chr_close_stdio(struct CharDriverState *chr)
701
{
702
    term_exit();
703
    stdio_nb_clients--;
704
    qemu_set_fd_handler2(0, NULL, NULL, NULL, NULL);
705
    fd_chr_close(chr);
706
}
707

    
708
static CharDriverState *qemu_chr_open_stdio(void)
709
{
710
    CharDriverState *chr;
711

    
712
    if (stdio_nb_clients >= STDIO_MAX_CLIENTS)
713
        return NULL;
714
    chr = qemu_chr_open_fd(0, 1);
715
    chr->chr_close = qemu_chr_close_stdio;
716
    qemu_set_fd_handler2(0, stdio_read_poll, stdio_read, NULL, chr);
717
    stdio_nb_clients++;
718
    term_init();
719

    
720
    return chr;
721
}
722

    
723
#ifdef __sun__
724
/* Once Solaris has openpty(), this is going to be removed. */
725
int openpty(int *amaster, int *aslave, char *name,
726
            struct termios *termp, struct winsize *winp)
727
{
728
        const char *slave;
729
        int mfd = -1, sfd = -1;
730

    
731
        *amaster = *aslave = -1;
732

    
733
        mfd = open("/dev/ptmx", O_RDWR | O_NOCTTY);
734
        if (mfd < 0)
735
                goto err;
736

    
737
        if (grantpt(mfd) == -1 || unlockpt(mfd) == -1)
738
                goto err;
739

    
740
        if ((slave = ptsname(mfd)) == NULL)
741
                goto err;
742

    
743
        if ((sfd = open(slave, O_RDONLY | O_NOCTTY)) == -1)
744
                goto err;
745

    
746
        if (ioctl(sfd, I_PUSH, "ptem") == -1 ||
747
            (termp != NULL && tcgetattr(sfd, termp) < 0))
748
                goto err;
749

    
750
        if (amaster)
751
                *amaster = mfd;
752
        if (aslave)
753
                *aslave = sfd;
754
        if (winp)
755
                ioctl(sfd, TIOCSWINSZ, winp);
756

    
757
        return 0;
758

    
759
err:
760
        if (sfd != -1)
761
                close(sfd);
762
        close(mfd);
763
        return -1;
764
}
765

    
766
void cfmakeraw (struct termios *termios_p)
767
{
768
        termios_p->c_iflag &=
769
                ~(IGNBRK|BRKINT|PARMRK|ISTRIP|INLCR|IGNCR|ICRNL|IXON);
770
        termios_p->c_oflag &= ~OPOST;
771
        termios_p->c_lflag &= ~(ECHO|ECHONL|ICANON|ISIG|IEXTEN);
772
        termios_p->c_cflag &= ~(CSIZE|PARENB);
773
        termios_p->c_cflag |= CS8;
774

    
775
        termios_p->c_cc[VMIN] = 0;
776
        termios_p->c_cc[VTIME] = 0;
777
}
778
#endif
779

    
780
#if defined(__linux__) || defined(__sun__) || defined(__FreeBSD__) \
781
    || defined(__NetBSD__) || defined(__OpenBSD__)
782

    
783
typedef struct {
784
    int fd;
785
    int connected;
786
    int polling;
787
    int read_bytes;
788
    QEMUTimer *timer;
789
} PtyCharDriver;
790

    
791
static void pty_chr_update_read_handler(CharDriverState *chr);
792
static void pty_chr_state(CharDriverState *chr, int connected);
793

    
794
static int pty_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
795
{
796
    PtyCharDriver *s = chr->opaque;
797

    
798
    if (!s->connected) {
799
        /* guest sends data, check for (re-)connect */
800
        pty_chr_update_read_handler(chr);
801
        return 0;
802
    }
803
    return send_all(s->fd, buf, len);
804
}
805

    
806
static int pty_chr_read_poll(void *opaque)
807
{
808
    CharDriverState *chr = opaque;
809
    PtyCharDriver *s = chr->opaque;
810

    
811
    s->read_bytes = qemu_chr_can_read(chr);
812
    return s->read_bytes;
813
}
814

    
815
static void pty_chr_read(void *opaque)
816
{
817
    CharDriverState *chr = opaque;
818
    PtyCharDriver *s = chr->opaque;
819
    int size, len;
820
    uint8_t buf[1024];
821

    
822
    len = sizeof(buf);
823
    if (len > s->read_bytes)
824
        len = s->read_bytes;
825
    if (len == 0)
826
        return;
827
    size = read(s->fd, buf, len);
828
    if ((size == -1 && errno == EIO) ||
829
        (size == 0)) {
830
        pty_chr_state(chr, 0);
831
        return;
832
    }
833
    if (size > 0) {
834
        pty_chr_state(chr, 1);
835
        qemu_chr_read(chr, buf, size);
836
    }
837
}
838

    
839
static void pty_chr_update_read_handler(CharDriverState *chr)
840
{
841
    PtyCharDriver *s = chr->opaque;
842

    
843
    qemu_set_fd_handler2(s->fd, pty_chr_read_poll,
844
                         pty_chr_read, NULL, chr);
845
    s->polling = 1;
846
    /*
847
     * Short timeout here: just need wait long enougth that qemu makes
848
     * it through the poll loop once.  When reconnected we want a
849
     * short timeout so we notice it almost instantly.  Otherwise
850
     * read() gives us -EIO instantly, making pty_chr_state() reset the
851
     * timeout to the normal (much longer) poll interval before the
852
     * timer triggers.
853
     */
854
    qemu_mod_timer(s->timer, qemu_get_clock(rt_clock) + 10);
855
}
856

    
857
static void pty_chr_state(CharDriverState *chr, int connected)
858
{
859
    PtyCharDriver *s = chr->opaque;
860

    
861
    if (!connected) {
862
        qemu_set_fd_handler2(s->fd, NULL, NULL, NULL, NULL);
863
        s->connected = 0;
864
        s->polling = 0;
865
        /* (re-)connect poll interval for idle guests: once per second.
866
         * We check more frequently in case the guests sends data to
867
         * the virtual device linked to our pty. */
868
        qemu_mod_timer(s->timer, qemu_get_clock(rt_clock) + 1000);
869
    } else {
870
        if (!s->connected)
871
            qemu_chr_reset(chr);
872
        s->connected = 1;
873
    }
874
}
875

    
876
static void pty_chr_timer(void *opaque)
877
{
878
    struct CharDriverState *chr = opaque;
879
    PtyCharDriver *s = chr->opaque;
880

    
881
    if (s->connected)
882
        return;
883
    if (s->polling) {
884
        /* If we arrive here without polling being cleared due
885
         * read returning -EIO, then we are (re-)connected */
886
        pty_chr_state(chr, 1);
887
        return;
888
    }
889

    
890
    /* Next poll ... */
891
    pty_chr_update_read_handler(chr);
892
}
893

    
894
static void pty_chr_close(struct CharDriverState *chr)
895
{
896
    PtyCharDriver *s = chr->opaque;
897

    
898
    qemu_set_fd_handler2(s->fd, NULL, NULL, NULL, NULL);
899
    close(s->fd);
900
    qemu_free(s);
901
}
902

    
903
static CharDriverState *qemu_chr_open_pty(void)
904
{
905
    CharDriverState *chr;
906
    PtyCharDriver *s;
907
    struct termios tty;
908
    int slave_fd, len;
909
#if defined(__OpenBSD__)
910
    char pty_name[PATH_MAX];
911
#define q_ptsname(x) pty_name
912
#else
913
    char *pty_name = NULL;
914
#define q_ptsname(x) ptsname(x)
915
#endif
916

    
917
    chr = qemu_mallocz(sizeof(CharDriverState));
918
    s = qemu_mallocz(sizeof(PtyCharDriver));
919

    
920
    if (openpty(&s->fd, &slave_fd, pty_name, NULL, NULL) < 0) {
921
        return NULL;
922
    }
923

    
924
    /* Set raw attributes on the pty. */
925
    tcgetattr(slave_fd, &tty);
926
    cfmakeraw(&tty);
927
    tcsetattr(slave_fd, TCSAFLUSH, &tty);
928
    close(slave_fd);
929

    
930
    len = strlen(q_ptsname(s->fd)) + 5;
931
    chr->filename = qemu_malloc(len);
932
    snprintf(chr->filename, len, "pty:%s", q_ptsname(s->fd));
933
    fprintf(stderr, "char device redirected to %s\n", q_ptsname(s->fd));
934

    
935
    chr->opaque = s;
936
    chr->chr_write = pty_chr_write;
937
    chr->chr_update_read_handler = pty_chr_update_read_handler;
938
    chr->chr_close = pty_chr_close;
939

    
940
    s->timer = qemu_new_timer(rt_clock, pty_chr_timer, chr);
941

    
942
    return chr;
943
}
944

    
945
static void tty_serial_init(int fd, int speed,
946
                            int parity, int data_bits, int stop_bits)
947
{
948
    struct termios tty;
949
    speed_t spd;
950

    
951
#if 0
952
    printf("tty_serial_init: speed=%d parity=%c data=%d stop=%d\n",
953
           speed, parity, data_bits, stop_bits);
954
#endif
955
    tcgetattr (fd, &tty);
956

    
957
#define MARGIN 1.1
958
    if (speed <= 50 * MARGIN)
959
        spd = B50;
960
    else if (speed <= 75 * MARGIN)
961
        spd = B75;
962
    else if (speed <= 300 * MARGIN)
963
        spd = B300;
964
    else if (speed <= 600 * MARGIN)
965
        spd = B600;
966
    else if (speed <= 1200 * MARGIN)
967
        spd = B1200;
968
    else if (speed <= 2400 * MARGIN)
969
        spd = B2400;
970
    else if (speed <= 4800 * MARGIN)
971
        spd = B4800;
972
    else if (speed <= 9600 * MARGIN)
973
        spd = B9600;
974
    else if (speed <= 19200 * MARGIN)
975
        spd = B19200;
976
    else if (speed <= 38400 * MARGIN)
977
        spd = B38400;
978
    else if (speed <= 57600 * MARGIN)
979
        spd = B57600;
980
    else if (speed <= 115200 * MARGIN)
981
        spd = B115200;
982
    else
983
        spd = B115200;
984

    
985
    cfsetispeed(&tty, spd);
986
    cfsetospeed(&tty, spd);
987

    
988
    tty.c_iflag &= ~(IGNBRK|BRKINT|PARMRK|ISTRIP
989
                          |INLCR|IGNCR|ICRNL|IXON);
990
    tty.c_oflag |= OPOST;
991
    tty.c_lflag &= ~(ECHO|ECHONL|ICANON|IEXTEN|ISIG);
992
    tty.c_cflag &= ~(CSIZE|PARENB|PARODD|CRTSCTS|CSTOPB);
993
    switch(data_bits) {
994
    default:
995
    case 8:
996
        tty.c_cflag |= CS8;
997
        break;
998
    case 7:
999
        tty.c_cflag |= CS7;
1000
        break;
1001
    case 6:
1002
        tty.c_cflag |= CS6;
1003
        break;
1004
    case 5:
1005
        tty.c_cflag |= CS5;
1006
        break;
1007
    }
1008
    switch(parity) {
1009
    default:
1010
    case 'N':
1011
        break;
1012
    case 'E':
1013
        tty.c_cflag |= PARENB;
1014
        break;
1015
    case 'O':
1016
        tty.c_cflag |= PARENB | PARODD;
1017
        break;
1018
    }
1019
    if (stop_bits == 2)
1020
        tty.c_cflag |= CSTOPB;
1021

    
1022
    tcsetattr (fd, TCSANOW, &tty);
1023
}
1024

    
1025
static int tty_serial_ioctl(CharDriverState *chr, int cmd, void *arg)
1026
{
1027
    FDCharDriver *s = chr->opaque;
1028

    
1029
    switch(cmd) {
1030
    case CHR_IOCTL_SERIAL_SET_PARAMS:
1031
        {
1032
            QEMUSerialSetParams *ssp = arg;
1033
            tty_serial_init(s->fd_in, ssp->speed, ssp->parity,
1034
                            ssp->data_bits, ssp->stop_bits);
1035
        }
1036
        break;
1037
    case CHR_IOCTL_SERIAL_SET_BREAK:
1038
        {
1039
            int enable = *(int *)arg;
1040
            if (enable)
1041
                tcsendbreak(s->fd_in, 1);
1042
        }
1043
        break;
1044
    case CHR_IOCTL_SERIAL_GET_TIOCM:
1045
        {
1046
            int sarg = 0;
1047
            int *targ = (int *)arg;
1048
            ioctl(s->fd_in, TIOCMGET, &sarg);
1049
            *targ = 0;
1050
            if (sarg | TIOCM_CTS)
1051
                *targ |= CHR_TIOCM_CTS;
1052
            if (sarg | TIOCM_CAR)
1053
                *targ |= CHR_TIOCM_CAR;
1054
            if (sarg | TIOCM_DSR)
1055
                *targ |= CHR_TIOCM_DSR;
1056
            if (sarg | TIOCM_RI)
1057
                *targ |= CHR_TIOCM_RI;
1058
            if (sarg | TIOCM_DTR)
1059
                *targ |= CHR_TIOCM_DTR;
1060
            if (sarg | TIOCM_RTS)
1061
                *targ |= CHR_TIOCM_RTS;
1062
        }
1063
        break;
1064
    case CHR_IOCTL_SERIAL_SET_TIOCM:
1065
        {
1066
            int sarg = *(int *)arg;
1067
            int targ = 0;
1068
            if (sarg | CHR_TIOCM_DTR)
1069
                targ |= TIOCM_DTR;
1070
            if (sarg | CHR_TIOCM_RTS)
1071
                targ |= TIOCM_RTS;
1072
            ioctl(s->fd_in, TIOCMSET, &targ);
1073
        }
1074
        break;
1075
    default:
1076
        return -ENOTSUP;
1077
    }
1078
    return 0;
1079
}
1080

    
1081
static CharDriverState *qemu_chr_open_tty(const char *filename)
1082
{
1083
    CharDriverState *chr;
1084
    int fd;
1085

    
1086
    TFR(fd = open(filename, O_RDWR | O_NONBLOCK));
1087
    tty_serial_init(fd, 115200, 'N', 8, 1);
1088
    chr = qemu_chr_open_fd(fd, fd);
1089
    if (!chr) {
1090
        close(fd);
1091
        return NULL;
1092
    }
1093
    chr->chr_ioctl = tty_serial_ioctl;
1094
    qemu_chr_reset(chr);
1095
    return chr;
1096
}
1097
#else  /* ! __linux__ && ! __sun__ */
1098
static CharDriverState *qemu_chr_open_pty(void)
1099
{
1100
    return NULL;
1101
}
1102
#endif /* __linux__ || __sun__ */
1103

    
1104
#if defined(__linux__)
1105
typedef struct {
1106
    int fd;
1107
    int mode;
1108
} ParallelCharDriver;
1109

    
1110
static int pp_hw_mode(ParallelCharDriver *s, uint16_t mode)
1111
{
1112
    if (s->mode != mode) {
1113
        int m = mode;
1114
        if (ioctl(s->fd, PPSETMODE, &m) < 0)
1115
            return 0;
1116
        s->mode = mode;
1117
    }
1118
    return 1;
1119
}
1120

    
1121
static int pp_ioctl(CharDriverState *chr, int cmd, void *arg)
1122
{
1123
    ParallelCharDriver *drv = chr->opaque;
1124
    int fd = drv->fd;
1125
    uint8_t b;
1126

    
1127
    switch(cmd) {
1128
    case CHR_IOCTL_PP_READ_DATA:
1129
        if (ioctl(fd, PPRDATA, &b) < 0)
1130
            return -ENOTSUP;
1131
        *(uint8_t *)arg = b;
1132
        break;
1133
    case CHR_IOCTL_PP_WRITE_DATA:
1134
        b = *(uint8_t *)arg;
1135
        if (ioctl(fd, PPWDATA, &b) < 0)
1136
            return -ENOTSUP;
1137
        break;
1138
    case CHR_IOCTL_PP_READ_CONTROL:
1139
        if (ioctl(fd, PPRCONTROL, &b) < 0)
1140
            return -ENOTSUP;
1141
        /* Linux gives only the lowest bits, and no way to know data
1142
           direction! For better compatibility set the fixed upper
1143
           bits. */
1144
        *(uint8_t *)arg = b | 0xc0;
1145
        break;
1146
    case CHR_IOCTL_PP_WRITE_CONTROL:
1147
        b = *(uint8_t *)arg;
1148
        if (ioctl(fd, PPWCONTROL, &b) < 0)
1149
            return -ENOTSUP;
1150
        break;
1151
    case CHR_IOCTL_PP_READ_STATUS:
1152
        if (ioctl(fd, PPRSTATUS, &b) < 0)
1153
            return -ENOTSUP;
1154
        *(uint8_t *)arg = b;
1155
        break;
1156
    case CHR_IOCTL_PP_DATA_DIR:
1157
        if (ioctl(fd, PPDATADIR, (int *)arg) < 0)
1158
            return -ENOTSUP;
1159
        break;
1160
    case CHR_IOCTL_PP_EPP_READ_ADDR:
1161
        if (pp_hw_mode(drv, IEEE1284_MODE_EPP|IEEE1284_ADDR)) {
1162
            struct ParallelIOArg *parg = arg;
1163
            int n = read(fd, parg->buffer, parg->count);
1164
            if (n != parg->count) {
1165
                return -EIO;
1166
            }
1167
        }
1168
        break;
1169
    case CHR_IOCTL_PP_EPP_READ:
1170
        if (pp_hw_mode(drv, IEEE1284_MODE_EPP)) {
1171
            struct ParallelIOArg *parg = arg;
1172
            int n = read(fd, parg->buffer, parg->count);
1173
            if (n != parg->count) {
1174
                return -EIO;
1175
            }
1176
        }
1177
        break;
1178
    case CHR_IOCTL_PP_EPP_WRITE_ADDR:
1179
        if (pp_hw_mode(drv, IEEE1284_MODE_EPP|IEEE1284_ADDR)) {
1180
            struct ParallelIOArg *parg = arg;
1181
            int n = write(fd, parg->buffer, parg->count);
1182
            if (n != parg->count) {
1183
                return -EIO;
1184
            }
1185
        }
1186
        break;
1187
    case CHR_IOCTL_PP_EPP_WRITE:
1188
        if (pp_hw_mode(drv, IEEE1284_MODE_EPP)) {
1189
            struct ParallelIOArg *parg = arg;
1190
            int n = write(fd, parg->buffer, parg->count);
1191
            if (n != parg->count) {
1192
                return -EIO;
1193
            }
1194
        }
1195
        break;
1196
    default:
1197
        return -ENOTSUP;
1198
    }
1199
    return 0;
1200
}
1201

    
1202
static void pp_close(CharDriverState *chr)
1203
{
1204
    ParallelCharDriver *drv = chr->opaque;
1205
    int fd = drv->fd;
1206

    
1207
    pp_hw_mode(drv, IEEE1284_MODE_COMPAT);
1208
    ioctl(fd, PPRELEASE);
1209
    close(fd);
1210
    qemu_free(drv);
1211
}
1212

    
1213
static CharDriverState *qemu_chr_open_pp(const char *filename)
1214
{
1215
    CharDriverState *chr;
1216
    ParallelCharDriver *drv;
1217
    int fd;
1218

    
1219
    TFR(fd = open(filename, O_RDWR));
1220
    if (fd < 0)
1221
        return NULL;
1222

    
1223
    if (ioctl(fd, PPCLAIM) < 0) {
1224
        close(fd);
1225
        return NULL;
1226
    }
1227

    
1228
    drv = qemu_mallocz(sizeof(ParallelCharDriver));
1229
    drv->fd = fd;
1230
    drv->mode = IEEE1284_MODE_COMPAT;
1231

    
1232
    chr = qemu_mallocz(sizeof(CharDriverState));
1233
    chr->chr_write = null_chr_write;
1234
    chr->chr_ioctl = pp_ioctl;
1235
    chr->chr_close = pp_close;
1236
    chr->opaque = drv;
1237

    
1238
    qemu_chr_reset(chr);
1239

    
1240
    return chr;
1241
}
1242
#endif /* __linux__ */
1243

    
1244
#if defined(__FreeBSD__)
1245
static int pp_ioctl(CharDriverState *chr, int cmd, void *arg)
1246
{
1247
    int fd = (int)chr->opaque;
1248
    uint8_t b;
1249

    
1250
    switch(cmd) {
1251
    case CHR_IOCTL_PP_READ_DATA:
1252
        if (ioctl(fd, PPIGDATA, &b) < 0)
1253
            return -ENOTSUP;
1254
        *(uint8_t *)arg = b;
1255
        break;
1256
    case CHR_IOCTL_PP_WRITE_DATA:
1257
        b = *(uint8_t *)arg;
1258
        if (ioctl(fd, PPISDATA, &b) < 0)
1259
            return -ENOTSUP;
1260
        break;
1261
    case CHR_IOCTL_PP_READ_CONTROL:
1262
        if (ioctl(fd, PPIGCTRL, &b) < 0)
1263
            return -ENOTSUP;
1264
        *(uint8_t *)arg = b;
1265
        break;
1266
    case CHR_IOCTL_PP_WRITE_CONTROL:
1267
        b = *(uint8_t *)arg;
1268
        if (ioctl(fd, PPISCTRL, &b) < 0)
1269
            return -ENOTSUP;
1270
        break;
1271
    case CHR_IOCTL_PP_READ_STATUS:
1272
        if (ioctl(fd, PPIGSTATUS, &b) < 0)
1273
            return -ENOTSUP;
1274
        *(uint8_t *)arg = b;
1275
        break;
1276
    default:
1277
        return -ENOTSUP;
1278
    }
1279
    return 0;
1280
}
1281

    
1282
static CharDriverState *qemu_chr_open_pp(const char *filename)
1283
{
1284
    CharDriverState *chr;
1285
    int fd;
1286

    
1287
    fd = open(filename, O_RDWR);
1288
    if (fd < 0)
1289
        return NULL;
1290

    
1291
    chr = qemu_mallocz(sizeof(CharDriverState));
1292
    chr->opaque = (void *)fd;
1293
    chr->chr_write = null_chr_write;
1294
    chr->chr_ioctl = pp_ioctl;
1295
    return chr;
1296
}
1297
#endif
1298

    
1299
#else /* _WIN32 */
1300

    
1301
typedef struct {
1302
    int max_size;
1303
    HANDLE hcom, hrecv, hsend;
1304
    OVERLAPPED orecv, osend;
1305
    BOOL fpipe;
1306
    DWORD len;
1307
} WinCharState;
1308

    
1309
#define NSENDBUF 2048
1310
#define NRECVBUF 2048
1311
#define MAXCONNECT 1
1312
#define NTIMEOUT 5000
1313

    
1314
static int win_chr_poll(void *opaque);
1315
static int win_chr_pipe_poll(void *opaque);
1316

    
1317
static void win_chr_close(CharDriverState *chr)
1318
{
1319
    WinCharState *s = chr->opaque;
1320

    
1321
    if (s->hsend) {
1322
        CloseHandle(s->hsend);
1323
        s->hsend = NULL;
1324
    }
1325
    if (s->hrecv) {
1326
        CloseHandle(s->hrecv);
1327
        s->hrecv = NULL;
1328
    }
1329
    if (s->hcom) {
1330
        CloseHandle(s->hcom);
1331
        s->hcom = NULL;
1332
    }
1333
    if (s->fpipe)
1334
        qemu_del_polling_cb(win_chr_pipe_poll, chr);
1335
    else
1336
        qemu_del_polling_cb(win_chr_poll, chr);
1337
}
1338

    
1339
static int win_chr_init(CharDriverState *chr, const char *filename)
1340
{
1341
    WinCharState *s = chr->opaque;
1342
    COMMCONFIG comcfg;
1343
    COMMTIMEOUTS cto = { 0, 0, 0, 0, 0};
1344
    COMSTAT comstat;
1345
    DWORD size;
1346
    DWORD err;
1347

    
1348
    s->hsend = CreateEvent(NULL, TRUE, FALSE, NULL);
1349
    if (!s->hsend) {
1350
        fprintf(stderr, "Failed CreateEvent\n");
1351
        goto fail;
1352
    }
1353
    s->hrecv = CreateEvent(NULL, TRUE, FALSE, NULL);
1354
    if (!s->hrecv) {
1355
        fprintf(stderr, "Failed CreateEvent\n");
1356
        goto fail;
1357
    }
1358

    
1359
    s->hcom = CreateFile(filename, GENERIC_READ|GENERIC_WRITE, 0, NULL,
1360
                      OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
1361
    if (s->hcom == INVALID_HANDLE_VALUE) {
1362
        fprintf(stderr, "Failed CreateFile (%lu)\n", GetLastError());
1363
        s->hcom = NULL;
1364
        goto fail;
1365
    }
1366

    
1367
    if (!SetupComm(s->hcom, NRECVBUF, NSENDBUF)) {
1368
        fprintf(stderr, "Failed SetupComm\n");
1369
        goto fail;
1370
    }
1371

    
1372
    ZeroMemory(&comcfg, sizeof(COMMCONFIG));
1373
    size = sizeof(COMMCONFIG);
1374
    GetDefaultCommConfig(filename, &comcfg, &size);
1375
    comcfg.dcb.DCBlength = sizeof(DCB);
1376
    CommConfigDialog(filename, NULL, &comcfg);
1377

    
1378
    if (!SetCommState(s->hcom, &comcfg.dcb)) {
1379
        fprintf(stderr, "Failed SetCommState\n");
1380
        goto fail;
1381
    }
1382

    
1383
    if (!SetCommMask(s->hcom, EV_ERR)) {
1384
        fprintf(stderr, "Failed SetCommMask\n");
1385
        goto fail;
1386
    }
1387

    
1388
    cto.ReadIntervalTimeout = MAXDWORD;
1389
    if (!SetCommTimeouts(s->hcom, &cto)) {
1390
        fprintf(stderr, "Failed SetCommTimeouts\n");
1391
        goto fail;
1392
    }
1393

    
1394
    if (!ClearCommError(s->hcom, &err, &comstat)) {
1395
        fprintf(stderr, "Failed ClearCommError\n");
1396
        goto fail;
1397
    }
1398
    qemu_add_polling_cb(win_chr_poll, chr);
1399
    return 0;
1400

    
1401
 fail:
1402
    win_chr_close(chr);
1403
    return -1;
1404
}
1405

    
1406
static int win_chr_write(CharDriverState *chr, const uint8_t *buf, int len1)
1407
{
1408
    WinCharState *s = chr->opaque;
1409
    DWORD len, ret, size, err;
1410

    
1411
    len = len1;
1412
    ZeroMemory(&s->osend, sizeof(s->osend));
1413
    s->osend.hEvent = s->hsend;
1414
    while (len > 0) {
1415
        if (s->hsend)
1416
            ret = WriteFile(s->hcom, buf, len, &size, &s->osend);
1417
        else
1418
            ret = WriteFile(s->hcom, buf, len, &size, NULL);
1419
        if (!ret) {
1420
            err = GetLastError();
1421
            if (err == ERROR_IO_PENDING) {
1422
                ret = GetOverlappedResult(s->hcom, &s->osend, &size, TRUE);
1423
                if (ret) {
1424
                    buf += size;
1425
                    len -= size;
1426
                } else {
1427
                    break;
1428
                }
1429
            } else {
1430
                break;
1431
            }
1432
        } else {
1433
            buf += size;
1434
            len -= size;
1435
        }
1436
    }
1437
    return len1 - len;
1438
}
1439

    
1440
static int win_chr_read_poll(CharDriverState *chr)
1441
{
1442
    WinCharState *s = chr->opaque;
1443

    
1444
    s->max_size = qemu_chr_can_read(chr);
1445
    return s->max_size;
1446
}
1447

    
1448
static void win_chr_readfile(CharDriverState *chr)
1449
{
1450
    WinCharState *s = chr->opaque;
1451
    int ret, err;
1452
    uint8_t buf[1024];
1453
    DWORD size;
1454

    
1455
    ZeroMemory(&s->orecv, sizeof(s->orecv));
1456
    s->orecv.hEvent = s->hrecv;
1457
    ret = ReadFile(s->hcom, buf, s->len, &size, &s->orecv);
1458
    if (!ret) {
1459
        err = GetLastError();
1460
        if (err == ERROR_IO_PENDING) {
1461
            ret = GetOverlappedResult(s->hcom, &s->orecv, &size, TRUE);
1462
        }
1463
    }
1464

    
1465
    if (size > 0) {
1466
        qemu_chr_read(chr, buf, size);
1467
    }
1468
}
1469

    
1470
static void win_chr_read(CharDriverState *chr)
1471
{
1472
    WinCharState *s = chr->opaque;
1473

    
1474
    if (s->len > s->max_size)
1475
        s->len = s->max_size;
1476
    if (s->len == 0)
1477
        return;
1478

    
1479
    win_chr_readfile(chr);
1480
}
1481

    
1482
static int win_chr_poll(void *opaque)
1483
{
1484
    CharDriverState *chr = opaque;
1485
    WinCharState *s = chr->opaque;
1486
    COMSTAT status;
1487
    DWORD comerr;
1488

    
1489
    ClearCommError(s->hcom, &comerr, &status);
1490
    if (status.cbInQue > 0) {
1491
        s->len = status.cbInQue;
1492
        win_chr_read_poll(chr);
1493
        win_chr_read(chr);
1494
        return 1;
1495
    }
1496
    return 0;
1497
}
1498

    
1499
static CharDriverState *qemu_chr_open_win(const char *filename)
1500
{
1501
    CharDriverState *chr;
1502
    WinCharState *s;
1503

    
1504
    chr = qemu_mallocz(sizeof(CharDriverState));
1505
    s = qemu_mallocz(sizeof(WinCharState));
1506
    chr->opaque = s;
1507
    chr->chr_write = win_chr_write;
1508
    chr->chr_close = win_chr_close;
1509

    
1510
    if (win_chr_init(chr, filename) < 0) {
1511
        free(s);
1512
        free(chr);
1513
        return NULL;
1514
    }
1515
    qemu_chr_reset(chr);
1516
    return chr;
1517
}
1518

    
1519
static int win_chr_pipe_poll(void *opaque)
1520
{
1521
    CharDriverState *chr = opaque;
1522
    WinCharState *s = chr->opaque;
1523
    DWORD size;
1524

    
1525
    PeekNamedPipe(s->hcom, NULL, 0, NULL, &size, NULL);
1526
    if (size > 0) {
1527
        s->len = size;
1528
        win_chr_read_poll(chr);
1529
        win_chr_read(chr);
1530
        return 1;
1531
    }
1532
    return 0;
1533
}
1534

    
1535
static int win_chr_pipe_init(CharDriverState *chr, const char *filename)
1536
{
1537
    WinCharState *s = chr->opaque;
1538
    OVERLAPPED ov;
1539
    int ret;
1540
    DWORD size;
1541
    char openname[256];
1542

    
1543
    s->fpipe = TRUE;
1544

    
1545
    s->hsend = CreateEvent(NULL, TRUE, FALSE, NULL);
1546
    if (!s->hsend) {
1547
        fprintf(stderr, "Failed CreateEvent\n");
1548
        goto fail;
1549
    }
1550
    s->hrecv = CreateEvent(NULL, TRUE, FALSE, NULL);
1551
    if (!s->hrecv) {
1552
        fprintf(stderr, "Failed CreateEvent\n");
1553
        goto fail;
1554
    }
1555

    
1556
    snprintf(openname, sizeof(openname), "\\\\.\\pipe\\%s", filename);
1557
    s->hcom = CreateNamedPipe(openname, PIPE_ACCESS_DUPLEX | FILE_FLAG_OVERLAPPED,
1558
                              PIPE_TYPE_BYTE | PIPE_READMODE_BYTE |
1559
                              PIPE_WAIT,
1560
                              MAXCONNECT, NSENDBUF, NRECVBUF, NTIMEOUT, NULL);
1561
    if (s->hcom == INVALID_HANDLE_VALUE) {
1562
        fprintf(stderr, "Failed CreateNamedPipe (%lu)\n", GetLastError());
1563
        s->hcom = NULL;
1564
        goto fail;
1565
    }
1566

    
1567
    ZeroMemory(&ov, sizeof(ov));
1568
    ov.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
1569
    ret = ConnectNamedPipe(s->hcom, &ov);
1570
    if (ret) {
1571
        fprintf(stderr, "Failed ConnectNamedPipe\n");
1572
        goto fail;
1573
    }
1574

    
1575
    ret = GetOverlappedResult(s->hcom, &ov, &size, TRUE);
1576
    if (!ret) {
1577
        fprintf(stderr, "Failed GetOverlappedResult\n");
1578
        if (ov.hEvent) {
1579
            CloseHandle(ov.hEvent);
1580
            ov.hEvent = NULL;
1581
        }
1582
        goto fail;
1583
    }
1584

    
1585
    if (ov.hEvent) {
1586
        CloseHandle(ov.hEvent);
1587
        ov.hEvent = NULL;
1588
    }
1589
    qemu_add_polling_cb(win_chr_pipe_poll, chr);
1590
    return 0;
1591

    
1592
 fail:
1593
    win_chr_close(chr);
1594
    return -1;
1595
}
1596

    
1597

    
1598
static CharDriverState *qemu_chr_open_win_pipe(const char *filename)
1599
{
1600
    CharDriverState *chr;
1601
    WinCharState *s;
1602

    
1603
    chr = qemu_mallocz(sizeof(CharDriverState));
1604
    s = qemu_mallocz(sizeof(WinCharState));
1605
    chr->opaque = s;
1606
    chr->chr_write = win_chr_write;
1607
    chr->chr_close = win_chr_close;
1608

    
1609
    if (win_chr_pipe_init(chr, filename) < 0) {
1610
        free(s);
1611
        free(chr);
1612
        return NULL;
1613
    }
1614
    qemu_chr_reset(chr);
1615
    return chr;
1616
}
1617

    
1618
static CharDriverState *qemu_chr_open_win_file(HANDLE fd_out)
1619
{
1620
    CharDriverState *chr;
1621
    WinCharState *s;
1622

    
1623
    chr = qemu_mallocz(sizeof(CharDriverState));
1624
    s = qemu_mallocz(sizeof(WinCharState));
1625
    s->hcom = fd_out;
1626
    chr->opaque = s;
1627
    chr->chr_write = win_chr_write;
1628
    qemu_chr_reset(chr);
1629
    return chr;
1630
}
1631

    
1632
static CharDriverState *qemu_chr_open_win_con(const char *filename)
1633
{
1634
    return qemu_chr_open_win_file(GetStdHandle(STD_OUTPUT_HANDLE));
1635
}
1636

    
1637
static CharDriverState *qemu_chr_open_win_file_out(const char *file_out)
1638
{
1639
    HANDLE fd_out;
1640

    
1641
    fd_out = CreateFile(file_out, GENERIC_WRITE, FILE_SHARE_READ, NULL,
1642
                        OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
1643
    if (fd_out == INVALID_HANDLE_VALUE)
1644
        return NULL;
1645

    
1646
    return qemu_chr_open_win_file(fd_out);
1647
}
1648
#endif /* !_WIN32 */
1649

    
1650
/***********************************************************/
1651
/* UDP Net console */
1652

    
1653
typedef struct {
1654
    int fd;
1655
    struct sockaddr_in daddr;
1656
    uint8_t buf[1024];
1657
    int bufcnt;
1658
    int bufptr;
1659
    int max_size;
1660
} NetCharDriver;
1661

    
1662
static int udp_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
1663
{
1664
    NetCharDriver *s = chr->opaque;
1665

    
1666
    return sendto(s->fd, buf, len, 0,
1667
                  (struct sockaddr *)&s->daddr, sizeof(struct sockaddr_in));
1668
}
1669

    
1670
static int udp_chr_read_poll(void *opaque)
1671
{
1672
    CharDriverState *chr = opaque;
1673
    NetCharDriver *s = chr->opaque;
1674

    
1675
    s->max_size = qemu_chr_can_read(chr);
1676

    
1677
    /* If there were any stray characters in the queue process them
1678
     * first
1679
     */
1680
    while (s->max_size > 0 && s->bufptr < s->bufcnt) {
1681
        qemu_chr_read(chr, &s->buf[s->bufptr], 1);
1682
        s->bufptr++;
1683
        s->max_size = qemu_chr_can_read(chr);
1684
    }
1685
    return s->max_size;
1686
}
1687

    
1688
static void udp_chr_read(void *opaque)
1689
{
1690
    CharDriverState *chr = opaque;
1691
    NetCharDriver *s = chr->opaque;
1692

    
1693
    if (s->max_size == 0)
1694
        return;
1695
    s->bufcnt = recv(s->fd, s->buf, sizeof(s->buf), 0);
1696
    s->bufptr = s->bufcnt;
1697
    if (s->bufcnt <= 0)
1698
        return;
1699

    
1700
    s->bufptr = 0;
1701
    while (s->max_size > 0 && s->bufptr < s->bufcnt) {
1702
        qemu_chr_read(chr, &s->buf[s->bufptr], 1);
1703
        s->bufptr++;
1704
        s->max_size = qemu_chr_can_read(chr);
1705
    }
1706
}
1707

    
1708
static void udp_chr_update_read_handler(CharDriverState *chr)
1709
{
1710
    NetCharDriver *s = chr->opaque;
1711

    
1712
    if (s->fd >= 0) {
1713
        qemu_set_fd_handler2(s->fd, udp_chr_read_poll,
1714
                             udp_chr_read, NULL, chr);
1715
    }
1716
}
1717

    
1718
static CharDriverState *qemu_chr_open_udp(const char *def)
1719
{
1720
    CharDriverState *chr = NULL;
1721
    NetCharDriver *s = NULL;
1722
    int fd = -1;
1723
    struct sockaddr_in saddr;
1724

    
1725
    chr = qemu_mallocz(sizeof(CharDriverState));
1726
    s = qemu_mallocz(sizeof(NetCharDriver));
1727

    
1728
    fd = socket(PF_INET, SOCK_DGRAM, 0);
1729
    if (fd < 0) {
1730
        perror("socket(PF_INET, SOCK_DGRAM)");
1731
        goto return_err;
1732
    }
1733

    
1734
    if (parse_host_src_port(&s->daddr, &saddr, def) < 0) {
1735
        printf("Could not parse: %s\n", def);
1736
        goto return_err;
1737
    }
1738

    
1739
    if (bind(fd, (struct sockaddr *)&saddr, sizeof(saddr)) < 0)
1740
    {
1741
        perror("bind");
1742
        goto return_err;
1743
    }
1744

    
1745
    s->fd = fd;
1746
    s->bufcnt = 0;
1747
    s->bufptr = 0;
1748
    chr->opaque = s;
1749
    chr->chr_write = udp_chr_write;
1750
    chr->chr_update_read_handler = udp_chr_update_read_handler;
1751
    return chr;
1752

    
1753
return_err:
1754
    if (chr)
1755
        free(chr);
1756
    if (s)
1757
        free(s);
1758
    if (fd >= 0)
1759
        closesocket(fd);
1760
    return NULL;
1761
}
1762

    
1763
/***********************************************************/
1764
/* TCP Net console */
1765

    
1766
typedef struct {
1767
    int fd, listen_fd;
1768
    int connected;
1769
    int max_size;
1770
    int do_telnetopt;
1771
    int do_nodelay;
1772
    int is_unix;
1773
} TCPCharDriver;
1774

    
1775
static void tcp_chr_accept(void *opaque);
1776

    
1777
static int tcp_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
1778
{
1779
    TCPCharDriver *s = chr->opaque;
1780
    if (s->connected) {
1781
        return send_all(s->fd, buf, len);
1782
    } else {
1783
        /* XXX: indicate an error ? */
1784
        return len;
1785
    }
1786
}
1787

    
1788
static int tcp_chr_read_poll(void *opaque)
1789
{
1790
    CharDriverState *chr = opaque;
1791
    TCPCharDriver *s = chr->opaque;
1792
    if (!s->connected)
1793
        return 0;
1794
    s->max_size = qemu_chr_can_read(chr);
1795
    return s->max_size;
1796
}
1797

    
1798
#define IAC 255
1799
#define IAC_BREAK 243
1800
static void tcp_chr_process_IAC_bytes(CharDriverState *chr,
1801
                                      TCPCharDriver *s,
1802
                                      uint8_t *buf, int *size)
1803
{
1804
    /* Handle any telnet client's basic IAC options to satisfy char by
1805
     * char mode with no echo.  All IAC options will be removed from
1806
     * the buf and the do_telnetopt variable will be used to track the
1807
     * state of the width of the IAC information.
1808
     *
1809
     * IAC commands come in sets of 3 bytes with the exception of the
1810
     * "IAC BREAK" command and the double IAC.
1811
     */
1812

    
1813
    int i;
1814
    int j = 0;
1815

    
1816
    for (i = 0; i < *size; i++) {
1817
        if (s->do_telnetopt > 1) {
1818
            if ((unsigned char)buf[i] == IAC && s->do_telnetopt == 2) {
1819
                /* Double IAC means send an IAC */
1820
                if (j != i)
1821
                    buf[j] = buf[i];
1822
                j++;
1823
                s->do_telnetopt = 1;
1824
            } else {
1825
                if ((unsigned char)buf[i] == IAC_BREAK && s->do_telnetopt == 2) {
1826
                    /* Handle IAC break commands by sending a serial break */
1827
                    qemu_chr_event(chr, CHR_EVENT_BREAK);
1828
                    s->do_telnetopt++;
1829
                }
1830
                s->do_telnetopt++;
1831
            }
1832
            if (s->do_telnetopt >= 4) {
1833
                s->do_telnetopt = 1;
1834
            }
1835
        } else {
1836
            if ((unsigned char)buf[i] == IAC) {
1837
                s->do_telnetopt = 2;
1838
            } else {
1839
                if (j != i)
1840
                    buf[j] = buf[i];
1841
                j++;
1842
            }
1843
        }
1844
    }
1845
    *size = j;
1846
}
1847

    
1848
static void tcp_chr_read(void *opaque)
1849
{
1850
    CharDriverState *chr = opaque;
1851
    TCPCharDriver *s = chr->opaque;
1852
    uint8_t buf[1024];
1853
    int len, size;
1854

    
1855
    if (!s->connected || s->max_size <= 0)
1856
        return;
1857
    len = sizeof(buf);
1858
    if (len > s->max_size)
1859
        len = s->max_size;
1860
    size = recv(s->fd, buf, len, 0);
1861
    if (size == 0) {
1862
        /* connection closed */
1863
        s->connected = 0;
1864
        if (s->listen_fd >= 0) {
1865
            qemu_set_fd_handler(s->listen_fd, tcp_chr_accept, NULL, chr);
1866
        }
1867
        qemu_set_fd_handler(s->fd, NULL, NULL, NULL);
1868
        closesocket(s->fd);
1869
        s->fd = -1;
1870
    } else if (size > 0) {
1871
        if (s->do_telnetopt)
1872
            tcp_chr_process_IAC_bytes(chr, s, buf, &size);
1873
        if (size > 0)
1874
            qemu_chr_read(chr, buf, size);
1875
    }
1876
}
1877

    
1878
static void tcp_chr_connect(void *opaque)
1879
{
1880
    CharDriverState *chr = opaque;
1881
    TCPCharDriver *s = chr->opaque;
1882

    
1883
    s->connected = 1;
1884
    qemu_set_fd_handler2(s->fd, tcp_chr_read_poll,
1885
                         tcp_chr_read, NULL, chr);
1886
    qemu_chr_reset(chr);
1887
}
1888

    
1889
#define IACSET(x,a,b,c) x[0] = a; x[1] = b; x[2] = c;
1890
static void tcp_chr_telnet_init(int fd)
1891
{
1892
    char buf[3];
1893
    /* Send the telnet negotion to put telnet in binary, no echo, single char mode */
1894
    IACSET(buf, 0xff, 0xfb, 0x01);  /* IAC WILL ECHO */
1895
    send(fd, (char *)buf, 3, 0);
1896
    IACSET(buf, 0xff, 0xfb, 0x03);  /* IAC WILL Suppress go ahead */
1897
    send(fd, (char *)buf, 3, 0);
1898
    IACSET(buf, 0xff, 0xfb, 0x00);  /* IAC WILL Binary */
1899
    send(fd, (char *)buf, 3, 0);
1900
    IACSET(buf, 0xff, 0xfd, 0x00);  /* IAC DO Binary */
1901
    send(fd, (char *)buf, 3, 0);
1902
}
1903

    
1904
static void socket_set_nodelay(int fd)
1905
{
1906
    int val = 1;
1907
    setsockopt(fd, IPPROTO_TCP, TCP_NODELAY, (char *)&val, sizeof(val));
1908
}
1909

    
1910
static void tcp_chr_accept(void *opaque)
1911
{
1912
    CharDriverState *chr = opaque;
1913
    TCPCharDriver *s = chr->opaque;
1914
    struct sockaddr_in saddr;
1915
#ifndef _WIN32
1916
    struct sockaddr_un uaddr;
1917
#endif
1918
    struct sockaddr *addr;
1919
    socklen_t len;
1920
    int fd;
1921

    
1922
    for(;;) {
1923
#ifndef _WIN32
1924
        if (s->is_unix) {
1925
            len = sizeof(uaddr);
1926
            addr = (struct sockaddr *)&uaddr;
1927
        } else
1928
#endif
1929
        {
1930
            len = sizeof(saddr);
1931
            addr = (struct sockaddr *)&saddr;
1932
        }
1933
        fd = accept(s->listen_fd, addr, &len);
1934
        if (fd < 0 && errno != EINTR) {
1935
            return;
1936
        } else if (fd >= 0) {
1937
            if (s->do_telnetopt)
1938
                tcp_chr_telnet_init(fd);
1939
            break;
1940
        }
1941
    }
1942
    socket_set_nonblock(fd);
1943
    if (s->do_nodelay)
1944
        socket_set_nodelay(fd);
1945
    s->fd = fd;
1946
    qemu_set_fd_handler(s->listen_fd, NULL, NULL, NULL);
1947
    tcp_chr_connect(chr);
1948
}
1949

    
1950
static void tcp_chr_close(CharDriverState *chr)
1951
{
1952
    TCPCharDriver *s = chr->opaque;
1953
    if (s->fd >= 0)
1954
        closesocket(s->fd);
1955
    if (s->listen_fd >= 0)
1956
        closesocket(s->listen_fd);
1957
    qemu_free(s);
1958
}
1959

    
1960
static CharDriverState *qemu_chr_open_tcp(const char *host_str,
1961
                                          int is_telnet,
1962
                                          int is_unix)
1963
{
1964
    CharDriverState *chr = NULL;
1965
    TCPCharDriver *s = NULL;
1966
    int fd = -1, offset = 0;
1967
    int is_listen = 0;
1968
    int is_waitconnect = 1;
1969
    int do_nodelay = 0;
1970
    const char *ptr;
1971

    
1972
    ptr = host_str;
1973
    while((ptr = strchr(ptr,','))) {
1974
        ptr++;
1975
        if (!strncmp(ptr,"server",6)) {
1976
            is_listen = 1;
1977
        } else if (!strncmp(ptr,"nowait",6)) {
1978
            is_waitconnect = 0;
1979
        } else if (!strncmp(ptr,"nodelay",6)) {
1980
            do_nodelay = 1;
1981
        } else if (!strncmp(ptr,"to=",3)) {
1982
            /* nothing, inet_listen() parses this one */;
1983
        } else {
1984
            printf("Unknown option: %s\n", ptr);
1985
            goto fail;
1986
        }
1987
    }
1988
    if (!is_listen)
1989
        is_waitconnect = 0;
1990

    
1991
    chr = qemu_mallocz(sizeof(CharDriverState));
1992
    s = qemu_mallocz(sizeof(TCPCharDriver));
1993

    
1994
    if (is_listen) {
1995
        chr->filename = qemu_malloc(256);
1996
        if (is_unix) {
1997
            pstrcpy(chr->filename, 256, "unix:");
1998
        } else if (is_telnet) {
1999
            pstrcpy(chr->filename, 256, "telnet:");
2000
        } else {
2001
            pstrcpy(chr->filename, 256, "tcp:");
2002
        }
2003
        offset = strlen(chr->filename);
2004
    }
2005
    if (is_unix) {
2006
        if (is_listen) {
2007
            fd = unix_listen(host_str, chr->filename + offset, 256 - offset);
2008
        } else {
2009
            fd = unix_connect(host_str);
2010
        }
2011
    } else {
2012
        if (is_listen) {
2013
            fd = inet_listen(host_str, chr->filename + offset, 256 - offset,
2014
                             SOCK_STREAM, 0);
2015
        } else {
2016
            fd = inet_connect(host_str, SOCK_STREAM);
2017
        }
2018
    }
2019
    if (fd < 0)
2020
        goto fail;
2021

    
2022
    if (!is_waitconnect)
2023
        socket_set_nonblock(fd);
2024

    
2025
    s->connected = 0;
2026
    s->fd = -1;
2027
    s->listen_fd = -1;
2028
    s->is_unix = is_unix;
2029
    s->do_nodelay = do_nodelay && !is_unix;
2030

    
2031
    chr->opaque = s;
2032
    chr->chr_write = tcp_chr_write;
2033
    chr->chr_close = tcp_chr_close;
2034

    
2035
    if (is_listen) {
2036
        s->listen_fd = fd;
2037
        qemu_set_fd_handler(s->listen_fd, tcp_chr_accept, NULL, chr);
2038
        if (is_telnet)
2039
            s->do_telnetopt = 1;
2040
    } else {
2041
        s->connected = 1;
2042
        s->fd = fd;
2043
        socket_set_nodelay(fd);
2044
        tcp_chr_connect(chr);
2045
    }
2046

    
2047
    if (is_listen && is_waitconnect) {
2048
        printf("QEMU waiting for connection on: %s\n",
2049
               chr->filename ? chr->filename : host_str);
2050
        tcp_chr_accept(chr);
2051
        socket_set_nonblock(s->listen_fd);
2052
    }
2053

    
2054
    return chr;
2055
 fail:
2056
    if (fd >= 0)
2057
        closesocket(fd);
2058
    qemu_free(s);
2059
    qemu_free(chr);
2060
    return NULL;
2061
}
2062

    
2063
static TAILQ_HEAD(CharDriverStateHead, CharDriverState) chardevs
2064
= TAILQ_HEAD_INITIALIZER(chardevs);
2065

    
2066
CharDriverState *qemu_chr_open(const char *label, const char *filename, void (*init)(struct CharDriverState *s))
2067
{
2068
    const char *p;
2069
    CharDriverState *chr;
2070

    
2071
    if (!strcmp(filename, "vc")) {
2072
        chr = text_console_init(0);
2073
    } else
2074
    if (strstart(filename, "vc:", &p)) {
2075
        chr = text_console_init(p);
2076
    } else
2077
    if (!strcmp(filename, "null")) {
2078
        chr = qemu_chr_open_null();
2079
    } else
2080
    if (strstart(filename, "tcp:", &p)) {
2081
        chr = qemu_chr_open_tcp(p, 0, 0);
2082
    } else
2083
    if (strstart(filename, "telnet:", &p)) {
2084
        chr = qemu_chr_open_tcp(p, 1, 0);
2085
    } else
2086
    if (strstart(filename, "udp:", &p)) {
2087
        chr = qemu_chr_open_udp(p);
2088
    } else
2089
    if (strstart(filename, "mon:", &p)) {
2090
        chr = qemu_chr_open(label, p, NULL);
2091
        if (chr) {
2092
            chr = qemu_chr_open_mux(chr);
2093
            monitor_init(chr, !nographic);
2094
        } else {
2095
            printf("Unable to open driver: %s\n", p);
2096
        }
2097
    } else
2098
#ifndef _WIN32
2099
    if (strstart(filename, "unix:", &p)) {
2100
        chr = qemu_chr_open_tcp(p, 0, 1);
2101
    } else if (strstart(filename, "file:", &p)) {
2102
        chr = qemu_chr_open_file_out(p);
2103
    } else if (strstart(filename, "pipe:", &p)) {
2104
        chr = qemu_chr_open_pipe(p);
2105
    } else if (!strcmp(filename, "pty")) {
2106
        chr = qemu_chr_open_pty();
2107
    } else if (!strcmp(filename, "stdio")) {
2108
        chr = qemu_chr_open_stdio();
2109
    } else
2110
#if defined(__linux__)
2111
    if (strstart(filename, "/dev/parport", NULL)) {
2112
        chr = qemu_chr_open_pp(filename);
2113
    } else
2114
#elif defined(__FreeBSD__)
2115
    if (strstart(filename, "/dev/ppi", NULL)) {
2116
        chr = qemu_chr_open_pp(filename);
2117
    } else
2118
#endif
2119
#if defined(__linux__) || defined(__sun__) || defined(__FreeBSD__) \
2120
    || defined(__NetBSD__) || defined(__OpenBSD__)
2121
    if (strstart(filename, "/dev/", NULL)) {
2122
        chr = qemu_chr_open_tty(filename);
2123
    } else
2124
#endif
2125
#else /* !_WIN32 */
2126
    if (strstart(filename, "COM", NULL)) {
2127
        chr = qemu_chr_open_win(filename);
2128
    } else
2129
    if (strstart(filename, "pipe:", &p)) {
2130
        chr = qemu_chr_open_win_pipe(p);
2131
    } else
2132
    if (strstart(filename, "con:", NULL)) {
2133
        chr = qemu_chr_open_win_con(filename);
2134
    } else
2135
    if (strstart(filename, "file:", &p)) {
2136
        chr = qemu_chr_open_win_file_out(p);
2137
    } else
2138
#endif
2139
#ifdef CONFIG_BRLAPI
2140
    if (!strcmp(filename, "braille")) {
2141
        chr = chr_baum_init();
2142
    } else
2143
#endif
2144
    {
2145
        chr = NULL;
2146
    }
2147

    
2148
    if (chr) {
2149
        if (!chr->filename)
2150
            chr->filename = qemu_strdup(filename);
2151
        chr->init = init;
2152
        chr->label = qemu_strdup(label);
2153
        TAILQ_INSERT_TAIL(&chardevs, chr, next);
2154
    }
2155
    return chr;
2156
}
2157

    
2158
void qemu_chr_close(CharDriverState *chr)
2159
{
2160
    TAILQ_REMOVE(&chardevs, chr, next);
2161
    if (chr->chr_close)
2162
        chr->chr_close(chr);
2163
    qemu_free(chr->filename);
2164
    qemu_free(chr->label);
2165
    qemu_free(chr);
2166
}
2167

    
2168
void qemu_chr_info(void)
2169
{
2170
    CharDriverState *chr;
2171

    
2172
    TAILQ_FOREACH(chr, &chardevs, next) {
2173
        term_printf("%s: filename=%s\n", chr->label, chr->filename);
2174
    }
2175
}