?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Remove duplicated inclusion of signal.h in qemu-kvm.h
[qemu-kvm/fedora.git] / vl.c
blobd9b7db24b4effab941dc68588a5eaed565b29d08
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 "hw/hw.h"
25 #include "hw/boards.h"
26 #include "hw/usb.h"
27 #include "hw/pcmcia.h"
28 #include "hw/pc.h"
29 #include "hw/audiodev.h"
30 #include "hw/isa.h"
31 #include "hw/baum.h"
32 #include "net.h"
33 #include "console.h"
34 #include "sysemu.h"
35 #include "gdbstub.h"
36 #include "qemu-timer.h"
37 #include "qemu-char.h"
38 #include "block.h"
39 #include "audio/audio.h"
40 #include "migration.h"
41 #include "qemu-kvm.h"
42
43 #include <unistd.h>
44 #include <fcntl.h>
45 #include <signal.h>
46 #include <time.h>
47 #include <errno.h>
48 #include <sys/time.h>
49 #include <zlib.h>
50
51 #ifndef _WIN32
52 #include <sys/times.h>
53 #include <sys/wait.h>
54 #include <termios.h>
55 #include <sys/poll.h>
56 #include <sys/mman.h>
57 #include <sys/ioctl.h>
58 #include <sys/socket.h>
59 #include <netinet/in.h>
60 #include <dirent.h>
61 #include <netdb.h>
62 #include <sys/select.h>
63 #include <arpa/inet.h>
64 #ifdef _BSD
65 #include <sys/stat.h>
66 #ifndef __APPLE__
67 #include <libutil.h>
68 #endif
69 #elif defined (__GLIBC__) && defined (__FreeBSD_kernel__)
70 #include <freebsd/stdlib.h>
71 #else
72 #ifndef __sun__
73 #include <linux/if.h>
74 #include <linux/if_tun.h>
75 #include <pty.h>
76 #include <malloc.h>
77 #include <linux/rtc.h>
78
79 /* For the benefit of older linux systems which don't supply it,
80 we use a local copy of hpet.h. */
81 /* #include <linux/hpet.h> */
82 #include "hpet.h"
83
84 #include <linux/ppdev.h>
85 #include <linux/parport.h>
86 #else
87 #include <sys/stat.h>
88 #include <sys/ethernet.h>
89 #include <sys/sockio.h>
90 #include <netinet/arp.h>
91 #include <netinet/in.h>
92 #include <netinet/in_systm.h>
93 #include <netinet/ip.h>
94 #include <netinet/ip_icmp.h> // must come after ip.h
95 #include <netinet/udp.h>
96 #include <netinet/tcp.h>
97 #include <net/if.h>
98 #include <syslog.h>
99 #include <stropts.h>
100 #endif
101 #endif
102 #else
103 #include <winsock2.h>
104 int inet_aton(const char *cp, struct in_addr *ia);
105 #endif
106
107 #if defined(CONFIG_SLIRP)
108 #include "libslirp.h"
109 #endif
110
111 #ifdef _WIN32
112 #include <malloc.h>
113 #include <sys/timeb.h>
114 #include <mmsystem.h>
115 #define getopt_long_only getopt_long
116 #define memalign(align, size) malloc(size)
117 #endif
118
119 #include "qemu_socket.h"
120
121 #ifdef CONFIG_SDL
122 #ifdef __APPLE__
123 #include <SDL/SDL.h>
124 #endif
125 #endif /* CONFIG_SDL */
126
127 #ifdef CONFIG_COCOA
128 #undef main
129 #define main qemu_main
130 #endif /* CONFIG_COCOA */
131
132 #include "disas.h"
133
134 #include "exec-all.h"
135
136 #include "qemu-kvm.h"
137
138 #define DEFAULT_NETWORK_SCRIPT "/etc/qemu-ifup"
139 #define DEFAULT_NETWORK_DOWN_SCRIPT "/etc/qemu-ifdown"
140 #ifdef __sun__
141 #define SMBD_COMMAND "/usr/sfw/sbin/smbd"
142 #else
143 #define SMBD_COMMAND "/usr/sbin/smbd"
144 #endif
145
146 //#define DEBUG_UNUSED_IOPORT
147 //#define DEBUG_IOPORT
148
149 #ifdef TARGET_PPC
150 #define DEFAULT_RAM_SIZE 144
151 #else
152 #define DEFAULT_RAM_SIZE 128
153 #endif
154 /* in ms */
155 #define GUI_REFRESH_INTERVAL 30
156
157 /* Max number of USB devices that can be specified on the commandline. */
158 #define MAX_USB_CMDLINE 8
159
160 /* XXX: use a two level table to limit memory usage */
161 #define MAX_IOPORTS 65536
162
163 const char *bios_dir = CONFIG_QEMU_SHAREDIR;
164 const char *bios_name = NULL;
165 void *ioport_opaque[MAX_IOPORTS];
166 IOPortReadFunc *ioport_read_table[3][MAX_IOPORTS];
167 IOPortWriteFunc *ioport_write_table[3][MAX_IOPORTS];
168 /* Note: drives_table[MAX_DRIVES] is a dummy block driver if none available
169 to store the VM snapshots */
170 DriveInfo drives_table[MAX_DRIVES+1];
171 int nb_drives;
172 int extboot_drive = -1;
173 /* point to the block driver where the snapshots are managed */
174 BlockDriverState *bs_snapshots;
175 int vga_ram_size;
176 static DisplayState display_state;
177 int nographic;
178 int curses;
179 const char* keyboard_layout = NULL;
180 int64_t ticks_per_sec;
181 ram_addr_t ram_size;
182 int pit_min_timer_count = 0;
183 int nb_nics;
184 NICInfo nd_table[MAX_NICS];
185 int vm_running;
186 static int rtc_utc = 1;
187 static int rtc_date_offset = -1; /* -1 means no change */
188 int cirrus_vga_enabled = 1;
189 int vmsvga_enabled = 0;
190 #ifdef TARGET_SPARC
191 int graphic_width = 1024;
192 int graphic_height = 768;
193 int graphic_depth = 8;
194 #else
195 int graphic_width = 800;
196 int graphic_height = 600;
197 int graphic_depth = 15;
198 #endif
199 int full_screen = 0;
200 int no_frame = 0;
201 int no_quit = 0;
202 CharDriverState *serial_hds[MAX_SERIAL_PORTS];
203 CharDriverState *parallel_hds[MAX_PARALLEL_PORTS];
204 #ifdef TARGET_I386
205 int win2k_install_hack = 0;
206 #endif
207 int usb_enabled = 0;
208 static VLANState *first_vlan;
209 int smp_cpus = 1;
210 const char *vnc_display;
211 #if defined(TARGET_SPARC)
212 #define MAX_CPUS 16
213 #elif defined(TARGET_I386)
214 #define MAX_CPUS 255
215 #elif defined(TARGET_IA64)
216 #define MAX_CPUS 4
217 #else
218 #define MAX_CPUS 1
219 #endif
220 int acpi_enabled = 1;
221 int fd_bootchk = 1;
222 int no_reboot = 0;
223 int no_shutdown = 0;
224 int cursor_hide = 1;
225 int graphic_rotate = 0;
226 int daemonize = 0;
227 const char *incoming;
228 const char *option_rom[MAX_OPTION_ROMS];
229 int nb_option_roms;
230 int semihosting_enabled = 0;
231 int autostart = 1;
232 int time_drift_fix = 0;
233 unsigned int kvm_shadow_memory = 0;
234 const char *mem_path = NULL;
235 int hpagesize = 0;
236 const char *cpu_vendor_string;
237 #ifdef TARGET_ARM
238 int old_param = 0;
239 #endif
240 const char *qemu_name;
241 int alt_grab = 0;
242 #ifdef TARGET_SPARC
243 unsigned int nb_prom_envs = 0;
244 const char *prom_envs[MAX_PROM_ENVS];
245 #endif
246 int nb_drives_opt;
247 struct drive_opt drives_opt[MAX_DRIVES];
248
249 static CPUState *cur_cpu;
250 static CPUState *next_cpu;
251 static int event_pending = 1;
252 /* Conversion factor from emulated instructions to virtual clock ticks. */
253 static int icount_time_shift;
254 /* Arbitrarily pick 1MIPS as the minimum allowable speed. */
255 #define MAX_ICOUNT_SHIFT 10
256 /* Compensate for varying guest execution speed. */
257 static int64_t qemu_icount_bias;
258 QEMUTimer *icount_rt_timer;
259 QEMUTimer *icount_vm_timer;
260
261 #define TFR(expr) do { if ((expr) != -1) break; } while (errno == EINTR)
262
263 /* KVM runs the main loop in a separate thread. If we update one of the lists
264 * that are polled before or after select(), we need to make sure to break out
265 * of the select() to ensure the new item is serviced.
266 */
267 static void main_loop_break(void)
268 {
269 if (kvm_enabled())
270 qemu_kvm_notify_work();
271 }
272
273 /***********************************************************/
274 /* x86 ISA bus support */
275
276 target_phys_addr_t isa_mem_base = 0;
277 PicState2 *isa_pic;
278
279 static uint32_t default_ioport_readb(void *opaque, uint32_t address)
280 {
281 #ifdef DEBUG_UNUSED_IOPORT
282 fprintf(stderr, "unused inb: port=0x%04x\n", address);
283 #endif
284 return 0xff;
285 }
286
287 static void default_ioport_writeb(void *opaque, uint32_t address, uint32_t data)
288 {
289 #ifdef DEBUG_UNUSED_IOPORT
290 fprintf(stderr, "unused outb: port=0x%04x data=0x%02x\n", address, data);
291 #endif
292 }
293
294 /* default is to make two byte accesses */
295 static uint32_t default_ioport_readw(void *opaque, uint32_t address)
296 {
297 uint32_t data;
298 data = ioport_read_table[0][address](ioport_opaque[address], address);
299 address = (address + 1) & (MAX_IOPORTS - 1);
300 data |= ioport_read_table[0][address](ioport_opaque[address], address) << 8;
301 return data;
302 }
303
304 static void default_ioport_writew(void *opaque, uint32_t address, uint32_t data)
305 {
306 ioport_write_table[0][address](ioport_opaque[address], address, data & 0xff);
307 address = (address + 1) & (MAX_IOPORTS - 1);
308 ioport_write_table[0][address](ioport_opaque[address], address, (data >> 8) & 0xff);
309 }
310
311 static uint32_t default_ioport_readl(void *opaque, uint32_t address)
312 {
313 #ifdef DEBUG_UNUSED_IOPORT
314 fprintf(stderr, "unused inl: port=0x%04x\n", address);
315 #endif
316 return 0xffffffff;
317 }
318
319 static void default_ioport_writel(void *opaque, uint32_t address, uint32_t data)
320 {
321 #ifdef DEBUG_UNUSED_IOPORT
322 fprintf(stderr, "unused outl: port=0x%04x data=0x%02x\n", address, data);
323 #endif
324 }
325
326 static void init_ioports(void)
327 {
328 int i;
329
330 for(i = 0; i < MAX_IOPORTS; i++) {
331 ioport_read_table[0][i] = default_ioport_readb;
332 ioport_write_table[0][i] = default_ioport_writeb;
333 ioport_read_table[1][i] = default_ioport_readw;
334 ioport_write_table[1][i] = default_ioport_writew;
335 ioport_read_table[2][i] = default_ioport_readl;
336 ioport_write_table[2][i] = default_ioport_writel;
337 }
338 }
339
340 /* size is the word size in byte */
341 int register_ioport_read(int start, int length, int size,
342 IOPortReadFunc *func, void *opaque)
343 {
344 int i, bsize;
345
346 if (size == 1) {
347 bsize = 0;
348 } else if (size == 2) {
349 bsize = 1;
350 } else if (size == 4) {
351 bsize = 2;
352 } else {
353 hw_error("register_ioport_read: invalid size");
354 return -1;
355 }
356 for(i = start; i < start + length; i += size) {
357 ioport_read_table[bsize][i] = func;
358 if (ioport_opaque[i] != NULL && ioport_opaque[i] != opaque)
359 hw_error("register_ioport_read: invalid opaque");
360 ioport_opaque[i] = opaque;
361 }
362 return 0;
363 }
364
365 /* size is the word size in byte */
366 int register_ioport_write(int start, int length, int size,
367 IOPortWriteFunc *func, void *opaque)
368 {
369 int i, bsize;
370
371 if (size == 1) {
372 bsize = 0;
373 } else if (size == 2) {
374 bsize = 1;
375 } else if (size == 4) {
376 bsize = 2;
377 } else {
378 hw_error("register_ioport_write: invalid size");
379 return -1;
380 }
381 for(i = start; i < start + length; i += size) {
382 ioport_write_table[bsize][i] = func;
383 if (ioport_opaque[i] != NULL && ioport_opaque[i] != opaque)
384 hw_error("register_ioport_write: invalid opaque");
385 ioport_opaque[i] = opaque;
386 }
387 return 0;
388 }
389
390 void isa_unassign_ioport(int start, int length)
391 {
392 int i;
393
394 for(i = start; i < start + length; i++) {
395 ioport_read_table[0][i] = default_ioport_readb;
396 ioport_read_table[1][i] = default_ioport_readw;
397 ioport_read_table[2][i] = default_ioport_readl;
398
399 ioport_write_table[0][i] = default_ioport_writeb;
400 ioport_write_table[1][i] = default_ioport_writew;
401 ioport_write_table[2][i] = default_ioport_writel;
402
403 ioport_opaque[i] = NULL;
404 }
405 }
406
407 /***********************************************************/
408
409 void cpu_outb(CPUState *env, int addr, int val)
410 {
411 #ifdef DEBUG_IOPORT
412 if (loglevel & CPU_LOG_IOPORT)
413 fprintf(logfile, "outb: %04x %02x\n", addr, val);
414 #endif
415 ioport_write_table[0][addr](ioport_opaque[addr], addr, val);
416 #ifdef USE_KQEMU
417 if (env)
418 env->last_io_time = cpu_get_time_fast();
419 #endif
420 }
421
422 void cpu_outw(CPUState *env, int addr, int val)
423 {
424 #ifdef DEBUG_IOPORT
425 if (loglevel & CPU_LOG_IOPORT)
426 fprintf(logfile, "outw: %04x %04x\n", addr, val);
427 #endif
428 ioport_write_table[1][addr](ioport_opaque[addr], addr, val);
429 #ifdef USE_KQEMU
430 if (env)
431 env->last_io_time = cpu_get_time_fast();
432 #endif
433 }
434
435 void cpu_outl(CPUState *env, int addr, int val)
436 {
437 #ifdef DEBUG_IOPORT
438 if (loglevel & CPU_LOG_IOPORT)
439 fprintf(logfile, "outl: %04x %08x\n", addr, val);
440 #endif
441 ioport_write_table[2][addr](ioport_opaque[addr], addr, val);
442 #ifdef USE_KQEMU
443 if (env)
444 env->last_io_time = cpu_get_time_fast();
445 #endif
446 }
447
448 int cpu_inb(CPUState *env, int addr)
449 {
450 int val;
451 val = ioport_read_table[0][addr](ioport_opaque[addr], addr);
452 #ifdef DEBUG_IOPORT
453 if (loglevel & CPU_LOG_IOPORT)
454 fprintf(logfile, "inb : %04x %02x\n", addr, val);
455 #endif
456 #ifdef USE_KQEMU
457 if (env)
458 env->last_io_time = cpu_get_time_fast();
459 #endif
460 return val;
461 }
462
463 int cpu_inw(CPUState *env, int addr)
464 {
465 int val;
466 val = ioport_read_table[1][addr](ioport_opaque[addr], addr);
467 #ifdef DEBUG_IOPORT
468 if (loglevel & CPU_LOG_IOPORT)
469 fprintf(logfile, "inw : %04x %04x\n", addr, val);
470 #endif
471 #ifdef USE_KQEMU
472 if (env)
473 env->last_io_time = cpu_get_time_fast();
474 #endif
475 return val;
476 }
477
478 int cpu_inl(CPUState *env, int addr)
479 {
480 int val;
481 val = ioport_read_table[2][addr](ioport_opaque[addr], addr);
482 #ifdef DEBUG_IOPORT
483 if (loglevel & CPU_LOG_IOPORT)
484 fprintf(logfile, "inl : %04x %08x\n", addr, val);
485 #endif
486 #ifdef USE_KQEMU
487 if (env)
488 env->last_io_time = cpu_get_time_fast();
489 #endif
490 return val;
491 }
492
493 /***********************************************************/
494 void hw_error(const char *fmt, ...)
495 {
496 va_list ap;
497 CPUState *env;
498
499 va_start(ap, fmt);
500 fprintf(stderr, "qemu: hardware error: ");
501 vfprintf(stderr, fmt, ap);
502 fprintf(stderr, "\n");
503 for(env = first_cpu; env != NULL; env = env->next_cpu) {
504 fprintf(stderr, "CPU #%d:\n", env->cpu_index);
505 #ifdef TARGET_I386
506 cpu_dump_state(env, stderr, fprintf, X86_DUMP_FPU);
507 #else
508 cpu_dump_state(env, stderr, fprintf, 0);
509 #endif
510 }
511 va_end(ap);
512 abort();
513 }
514
515 /***********************************************************/
516 /* keyboard/mouse */
517
518 static QEMUPutKBDEvent *qemu_put_kbd_event;
519 static void *qemu_put_kbd_event_opaque;
520 static QEMUPutMouseEntry *qemu_put_mouse_event_head;
521 static QEMUPutMouseEntry *qemu_put_mouse_event_current;
522
523 void qemu_add_kbd_event_handler(QEMUPutKBDEvent *func, void *opaque)
524 {
525 qemu_put_kbd_event_opaque = opaque;
526 qemu_put_kbd_event = func;
527 }
528
529 QEMUPutMouseEntry *qemu_add_mouse_event_handler(QEMUPutMouseEvent *func,
530 void *opaque, int absolute,
531 const char *name)
532 {
533 QEMUPutMouseEntry *s, *cursor;
534
535 s = qemu_mallocz(sizeof(QEMUPutMouseEntry));
536 if (!s)
537 return NULL;
538
539 s->qemu_put_mouse_event = func;
540 s->qemu_put_mouse_event_opaque = opaque;
541 s->qemu_put_mouse_event_absolute = absolute;
542 s->qemu_put_mouse_event_name = qemu_strdup(name);
543 s->next = NULL;
544
545 if (!qemu_put_mouse_event_head) {
546 qemu_put_mouse_event_head = qemu_put_mouse_event_current = s;
547 return s;
548 }
549
550 cursor = qemu_put_mouse_event_head;
551 while (cursor->next != NULL)
552 cursor = cursor->next;
553
554 cursor->next = s;
555 qemu_put_mouse_event_current = s;
556
557 return s;
558 }
559
560 void qemu_remove_mouse_event_handler(QEMUPutMouseEntry *entry)
561 {
562 QEMUPutMouseEntry *prev = NULL, *cursor;
563
564 if (!qemu_put_mouse_event_head || entry == NULL)
565 return;
566
567 cursor = qemu_put_mouse_event_head;
568 while (cursor != NULL && cursor != entry) {
569 prev = cursor;
570 cursor = cursor->next;
571 }
572
573 if (cursor == NULL) // does not exist or list empty
574 return;
575 else if (prev == NULL) { // entry is head
576 qemu_put_mouse_event_head = cursor->next;
577 if (qemu_put_mouse_event_current == entry)
578 qemu_put_mouse_event_current = cursor->next;
579 qemu_free(entry->qemu_put_mouse_event_name);
580 qemu_free(entry);
581 return;
582 }
583
584 prev->next = entry->next;
585
586 if (qemu_put_mouse_event_current == entry)
587 qemu_put_mouse_event_current = prev;
588
589 qemu_free(entry->qemu_put_mouse_event_name);
590 qemu_free(entry);
591 }
592
593 void kbd_put_keycode(int keycode)
594 {
595 if (qemu_put_kbd_event) {
596 qemu_put_kbd_event(qemu_put_kbd_event_opaque, keycode);
597 }
598 }
599
600 void kbd_mouse_event(int dx, int dy, int dz, int buttons_state)
601 {
602 QEMUPutMouseEvent *mouse_event;
603 void *mouse_event_opaque;
604 int width;
605
606 if (!qemu_put_mouse_event_current) {
607 return;
608 }
609
610 mouse_event =
611 qemu_put_mouse_event_current->qemu_put_mouse_event;
612 mouse_event_opaque =
613 qemu_put_mouse_event_current->qemu_put_mouse_event_opaque;
614
615 if (mouse_event) {
616 if (graphic_rotate) {
617 if (qemu_put_mouse_event_current->qemu_put_mouse_event_absolute)
618 width = 0x7fff;
619 else
620 width = graphic_width - 1;
621 mouse_event(mouse_event_opaque,
622 width - dy, dx, dz, buttons_state);
623 } else
624 mouse_event(mouse_event_opaque,
625 dx, dy, dz, buttons_state);
626 }
627 }
628
629 int kbd_mouse_is_absolute(void)
630 {
631 if (!qemu_put_mouse_event_current)
632 return 0;
633
634 return qemu_put_mouse_event_current->qemu_put_mouse_event_absolute;
635 }
636
637 void do_info_mice(void)
638 {
639 QEMUPutMouseEntry *cursor;
640 int index = 0;
641
642 if (!qemu_put_mouse_event_head) {
643 term_printf("No mouse devices connected\n");
644 return;
645 }
646
647 term_printf("Mouse devices available:\n");
648 cursor = qemu_put_mouse_event_head;
649 while (cursor != NULL) {
650 term_printf("%c Mouse #%d: %s\n",
651 (cursor == qemu_put_mouse_event_current ? '*' : ' '),
652 index, cursor->qemu_put_mouse_event_name);
653 index++;
654 cursor = cursor->next;
655 }
656 }
657
658 void do_mouse_set(int index)
659 {
660 QEMUPutMouseEntry *cursor;
661 int i = 0;
662
663 if (!qemu_put_mouse_event_head) {
664 term_printf("No mouse devices connected\n");
665 return;
666 }
667
668 cursor = qemu_put_mouse_event_head;
669 while (cursor != NULL && index != i) {
670 i++;
671 cursor = cursor->next;
672 }
673
674 if (cursor != NULL)
675 qemu_put_mouse_event_current = cursor;
676 else
677 term_printf("Mouse at given index not found\n");
678 }
679
680 /* compute with 96 bit intermediate result: (a*b)/c */
681 uint64_t muldiv64(uint64_t a, uint32_t b, uint32_t c)
682 {
683 union {
684 uint64_t ll;
685 struct {
686 #ifdef WORDS_BIGENDIAN
687 uint32_t high, low;
688 #else
689 uint32_t low, high;
690 #endif
691 } l;
692 } u, res;
693 uint64_t rl, rh;
694
695 u.ll = a;
696 rl = (uint64_t)u.l.low * (uint64_t)b;
697 rh = (uint64_t)u.l.high * (uint64_t)b;
698 rh += (rl >> 32);
699 res.l.high = rh / c;
700 res.l.low = (((rh % c) << 32) + (rl & 0xffffffff)) / c;
701 return res.ll;
702 }
703
704 /***********************************************************/
705 /* real time host monotonic timer */
706
707 #define QEMU_TIMER_BASE 1000000000LL
708
709 #ifdef WIN32
710
711 static int64_t clock_freq;
712
713 static void init_get_clock(void)
714 {
715 LARGE_INTEGER freq;
716 int ret;
717 ret = QueryPerformanceFrequency(&freq);
718 if (ret == 0) {
719 fprintf(stderr, "Could not calibrate ticks\n");
720 exit(1);
721 }
722 clock_freq = freq.QuadPart;
723 }
724
725 static int64_t get_clock(void)
726 {
727 LARGE_INTEGER ti;
728 QueryPerformanceCounter(&ti);
729 return muldiv64(ti.QuadPart, QEMU_TIMER_BASE, clock_freq);
730 }
731
732 #else
733
734 static int use_rt_clock;
735
736 static void init_get_clock(void)
737 {
738 use_rt_clock = 0;
739 #if defined(__linux__)
740 {
741 struct timespec ts;
742 if (clock_gettime(CLOCK_MONOTONIC, &ts) == 0) {
743 use_rt_clock = 1;
744 }
745 }
746 #endif
747 }
748
749 static int64_t get_clock(void)
750 {
751 #if defined(__linux__)
752 if (use_rt_clock) {
753 struct timespec ts;
754 clock_gettime(CLOCK_MONOTONIC, &ts);
755 return ts.tv_sec * 1000000000LL + ts.tv_nsec;
756 } else
757 #endif
758 {
759 /* XXX: using gettimeofday leads to problems if the date
760 changes, so it should be avoided. */
761 struct timeval tv;
762 gettimeofday(&tv, NULL);
763 return tv.tv_sec * 1000000000LL + (tv.tv_usec * 1000);
764 }
765 }
766 #endif
767
768 /* Return the virtual CPU time, based on the instruction counter. */
769 static int64_t cpu_get_icount(void)
770 {
771 int64_t icount;
772 CPUState *env = cpu_single_env;;
773 icount = qemu_icount;
774 if (env) {
775 if (!can_do_io(env))
776 fprintf(stderr, "Bad clock read\n");
777 icount -= (env->icount_decr.u16.low + env->icount_extra);
778 }
779 return qemu_icount_bias + (icount << icount_time_shift);
780 }
781
782 /***********************************************************/
783 /* guest cycle counter */
784
785 static int64_t cpu_ticks_prev;
786 static int64_t cpu_ticks_offset;
787 static int64_t cpu_clock_offset;
788 static int cpu_ticks_enabled;
789
790 /* return the host CPU cycle counter and handle stop/restart */
791 int64_t cpu_get_ticks(void)
792 {
793 if (use_icount) {
794 return cpu_get_icount();
795 }
796 if (!cpu_ticks_enabled) {
797 return cpu_ticks_offset;
798 } else {
799 int64_t ticks;
800 ticks = cpu_get_real_ticks();
801 if (cpu_ticks_prev > ticks) {
802 /* Note: non increasing ticks may happen if the host uses
803 software suspend */
804 cpu_ticks_offset += cpu_ticks_prev - ticks;
805 }
806 cpu_ticks_prev = ticks;
807 return ticks + cpu_ticks_offset;
808 }
809 }
810
811 /* return the host CPU monotonic timer and handle stop/restart */
812 static int64_t cpu_get_clock(void)
813 {
814 int64_t ti;
815 if (!cpu_ticks_enabled) {
816 return cpu_clock_offset;
817 } else {
818 ti = get_clock();
819 return ti + cpu_clock_offset;
820 }
821 }
822
823 /* enable cpu_get_ticks() */
824 void cpu_enable_ticks(void)
825 {
826 if (!cpu_ticks_enabled) {
827 cpu_ticks_offset -= cpu_get_real_ticks();
828 cpu_clock_offset -= get_clock();
829 cpu_ticks_enabled = 1;
830 }
831 }
832
833 /* disable cpu_get_ticks() : the clock is stopped. You must not call
834 cpu_get_ticks() after that. */
835 void cpu_disable_ticks(void)
836 {
837 if (cpu_ticks_enabled) {
838 cpu_ticks_offset = cpu_get_ticks();
839 cpu_clock_offset = cpu_get_clock();
840 cpu_ticks_enabled = 0;
841 }
842 }
843
844 /***********************************************************/
845 /* timers */
846
847 #define QEMU_TIMER_REALTIME 0
848 #define QEMU_TIMER_VIRTUAL 1
849
850 struct QEMUClock {
851 int type;
852 /* XXX: add frequency */
853 };
854
855 struct QEMUTimer {
856 QEMUClock *clock;
857 int64_t expire_time;
858 QEMUTimerCB *cb;
859 void *opaque;
860 struct QEMUTimer *next;
861 };
862
863 struct qemu_alarm_timer {
864 char const *name;
865 unsigned int flags;
866
867 int (*start)(struct qemu_alarm_timer *t);
868 void (*stop)(struct qemu_alarm_timer *t);
869 void (*rearm)(struct qemu_alarm_timer *t);
870 void *priv;
871 };
872
873 #define ALARM_FLAG_DYNTICKS 0x1
874 #define ALARM_FLAG_EXPIRED 0x2
875
876 static inline int alarm_has_dynticks(struct qemu_alarm_timer *t)
877 {
878 return t->flags & ALARM_FLAG_DYNTICKS;
879 }
880
881 static void qemu_rearm_alarm_timer(struct qemu_alarm_timer *t)
882 {
883 if (!alarm_has_dynticks(t))
884 return;
885
886 t->rearm(t);
887 }
888
889 /* TODO: MIN_TIMER_REARM_US should be optimized */
890 #define MIN_TIMER_REARM_US 250
891
892 static struct qemu_alarm_timer *alarm_timer;
893
894 #ifdef _WIN32
895
896 struct qemu_alarm_win32 {
897 MMRESULT timerId;
898 HANDLE host_alarm;
899 unsigned int period;
900 } alarm_win32_data = {0, NULL, -1};
901
902 static int win32_start_timer(struct qemu_alarm_timer *t);
903 static void win32_stop_timer(struct qemu_alarm_timer *t);
904 static void win32_rearm_timer(struct qemu_alarm_timer *t);
905
906 #else
907
908 static int unix_start_timer(struct qemu_alarm_timer *t);
909 static void unix_stop_timer(struct qemu_alarm_timer *t);
910
911 #ifdef __linux__
912
913 static int dynticks_start_timer(struct qemu_alarm_timer *t);
914 static void dynticks_stop_timer(struct qemu_alarm_timer *t);
915 static void dynticks_rearm_timer(struct qemu_alarm_timer *t);
916
917 static int hpet_start_timer(struct qemu_alarm_timer *t);
918 static void hpet_stop_timer(struct qemu_alarm_timer *t);
919
920 static int rtc_start_timer(struct qemu_alarm_timer *t);
921 static void rtc_stop_timer(struct qemu_alarm_timer *t);
922
923 #endif /* __linux__ */
924
925 #endif /* _WIN32 */
926
927 /* Correlation between real and virtual time is always going to be
928 fairly approximate, so ignore small variation.
929 When the guest is idle real and virtual time will be aligned in
930 the IO wait loop. */
931 #define ICOUNT_WOBBLE (QEMU_TIMER_BASE / 10)
932
933 static void icount_adjust(void)
934 {
935 int64_t cur_time;
936 int64_t cur_icount;
937 int64_t delta;
938 static int64_t last_delta;
939 /* If the VM is not running, then do nothing. */
940 if (!vm_running)
941 return;
942
943 cur_time = cpu_get_clock();
944 cur_icount = qemu_get_clock(vm_clock);
945 delta = cur_icount - cur_time;
946 /* FIXME: This is a very crude algorithm, somewhat prone to oscillation. */
947 if (delta > 0
948 && last_delta + ICOUNT_WOBBLE < delta * 2
949 && icount_time_shift > 0) {
950 /* The guest is getting too far ahead. Slow time down. */
951 icount_time_shift--;
952 }
953 if (delta < 0
954 && last_delta - ICOUNT_WOBBLE > delta * 2
955 && icount_time_shift < MAX_ICOUNT_SHIFT) {
956 /* The guest is getting too far behind. Speed time up. */
957 icount_time_shift++;
958 }
959 last_delta = delta;
960 qemu_icount_bias = cur_icount - (qemu_icount << icount_time_shift);
961 }
962
963 static void icount_adjust_rt(void * opaque)
964 {
965 qemu_mod_timer(icount_rt_timer,
966 qemu_get_clock(rt_clock) + 1000);
967 icount_adjust();
968 }
969
970 static void icount_adjust_vm(void * opaque)
971 {
972 qemu_mod_timer(icount_vm_timer,
973 qemu_get_clock(vm_clock) + QEMU_TIMER_BASE / 10);
974 icount_adjust();
975 }
976
977 static void init_icount_adjust(void)
978 {
979 /* Have both realtime and virtual time triggers for speed adjustment.
980 The realtime trigger catches emulated time passing too slowly,
981 the virtual time trigger catches emulated time passing too fast.
982 Realtime triggers occur even when idle, so use them less frequently
983 than VM triggers. */
984 icount_rt_timer = qemu_new_timer(rt_clock, icount_adjust_rt, NULL);
985 qemu_mod_timer(icount_rt_timer,
986 qemu_get_clock(rt_clock) + 1000);
987 icount_vm_timer = qemu_new_timer(vm_clock, icount_adjust_vm, NULL);
988 qemu_mod_timer(icount_vm_timer,
989 qemu_get_clock(vm_clock) + QEMU_TIMER_BASE / 10);
990 }
991
992 static struct qemu_alarm_timer alarm_timers[] = {
993 #ifndef _WIN32
994 #ifdef __linux__
995 {"dynticks", ALARM_FLAG_DYNTICKS, dynticks_start_timer,
996 dynticks_stop_timer, dynticks_rearm_timer, NULL},
997 /* HPET - if available - is preferred */
998 {"hpet", 0, hpet_start_timer, hpet_stop_timer, NULL, NULL},
999 /* ...otherwise try RTC */
1000 {"rtc", 0, rtc_start_timer, rtc_stop_timer, NULL, NULL},
1001 #endif
1002 {"unix", 0, unix_start_timer, unix_stop_timer, NULL, NULL},
1003 #else
1004 {"dynticks", ALARM_FLAG_DYNTICKS, win32_start_timer,
1005 win32_stop_timer, win32_rearm_timer, &alarm_win32_data},
1006 {"win32", 0, win32_start_timer,
1007 win32_stop_timer, NULL, &alarm_win32_data},
1008 #endif
1009 {NULL, }
1010 };
1011
1012 static void show_available_alarms(void)
1013 {
1014 int i;
1015
1016 printf("Available alarm timers, in order of precedence:\n");
1017 for (i = 0; alarm_timers[i].name; i++)
1018 printf("%s\n", alarm_timers[i].name);
1019 }
1020
1021 static void configure_alarms(char const *opt)
1022 {
1023 int i;
1024 int cur = 0;
1025 int count = (sizeof(alarm_timers) / sizeof(*alarm_timers)) - 1;
1026 char *arg;
1027 char *name;
1028 struct qemu_alarm_timer tmp;
1029
1030 if (!strcmp(opt, "?")) {
1031 show_available_alarms();
1032 exit(0);
1033 }
1034
1035 arg = strdup(opt);
1036
1037 /* Reorder the array */
1038 name = strtok(arg, ",");
1039 while (name) {
1040 for (i = 0; i < count && alarm_timers[i].name; i++) {
1041 if (!strcmp(alarm_timers[i].name, name))
1042 break;
1043 }
1044
1045 if (i == count) {
1046 fprintf(stderr, "Unknown clock %s\n", name);
1047 goto next;
1048 }
1049
1050 if (i < cur)
1051 /* Ignore */
1052 goto next;
1053
1054 /* Swap */
1055 tmp = alarm_timers[i];
1056 alarm_timers[i] = alarm_timers[cur];
1057 alarm_timers[cur] = tmp;
1058
1059 cur++;
1060 next:
1061 name = strtok(NULL, ",");
1062 }
1063
1064 free(arg);
1065
1066 if (cur) {
1067 /* Disable remaining timers */
1068 for (i = cur; i < count; i++)
1069 alarm_timers[i].name = NULL;
1070 } else {
1071 show_available_alarms();
1072 exit(1);
1073 }
1074 }
1075
1076 QEMUClock *rt_clock;
1077 QEMUClock *vm_clock;
1078
1079 static QEMUTimer *active_timers[2];
1080
1081 static QEMUClock *qemu_new_clock(int type)
1082 {
1083 QEMUClock *clock;
1084 clock = qemu_mallocz(sizeof(QEMUClock));
1085 if (!clock)
1086 return NULL;
1087 clock->type = type;
1088 return clock;
1089 }
1090
1091 QEMUTimer *qemu_new_timer(QEMUClock *clock, QEMUTimerCB *cb, void *opaque)
1092 {
1093 QEMUTimer *ts;
1094
1095 ts = qemu_mallocz(sizeof(QEMUTimer));
1096 ts->clock = clock;
1097 ts->cb = cb;
1098 ts->opaque = opaque;
1099 return ts;
1100 }
1101
1102 void qemu_free_timer(QEMUTimer *ts)
1103 {
1104 qemu_free(ts);
1105 }
1106
1107 /* stop a timer, but do not dealloc it */
1108 void qemu_del_timer(QEMUTimer *ts)
1109 {
1110 QEMUTimer **pt, *t;
1111
1112 /* NOTE: this code must be signal safe because
1113 qemu_timer_expired() can be called from a signal. */
1114 pt = &active_timers[ts->clock->type];
1115 for(;;) {
1116 t = *pt;
1117 if (!t)
1118 break;
1119 if (t == ts) {
1120 *pt = t->next;
1121 break;
1122 }
1123 pt = &t->next;
1124 }
1125 }
1126
1127 /* modify the current timer so that it will be fired when current_time
1128 >= expire_time. The corresponding callback will be called. */
1129 void qemu_mod_timer(QEMUTimer *ts, int64_t expire_time)
1130 {
1131 QEMUTimer **pt, *t;
1132
1133 qemu_del_timer(ts);
1134
1135 /* add the timer in the sorted list */
1136 /* NOTE: this code must be signal safe because
1137 qemu_timer_expired() can be called from a signal. */
1138 pt = &active_timers[ts->clock->type];
1139 for(;;) {
1140 t = *pt;
1141 if (!t)
1142 break;
1143 if (t->expire_time > expire_time)
1144 break;
1145 pt = &t->next;
1146 }
1147 ts->expire_time = expire_time;
1148 ts->next = *pt;
1149 *pt = ts;
1150
1151 /* Rearm if necessary */
1152 if (pt == &active_timers[ts->clock->type]) {
1153 if ((alarm_timer->flags & ALARM_FLAG_EXPIRED) == 0) {
1154 qemu_rearm_alarm_timer(alarm_timer);
1155 }
1156 /* Interrupt execution to force deadline recalculation. */
1157 if (use_icount && cpu_single_env) {
1158 cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
1159 }
1160 }
1161 }
1162
1163 int qemu_timer_pending(QEMUTimer *ts)
1164 {
1165 QEMUTimer *t;
1166 for(t = active_timers[ts->clock->type]; t != NULL; t = t->next) {
1167 if (t == ts)
1168 return 1;
1169 }
1170 return 0;
1171 }
1172
1173 static inline int qemu_timer_expired(QEMUTimer *timer_head, int64_t current_time)
1174 {
1175 if (!timer_head)
1176 return 0;
1177 return (timer_head->expire_time <= current_time);
1178 }
1179
1180 static void qemu_run_timers(QEMUTimer **ptimer_head, int64_t current_time)
1181 {
1182 QEMUTimer *ts;
1183
1184 for(;;) {
1185 ts = *ptimer_head;
1186 if (!ts || ts->expire_time > current_time)
1187 break;
1188 /* remove timer from the list before calling the callback */
1189 *ptimer_head = ts->next;
1190 ts->next = NULL;
1191
1192 /* run the callback (the timer list can be modified) */
1193 ts->cb(ts->opaque);
1194 }
1195 }
1196
1197 int64_t qemu_get_clock(QEMUClock *clock)
1198 {
1199 switch(clock->type) {
1200 case QEMU_TIMER_REALTIME:
1201 return get_clock() / 1000000;
1202 default:
1203 case QEMU_TIMER_VIRTUAL:
1204 if (use_icount) {
1205 return cpu_get_icount();
1206 } else {
1207 return cpu_get_clock();
1208 }
1209 }
1210 }
1211
1212 static void init_timers(void)
1213 {
1214 init_get_clock();
1215 ticks_per_sec = QEMU_TIMER_BASE;
1216 rt_clock = qemu_new_clock(QEMU_TIMER_REALTIME);
1217 vm_clock = qemu_new_clock(QEMU_TIMER_VIRTUAL);
1218 }
1219
1220 /* save a timer */
1221 void qemu_put_timer(QEMUFile *f, QEMUTimer *ts)
1222 {
1223 uint64_t expire_time;
1224
1225 if (qemu_timer_pending(ts)) {
1226 expire_time = ts->expire_time;
1227 } else {
1228 expire_time = -1;
1229 }
1230 qemu_put_be64(f, expire_time);
1231 }
1232
1233 void qemu_get_timer(QEMUFile *f, QEMUTimer *ts)
1234 {
1235 uint64_t expire_time;
1236
1237 expire_time = qemu_get_be64(f);
1238 if (expire_time != -1) {
1239 qemu_mod_timer(ts, expire_time);
1240 } else {
1241 qemu_del_timer(ts);
1242 }
1243 }
1244
1245 static void timer_save(QEMUFile *f, void *opaque)
1246 {
1247 if (cpu_ticks_enabled) {
1248 hw_error("cannot save state if virtual timers are running");
1249 }
1250 qemu_put_be64(f, cpu_ticks_offset);
1251 qemu_put_be64(f, ticks_per_sec);
1252 qemu_put_be64(f, cpu_clock_offset);
1253 }
1254
1255 static int timer_load(QEMUFile *f, void *opaque, int version_id)
1256 {
1257 if (version_id != 1 && version_id != 2)
1258 return -EINVAL;
1259 if (cpu_ticks_enabled) {
1260 return -EINVAL;
1261 }
1262 cpu_ticks_offset=qemu_get_be64(f);
1263 ticks_per_sec=qemu_get_be64(f);
1264 if (version_id == 2) {
1265 cpu_clock_offset=qemu_get_be64(f);
1266 }
1267 return 0;
1268 }
1269
1270 #ifdef _WIN32
1271 void CALLBACK host_alarm_handler(UINT uTimerID, UINT uMsg,
1272 DWORD_PTR dwUser, DWORD_PTR dw1, DWORD_PTR dw2)
1273 #else
1274 static void host_alarm_handler(int host_signum)
1275 #endif
1276 {
1277 #if 0
1278 #define DISP_FREQ 1000
1279 {
1280 static int64_t delta_min = INT64_MAX;
1281 static int64_t delta_max, delta_cum, last_clock, delta, ti;
1282 static int count;
1283 ti = qemu_get_clock(vm_clock);
1284 if (last_clock != 0) {
1285 delta = ti - last_clock;
1286 if (delta < delta_min)
1287 delta_min = delta;
1288 if (delta > delta_max)
1289 delta_max = delta;
1290 delta_cum += delta;
1291 if (++count == DISP_FREQ) {
1292 printf("timer: min=%" PRId64 " us max=%" PRId64 " us avg=%" PRId64 " us avg_freq=%0.3f Hz\n",
1293 muldiv64(delta_min, 1000000, ticks_per_sec),
1294 muldiv64(delta_max, 1000000, ticks_per_sec),
1295 muldiv64(delta_cum, 1000000 / DISP_FREQ, ticks_per_sec),
1296 (double)ticks_per_sec / ((double)delta_cum / DISP_FREQ));
1297 count = 0;
1298 delta_min = INT64_MAX;
1299 delta_max = 0;
1300 delta_cum = 0;
1301 }
1302 }
1303 last_clock = ti;
1304 }
1305 #endif
1306 if (1 ||
1307 alarm_has_dynticks(alarm_timer) ||
1308 (!use_icount &&
1309 qemu_timer_expired(active_timers[QEMU_TIMER_VIRTUAL],
1310 qemu_get_clock(vm_clock))) ||
1311 qemu_timer_expired(active_timers[QEMU_TIMER_REALTIME],
1312 qemu_get_clock(rt_clock))) {
1313 #ifdef _WIN32
1314 struct qemu_alarm_win32 *data = ((struct qemu_alarm_timer*)dwUser)->priv;
1315 SetEvent(data->host_alarm);
1316 #endif
1317 CPUState *env = next_cpu;
1318
1319 alarm_timer->flags |= ALARM_FLAG_EXPIRED;
1320
1321 if (env) {
1322 /* stop the currently executing cpu because a timer occured */
1323 cpu_interrupt(env, CPU_INTERRUPT_EXIT);
1324 #ifdef USE_KQEMU
1325 if (env->kqemu_enabled) {
1326 kqemu_cpu_interrupt(env);
1327 }
1328 #endif
1329 }
1330 event_pending = 1;
1331 }
1332 }
1333
1334 static int64_t qemu_next_deadline(void)
1335 {
1336 int64_t delta;
1337
1338 if (active_timers[QEMU_TIMER_VIRTUAL]) {
1339 delta = active_timers[QEMU_TIMER_VIRTUAL]->expire_time -
1340 qemu_get_clock(vm_clock);
1341 } else {
1342 /* To avoid problems with overflow limit this to 2^32. */
1343 delta = INT32_MAX;
1344 }
1345
1346 if (delta < 0)
1347 delta = 0;
1348
1349 return delta;
1350 }
1351
1352 static uint64_t qemu_next_deadline_dyntick(void)
1353 {
1354 int64_t delta;
1355 int64_t rtdelta;
1356
1357 if (use_icount)
1358 delta = INT32_MAX;
1359 else
1360 delta = (qemu_next_deadline() + 999) / 1000;
1361
1362 if (active_timers[QEMU_TIMER_REALTIME]) {
1363 rtdelta = (active_timers[QEMU_TIMER_REALTIME]->expire_time -
1364 qemu_get_clock(rt_clock))*1000;
1365 if (rtdelta < delta)
1366 delta = rtdelta;
1367 }
1368
1369 if (delta < MIN_TIMER_REARM_US)
1370 delta = MIN_TIMER_REARM_US;
1371
1372 return delta;
1373 }
1374
1375 #ifndef _WIN32
1376
1377 #if defined(__linux__)
1378
1379 #define RTC_FREQ 1024
1380
1381 static void enable_sigio_timer(int fd)
1382 {
1383 struct sigaction act;
1384
1385 /* timer signal */
1386 sigfillset(&act.sa_mask);
1387 act.sa_flags = 0;
1388 act.sa_handler = host_alarm_handler;
1389
1390 sigaction(SIGIO, &act, NULL);
1391 fcntl(fd, F_SETFL, O_ASYNC);
1392 fcntl(fd, F_SETOWN, getpid());
1393 }
1394
1395 static int hpet_start_timer(struct qemu_alarm_timer *t)
1396 {
1397 struct hpet_info info;
1398 int r, fd;
1399
1400 fd = open("/dev/hpet", O_RDONLY);
1401 if (fd < 0)
1402 return -1;
1403
1404 /* Set frequency */
1405 r = ioctl(fd, HPET_IRQFREQ, RTC_FREQ);
1406 if (r < 0) {
1407 fprintf(stderr, "Could not configure '/dev/hpet' to have a 1024Hz timer. This is not a fatal\n"
1408 "error, but for better emulation accuracy type:\n"
1409 "'echo 1024 > /proc/sys/dev/hpet/max-user-freq' as root.\n");
1410 goto fail;
1411 }
1412
1413 /* Check capabilities */
1414 r = ioctl(fd, HPET_INFO, &info);
1415 if (r < 0)
1416 goto fail;
1417
1418 /* Enable periodic mode */
1419 r = ioctl(fd, HPET_EPI, 0);
1420 if (info.hi_flags && (r < 0))
1421 goto fail;
1422
1423 /* Enable interrupt */
1424 r = ioctl(fd, HPET_IE_ON, 0);
1425 if (r < 0)
1426 goto fail;
1427
1428 enable_sigio_timer(fd);
1429 t->priv = (void *)(long)fd;
1430
1431 return 0;
1432 fail:
1433 close(fd);
1434 return -1;
1435 }
1436
1437 static void hpet_stop_timer(struct qemu_alarm_timer *t)
1438 {
1439 int fd = (long)t->priv;
1440
1441 close(fd);
1442 }
1443
1444 static int rtc_start_timer(struct qemu_alarm_timer *t)
1445 {
1446 int rtc_fd;
1447 unsigned long current_rtc_freq = 0;
1448
1449 TFR(rtc_fd = open("/dev/rtc", O_RDONLY));
1450 if (rtc_fd < 0)
1451 return -1;
1452 ioctl(rtc_fd, RTC_IRQP_READ, &current_rtc_freq);
1453 if (current_rtc_freq != RTC_FREQ &&
1454 ioctl(rtc_fd, RTC_IRQP_SET, RTC_FREQ) < 0) {
1455 fprintf(stderr, "Could not configure '/dev/rtc' to have a 1024 Hz timer. This is not a fatal\n"
1456 "error, but for better emulation accuracy either use a 2.6 host Linux kernel or\n"
1457 "type 'echo 1024 > /proc/sys/dev/rtc/max-user-freq' as root.\n");
1458 goto fail;
1459 }
1460 if (ioctl(rtc_fd, RTC_PIE_ON, 0) < 0) {
1461 fail:
1462 close(rtc_fd);
1463 return -1;
1464 }
1465
1466 enable_sigio_timer(rtc_fd);
1467
1468 t->priv = (void *)(long)rtc_fd;
1469
1470 return 0;
1471 }
1472
1473 static void rtc_stop_timer(struct qemu_alarm_timer *t)
1474 {
1475 int rtc_fd = (long)t->priv;
1476
1477 close(rtc_fd);
1478 }
1479
1480 static int dynticks_start_timer(struct qemu_alarm_timer *t)
1481 {
1482 struct sigevent ev;
1483 timer_t host_timer;
1484 struct sigaction act;
1485
1486 sigfillset(&act.sa_mask);
1487 act.sa_flags = 0;
1488 act.sa_handler = host_alarm_handler;
1489
1490 sigaction(SIGALRM, &act, NULL);
1491
1492 ev.sigev_value.sival_int = 0;
1493 ev.sigev_notify = SIGEV_SIGNAL;
1494 ev.sigev_signo = SIGALRM;
1495
1496 if (timer_create(CLOCK_REALTIME, &ev, &host_timer)) {
1497 perror("timer_create");
1498
1499 /* disable dynticks */
1500 fprintf(stderr, "Dynamic Ticks disabled\n");
1501
1502 return -1;
1503 }
1504
1505 t->priv = (void *)host_timer;
1506
1507 return 0;
1508 }
1509
1510 static void dynticks_stop_timer(struct qemu_alarm_timer *t)
1511 {
1512 timer_t host_timer = (timer_t)t->priv;
1513
1514 timer_delete(host_timer);
1515 }
1516
1517 static void dynticks_rearm_timer(struct qemu_alarm_timer *t)
1518 {
1519 timer_t host_timer = (timer_t)t->priv;
1520 struct itimerspec timeout;
1521 int64_t nearest_delta_us = INT64_MAX;
1522 int64_t current_us;
1523
1524 if (!active_timers[QEMU_TIMER_REALTIME] &&
1525 !active_timers[QEMU_TIMER_VIRTUAL])
1526 return;
1527
1528 nearest_delta_us = qemu_next_deadline_dyntick();
1529
1530 /* check whether a timer is already running */
1531 if (timer_gettime(host_timer, &timeout)) {
1532 perror("gettime");
1533 fprintf(stderr, "Internal timer error: aborting\n");
1534 exit(1);
1535 }
1536 current_us = timeout.it_value.tv_sec * 1000000 + timeout.it_value.tv_nsec/1000;
1537 if (current_us && current_us <= nearest_delta_us)
1538 return;
1539
1540 timeout.it_interval.tv_sec = 0;
1541 timeout.it_interval.tv_nsec = 0; /* 0 for one-shot timer */
1542 timeout.it_value.tv_sec = nearest_delta_us / 1000000;
1543 timeout.it_value.tv_nsec = (nearest_delta_us % 1000000) * 1000;
1544 if (timer_settime(host_timer, 0 /* RELATIVE */, &timeout, NULL)) {
1545 perror("settime");
1546 fprintf(stderr, "Internal timer error: aborting\n");
1547 exit(1);
1548 }
1549 }
1550
1551 #endif /* defined(__linux__) */
1552
1553 static int unix_start_timer(struct qemu_alarm_timer *t)
1554 {
1555 struct sigaction act;
1556 struct itimerval itv;
1557 int err;
1558
1559 /* timer signal */
1560 sigfillset(&act.sa_mask);
1561 act.sa_flags = 0;
1562 act.sa_handler = host_alarm_handler;
1563
1564 sigaction(SIGALRM, &act, NULL);
1565
1566 itv.it_interval.tv_sec = 0;
1567 /* for i386 kernel 2.6 to get 1 ms */
1568 itv.it_interval.tv_usec = 999;
1569 itv.it_value.tv_sec = 0;
1570 itv.it_value.tv_usec = 10 * 1000;
1571
1572 err = setitimer(ITIMER_REAL, &itv, NULL);
1573 if (err)
1574 return -1;
1575
1576 return 0;
1577 }
1578
1579 static void unix_stop_timer(struct qemu_alarm_timer *t)
1580 {
1581 struct itimerval itv;
1582
1583 memset(&itv, 0, sizeof(itv));
1584 setitimer(ITIMER_REAL, &itv, NULL);
1585 }
1586
1587 #endif /* !defined(_WIN32) */
1588
1589 #ifdef _WIN32
1590
1591 static int win32_start_timer(struct qemu_alarm_timer *t)
1592 {
1593 TIMECAPS tc;
1594 struct qemu_alarm_win32 *data = t->priv;
1595 UINT flags;
1596
1597 data->host_alarm = CreateEvent(NULL, FALSE, FALSE, NULL);
1598 if (!data->host_alarm) {
1599 perror("Failed CreateEvent");
1600 return -1;
1601 }
1602
1603 memset(&tc, 0, sizeof(tc));
1604 timeGetDevCaps(&tc, sizeof(tc));
1605
1606 if (data->period < tc.wPeriodMin)
1607 data->period = tc.wPeriodMin;
1608
1609 timeBeginPeriod(data->period);
1610
1611 flags = TIME_CALLBACK_FUNCTION;
1612 if (alarm_has_dynticks(t))
1613 flags |= TIME_ONESHOT;
1614 else
1615 flags |= TIME_PERIODIC;
1616
1617 data->timerId = timeSetEvent(1, // interval (ms)
1618 data->period, // resolution
1619 host_alarm_handler, // function
1620 (DWORD)t, // parameter
1621 flags);
1622
1623 if (!data->timerId) {
1624 perror("Failed to initialize win32 alarm timer");
1625
1626 timeEndPeriod(data->period);
1627 CloseHandle(data->host_alarm);
1628 return -1;
1629 }
1630
1631 qemu_add_wait_object(data->host_alarm, NULL, NULL);
1632
1633 return 0;
1634 }
1635
1636 static void win32_stop_timer(struct qemu_alarm_timer *t)
1637 {
1638 struct qemu_alarm_win32 *data = t->priv;
1639
1640 timeKillEvent(data->timerId);
1641 timeEndPeriod(data->period);
1642
1643 CloseHandle(data->host_alarm);
1644 }
1645
1646 static void win32_rearm_timer(struct qemu_alarm_timer *t)
1647 {
1648 struct qemu_alarm_win32 *data = t->priv;
1649 uint64_t nearest_delta_us;
1650
1651 if (!active_timers[QEMU_TIMER_REALTIME] &&
1652 !active_timers[QEMU_TIMER_VIRTUAL])
1653 return;
1654
1655 nearest_delta_us = qemu_next_deadline_dyntick();
1656 nearest_delta_us /= 1000;
1657
1658 timeKillEvent(data->timerId);
1659
1660 data->timerId = timeSetEvent(1,
1661 data->period,
1662 host_alarm_handler,
1663 (DWORD)t,
1664 TIME_ONESHOT | TIME_PERIODIC);
1665
1666 if (!data->timerId) {
1667 perror("Failed to re-arm win32 alarm timer");
1668
1669 timeEndPeriod(data->period);
1670 CloseHandle(data->host_alarm);
1671 exit(1);
1672 }
1673 }
1674
1675 #endif /* _WIN32 */
1676
1677 static void init_timer_alarm(void)
1678 {
1679 struct qemu_alarm_timer *t;
1680 int i, err = -1;
1681
1682 for (i = 0; alarm_timers[i].name; i++) {
1683 t = &alarm_timers[i];
1684
1685 err = t->start(t);
1686 if (!err)
1687 break;
1688 }
1689
1690 if (err) {
1691 fprintf(stderr, "Unable to find any suitable alarm timer.\n");
1692 fprintf(stderr, "Terminating\n");
1693 exit(1);
1694 }
1695
1696 alarm_timer = t;
1697 }
1698
1699 static void quit_timers(void)
1700 {
1701 alarm_timer->stop(alarm_timer);
1702 alarm_timer = NULL;
1703 }
1704
1705 /***********************************************************/
1706 /* host time/date access */
1707 void qemu_get_timedate(struct tm *tm, int offset)
1708 {
1709 time_t ti;
1710 struct tm *ret;
1711
1712 time(&ti);
1713 ti += offset;
1714 if (rtc_date_offset == -1) {
1715 if (rtc_utc)
1716 ret = gmtime(&ti);
1717 else
1718 ret = localtime(&ti);
1719 } else {
1720 ti -= rtc_date_offset;
1721 ret = gmtime(&ti);
1722 }
1723
1724 memcpy(tm, ret, sizeof(struct tm));
1725 }
1726
1727 int qemu_timedate_diff(struct tm *tm)
1728 {
1729 time_t seconds;
1730
1731 if (rtc_date_offset == -1)
1732 if (rtc_utc)
1733 seconds = mktimegm(tm);
1734 else
1735 seconds = mktime(tm);
1736 else
1737 seconds = mktimegm(tm) + rtc_date_offset;
1738
1739 return seconds - time(NULL);
1740 }
1741
1742 /***********************************************************/
1743 /* character device */
1744
1745 static void qemu_chr_event(CharDriverState *s, int event)
1746 {
1747 if (!s->chr_event)
1748 return;
1749 s->chr_event(s->handler_opaque, event);
1750 }
1751
1752 static void qemu_chr_reset_bh(void *opaque)
1753 {
1754 CharDriverState *s = opaque;
1755 qemu_chr_event(s, CHR_EVENT_RESET);
1756 qemu_bh_delete(s->bh);
1757 s->bh = NULL;
1758 }
1759
1760 void qemu_chr_reset(CharDriverState *s)
1761 {
1762 if (s->bh == NULL) {
1763 s->bh = qemu_bh_new(qemu_chr_reset_bh, s);
1764 qemu_bh_schedule(s->bh);
1765 }
1766 }
1767
1768 int qemu_chr_write(CharDriverState *s, const uint8_t *buf, int len)
1769 {
1770 return s->chr_write(s, buf, len);
1771 }
1772
1773 int qemu_chr_ioctl(CharDriverState *s, int cmd, void *arg)
1774 {
1775 if (!s->chr_ioctl)
1776 return -ENOTSUP;
1777 return s->chr_ioctl(s, cmd, arg);
1778 }
1779
1780 int qemu_chr_can_read(CharDriverState *s)
1781 {
1782 if (!s->chr_can_read)
1783 return 0;
1784 return s->chr_can_read(s->handler_opaque);
1785 }
1786
1787 void qemu_chr_read(CharDriverState *s, uint8_t *buf, int len)
1788 {
1789 s->chr_read(s->handler_opaque, buf, len);
1790 }
1791
1792 void qemu_chr_accept_input(CharDriverState *s)
1793 {
1794 if (s->chr_accept_input)
1795 s->chr_accept_input(s);
1796 }
1797
1798 void qemu_chr_printf(CharDriverState *s, const char *fmt, ...)
1799 {
1800 char buf[4096];
1801 va_list ap;
1802 va_start(ap, fmt);
1803 vsnprintf(buf, sizeof(buf), fmt, ap);
1804 qemu_chr_write(s, (uint8_t *)buf, strlen(buf));
1805 va_end(ap);
1806 }
1807
1808 void qemu_chr_send_event(CharDriverState *s, int event)
1809 {
1810 if (s->chr_send_event)
1811 s->chr_send_event(s, event);
1812 }
1813
1814 void qemu_chr_add_handlers(CharDriverState *s,
1815 IOCanRWHandler *fd_can_read,
1816 IOReadHandler *fd_read,
1817 IOEventHandler *fd_event,
1818 void *opaque)
1819 {
1820 s->chr_can_read = fd_can_read;
1821 s->chr_read = fd_read;
1822 s->chr_event = fd_event;
1823 s->handler_opaque = opaque;
1824 if (s->chr_update_read_handler)
1825 s->chr_update_read_handler(s);
1826 }
1827
1828 static int null_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
1829 {
1830 return len;
1831 }
1832
1833 static CharDriverState *qemu_chr_open_null(void)
1834 {
1835 CharDriverState *chr;
1836
1837 chr = qemu_mallocz(sizeof(CharDriverState));
1838 if (!chr)
1839 return NULL;
1840 chr->chr_write = null_chr_write;
1841 return chr;
1842 }
1843
1844 /* MUX driver for serial I/O splitting */
1845 static int term_timestamps;
1846 static int64_t term_timestamps_start;
1847 #define MAX_MUX 4
1848 #define MUX_BUFFER_SIZE 32 /* Must be a power of 2. */
1849 #define MUX_BUFFER_MASK (MUX_BUFFER_SIZE - 1)
1850 typedef struct {
1851 IOCanRWHandler *chr_can_read[MAX_MUX];
1852 IOReadHandler *chr_read[MAX_MUX];
1853 IOEventHandler *chr_event[MAX_MUX];
1854 void *ext_opaque[MAX_MUX];
1855 CharDriverState *drv;
1856 unsigned char buffer[MUX_BUFFER_SIZE];
1857 int prod;
1858 int cons;
1859 int mux_cnt;
1860 int term_got_escape;
1861 int max_size;
1862 } MuxDriver;
1863
1864
1865 static int mux_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
1866 {
1867 MuxDriver *d = chr->opaque;
1868 int ret;
1869 if (!term_timestamps) {
1870 ret = d->drv->chr_write(d->drv, buf, len);
1871 } else {
1872 int i;
1873
1874 ret = 0;
1875 for(i = 0; i < len; i++) {
1876 ret += d->drv->chr_write(d->drv, buf+i, 1);
1877 if (buf[i] == '\n') {
1878 char buf1[64];
1879 int64_t ti;
1880 int secs;
1881
1882 ti = get_clock();
1883 if (term_timestamps_start == -1)
1884 term_timestamps_start = ti;
1885 ti -= term_timestamps_start;
1886 secs = ti / 1000000000;
1887 snprintf(buf1, sizeof(buf1),
1888 "[%02d:%02d:%02d.%03d] ",
1889 secs / 3600,
1890 (secs / 60) % 60,
1891 secs % 60,
1892 (int)((ti / 1000000) % 1000));
1893 d->drv->chr_write(d->drv, (uint8_t *)buf1, strlen(buf1));
1894 }
1895 }
1896 }
1897 return ret;
1898 }
1899
1900 static char *mux_help[] = {
1901 "% h print this help\n\r",
1902 "% x exit emulator\n\r",
1903 "% s save disk data back to file (if -snapshot)\n\r",
1904 "% t toggle console timestamps\n\r"
1905 "% b send break (magic sysrq)\n\r",
1906 "% c switch between console and monitor\n\r",
1907 "% % sends %\n\r",
1908 NULL
1909 };
1910
1911 static int term_escape_char = 0x01; /* ctrl-a is used for escape */
1912 static void mux_print_help(CharDriverState *chr)
1913 {
1914 int i, j;
1915 char ebuf[15] = "Escape-Char";
1916 char cbuf[50] = "\n\r";
1917
1918 if (term_escape_char > 0 && term_escape_char < 26) {
1919 sprintf(cbuf,"\n\r");
1920 sprintf(ebuf,"C-%c", term_escape_char - 1 + 'a');
1921 } else {
1922 sprintf(cbuf,"\n\rEscape-Char set to Ascii: 0x%02x\n\r\n\r",
1923 term_escape_char);
1924 }
1925 chr->chr_write(chr, (uint8_t *)cbuf, strlen(cbuf));
1926 for (i = 0; mux_help[i] != NULL; i++) {
1927 for (j=0; mux_help[i][j] != '\0'; j++) {
1928 if (mux_help[i][j] == '%')
1929 chr->chr_write(chr, (uint8_t *)ebuf, strlen(ebuf));
1930 else
1931 chr->chr_write(chr, (uint8_t *)&mux_help[i][j], 1);
1932 }
1933 }
1934 }
1935
1936 static int mux_proc_byte(CharDriverState *chr, MuxDriver *d, int ch)
1937 {
1938 if (d->term_got_escape) {
1939 d->term_got_escape = 0;
1940 if (ch == term_escape_char)
1941 goto send_char;
1942 switch(ch) {
1943 case '?':
1944 case 'h':
1945 mux_print_help(chr);
1946 break;
1947 case 'x':
1948 {
1949 char *term = "QEMU: Terminated\n\r";
1950 chr->chr_write(chr,(uint8_t *)term,strlen(term));
1951 exit(0);
1952 break;
1953 }
1954 case 's':
1955 {
1956 int i;
1957 for (i = 0; i < nb_drives; i++) {
1958 bdrv_commit(drives_table[i].bdrv);
1959 }
1960 }
1961 break;
1962 case 'b':
1963 qemu_chr_event(chr, CHR_EVENT_BREAK);
1964 break;
1965 case 'c':
1966 /* Switch to the next registered device */
1967 chr->focus++;
1968 if (chr->focus >= d->mux_cnt)
1969 chr->focus = 0;
1970 break;
1971 case 't':
1972 term_timestamps = !term_timestamps;
1973 term_timestamps_start = -1;
1974 break;
1975 }
1976 } else if (ch == term_escape_char) {
1977 d->term_got_escape = 1;
1978 } else {
1979 send_char:
1980 return 1;
1981 }
1982 return 0;
1983 }
1984
1985 static void mux_chr_accept_input(CharDriverState *chr)
1986 {
1987 int m = chr->focus;
1988 MuxDriver *d = chr->opaque;
1989
1990 while (d->prod != d->cons &&
1991 d->chr_can_read[m] &&
1992 d->chr_can_read[m](d->ext_opaque[m])) {
1993 d->chr_read[m](d->ext_opaque[m],
1994 &d->buffer[d->cons++ & MUX_BUFFER_MASK], 1);
1995 }
1996 }
1997
1998 static int mux_chr_can_read(void *opaque)
1999 {
2000 CharDriverState *chr = opaque;
2001 MuxDriver *d = chr->opaque;
2002
2003 if ((d->prod - d->cons) < MUX_BUFFER_SIZE)
2004 return 1;
2005 if (d->chr_can_read[chr->focus])
2006 return d->chr_can_read[chr->focus](d->ext_opaque[chr->focus]);
2007 return 0;
2008 }
2009
2010 static void mux_chr_read(void *opaque, const uint8_t *buf, int size)
2011 {
2012 CharDriverState *chr = opaque;
2013 MuxDriver *d = chr->opaque;
2014 int m = chr->focus;
2015 int i;
2016
2017 mux_chr_accept_input (opaque);
2018
2019 for(i = 0; i < size; i++)
2020 if (mux_proc_byte(chr, d, buf[i])) {
2021 if (d->prod == d->cons &&
2022 d->chr_can_read[m] &&
2023 d->chr_can_read[m](d->ext_opaque[m]))
2024 d->chr_read[m](d->ext_opaque[m], &buf[i], 1);
2025 else
2026 d->buffer[d->prod++ & MUX_BUFFER_MASK] = buf[i];
2027 }
2028 }
2029
2030 static void mux_chr_event(void *opaque, int event)
2031 {
2032 CharDriverState *chr = opaque;
2033 MuxDriver *d = chr->opaque;
2034 int i;
2035
2036 /* Send the event to all registered listeners */
2037 for (i = 0; i < d->mux_cnt; i++)
2038 if (d->chr_event[i])
2039 d->chr_event[i](d->ext_opaque[i], event);
2040 }
2041
2042 static void mux_chr_update_read_handler(CharDriverState *chr)
2043 {
2044 MuxDriver *d = chr->opaque;
2045
2046 if (d->mux_cnt >= MAX_MUX) {
2047 fprintf(stderr, "Cannot add I/O handlers, MUX array is full\n");
2048 return;
2049 }
2050 d->ext_opaque[d->mux_cnt] = chr->handler_opaque;
2051 d->chr_can_read[d->mux_cnt] = chr->chr_can_read;
2052 d->chr_read[d->mux_cnt] = chr->chr_read;
2053 d->chr_event[d->mux_cnt] = chr->chr_event;
2054 /* Fix up the real driver with mux routines */
2055 if (d->mux_cnt == 0) {
2056 qemu_chr_add_handlers(d->drv, mux_chr_can_read, mux_chr_read,
2057 mux_chr_event, chr);
2058 }
2059 chr->focus = d->mux_cnt;
2060 d->mux_cnt++;
2061 }
2062
2063 static CharDriverState *qemu_chr_open_mux(CharDriverState *drv)
2064 {
2065 CharDriverState *chr;
2066 MuxDriver *d;
2067
2068 chr = qemu_mallocz(sizeof(CharDriverState));
2069 if (!chr)
2070 return NULL;
2071 d = qemu_mallocz(sizeof(MuxDriver));
2072 if (!d) {
2073 free(chr);
2074 return NULL;
2075 }
2076
2077 chr->opaque = d;
2078 d->drv = drv;
2079 chr->focus = -1;
2080 chr->chr_write = mux_chr_write;
2081 chr->chr_update_read_handler = mux_chr_update_read_handler;
2082 chr->chr_accept_input = mux_chr_accept_input;
2083 return chr;
2084 }
2085
2086
2087 #ifdef _WIN32
2088
2089 static void socket_cleanup(void)
2090 {
2091 WSACleanup();
2092 }
2093
2094 static int socket_init(void)
2095 {
2096 WSADATA Data;
2097 int ret, err;
2098
2099 ret = WSAStartup(MAKEWORD(2,2), &Data);
2100 if (ret != 0) {
2101 err = WSAGetLastError();
2102 fprintf(stderr, "WSAStartup: %d\n", err);
2103 return -1;
2104 }
2105 atexit(socket_cleanup);
2106 return 0;
2107 }
2108
2109 static int send_all(int fd, const uint8_t *buf, int len1)
2110 {
2111 int ret, len;
2112
2113 len = len1;
2114 while (len > 0) {
2115 ret = send(fd, buf, len, 0);
2116 if (ret < 0) {
2117 int errno;
2118 errno = WSAGetLastError();
2119 if (errno != WSAEWOULDBLOCK) {
2120 return -1;
2121 }
2122 } else if (ret == 0) {
2123 break;
2124 } else {
2125 buf += ret;
2126 len -= ret;
2127 }
2128 }
2129 return len1 - len;
2130 }
2131
2132 void socket_set_nonblock(int fd)
2133 {
2134 unsigned long opt = 1;
2135 ioctlsocket(fd, FIONBIO, &opt);
2136 }
2137
2138 #else
2139
2140 static int unix_write(int fd, const uint8_t *buf, int len1)
2141 {
2142 int ret, len;
2143
2144 len = len1;
2145 while (len > 0) {
2146 ret = write(fd, buf, len);
2147 if (ret < 0) {
2148 if (errno != EINTR && errno != EAGAIN)
2149 return -1;
2150 } else if (ret == 0) {
2151 break;
2152 } else {
2153 buf += ret;
2154 len -= ret;
2155 }
2156 }
2157 return len1 - len;
2158 }
2159
2160 static inline int send_all(int fd, const uint8_t *buf, int len1)
2161 {
2162 return unix_write(fd, buf, len1);
2163 }
2164
2165 void socket_set_nonblock(int fd)
2166 {
2167 fcntl(fd, F_SETFL, O_NONBLOCK);
2168 }
2169 #endif /* !_WIN32 */
2170
2171 #ifndef _WIN32
2172
2173 typedef struct {
2174 int fd_in, fd_out;
2175 int max_size;
2176 } FDCharDriver;
2177
2178 #define STDIO_MAX_CLIENTS 1
2179 static int stdio_nb_clients = 0;
2180
2181 static int fd_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
2182 {
2183 FDCharDriver *s = chr->opaque;
2184 return unix_write(s->fd_out, buf, len);
2185 }
2186
2187 static int fd_chr_read_poll(void *opaque)
2188 {
2189 CharDriverState *chr = opaque;
2190 FDCharDriver *s = chr->opaque;
2191
2192 s->max_size = qemu_chr_can_read(chr);
2193 return s->max_size;
2194 }
2195
2196 static void fd_chr_read(void *opaque)
2197 {
2198 CharDriverState *chr = opaque;
2199 FDCharDriver *s = chr->opaque;
2200 int size, len;
2201 uint8_t buf[1024];
2202
2203 len = sizeof(buf);
2204 if (len > s->max_size)
2205 len = s->max_size;
2206 if (len == 0)
2207 return;
2208 size = read(s->fd_in, buf, len);
2209 if (size == 0) {
2210 /* FD has been closed. Remove it from the active list. */
2211 qemu_set_fd_handler2(s->fd_in, NULL, NULL, NULL, NULL);
2212 return;
2213 }
2214 if (size > 0) {
2215 qemu_chr_read(chr, buf, size);
2216 }
2217 }
2218
2219 static void fd_chr_update_read_handler(CharDriverState *chr)
2220 {
2221 FDCharDriver *s = chr->opaque;
2222
2223 if (s->fd_in >= 0) {
2224 if (nographic && s->fd_in == 0) {
2225 } else {
2226 qemu_set_fd_handler2(s->fd_in, fd_chr_read_poll,
2227 fd_chr_read, NULL, chr);
2228 }
2229 }
2230 }
2231
2232 static void fd_chr_close(struct CharDriverState *chr)
2233 {
2234 FDCharDriver *s = chr->opaque;
2235
2236 if (s->fd_in >= 0) {
2237 if (nographic && s->fd_in == 0) {
2238 } else {
2239 qemu_set_fd_handler2(s->fd_in, NULL, NULL, NULL, NULL);
2240 }
2241 }
2242
2243 qemu_free(s);
2244 }
2245
2246 /* open a character device to a unix fd */
2247 static CharDriverState *qemu_chr_open_fd(int fd_in, int fd_out)
2248 {
2249 CharDriverState *chr;
2250 FDCharDriver *s;
2251
2252 chr = qemu_mallocz(sizeof(CharDriverState));
2253 if (!chr)
2254 return NULL;
2255 s = qemu_mallocz(sizeof(FDCharDriver));
2256 if (!s) {
2257 free(chr);
2258 return NULL;
2259 }
2260 s->fd_in = fd_in;
2261 s->fd_out = fd_out;
2262 chr->opaque = s;
2263 chr->chr_write = fd_chr_write;
2264 chr->chr_update_read_handler = fd_chr_update_read_handler;
2265 chr->chr_close = fd_chr_close;
2266
2267 qemu_chr_reset(chr);
2268
2269 return chr;
2270 }
2271
2272 static CharDriverState *qemu_chr_open_file_out(const char *file_out)
2273 {
2274 int fd_out;
2275
2276 TFR(fd_out = open(file_out, O_WRONLY | O_TRUNC | O_CREAT | O_BINARY, 0666));
2277 if (fd_out < 0)
2278 return NULL;
2279 return qemu_chr_open_fd(-1, fd_out);
2280 }
2281
2282 static CharDriverState *qemu_chr_open_pipe(const char *filename)
2283 {
2284 int fd_in, fd_out;
2285 char filename_in[256], filename_out[256];
2286
2287 snprintf(filename_in, 256, "%s.in", filename);
2288 snprintf(filename_out, 256, "%s.out", filename);
2289 TFR(fd_in = open(filename_in, O_RDWR | O_BINARY));
2290 TFR(fd_out = open(filename_out, O_RDWR | O_BINARY));
2291 if (fd_in < 0 || fd_out < 0) {
2292 if (fd_in >= 0)
2293 close(fd_in);
2294 if (fd_out >= 0)
2295 close(fd_out);
2296 TFR(fd_in = fd_out = open(filename, O_RDWR | O_BINARY));
2297 if (fd_in < 0)
2298 return NULL;
2299 }
2300 return qemu_chr_open_fd(fd_in, fd_out);
2301 }
2302
2303
2304 /* for STDIO, we handle the case where several clients use it
2305 (nographic mode) */
2306
2307 #define TERM_FIFO_MAX_SIZE 1
2308
2309 static uint8_t term_fifo[TERM_FIFO_MAX_SIZE];
2310 static int term_fifo_size;
2311
2312 static int stdio_read_poll(void *opaque)
2313 {
2314 CharDriverState *chr = opaque;
2315
2316 /* try to flush the queue if needed */
2317 if (term_fifo_size != 0 && qemu_chr_can_read(chr) > 0) {
2318 qemu_chr_read(chr, term_fifo, 1);
2319 term_fifo_size = 0;
2320 }
2321 /* see if we can absorb more chars */
2322 if (term_fifo_size == 0)
2323 return 1;
2324 else
2325 return 0;
2326 }
2327
2328 static void stdio_read(void *opaque)
2329 {
2330 int size;
2331 uint8_t buf[1];
2332 CharDriverState *chr = opaque;
2333
2334 size = read(0, buf, 1);
2335 if (size == 0) {
2336 /* stdin has been closed. Remove it from the active list. */
2337 qemu_set_fd_handler2(0, NULL, NULL, NULL, NULL);
2338 return;
2339 }
2340 if (size > 0) {
2341 if (qemu_chr_can_read(chr) > 0) {
2342 qemu_chr_read(chr, buf, 1);
2343 } else if (term_fifo_size == 0) {
2344 term_fifo[term_fifo_size++] = buf[0];
2345 }
2346 }
2347 }
2348
2349 /* init terminal so that we can grab keys */
2350 static struct termios oldtty;
2351 static int old_fd0_flags;
2352 static int term_atexit_done;
2353
2354 static void term_exit(void)
2355 {
2356 tcsetattr (0, TCSANOW, &oldtty);
2357 fcntl(0, F_SETFL, old_fd0_flags);
2358 }
2359
2360 static void term_init(void)
2361 {
2362 struct termios tty;
2363
2364 tcgetattr (0, &tty);
2365 oldtty = tty;
2366 old_fd0_flags = fcntl(0, F_GETFL);
2367
2368 tty.c_iflag &= ~(IGNBRK|BRKINT|PARMRK|ISTRIP
2369 |INLCR|IGNCR|ICRNL|IXON);
2370 tty.c_oflag |= OPOST;
2371 tty.c_lflag &= ~(ECHO|ECHONL|ICANON|IEXTEN);
2372 /* if graphical mode, we allow Ctrl-C handling */
2373 if (nographic)
2374 tty.c_lflag &= ~ISIG;
2375 tty.c_cflag &= ~(CSIZE|PARENB);
2376 tty.c_cflag |= CS8;
2377 tty.c_cc[VMIN] = 1;
2378 tty.c_cc[VTIME] = 0;
2379
2380 tcsetattr (0, TCSANOW, &tty);
2381
2382 if (!term_atexit_done++)
2383 atexit(term_exit);
2384
2385 fcntl(0, F_SETFL, O_NONBLOCK);
2386 }
2387
2388 static void qemu_chr_close_stdio(struct CharDriverState *chr)
2389 {
2390 term_exit();
2391 stdio_nb_clients--;
2392 qemu_set_fd_handler2(0, NULL, NULL, NULL, NULL);
2393 fd_chr_close(chr);
2394 }
2395
2396 static CharDriverState *qemu_chr_open_stdio(void)
2397 {
2398 CharDriverState *chr;
2399
2400 if (stdio_nb_clients >= STDIO_MAX_CLIENTS)
2401 return NULL;
2402 chr = qemu_chr_open_fd(0, 1);
2403 chr->chr_close = qemu_chr_close_stdio;
2404 qemu_set_fd_handler2(0, stdio_read_poll, stdio_read, NULL, chr);
2405 stdio_nb_clients++;
2406 term_init();
2407
2408 return chr;
2409 }
2410
2411 #ifdef __sun__
2412 /* Once Solaris has openpty(), this is going to be removed. */
2413 int openpty(int *amaster, int *aslave, char *name,
2414 struct termios *termp, struct winsize *winp)
2415 {
2416 const char *slave;
2417 int mfd = -1, sfd = -1;
2418
2419 *amaster = *aslave = -1;
2420
2421 mfd = open("/dev/ptmx", O_RDWR | O_NOCTTY);
2422 if (mfd < 0)
2423 goto err;
2424
2425 if (grantpt(mfd) == -1 || unlockpt(mfd) == -1)
2426 goto err;
2427
2428 if ((slave = ptsname(mfd)) == NULL)
2429 goto err;
2430
2431 if ((sfd = open(slave, O_RDONLY | O_NOCTTY)) == -1)
2432 goto err;
2433
2434 if (ioctl(sfd, I_PUSH, "ptem") == -1 ||
2435 (termp != NULL && tcgetattr(sfd, termp) < 0))
2436 goto err;
2437
2438 if (amaster)
2439 *amaster = mfd;
2440 if (aslave)
2441 *aslave = sfd;
2442 if (winp)
2443 ioctl(sfd, TIOCSWINSZ, winp);
2444
2445 return 0;
2446
2447 err:
2448 if (sfd != -1)
2449 close(sfd);
2450 close(mfd);
2451 return -1;
2452 }
2453
2454 void cfmakeraw (struct termios *termios_p)
2455 {
2456 termios_p->c_iflag &=
2457 ~(IGNBRK|BRKINT|PARMRK|ISTRIP|INLCR|IGNCR|ICRNL|IXON);
2458 termios_p->c_oflag &= ~OPOST;
2459 termios_p->c_lflag &= ~(ECHO|ECHONL|ICANON|ISIG|IEXTEN);
2460 termios_p->c_cflag &= ~(CSIZE|PARENB);
2461 termios_p->c_cflag |= CS8;
2462
2463 termios_p->c_cc[VMIN] = 0;
2464 termios_p->c_cc[VTIME] = 0;
2465 }
2466 #endif
2467
2468 #if defined(__linux__) || defined(__sun__)
2469 static CharDriverState *qemu_chr_open_pty(void)
2470 {
2471 struct termios tty;
2472 int master_fd, slave_fd;
2473
2474 if (openpty(&master_fd, &slave_fd, NULL, NULL, NULL) < 0) {
2475 return NULL;
2476 }
2477
2478 /* Set raw attributes on the pty. */
2479 cfmakeraw(&tty);
2480 tcsetattr(slave_fd, TCSAFLUSH, &tty);
2481
2482 fprintf(stderr, "char device redirected to %s\n", ptsname(master_fd));
2483 return qemu_chr_open_fd(master_fd, master_fd);
2484 }
2485
2486 static void tty_serial_init(int fd, int speed,
2487 int parity, int data_bits, int stop_bits)
2488 {
2489 struct termios tty;
2490 speed_t spd;
2491
2492 #if 0
2493 printf("tty_serial_init: speed=%d parity=%c data=%d stop=%d\n",
2494 speed, parity, data_bits, stop_bits);
2495 #endif
2496 tcgetattr (fd, &tty);
2497
2498 #define MARGIN 1.1
2499 if (speed <= 50 * MARGIN)
2500 spd = B50;
2501 else if (speed <= 75 * MARGIN)
2502 spd = B75;
2503 else if (speed <= 300 * MARGIN)
2504 spd = B300;
2505 else if (speed <= 600 * MARGIN)
2506 spd = B600;
2507 else if (speed <= 1200 * MARGIN)
2508 spd = B1200;
2509 else if (speed <= 2400 * MARGIN)
2510 spd = B2400;
2511 else if (speed <= 4800 * MARGIN)
2512 spd = B4800;
2513 else if (speed <= 9600 * MARGIN)
2514 spd = B9600;
2515 else if (speed <= 19200 * MARGIN)
2516 spd = B19200;
2517 else if (speed <= 38400 * MARGIN)
2518 spd = B38400;
2519 else if (speed <= 57600 * MARGIN)
2520 spd = B57600;
2521 else if (speed <= 115200 * MARGIN)
2522 spd = B115200;
2523 else
2524 spd = B115200;
2525
2526 cfsetispeed(&tty, spd);
2527 cfsetospeed(&tty, spd);
2528
2529 tty.c_iflag &= ~(IGNBRK|BRKINT|PARMRK|ISTRIP
2530 |INLCR|IGNCR|ICRNL|IXON);
2531 tty.c_oflag |= OPOST;
2532 tty.c_lflag &= ~(ECHO|ECHONL|ICANON|IEXTEN|ISIG);
2533 tty.c_cflag &= ~(CSIZE|PARENB|PARODD|CRTSCTS|CSTOPB);
2534 switch(data_bits) {
2535 default:
2536 case 8:
2537 tty.c_cflag |= CS8;
2538 break;
2539 case 7:
2540 tty.c_cflag |= CS7;
2541 break;
2542 case 6:
2543 tty.c_cflag |= CS6;
2544 break;
2545 case 5:
2546 tty.c_cflag |= CS5;
2547 break;
2548 }
2549 switch(parity) {
2550 default:
2551 case 'N':
2552 break;
2553 case 'E':
2554 tty.c_cflag |= PARENB;
2555 break;
2556 case 'O':
2557 tty.c_cflag |= PARENB | PARODD;
2558 break;
2559 }
2560 if (stop_bits == 2)
2561 tty.c_cflag |= CSTOPB;
2562
2563 tcsetattr (fd, TCSANOW, &tty);
2564 }
2565
2566 static int tty_serial_ioctl(CharDriverState *chr, int cmd, void *arg)
2567 {
2568 FDCharDriver *s = chr->opaque;
2569
2570 switch(cmd) {
2571 case CHR_IOCTL_SERIAL_SET_PARAMS:
2572 {
2573 QEMUSerialSetParams *ssp = arg;
2574 tty_serial_init(s->fd_in, ssp->speed, ssp->parity,
2575 ssp->data_bits, ssp->stop_bits);
2576 }
2577 break;
2578 case CHR_IOCTL_SERIAL_SET_BREAK:
2579 {
2580 int enable = *(int *)arg;
2581 if (enable)
2582 tcsendbreak(s->fd_in, 1);
2583 }
2584 break;
2585 default:
2586 return -ENOTSUP;
2587 }
2588 return 0;
2589 }
2590
2591 static CharDriverState *qemu_chr_open_tty(const char *filename)
2592 {
2593 CharDriverState *chr;
2594 int fd;
2595
2596 TFR(fd = open(filename, O_RDWR | O_NONBLOCK));
2597 fcntl(fd, F_SETFL, O_NONBLOCK);
2598 tty_serial_init(fd, 115200, 'N', 8, 1);
2599 chr = qemu_chr_open_fd(fd, fd);
2600 if (!chr) {
2601 close(fd);
2602 return NULL;
2603 }
2604 chr->chr_ioctl = tty_serial_ioctl;
2605 qemu_chr_reset(chr);
2606 return chr;
2607 }
2608 #else /* ! __linux__ && ! __sun__ */
2609 static CharDriverState *qemu_chr_open_pty(void)
2610 {
2611 return NULL;
2612 }
2613 #endif /* __linux__ || __sun__ */
2614
2615 #if defined(__linux__)
2616 typedef struct {
2617 int fd;
2618 int mode;
2619 } ParallelCharDriver;
2620
2621 static int pp_hw_mode(ParallelCharDriver *s, uint16_t mode)
2622 {
2623 if (s->mode != mode) {
2624 int m = mode;
2625 if (ioctl(s->fd, PPSETMODE, &m) < 0)
2626 return 0;
2627 s->mode = mode;
2628 }
2629 return 1;
2630 }
2631
2632 static int pp_ioctl(CharDriverState *chr, int cmd, void *arg)
2633 {
2634 ParallelCharDriver *drv = chr->opaque;
2635 int fd = drv->fd;
2636 uint8_t b;
2637
2638 switch(cmd) {
2639 case CHR_IOCTL_PP_READ_DATA:
2640 if (ioctl(fd, PPRDATA, &b) < 0)
2641 return -ENOTSUP;
2642 *(uint8_t *)arg = b;
2643 break;
2644 case CHR_IOCTL_PP_WRITE_DATA:
2645 b = *(uint8_t *)arg;
2646 if (ioctl(fd, PPWDATA, &b) < 0)
2647 return -ENOTSUP;
2648 break;
2649 case CHR_IOCTL_PP_READ_CONTROL:
2650 if (ioctl(fd, PPRCONTROL, &b) < 0)
2651 return -ENOTSUP;
2652 /* Linux gives only the lowest bits, and no way to know data
2653 direction! For better compatibility set the fixed upper
2654 bits. */
2655 *(uint8_t *)arg = b | 0xc0;
2656 break;
2657 case CHR_IOCTL_PP_WRITE_CONTROL:
2658 b = *(uint8_t *)arg;
2659 if (ioctl(fd, PPWCONTROL, &b) < 0)
2660 return -ENOTSUP;
2661 break;
2662 case CHR_IOCTL_PP_READ_STATUS:
2663 if (ioctl(fd, PPRSTATUS, &b) < 0)
2664 return -ENOTSUP;
2665 *(uint8_t *)arg = b;
2666 break;
2667 case CHR_IOCTL_PP_EPP_READ_ADDR:
2668 if (pp_hw_mode(drv, IEEE1284_MODE_EPP|IEEE1284_ADDR)) {
2669 struct ParallelIOArg *parg = arg;
2670 int n = read(fd, parg->buffer, parg->count);
2671 if (n != parg->count) {
2672 return -EIO;
2673 }
2674 }
2675 break;
2676 case CHR_IOCTL_PP_EPP_READ:
2677 if (pp_hw_mode(drv, IEEE1284_MODE_EPP)) {
2678 struct ParallelIOArg *parg = arg;
2679 int n = read(fd, parg->buffer, parg->count);
2680 if (n != parg->count) {
2681 return -EIO;
2682 }
2683 }
2684 break;
2685 case CHR_IOCTL_PP_EPP_WRITE_ADDR:
2686 if (pp_hw_mode(drv, IEEE1284_MODE_EPP|IEEE1284_ADDR)) {
2687 struct ParallelIOArg *parg = arg;
2688 int n = write(fd, parg->buffer, parg->count);
2689 if (n != parg->count) {
2690 return -EIO;
2691 }
2692 }
2693 break;
2694 case CHR_IOCTL_PP_EPP_WRITE:
2695 if (pp_hw_mode(drv, IEEE1284_MODE_EPP)) {
2696 struct ParallelIOArg *parg = arg;
2697 int n = write(fd, parg->buffer, parg->count);
2698 if (n != parg->count) {
2699 return -EIO;
2700 }
2701 }
2702 break;
2703 default:
2704 return -ENOTSUP;
2705 }
2706 return 0;
2707 }
2708
2709 static void pp_close(CharDriverState *chr)
2710 {
2711 ParallelCharDriver *drv = chr->opaque;
2712 int fd = drv->fd;
2713
2714 pp_hw_mode(drv, IEEE1284_MODE_COMPAT);
2715 ioctl(fd, PPRELEASE);
2716 close(fd);
2717 qemu_free(drv);
2718 }
2719
2720 static CharDriverState *qemu_chr_open_pp(const char *filename)
2721 {
2722 CharDriverState *chr;
2723 ParallelCharDriver *drv;
2724 int fd;
2725
2726 TFR(fd = open(filename, O_RDWR));
2727 if (fd < 0)
2728 return NULL;
2729
2730 if (ioctl(fd, PPCLAIM) < 0) {
2731 close(fd);
2732 return NULL;
2733 }
2734
2735 drv = qemu_mallocz(sizeof(ParallelCharDriver));
2736 if (!drv) {
2737 close(fd);
2738 return NULL;
2739 }
2740 drv->fd = fd;
2741 drv->mode = IEEE1284_MODE_COMPAT;
2742
2743 chr = qemu_mallocz(sizeof(CharDriverState));
2744 if (!chr) {
2745 qemu_free(drv);
2746 close(fd);
2747 return NULL;
2748 }
2749 chr->chr_write = null_chr_write;
2750 chr->chr_ioctl = pp_ioctl;
2751 chr->chr_close = pp_close;
2752 chr->opaque = drv;
2753
2754 qemu_chr_reset(chr);
2755
2756 return chr;
2757 }
2758 #endif /* __linux__ */
2759
2760 #else /* _WIN32 */
2761
2762 typedef struct {
2763 int max_size;
2764 HANDLE hcom, hrecv, hsend;
2765 OVERLAPPED orecv, osend;
2766 BOOL fpipe;
2767 DWORD len;
2768 } WinCharState;
2769
2770 #define NSENDBUF 2048
2771 #define NRECVBUF 2048
2772 #define MAXCONNECT 1
2773 #define NTIMEOUT 5000
2774
2775 static int win_chr_poll(void *opaque);
2776 static int win_chr_pipe_poll(void *opaque);
2777
2778 static void win_chr_close(CharDriverState *chr)
2779 {
2780 WinCharState *s = chr->opaque;
2781
2782 if (s->hsend) {
2783 CloseHandle(s->hsend);
2784 s->hsend = NULL;
2785 }
2786 if (s->hrecv) {
2787 CloseHandle(s->hrecv);
2788 s->hrecv = NULL;
2789 }
2790 if (s->hcom) {
2791 CloseHandle(s->hcom);
2792 s->hcom = NULL;
2793 }
2794 if (s->fpipe)
2795 qemu_del_polling_cb(win_chr_pipe_poll, chr);
2796 else
2797 qemu_del_polling_cb(win_chr_poll, chr);
2798 }
2799
2800 static int win_chr_init(CharDriverState *chr, const char *filename)
2801 {
2802 WinCharState *s = chr->opaque;
2803 COMMCONFIG comcfg;
2804 COMMTIMEOUTS cto = { 0, 0, 0, 0, 0};
2805 COMSTAT comstat;
2806 DWORD size;
2807 DWORD err;
2808
2809 s->hsend = CreateEvent(NULL, TRUE, FALSE, NULL);
2810 if (!s->hsend) {
2811 fprintf(stderr, "Failed CreateEvent\n");
2812 goto fail;
2813 }
2814 s->hrecv = CreateEvent(NULL, TRUE, FALSE, NULL);
2815 if (!s->hrecv) {
2816 fprintf(stderr, "Failed CreateEvent\n");
2817 goto fail;
2818 }
2819
2820 s->hcom = CreateFile(filename, GENERIC_READ|GENERIC_WRITE, 0, NULL,
2821 OPEN_EXISTING, FILE_FLAG_OVERLAPPED, 0);
2822 if (s->hcom == INVALID_HANDLE_VALUE) {
2823 fprintf(stderr, "Failed CreateFile (%lu)\n", GetLastError());
2824 s->hcom = NULL;
2825 goto fail;
2826 }
2827
2828 if (!SetupComm(s->hcom, NRECVBUF, NSENDBUF)) {
2829 fprintf(stderr, "Failed SetupComm\n");
2830 goto fail;
2831 }
2832
2833 ZeroMemory(&comcfg, sizeof(COMMCONFIG));
2834 size = sizeof(COMMCONFIG);
2835 GetDefaultCommConfig(filename, &comcfg, &size);
2836 comcfg.dcb.DCBlength = sizeof(DCB);
2837 CommConfigDialog(filename, NULL, &comcfg);
2838
2839 if (!SetCommState(s->hcom, &comcfg.dcb)) {
2840 fprintf(stderr, "Failed SetCommState\n");
2841 goto fail;
2842 }
2843
2844 if (!SetCommMask(s->hcom, EV_ERR)) {
2845 fprintf(stderr, "Failed SetCommMask\n");
2846 goto fail;
2847 }
2848
2849 cto.ReadIntervalTimeout = MAXDWORD;
2850 if (!SetCommTimeouts(s->hcom, &cto)) {
2851 fprintf(stderr, "Failed SetCommTimeouts\n");
2852 goto fail;
2853 }
2854
2855 if (!ClearCommError(s->hcom, &err, &comstat)) {
2856 fprintf(stderr, "Failed ClearCommError\n");
2857 goto fail;
2858 }
2859 qemu_add_polling_cb(win_chr_poll, chr);
2860 return 0;
2861
2862 fail:
2863 win_chr_close(chr);
2864 return -1;
2865 }
2866
2867 static int win_chr_write(CharDriverState *chr, const uint8_t *buf, int len1)
2868 {
2869 WinCharState *s = chr->opaque;
2870 DWORD len, ret, size, err;
2871
2872 len = len1;
2873 ZeroMemory(&s->osend, sizeof(s->osend));
2874 s->osend.hEvent = s->hsend;
2875 while (len > 0) {
2876 if (s->hsend)
2877 ret = WriteFile(s->hcom, buf, len, &size, &s->osend);
2878 else
2879 ret = WriteFile(s->hcom, buf, len, &size, NULL);
2880 if (!ret) {
2881 err = GetLastError();
2882 if (err == ERROR_IO_PENDING) {
2883 ret = GetOverlappedResult(s->hcom, &s->osend, &size, TRUE);
2884 if (ret) {
2885 buf += size;
2886 len -= size;
2887 } else {
2888 break;
2889 }
2890 } else {
2891 break;
2892 }
2893 } else {
2894 buf += size;
2895 len -= size;
2896 }
2897 }
2898 return len1 - len;
2899 }
2900
2901 static int win_chr_read_poll(CharDriverState *chr)
2902 {
2903 WinCharState *s = chr->opaque;
2904
2905 s->max_size = qemu_chr_can_read(chr);
2906 return s->max_size;
2907 }
2908
2909 static void win_chr_readfile(CharDriverState *chr)
2910 {
2911 WinCharState *s = chr->opaque;
2912 int ret, err;
2913 uint8_t buf[1024];
2914 DWORD size;
2915
2916 ZeroMemory(&s->orecv, sizeof(s->orecv));
2917 s->orecv.hEvent = s->hrecv;
2918 ret = ReadFile(s->hcom, buf, s->len, &size, &s->orecv);
2919 if (!ret) {
2920 err = GetLastError();
2921 if (err == ERROR_IO_PENDING) {
2922 ret = GetOverlappedResult(s->hcom, &s->orecv, &size, TRUE);
2923 }
2924 }
2925
2926 if (size > 0) {
2927 qemu_chr_read(chr, buf, size);
2928 }
2929 }
2930
2931 static void win_chr_read(CharDriverState *chr)
2932 {
2933 WinCharState *s = chr->opaque;
2934
2935 if (s->len > s->max_size)
2936 s->len = s->max_size;
2937 if (s->len == 0)
2938 return;
2939
2940 win_chr_readfile(chr);
2941 }
2942
2943 static int win_chr_poll(void *opaque)
2944 {
2945 CharDriverState *chr = opaque;
2946 WinCharState *s = chr->opaque;
2947 COMSTAT status;
2948 DWORD comerr;
2949
2950 ClearCommError(s->hcom, &comerr, &status);
2951 if (status.cbInQue > 0) {
2952 s->len = status.cbInQue;
2953 win_chr_read_poll(chr);
2954 win_chr_read(chr);
2955 return 1;
2956 }
2957 return 0;
2958 }
2959
2960 static CharDriverState *qemu_chr_open_win(const char *filename)
2961 {
2962 CharDriverState *chr;
2963 WinCharState *s;
2964
2965 chr = qemu_mallocz(sizeof(CharDriverState));
2966 if (!chr)
2967 return NULL;
2968 s = qemu_mallocz(sizeof(WinCharState));
2969 if (!s) {
2970 free(chr);
2971 return NULL;
2972 }
2973 chr->opaque = s;
2974 chr->chr_write = win_chr_write;
2975 chr->chr_close = win_chr_close;
2976
2977 if (win_chr_init(chr, filename) < 0) {
2978 free(s);
2979 free(chr);
2980 return NULL;
2981 }
2982 qemu_chr_reset(chr);
2983 return chr;
2984 }
2985
2986 static int win_chr_pipe_poll(void *opaque)
2987 {
2988 CharDriverState *chr = opaque;
2989 WinCharState *s = chr->opaque;
2990 DWORD size;
2991
2992 PeekNamedPipe(s->hcom, NULL, 0, NULL, &size, NULL);
2993 if (size > 0) {
2994 s->len = size;
2995 win_chr_read_poll(chr);
2996 win_chr_read(chr);
2997 return 1;
2998 }
2999 return 0;
3000 }
3001
3002 static int win_chr_pipe_init(CharDriverState *chr, const char *filename)
3003 {
3004 WinCharState *s = chr->opaque;
3005 OVERLAPPED ov;
3006 int ret;
3007 DWORD size;
3008 char openname[256];
3009
3010 s->fpipe = TRUE;
3011
3012 s->hsend = CreateEvent(NULL, TRUE, FALSE, NULL);
3013 if (!s->hsend) {
3014 fprintf(stderr, "Failed CreateEvent\n");
3015 goto fail;
3016 }
3017 s->hrecv = CreateEvent(NULL, TRUE, FALSE, NULL);
3018 if (!s->hrecv) {
3019 fprintf(stderr, "Failed CreateEvent\n");
3020 goto fail;
3021 }
3022
3023 snprintf(openname, sizeof(openname), "\\\\.\\pipe\\%s", filename);
3024 s->hcom = CreateNamedPipe(openname, PIPE_ACCESS_DUPLEX | FILE_FLAG_OVERLAPPED,
3025 PIPE_TYPE_BYTE | PIPE_READMODE_BYTE |
3026 PIPE_WAIT,
3027 MAXCONNECT, NSENDBUF, NRECVBUF, NTIMEOUT, NULL);
3028 if (s->hcom == INVALID_HANDLE_VALUE) {
3029 fprintf(stderr, "Failed CreateNamedPipe (%lu)\n", GetLastError());
3030 s->hcom = NULL;
3031 goto fail;
3032 }
3033
3034 ZeroMemory(&ov, sizeof(ov));
3035 ov.hEvent = CreateEvent(NULL, TRUE, FALSE, NULL);
3036 ret = ConnectNamedPipe(s->hcom, &ov);
3037 if (ret) {
3038 fprintf(stderr, "Failed ConnectNamedPipe\n");
3039 goto fail;
3040 }
3041
3042 ret = GetOverlappedResult(s->hcom, &ov, &size, TRUE);
3043 if (!ret) {
3044 fprintf(stderr, "Failed GetOverlappedResult\n");
3045 if (ov.hEvent) {
3046 CloseHandle(ov.hEvent);
3047 ov.hEvent = NULL;
3048 }
3049 goto fail;
3050 }
3051
3052 if (ov.hEvent) {
3053 CloseHandle(ov.hEvent);
3054 ov.hEvent = NULL;
3055 }
3056 qemu_add_polling_cb(win_chr_pipe_poll, chr);
3057 return 0;
3058
3059 fail:
3060 win_chr_close(chr);
3061 return -1;
3062 }
3063
3064
3065 static CharDriverState *qemu_chr_open_win_pipe(const char *filename)
3066 {
3067 CharDriverState *chr;
3068 WinCharState *s;
3069
3070 chr = qemu_mallocz(sizeof(CharDriverState));
3071 if (!chr)
3072 return NULL;
3073 s = qemu_mallocz(sizeof(WinCharState));
3074 if (!s) {
3075 free(chr);
3076 return NULL;
3077 }
3078 chr->opaque = s;
3079 chr->chr_write = win_chr_write;
3080 chr->chr_close = win_chr_close;
3081
3082 if (win_chr_pipe_init(chr, filename) < 0) {
3083 free(s);
3084 free(chr);
3085 return NULL;
3086 }
3087 qemu_chr_reset(chr);
3088 return chr;
3089 }
3090
3091 static CharDriverState *qemu_chr_open_win_file(HANDLE fd_out)
3092 {
3093 CharDriverState *chr;
3094 WinCharState *s;
3095
3096 chr = qemu_mallocz(sizeof(CharDriverState));
3097 if (!chr)
3098 return NULL;
3099 s = qemu_mallocz(sizeof(WinCharState));
3100 if (!s) {
3101 free(chr);
3102 return NULL;
3103 }
3104 s->hcom = fd_out;
3105 chr->opaque = s;
3106 chr->chr_write = win_chr_write;
3107 qemu_chr_reset(chr);
3108 return chr;
3109 }
3110
3111 static CharDriverState *qemu_chr_open_win_con(const char *filename)
3112 {
3113 return qemu_chr_open_win_file(GetStdHandle(STD_OUTPUT_HANDLE));
3114 }
3115
3116 static CharDriverState *qemu_chr_open_win_file_out(const char *file_out)
3117 {
3118 HANDLE fd_out;
3119
3120 fd_out = CreateFile(file_out, GENERIC_WRITE, FILE_SHARE_READ, NULL,
3121 OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL);
3122 if (fd_out == INVALID_HANDLE_VALUE)
3123 return NULL;
3124
3125 return qemu_chr_open_win_file(fd_out);
3126 }
3127 #endif /* !_WIN32 */
3128
3129 /***********************************************************/
3130 /* UDP Net console */
3131
3132 typedef struct {
3133 int fd;
3134 struct sockaddr_in daddr;
3135 uint8_t buf[1024];
3136 int bufcnt;
3137 int bufptr;
3138 int max_size;
3139 } NetCharDriver;
3140
3141 static int udp_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
3142 {
3143 NetCharDriver *s = chr->opaque;
3144
3145 return sendto(s->fd, buf, len, 0,
3146 (struct sockaddr *)&s->daddr, sizeof(struct sockaddr_in));
3147 }
3148
3149 static int udp_chr_read_poll(void *opaque)
3150 {
3151 CharDriverState *chr = opaque;
3152 NetCharDriver *s = chr->opaque;
3153
3154 s->max_size = qemu_chr_can_read(chr);
3155
3156 /* If there were any stray characters in the queue process them
3157 * first
3158 */
3159 while (s->max_size > 0 && s->bufptr < s->bufcnt) {
3160 qemu_chr_read(chr, &s->buf[s->bufptr], 1);
3161 s->bufptr++;
3162 s->max_size = qemu_chr_can_read(chr);
3163 }
3164 return s->max_size;
3165 }
3166
3167 static void udp_chr_read(void *opaque)
3168 {
3169 CharDriverState *chr = opaque;
3170 NetCharDriver *s = chr->opaque;
3171
3172 if (s->max_size == 0)
3173 return;
3174 s->bufcnt = recv(s->fd, s->buf, sizeof(s->buf), 0);
3175 s->bufptr = s->bufcnt;
3176 if (s->bufcnt <= 0)
3177 return;
3178
3179 s->bufptr = 0;
3180 while (s->max_size > 0 && s->bufptr < s->bufcnt) {
3181 qemu_chr_read(chr, &s->buf[s->bufptr], 1);
3182 s->bufptr++;
3183 s->max_size = qemu_chr_can_read(chr);
3184 }
3185 }
3186
3187 static void udp_chr_update_read_handler(CharDriverState *chr)
3188 {
3189 NetCharDriver *s = chr->opaque;
3190
3191 if (s->fd >= 0) {
3192 qemu_set_fd_handler2(s->fd, udp_chr_read_poll,
3193 udp_chr_read, NULL, chr);
3194 }
3195 }
3196
3197 #ifndef _WIN32
3198 static int parse_unix_path(struct sockaddr_un *uaddr, const char *str);
3199 #endif
3200 int parse_host_src_port(struct sockaddr_in *haddr,
3201 struct sockaddr_in *saddr,
3202 const char *str);
3203
3204 static CharDriverState *qemu_chr_open_udp(const char *def)
3205 {
3206 CharDriverState *chr = NULL;
3207 NetCharDriver *s = NULL;
3208 int fd = -1;
3209 struct sockaddr_in saddr;
3210
3211 chr = qemu_mallocz(sizeof(CharDriverState));
3212 if (!chr)
3213 goto return_err;
3214 s = qemu_mallocz(sizeof(NetCharDriver));
3215 if (!s)
3216 goto return_err;
3217
3218 fd = socket(PF_INET, SOCK_DGRAM, 0);
3219 if (fd < 0) {
3220 perror("socket(PF_INET, SOCK_DGRAM)");
3221 goto return_err;
3222 }
3223
3224 if (parse_host_src_port(&s->daddr, &saddr, def) < 0) {
3225 printf("Could not parse: %s\n", def);
3226 goto return_err;
3227 }
3228
3229 if (bind(fd, (struct sockaddr *)&saddr, sizeof(saddr)) < 0)
3230 {
3231 perror("bind");
3232 goto return_err;
3233 }
3234
3235 s->fd = fd;
3236 s->bufcnt = 0;
3237 s->bufptr = 0;
3238 chr->opaque = s;
3239 chr->chr_write = udp_chr_write;
3240 chr->chr_update_read_handler = udp_chr_update_read_handler;
3241 return chr;
3242
3243 return_err:
3244 if (chr)
3245 free(chr);
3246 if (s)
3247 free(s);
3248 if (fd >= 0)
3249 closesocket(fd);
3250 return NULL;
3251 }
3252
3253 /***********************************************************/
3254 /* TCP Net console */
3255
3256 typedef struct {
3257 int fd, listen_fd;
3258 int connected;
3259 int max_size;
3260 int do_telnetopt;
3261 int do_nodelay;
3262 int is_unix;
3263 } TCPCharDriver;
3264
3265 static void tcp_chr_accept(void *opaque);
3266
3267 static int tcp_chr_write(CharDriverState *chr, const uint8_t *buf, int len)
3268 {
3269 TCPCharDriver *s = chr->opaque;
3270 if (s->connected) {
3271 return send_all(s->fd, buf, len);
3272 } else {
3273 /* XXX: indicate an error ? */
3274 return len;
3275 }
3276 }
3277
3278 static int tcp_chr_read_poll(void *opaque)
3279 {
3280 CharDriverState *chr = opaque;
3281 TCPCharDriver *s = chr->opaque;
3282 if (!s->connected)
3283 return 0;
3284 s->max_size = qemu_chr_can_read(chr);
3285 return s->max_size;
3286 }
3287
3288 #define IAC 255
3289 #define IAC_BREAK 243
3290 static void tcp_chr_process_IAC_bytes(CharDriverState *chr,
3291 TCPCharDriver *s,
3292 uint8_t *buf, int *size)
3293 {
3294 /* Handle any telnet client's basic IAC options to satisfy char by
3295 * char mode with no echo. All IAC options will be removed from
3296 * the buf and the do_telnetopt variable will be used to track the
3297 * state of the width of the IAC information.
3298 *
3299 * IAC commands come in sets of 3 bytes with the exception of the
3300 * "IAC BREAK" command and the double IAC.
3301 */
3302
3303 int i;
3304 int j = 0;
3305
3306 for (i = 0; i < *size; i++) {
3307 if (s->do_telnetopt > 1) {
3308 if ((unsigned char)buf[i] == IAC && s->do_telnetopt == 2) {
3309 /* Double IAC means send an IAC */
3310 if (j != i)
3311 buf[j] = buf[i];
3312 j++;
3313 s->do_telnetopt = 1;
3314 } else {
3315 if ((unsigned char)buf[i] == IAC_BREAK && s->do_telnetopt == 2) {
3316 /* Handle IAC break commands by sending a serial break */
3317 qemu_chr_event(chr, CHR_EVENT_BREAK);
3318 s->do_telnetopt++;
3319 }
3320 s->do_telnetopt++;
3321 }
3322 if (s->do_telnetopt >= 4) {
3323 s->do_telnetopt = 1;
3324 }
3325 } else {
3326 if ((unsigned char)buf[i] == IAC) {
3327 s->do_telnetopt = 2;
3328 } else {
3329 if (j != i)
3330 buf[j] = buf[i];
3331 j++;
3332 }
3333 }
3334 }
3335 *size = j;
3336 }
3337
3338 static void tcp_chr_read(void *opaque)
3339 {
3340 CharDriverState *chr = opaque;
3341 TCPCharDriver *s = chr->opaque;
3342 uint8_t buf[1024];
3343 int len, size;
3344
3345 if (!s->connected || s->max_size <= 0)
3346 return;
3347 len = sizeof(buf);
3348 if (len > s->max_size)
3349 len = s->max_size;
3350 size = recv(s->fd, buf, len, 0);
3351 if (size == 0) {
3352 /* connection closed */
3353 s->connected = 0;
3354 if (s->listen_fd >= 0) {
3355 qemu_set_fd_handler(s->listen_fd, tcp_chr_accept, NULL, chr);
3356 }
3357 qemu_set_fd_handler(s->fd, NULL, NULL, NULL);
3358 closesocket(s->fd);
3359 s->fd = -1;
3360 } else if (size > 0) {
3361 if (s->do_telnetopt)
3362 tcp_chr_process_IAC_bytes(chr, s, buf, &size);
3363 if (size > 0)
3364 qemu_chr_read(chr, buf, size);
3365 }
3366 }
3367
3368 static void tcp_chr_connect(void *opaque)
3369 {
3370 CharDriverState *chr = opaque;
3371 TCPCharDriver *s = chr->opaque;
3372
3373 s->connected = 1;
3374 qemu_set_fd_handler2(s->fd, tcp_chr_read_poll,
3375 tcp_chr_read, NULL, chr);
3376 qemu_chr_reset(chr);
3377 }
3378
3379 #define IACSET(x,a,b,c) x[0] = a; x[1] = b; x[2] = c;
3380 static void tcp_chr_telnet_init(int fd)
3381 {
3382 char buf[3];
3383 /* Send the telnet negotion to put telnet in binary, no echo, single char mode */
3384 IACSET(buf, 0xff, 0xfb, 0x01); /* IAC WILL ECHO */
3385 send(fd, (char *)buf, 3, 0);
3386 IACSET(buf, 0xff, 0xfb, 0x03); /* IAC WILL Suppress go ahead */
3387 send(fd, (char *)buf, 3, 0);
3388 IACSET(buf, 0xff, 0xfb, 0x00); /* IAC WILL Binary */
3389 send(fd, (char *)buf, 3, 0);
3390 IACSET(buf, 0xff, 0xfd, 0x00); /* IAC DO Binary */
3391 send(fd, (char *)buf, 3, 0);
3392 }
3393
3394 static void socket_set_nodelay(int fd)
3395 {
3396 int val = 1;
3397 setsockopt(fd, IPPROTO_TCP, TCP_NODELAY, (char *)&val, sizeof(val));
3398 }
3399
3400 static void tcp_chr_accept(void *opaque)
3401 {
3402 CharDriverState *chr = opaque;
3403 TCPCharDriver *s = chr->opaque;
3404 struct sockaddr_in saddr;
3405 #ifndef _WIN32
3406 struct sockaddr_un uaddr;
3407 #endif
3408 struct sockaddr *addr;
3409 socklen_t len;
3410 int fd;
3411
3412 for(;;) {
3413 #ifndef _WIN32
3414 if (s->is_unix) {
3415 len = sizeof(uaddr);
3416 addr = (struct sockaddr *)&uaddr;
3417 } else
3418 #endif
3419 {
3420 len = sizeof(saddr);
3421 addr = (struct sockaddr *)&saddr;
3422 }
3423 fd = accept(s->listen_fd, addr, &len);
3424 if (fd < 0 && errno != EINTR) {
3425 return;
3426 } else if (fd >= 0) {
3427 if (s->do_telnetopt)
3428 tcp_chr_telnet_init(fd);
3429 break;
3430 }
3431 }
3432 socket_set_nonblock(fd);
3433 if (s->do_nodelay)
3434 socket_set_nodelay(fd);
3435 s->fd = fd;
3436 qemu_set_fd_handler(s->listen_fd, NULL, NULL, NULL);
3437 tcp_chr_connect(chr);
3438 }
3439
3440 static void tcp_chr_close(CharDriverState *chr)
3441 {
3442 TCPCharDriver *s = chr->opaque;
3443 if (s->fd >= 0)
3444 closesocket(s->fd);
3445 if (s->listen_fd >= 0)
3446 closesocket(s->listen_fd);
3447 qemu_free(s);
3448 }
3449
3450 static CharDriverState *qemu_chr_open_tcp(const char *host_str,
3451 int is_telnet,
3452 int is_unix)
3453 {
3454 CharDriverState *chr = NULL;
3455 TCPCharDriver *s = NULL;
3456 int fd = -1, ret, err, val;
3457 int is_listen = 0;
3458 int is_waitconnect = 1;
3459 int do_nodelay = 0;
3460 const char *ptr;
3461 struct sockaddr_in saddr;
3462 #ifndef _WIN32
3463 struct sockaddr_un uaddr;
3464 #endif
3465 struct sockaddr *addr;
3466 socklen_t addrlen;
3467
3468 #ifndef _WIN32
3469 if (is_unix) {
3470 addr = (struct sockaddr *)&uaddr;
3471 addrlen = sizeof(uaddr);
3472 if (parse_unix_path(&uaddr, host_str) < 0)
3473 goto fail;
3474 } else
3475 #endif
3476 {
3477 addr = (struct sockaddr *)&saddr;
3478 addrlen = sizeof(saddr);
3479 if (parse_host_port(&saddr, host_str) < 0)
3480 goto fail;
3481 }
3482
3483 ptr = host_str;
3484 while((ptr = strchr(ptr,','))) {
3485 ptr++;
3486 if (!strncmp(ptr,"server",6)) {
3487 is_listen = 1;
3488 } else if (!strncmp(ptr,"nowait",6)) {
3489 is_waitconnect = 0;
3490 } else if (!strncmp(ptr,"nodelay",6)) {
3491 do_nodelay = 1;
3492 } else {
3493 printf("Unknown option: %s\n", ptr);
3494 goto fail;
3495 }
3496 }
3497 if (!is_listen)
3498 is_waitconnect = 0;
3499
3500 chr = qemu_mallocz(sizeof(CharDriverState));
3501 if (!chr)
3502 goto fail;
3503 s = qemu_mallocz(sizeof(TCPCharDriver));
3504 if (!s)
3505 goto fail;
3506
3507 #ifndef _WIN32
3508 if (is_unix)
3509 fd = socket(PF_UNIX, SOCK_STREAM, 0);
3510 else
3511 #endif
3512 fd = socket(PF_INET, SOCK_STREAM, 0);
3513
3514 if (fd < 0)
3515 goto fail;
3516
3517 if (!is_waitconnect)
3518 socket_set_nonblock(fd);
3519
3520 s->connected = 0;
3521 s->fd = -1;
3522 s->listen_fd = -1;
3523 s->is_unix = is_unix;
3524 s->do_nodelay = do_nodelay && !is_unix;
3525
3526 chr->opaque = s;
3527 chr->chr_write = tcp_chr_write;
3528 chr->chr_close = tcp_chr_close;
3529
3530 if (is_listen) {
3531 /* allow fast reuse */
3532 #ifndef _WIN32
3533 if (is_unix) {
3534 char path[109];
3535 pstrcpy(path, sizeof(path), uaddr.sun_path);
3536 unlink(path);
3537 } else
3538 #endif
3539 {
3540 val = 1;
3541 setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, (const char *)&val, sizeof(val));
3542 }
3543
3544 ret = bind(fd, addr, addrlen);
3545 if (ret < 0)
3546 goto fail;
3547
3548 ret = listen(fd, 0);
3549 if (ret < 0)
3550 goto fail;
3551
3552 s->listen_fd = fd;
3553 qemu_set_fd_handler(s->listen_fd, tcp_chr_accept, NULL, chr);
3554 if (is_telnet)
3555 s->do_telnetopt = 1;
3556 } else {
3557 for(;;) {
3558 ret = connect(fd, addr, addrlen);
3559 if (ret < 0) {
3560 err = socket_error();
3561 if (err == EINTR || err == EWOULDBLOCK) {
3562 } else if (err == EINPROGRESS) {
3563 break;
3564 #ifdef _WIN32
3565 } else if (err == WSAEALREADY) {
3566 break;
3567 #endif
3568 } else {
3569 goto fail;
3570 }
3571 } else {
3572 s->connected = 1;
3573 break;
3574 }
3575 }
3576 s->fd = fd;
3577 socket_set_nodelay(fd);
3578 if (s->connected)
3579 tcp_chr_connect(chr);
3580 else
3581 qemu_set_fd_handler(s->fd, NULL, tcp_chr_connect, chr);
3582 }
3583
3584 if (is_listen && is_waitconnect) {
3585 printf("QEMU waiting for connection on: %s\n", host_str);
3586 tcp_chr_accept(chr);
3587 socket_set_nonblock(s->listen_fd);
3588 }
3589
3590 return chr;
3591 fail:
3592 if (fd >= 0)
3593 closesocket(fd);
3594 qemu_free(s);
3595 qemu_free(chr);
3596 return NULL;
3597 }
3598
3599 CharDriverState *qemu_chr_open(const char *filename)
3600 {
3601 const char *p;
3602
3603 if (!strcmp(filename, "vc")) {
3604 return text_console_init(&display_state, 0);
3605 } else if (strstart(filename, "vc:", &p)) {
3606 return text_console_init(&display_state, p);
3607 } else if (!strcmp(filename, "null")) {
3608 return qemu_chr_open_null();
3609 } else
3610 if (strstart(filename, "tcp:", &p)) {
3611 return qemu_chr_open_tcp(p, 0, 0);
3612 } else
3613 if (strstart(filename, "telnet:", &p)) {
3614 return qemu_chr_open_tcp(p, 1, 0);
3615 } else
3616 if (strstart(filename, "udp:", &p)) {
3617 return qemu_chr_open_udp(p);
3618 } else
3619 if (strstart(filename, "mon:", &p)) {
3620 CharDriverState *drv = qemu_chr_open(p);
3621 if (drv) {
3622 drv = qemu_chr_open_mux(drv);
3623 monitor_init(drv, !nographic);
3624 return drv;
3625 }
3626 printf("Unable to open driver: %s\n", p);
3627 return 0;
3628 } else
3629 #ifndef _WIN32
3630 if (strstart(filename, "unix:", &p)) {
3631 return qemu_chr_open_tcp(p, 0, 1);
3632 } else if (strstart(filename, "file:", &p)) {
3633 return qemu_chr_open_file_out(p);
3634 } else if (strstart(filename, "pipe:", &p)) {
3635 return qemu_chr_open_pipe(p);
3636 } else if (!strcmp(filename, "pty")) {
3637 return qemu_chr_open_pty();
3638 } else if (!strcmp(filename, "stdio")) {
3639 return qemu_chr_open_stdio();
3640 } else
3641 #if defined(__linux__)
3642 if (strstart(filename, "/dev/parport", NULL)) {
3643 return qemu_chr_open_pp(filename);
3644 } else
3645 #endif
3646 #if defined(__linux__) || defined(__sun__)
3647 if (strstart(filename, "/dev/", NULL)) {
3648 return qemu_chr_open_tty(filename);
3649 } else
3650 #endif
3651 #else /* !_WIN32 */
3652 if (strstart(filename, "COM", NULL)) {
3653 return qemu_chr_open_win(filename);
3654 } else
3655 if (strstart(filename, "pipe:", &p)) {
3656 return qemu_chr_open_win_pipe(p);
3657 } else
3658 if (strstart(filename, "con:", NULL)) {
3659 return qemu_chr_open_win_con(filename);
3660 } else
3661 if (strstart(filename, "file:", &p)) {
3662 return qemu_chr_open_win_file_out(p);
3663 } else
3664 #endif
3665 #ifdef CONFIG_BRLAPI
3666 if (!strcmp(filename, "braille")) {
3667 return chr_baum_init();
3668 } else
3669 #endif
3670 {
3671 return NULL;
3672 }
3673 }
3674
3675 void qemu_chr_close(CharDriverState *chr)
3676 {
3677 if (chr->chr_close)
3678 chr->chr_close(chr);
3679 qemu_free(chr);
3680 }
3681
3682 /***********************************************************/
3683 /* network device redirectors */
3684
3685 __attribute__ (( unused ))
3686 static void hex_dump(FILE *f, const uint8_t *buf, int size)
3687 {
3688 int len, i, j, c;
3689
3690 for(i=0;i<size;i+=16) {
3691 len = size - i;
3692 if (len > 16)
3693 len = 16;
3694 fprintf(f, "%08x ", i);
3695 for(j=0;j<16;j++) {
3696 if (j < len)
3697 fprintf(f, " %02x", buf[i+j]);
3698 else
3699 fprintf(f, " ");
3700 }
3701 fprintf(f, " ");
3702 for(j=0;j<len;j++) {
3703 c = buf[i+j];
3704 if (c < ' ' || c > '~')
3705 c = '.';
3706 fprintf(f, "%c", c);
3707 }
3708 fprintf(f, "\n");
3709 }
3710 }
3711
3712 static int parse_macaddr(uint8_t *macaddr, const char *p)
3713 {
3714 int i;
3715 char *last_char;
3716 long int offset;
3717
3718 errno = 0;
3719 offset = strtol(p, &last_char, 0);
3720 if (0 == errno && '\0' == *last_char &&
3721 offset >= 0 && offset <= 0xFFFFFF) {
3722 macaddr[3] = (offset & 0xFF0000) >> 16;
3723 macaddr[4] = (offset & 0xFF00) >> 8;
3724 macaddr[5] = offset & 0xFF;
3725 return 0;
3726 } else {
3727 for(i = 0; i < 6; i++) {
3728 macaddr[i] = strtol(p, (char **)&p, 16);
3729 if (i == 5) {
3730 if (*p != '\0')
3731 return -1;
3732 } else {
3733 if (*p != ':' && *p != '-')
3734 return -1;
3735 p++;
3736 }
3737 }
3738 return 0;
3739 }
3740
3741 return -1;
3742 }
3743
3744 static int get_str_sep(char *buf, int buf_size, const char **pp, int sep)
3745 {
3746 const char *p, *p1;
3747 int len;
3748 p = *pp;
3749 p1 = strchr(p, sep);
3750 if (!p1)
3751 return -1;
3752 len = p1 - p;
3753 p1++;
3754 if (buf_size > 0) {
3755 if (len > buf_size - 1)
3756 len = buf_size - 1;
3757 memcpy(buf, p, len);
3758 buf[len] = '\0';
3759 }
3760 *pp = p1;
3761 return 0;
3762 }
3763
3764 int parse_host_src_port(struct sockaddr_in *haddr,
3765 struct sockaddr_in *saddr,
3766 const char *input_str)
3767 {
3768 char *str = strdup(input_str);
3769 char *host_str = str;
3770 char *src_str;
3771 char *ptr;
3772
3773 /*
3774 * Chop off any extra arguments at the end of the string which
3775 * would start with a comma, then fill in the src port information
3776 * if it was provided else use the "any address" and "any port".
3777 */
3778 if ((ptr = strchr(str,',')))
3779 *ptr = '\0';
3780
3781 if ((src_str = strchr(input_str,'@'))) {
3782 *src_str = '\0';
3783 src_str++;
3784 }
3785
3786 if (parse_host_port(haddr, host_str) < 0)
3787 goto fail;
3788
3789 if (!src_str || *src_str == '\0')
3790 src_str = ":0";
3791
3792 if (parse_host_port(saddr, src_str) < 0)
3793 goto fail;
3794
3795 free(str);
3796 return(0);
3797
3798 fail:
3799 free(str);
3800 return -1;
3801 }
3802
3803 int parse_host_port(struct sockaddr_in *saddr, const char *str)
3804 {
3805 char buf[512];
3806 struct hostent *he;
3807 const char *p, *r;
3808 int port;
3809
3810 p = str;
3811 if (get_str_sep(buf, sizeof(buf), &p, ':') < 0)
3812 return -1;
3813 saddr->sin_family = AF_INET;
3814 if (buf[0] == '\0') {
3815 saddr->sin_addr.s_addr = 0;
3816 } else {
3817 if (isdigit(buf[0])) {
3818 if (!inet_aton(buf, &saddr->sin_addr))
3819 return -1;
3820 } else {
3821 if ((he = gethostbyname(buf)) == NULL)
3822 return - 1;
3823 saddr->sin_addr = *(struct in_addr *)he->h_addr;
3824 }
3825 }
3826 port = strtol(p, (char **)&r, 0);
3827 if (r == p)
3828 return -1;
3829 saddr->sin_port = htons(port);
3830 return 0;
3831 }
3832
3833 #ifndef _WIN32
3834 static int parse_unix_path(struct sockaddr_un *uaddr, const char *str)
3835 {
3836 const char *p;
3837 int len;
3838
3839 len = MIN(108, strlen(str));
3840 p = strchr(str, ',');
3841 if (p)
3842 len = MIN(len, p - str);
3843
3844 memset(uaddr, 0, sizeof(*uaddr));
3845
3846 uaddr->sun_family = AF_UNIX;
3847 memcpy(uaddr->sun_path, str, len);
3848
3849 return 0;
3850 }
3851 #endif
3852
3853 /* find or alloc a new VLAN */
3854 VLANState *qemu_find_vlan(int id)
3855 {
3856 VLANState **pvlan, *vlan;
3857 for(vlan = first_vlan; vlan != NULL; vlan = vlan->next) {
3858 if (vlan->id == id)
3859 return vlan;
3860 }
3861 vlan = qemu_mallocz(sizeof(VLANState));
3862 if (!vlan)
3863 return NULL;
3864 vlan->id = id;
3865 vlan->next = NULL;
3866 pvlan = &first_vlan;
3867 while (*pvlan != NULL)
3868 pvlan = &(*pvlan)->next;
3869 *pvlan = vlan;
3870 return vlan;
3871 }
3872
3873 VLANClientState *qemu_new_vlan_client(VLANState *vlan,
3874 IOReadHandler *fd_read,
3875 IOCanRWHandler *fd_can_read,
3876 void *opaque)
3877 {
3878 VLANClientState *vc, **pvc;
3879 vc = qemu_mallocz(sizeof(VLANClientState));
3880 if (!vc)
3881 return NULL;
3882 vc->fd_read = fd_read;
3883 vc->fd_can_read = fd_can_read;
3884 vc->opaque = opaque;
3885 vc->vlan = vlan;
3886
3887 vc->next = NULL;
3888 pvc = &vlan->first_client;
3889 while (*pvc != NULL)
3890 pvc = &(*pvc)->next;
3891 *pvc = vc;
3892 return vc;
3893 }
3894
3895 int qemu_can_send_packet(VLANClientState *vc1)
3896 {
3897 VLANState *vlan = vc1->vlan;
3898 VLANClientState *vc;
3899
3900 for(vc = vlan->first_client; vc != NULL; vc = vc->next) {
3901 if (vc != vc1) {
3902 if (vc->fd_can_read && vc->fd_can_read(vc->opaque))
3903 return 1;
3904 }
3905 }
3906 return 0;
3907 }
3908
3909 int qemu_send_packet(VLANClientState *vc1, const uint8_t *buf, int size)
3910 {
3911 VLANState *vlan = vc1->vlan;
3912 VLANClientState *vc;
3913 int ret = -EAGAIN;
3914
3915 #if 0
3916 printf("vlan %d send:\n", vlan->id);
3917 hex_dump(stdout, buf, size);
3918 #endif
3919 for(vc = vlan->first_client; vc != NULL; vc = vc->next) {
3920 if (vc != vc1) {
3921 if (!vc->fd_can_read || vc->fd_can_read(vc->opaque)) {
3922 vc->fd_read(vc->opaque, buf, size);
3923 ret = 0;
3924 }
3925 }
3926 }
3927
3928 return ret;
3929 }
3930
3931 static ssize_t vc_sendv_compat(VLANClientState *vc, const struct iovec *iov,
3932 int iovcnt)
3933 {
3934 char buffer[4096];
3935 size_t offset = 0;
3936 int i;
3937
3938 for (i = 0; i < iovcnt; i++) {
3939 size_t len;
3940
3941 len = MIN(sizeof(buffer) - offset, iov[i].iov_len);
3942 memcpy(buffer + offset, iov[i].iov_base, len);
3943 offset += len;
3944 }
3945
3946 vc->fd_read(vc->opaque, buffer, offset);
3947
3948 return offset;
3949 }
3950
3951 ssize_t qemu_sendv_packet(VLANClientState *vc1, const struct iovec *iov,
3952 int iovcnt)
3953 {
3954 VLANState *vlan = vc1->vlan;
3955 VLANClientState *vc;
3956 ssize_t max_len = 0;
3957
3958 for (vc = vlan->first_client; vc != NULL; vc = vc->next) {
3959 ssize_t len = 0;
3960
3961 if (vc == vc1)
3962 continue;
3963
3964 if (vc->fd_readv)
3965 len = vc->fd_readv(vc->opaque, iov, iovcnt);
3966 else if (vc->fd_read)
3967 len = vc_sendv_compat(vc, iov, iovcnt);
3968
3969 max_len = MAX(max_len, len);
3970 }
3971
3972 return max_len;
3973 }
3974
3975 #if defined(CONFIG_SLIRP)
3976
3977 /* slirp network adapter */
3978
3979 static int slirp_inited;
3980 static VLANClientState *slirp_vc;
3981
3982 int slirp_can_output(void)
3983 {
3984 return !slirp_vc || qemu_can_send_packet(slirp_vc);
3985 }
3986
3987 void slirp_output(const uint8_t *pkt, int pkt_len)
3988 {
3989 #if 0
3990 printf("slirp output:\n");
3991 hex_dump(stdout, pkt, pkt_len);
3992 #endif
3993 if (!slirp_vc)
3994 return;
3995 qemu_send_packet(slirp_vc, pkt, pkt_len);
3996 }
3997
3998 static void slirp_receive(void *opaque, const uint8_t *buf, int size)
3999 {
4000 #if 0
4001 printf("slirp input:\n");
4002 hex_dump(stdout, buf, size);
4003 #endif
4004 slirp_input(buf, size);
4005 }
4006
4007 static int net_slirp_init(VLANState *vlan)
4008 {
4009 if (!slirp_inited) {
4010 slirp_inited = 1;
4011 slirp_init();
4012 }
4013 slirp_vc = qemu_new_vlan_client(vlan,
4014 slirp_receive, NULL, NULL);
4015 snprintf(slirp_vc->info_str, sizeof(slirp_vc->info_str), "user redirector");
4016 return 0;
4017 }
4018
4019 static void net_slirp_redir(const char *redir_str)
4020 {
4021 int is_udp;
4022 char buf[256], *r;
4023 const char *p;
4024 struct in_addr guest_addr;
4025 int host_port, guest_port;
4026
4027 if (!slirp_inited) {
4028 slirp_inited = 1;
4029 slirp_init();
4030 }
4031
4032 p = redir_str;
4033 if (get_str_sep(buf, sizeof(buf), &p, ':') < 0)
4034 goto fail;
4035 if (!strcmp(buf, "tcp")) {
4036 is_udp = 0;
4037 } else if (!strcmp(buf, "udp")) {
4038 is_udp = 1;
4039 } else {
4040 goto fail;
4041 }
4042
4043 if (get_str_sep(buf, sizeof(buf), &p, ':') < 0)
4044 goto fail;
4045 host_port = strtol(buf, &r, 0);
4046 if (r == buf)
4047 goto fail;
4048
4049 if (get_str_sep(buf, sizeof(buf), &p, ':') < 0)
4050 goto fail;
4051 if (buf[0] == '\0') {
4052 pstrcpy(buf, sizeof(buf), "10.0.2.15");
4053 }
4054 if (!inet_aton(buf, &guest_addr))
4055 goto fail;
4056
4057 guest_port = strtol(p, &r, 0);
4058 if (r == p)
4059 goto fail;
4060
4061 if (slirp_redir(is_udp, host_port, guest_addr, guest_port) < 0) {
4062 fprintf(stderr, "qemu: could not set up redirection\n");
4063 exit(1);
4064 }
4065 return;
4066 fail:
4067 fprintf(stderr, "qemu: syntax: -redir [tcp|udp]:host-port:[guest-host]:guest-port\n");
4068 exit(1);
4069 }
4070
4071 #ifndef _WIN32
4072
4073 char smb_dir[1024];
4074
4075 static void erase_dir(char *dir_name)
4076 {
4077 DIR *d;
4078 struct dirent *de;
4079 char filename[1024];
4080
4081 /* erase all the files in the directory */
4082 if ((d = opendir(dir_name)) != 0) {
4083 for(;;) {
4084 de = readdir(d);
4085 if (!de)
4086 break;
4087 if (strcmp(de->d_name, ".") != 0 &&
4088 strcmp(de->d_name, "..") != 0) {
4089 snprintf(filename, sizeof(filename), "%s/%s",
4090 smb_dir, de->d_name);
4091 if (unlink(filename) != 0) /* is it a directory? */
4092 erase_dir(filename);
4093 }
4094 }
4095 closedir(d);
4096 rmdir(dir_name);
4097 }
4098 }
4099
4100 /* automatic user mode samba server configuration */
4101 static void smb_exit(void)
4102 {
4103 erase_dir(smb_dir);
4104 }
4105
4106 /* automatic user mode samba server configuration */
4107 static void net_slirp_smb(const char *exported_dir)
4108 {
4109 char smb_conf[1024];
4110 char smb_cmdline[1024];
4111 FILE *f;
4112
4113 if (!slirp_inited) {
4114 slirp_inited = 1;
4115 slirp_init();
4116 }
4117
4118 /* XXX: better tmp dir construction */
4119 snprintf(smb_dir, sizeof(smb_dir), "/tmp/qemu-smb.%d", getpid());
4120 if (mkdir(smb_dir, 0700) < 0) {
4121 fprintf(stderr, "qemu: could not create samba server dir '%s'\n", smb_dir);
4122 exit(1);
4123 }
4124 snprintf(smb_conf, sizeof(smb_conf), "%s/%s", smb_dir, "smb.conf");
4125
4126 f = fopen(smb_conf, "w");
4127 if (!f) {
4128 fprintf(stderr, "qemu: could not create samba server configuration file '%s'\n", smb_conf);
4129 exit(1);
4130 }
4131 fprintf(f,
4132 "[global]\n"
4133 "private dir=%s\n"
4134 "smb ports=0\n"
4135 "socket address=127.0.0.1\n"
4136 "pid directory=%s\n"
4137 "lock directory=%s\n"
4138 "log file=%s/log.smbd\n"
4139 "smb passwd file=%s/smbpasswd\n"
4140 "security = share\n"
4141 "[qemu]\n"
4142 "path=%s\n"
4143 "read only=no\n"
4144 "guest ok=yes\n",
4145 smb_dir,
4146 smb_dir,
4147 smb_dir,
4148 smb_dir,
4149 smb_dir,
4150 exported_dir
4151 );
4152 fclose(f);
4153 atexit(smb_exit);
4154
4155 snprintf(smb_cmdline, sizeof(smb_cmdline), "%s -s %s",
4156 SMBD_COMMAND, smb_conf);
4157
4158 slirp_add_exec(0, smb_cmdline, 4, 139);
4159 }
4160
4161 #endif /* !defined(_WIN32) */
4162 void do_info_slirp(void)
4163 {
4164 slirp_stats();
4165 }
4166
4167 #endif /* CONFIG_SLIRP */
4168
4169 #if !defined(_WIN32)
4170
4171 typedef struct TAPState {
4172 VLANClientState *vc;
4173 int fd;
4174 char down_script[1024];
4175 char buf[4096];
4176 int size;
4177 } TAPState;
4178
4179 static void tap_receive(void *opaque, const uint8_t *buf, int size)
4180 {
4181 TAPState *s = opaque;
4182 int ret;
4183 for(;;) {
4184 ret = write(s->fd, buf, size);
4185 if (ret < 0 && (errno == EINTR || errno == EAGAIN)) {
4186 } else {
4187 break;
4188 }
4189 }
4190 }
4191
4192 static ssize_t tap_readv(void *opaque, const struct iovec *iov,
4193 int iovcnt)
4194 {
4195 TAPState *s = opaque;
4196 ssize_t len;
4197
4198 do {
4199 len = writev(s->fd, iov, iovcnt);
4200 } while (len == -1 && (errno == EINTR || errno == EAGAIN));
4201
4202 return len;
4203 }
4204
4205 static int tap_can_send(void *opaque)
4206 {
4207 TAPState *s = opaque;
4208 VLANClientState *vc;
4209 int can_receive = 0;
4210
4211 /* Check to see if any of our clients can receive a packet */
4212 for (vc = s->vc->vlan->first_client; vc; vc = vc->next) {
4213 /* Skip ourselves */
4214 if (vc == s->vc)
4215 continue;
4216
4217 if (!vc->fd_can_read) {
4218 /* no fd_can_read handler, they always can receive */
4219 can_receive = 1;
4220 } else
4221 can_receive = vc->fd_can_read(vc->opaque);
4222
4223 /* Once someone can receive, we try to send a packet */
4224 if (can_receive)
4225 break;
4226 }
4227
4228 return can_receive;
4229 }
4230
4231 static void tap_send(void *opaque)
4232 {
4233 TAPState *s = opaque;
4234
4235 /* First try to send any buffered packet */
4236 if (s->size > 0) {
4237 int err;
4238
4239 /* If noone can receive the packet, buffer it */
4240 err = qemu_send_packet(s->vc, s->buf, s->size);
4241 if (err == -EAGAIN)
4242 return;
4243 }
4244
4245 /* Read packets until we hit EAGAIN */
4246 do {
4247 #ifdef __sun__
4248 struct strbuf sbuf;
4249 int f = 0;
4250 sbuf.maxlen = sizeof(s->buf);
4251 sbuf.buf = s->buf;
4252 s->size = getmsg(s->fd, NULL, &sbuf, &f) >=0 ? sbuf.len : -1;
4253 #else
4254 s->size = read(s->fd, s->buf, sizeof(s->buf));
4255 #endif
4256
4257 if (s->size == -1 && errno == EINTR)
4258 continue;
4259
4260 if (s->size > 0) {
4261 int err;
4262
4263 /* If noone can receive the packet, buffer it */
4264 err = qemu_send_packet(s->vc, s->buf, s->size);
4265 if (err == -EAGAIN)
4266 break;
4267 }
4268 } while (s->size > 0);
4269 }
4270
4271 /* fd support */
4272
4273 static TAPState *net_tap_fd_init(VLANState *vlan, int fd)
4274 {
4275 TAPState *s;
4276
4277 s = qemu_mallocz(sizeof(TAPState));
4278 if (!s)
4279 return NULL;
4280 s->fd = fd;
4281 s->vc = qemu_new_vlan_client(vlan, tap_receive, NULL, s);
4282 s->vc->fd_readv = tap_readv;
4283 qemu_set_fd_handler2(s->fd, tap_can_send, tap_send, NULL, s);
4284 snprintf(s->vc->info_str, sizeof(s->vc->info_str), "tap: fd=%d", fd);
4285 return s;
4286 }
4287
4288 #if defined (_BSD) || defined (__FreeBSD_kernel__)
4289 static int tap_open(char *ifname, int ifname_size)
4290 {
4291 int fd;
4292 char *dev;
4293 struct stat s;
4294
4295 TFR(fd = open("/dev/tap", O_RDWR));
4296 if (fd < 0) {
4297 fprintf(stderr, "warning: could not open /dev/tap: no virtual network emulation\n");
4298 return -1;
4299 }
4300
4301 fstat(fd, &s);
4302 dev = devname(s.st_rdev, S_IFCHR);
4303 pstrcpy(ifname, ifname_size, dev);
4304
4305 fcntl(fd, F_SETFL, O_NONBLOCK);
4306 return fd;
4307 }
4308 #elif defined(__sun__)
4309 #define TUNNEWPPA (('T'<<16) | 0x0001)
4310 /*
4311 * Allocate TAP device, returns opened fd.
4312 * Stores dev name in the first arg(must be large enough).
4313 */
4314 int tap_alloc(char *dev)
4315 {
4316 int tap_fd, if_fd, ppa = -1;
4317 static int ip_fd = 0;
4318 char *ptr;
4319
4320 static int arp_fd = 0;
4321 int ip_muxid, arp_muxid;
4322 struct strioctl strioc_if, strioc_ppa;
4323 int link_type = I_PLINK;;
4324 struct lifreq ifr;
4325 char actual_name[32] = "";
4326
4327 memset(&ifr, 0x0, sizeof(ifr));
4328
4329 if( *dev ){
4330 ptr = dev;
4331 while( *ptr && !isdigit((int)*ptr) ) ptr++;
4332 ppa = atoi(ptr);
4333 }
4334
4335 /* Check if IP device was opened */
4336 if( ip_fd )
4337 close(ip_fd);
4338
4339 TFR(ip_fd = open("/dev/udp", O_RDWR, 0));
4340 if (ip_fd < 0) {
4341 syslog(LOG_ERR, "Can't open /dev/ip (actually /dev/udp)");
4342 return -1;
4343 }
4344
4345 TFR(tap_fd = open("/dev/tap", O_RDWR, 0));
4346 if (tap_fd < 0) {
4347 syslog(LOG_ERR, "Can't open /dev/tap");
4348 return -1;
4349 }
4350
4351 /* Assign a new PPA and get its unit number. */
4352 strioc_ppa.ic_cmd = TUNNEWPPA;
4353 strioc_ppa.ic_timout = 0;
4354 strioc_ppa.ic_len = sizeof(ppa);
4355 strioc_ppa.ic_dp = (char *)&ppa;
4356 if ((ppa = ioctl (tap_fd, I_STR, &strioc_ppa)) < 0)
4357 syslog (LOG_ERR, "Can't assign new interface");
4358
4359 TFR(if_fd = open("/dev/tap", O_RDWR, 0));
4360 if (if_fd < 0) {
4361 syslog(LOG_ERR, "Can't open /dev/tap (2)");
4362 return -1;
4363 }
4364 if(ioctl(if_fd, I_PUSH, "ip") < 0){
4365 syslog(LOG_ERR, "Can't push IP module");
4366 return -1;
4367 }
4368
4369 if (ioctl(if_fd, SIOCGLIFFLAGS, &ifr) < 0)
4370 syslog(LOG_ERR, "Can't get flags\n");
4371
4372 snprintf (actual_name, 32, "tap%d", ppa);
4373 strncpy (ifr.lifr_name, actual_name, sizeof (ifr.lifr_name));
4374
4375 ifr.lifr_ppa = ppa;
4376 /* Assign ppa according to the unit number returned by tun device */
4377
4378 if (ioctl (if_fd, SIOCSLIFNAME, &ifr) < 0)
4379 syslog (LOG_ERR, "Can't set PPA %d", ppa);
4380 if (ioctl(if_fd, SIOCGLIFFLAGS, &ifr) <0)
4381 syslog (LOG_ERR, "Can't get flags\n");
4382 /* Push arp module to if_fd */
4383 if (ioctl (if_fd, I_PUSH, "arp") < 0)
4384 syslog (LOG_ERR, "Can't push ARP module (2)");
4385
4386 /* Push arp module to ip_fd */
4387 if (ioctl (ip_fd, I_POP, NULL) < 0)
4388 syslog (LOG_ERR, "I_POP failed\n");
4389 if (ioctl (ip_fd, I_PUSH, "arp") < 0)
4390 syslog (LOG_ERR, "Can't push ARP module (3)\n");
4391 /* Open arp_fd */
4392 TFR(arp_fd = open ("/dev/tap", O_RDWR, 0));
4393 if (arp_fd < 0)
4394 syslog (LOG_ERR, "Can't open %s\n", "/dev/tap");
4395
4396 /* Set ifname to arp */
4397 strioc_if.ic_cmd = SIOCSLIFNAME;
4398 strioc_if.ic_timout = 0;
4399 strioc_if.ic_len = sizeof(ifr);
4400 strioc_if.ic_dp = (char *)&ifr;
4401 if (ioctl(arp_fd, I_STR, &strioc_if) < 0){
4402 syslog (LOG_ERR, "Can't set ifname to arp\n");
4403 }
4404
4405 if((ip_muxid = ioctl(ip_fd, I_LINK, if_fd)) < 0){
4406 syslog(LOG_ERR, "Can't link TAP device to IP");
4407 return -1;
4408 }
4409
4410 if ((arp_muxid = ioctl (ip_fd, link_type, arp_fd)) < 0)
4411 syslog (LOG_ERR, "Can't link TAP device to ARP");
4412
4413 close (if_fd);
4414
4415 memset(&ifr, 0x0, sizeof(ifr));
4416 strncpy (ifr.lifr_name, actual_name, sizeof (ifr.lifr_name));
4417 ifr.lifr_ip_muxid = ip_muxid;
4418 ifr.lifr_arp_muxid = arp_muxid;
4419
4420 if (ioctl (ip_fd, SIOCSLIFMUXID, &ifr) < 0)
4421 {
4422 ioctl (ip_fd, I_PUNLINK , arp_muxid);
4423 ioctl (ip_fd, I_PUNLINK, ip_muxid);
4424 syslog (LOG_ERR, "Can't set multiplexor id");
4425 }
4426
4427 sprintf(dev, "tap%d", ppa);
4428 return tap_fd;
4429 }
4430
4431 static int tap_open(char *ifname, int ifname_size)
4432 {
4433 char dev[10]="";
4434 int fd;
4435 if( (fd = tap_alloc(dev)) < 0 ){
4436 fprintf(stderr, "Cannot allocate TAP device\n");
4437 return -1;
4438 }
4439 pstrcpy(ifname, ifname_size, dev);
4440 fcntl(fd, F_SETFL, O_NONBLOCK);
4441 return fd;
4442 }
4443 #else
4444 static int tap_open(char *ifname, int ifname_size)
4445 {
4446 struct ifreq ifr;
4447 int fd, ret;
4448
4449 TFR(fd = open("/dev/net/tun", O_RDWR));
4450 if (fd < 0) {
4451 fprintf(stderr, "warning: could not open /dev/net/tun: no virtual network emulation\n");
4452 return -1;
4453 }
4454 memset(&ifr, 0, sizeof(ifr));
4455 ifr.ifr_flags = IFF_TAP | IFF_NO_PI;
4456 if (ifname[0] != '\0')
4457 pstrcpy(ifr.ifr_name, IFNAMSIZ, ifname);
4458 else
4459 pstrcpy(ifr.ifr_name, IFNAMSIZ, "tap%d");
4460 ret = ioctl(fd, TUNSETIFF, (void *) &ifr);
4461 if (ret != 0) {
4462 fprintf(stderr, "warning: could not configure /dev/net/tun: no virtual network emulation\n");
4463 close(fd);
4464 return -1;
4465 }
4466 pstrcpy(ifname, ifname_size, ifr.ifr_name);
4467 fcntl(fd, F_SETFL, O_NONBLOCK);
4468 return fd;
4469 }
4470 #endif
4471
4472 static int launch_script(const char *setup_script, const char *ifname, int fd)
4473 {
4474 int pid, status;
4475 char *args[3];
4476 char **parg;
4477
4478 /* try to launch network script */
4479 pid = fork();
4480 if (pid >= 0) {
4481 if (pid == 0) {
4482 int open_max = sysconf (_SC_OPEN_MAX), i;
4483 for (i = 0; i < open_max; i++)
4484 if (i != STDIN_FILENO &&
4485 i != STDOUT_FILENO &&
4486 i != STDERR_FILENO &&
4487 i != fd)
4488 close(i);
4489
4490 parg = args;
4491 *parg++ = (char *)setup_script;
4492 *parg++ = (char *)ifname;
4493 *parg++ = NULL;
4494 execv(setup_script, args);
4495 _exit(1);
4496 }
4497 while (waitpid(pid, &status, 0) != pid);
4498 if (!WIFEXITED(status) ||
4499 WEXITSTATUS(status) != 0) {
4500 fprintf(stderr, "%s: could not launch network script\n",
4501 setup_script);
4502 return -1;
4503 }
4504 }
4505 return 0;
4506 }
4507
4508 static int net_tap_init(VLANState *vlan, const char *ifname1,
4509 const char *setup_script, const char *down_script)
4510 {
4511 TAPState *s;
4512 int fd;
4513 char ifname[128];
4514
4515 if (ifname1 != NULL)
4516 pstrcpy(ifname, sizeof(ifname), ifname1);
4517 else
4518 ifname[0] = '\0';
4519 TFR(fd = tap_open(ifname, sizeof(ifname)));
4520 if (fd < 0)
4521 return -1;
4522
4523 if (!setup_script || !strcmp(setup_script, "no"))
4524 setup_script = "";
4525 if (setup_script[0] != '\0') {
4526 if (launch_script(setup_script, ifname, fd))
4527 return -1;
4528 }
4529 s = net_tap_fd_init(vlan, fd);
4530 if (!s)
4531 return -1;
4532 snprintf(s->vc->info_str, sizeof(s->vc->info_str),
4533 "tap: ifname=%s setup_script=%s", ifname, setup_script);
4534 if (down_script && strcmp(down_script, "no"))
4535 snprintf(s->down_script, sizeof(s->down_script), "%s", down_script);
4536 return 0;
4537 }
4538
4539 #endif /* !_WIN32 */
4540
4541 /* network connection */
4542 typedef struct NetSocketState {
4543 VLANClientState *vc;
4544 int fd;
4545 int state; /* 0 = getting length, 1 = getting data */
4546 int index;
4547 int packet_len;
4548 uint8_t buf[4096];
4549 struct sockaddr_in dgram_dst; /* contains inet host and port destination iff connectionless (SOCK_DGRAM) */
4550 } NetSocketState;
4551
4552 typedef struct NetSocketListenState {
4553 VLANState *vlan;
4554 int fd;
4555 } NetSocketListenState;
4556
4557 /* XXX: we consider we can send the whole packet without blocking */
4558 static void net_socket_receive(void *opaque, const uint8_t *buf, int size)
4559 {
4560 NetSocketState *s = opaque;
4561 uint32_t len;
4562 len = htonl(size);
4563
4564 send_all(s->fd, (const uint8_t *)&len, sizeof(len));
4565 send_all(s->fd, buf, size);
4566 }
4567
4568 static void net_socket_receive_dgram(void *opaque, const uint8_t *buf, int size)
4569 {
4570 NetSocketState *s = opaque;
4571 sendto(s->fd, buf, size, 0,
4572 (struct sockaddr *)&s->dgram_dst, sizeof(s->dgram_dst));
4573 }
4574
4575 static void net_socket_send(void *opaque)
4576 {
4577 NetSocketState *s = opaque;
4578 int l, size, err;
4579 uint8_t buf1[4096];
4580 const uint8_t *buf;
4581
4582 size = recv(s->fd, buf1, sizeof(buf1), 0);
4583 if (size < 0) {
4584 err = socket_error();
4585 if (err != EWOULDBLOCK)
4586 goto eoc;
4587 } else if (size == 0) {
4588 /* end of connection */
4589 eoc:
4590 qemu_set_fd_handler(s->fd, NULL, NULL, NULL);
4591 closesocket(s->fd);
4592 return;
4593 }
4594 buf = buf1;
4595 while (size > 0) {
4596 /* reassemble a packet from the network */
4597 switch(s->state) {
4598 case 0:
4599 l = 4 - s->index;
4600 if (l > size)
4601 l = size;
4602 memcpy(s->buf + s->index, buf, l);
4603 buf += l;
4604 size -= l;
4605 s->index += l;
4606 if (s->index == 4) {
4607 /* got length */
4608 s->packet_len = ntohl(*(uint32_t *)s->buf);
4609 s->index = 0;
4610 s->state = 1;
4611 }
4612 break;
4613 case 1:
4614 l = s->packet_len - s->index;
4615 if (l > size)
4616 l = size;
4617 memcpy(s->buf + s->index, buf, l);
4618 s->index += l;
4619 buf += l;
4620 size -= l;
4621 if (s->index >= s->packet_len) {
4622 qemu_send_packet(s->vc, s->buf, s->packet_len);
4623 s->index = 0;
4624 s->state = 0;
4625 }
4626 break;
4627 }
4628 }
4629 }
4630
4631 static void net_socket_send_dgram(void *opaque)
4632 {
4633 NetSocketState *s = opaque;
4634 int size;
4635
4636 size = recv(s->fd, s->buf, sizeof(s->buf), 0);
4637 if (size < 0)
4638 return;
4639 if (size == 0) {
4640 /* end of connection */
4641 qemu_set_fd_handler(s->fd, NULL, NULL, NULL);
4642 return;
4643 }
4644 qemu_send_packet(s->vc, s->buf, size);
4645 }
4646
4647 static int net_socket_mcast_create(struct sockaddr_in *mcastaddr)
4648 {
4649 struct ip_mreq imr;
4650 int fd;
4651 int val, ret;
4652 if (!IN_MULTICAST(ntohl(mcastaddr->sin_addr.s_addr))) {
4653 fprintf(stderr, "qemu: error: specified mcastaddr \"%s\" (0x%08x) does not contain a multicast address\n",
4654 inet_ntoa(mcastaddr->sin_addr),
4655 (int)ntohl(mcastaddr->sin_addr.s_addr));
4656 return -1;
4657
4658 }
4659 fd = socket(PF_INET, SOCK_DGRAM, 0);
4660 if (fd < 0) {
4661 perror("socket(PF_INET, SOCK_DGRAM)");
4662 return -1;
4663 }
4664
4665 val = 1;
4666 ret=setsockopt(fd, SOL_SOCKET, SO_REUSEADDR,
4667 (const char *)&val, sizeof(val));
4668 if (ret < 0) {
4669 perror("setsockopt(SOL_SOCKET, SO_REUSEADDR)");
4670 goto fail;
4671 }
4672
4673 ret = bind(fd, (struct sockaddr *)mcastaddr, sizeof(*mcastaddr));
4674 if (ret < 0) {
4675 perror("bind");
4676 goto fail;
4677 }
4678
4679 /* Add host to multicast group */
4680 imr.imr_multiaddr = mcastaddr->sin_addr;
4681 imr.imr_interface.s_addr = htonl(INADDR_ANY);
4682
4683 ret = setsockopt(fd, IPPROTO_IP, IP_ADD_MEMBERSHIP,
4684 (const char *)&imr, sizeof(struct ip_mreq));
4685 if (ret < 0) {
4686 perror("setsockopt(IP_ADD_MEMBERSHIP)");
4687 goto fail;
4688 }
4689
4690 /* Force mcast msgs to loopback (eg. several QEMUs in same host */
4691 val = 1;
4692 ret=setsockopt(fd, IPPROTO_IP, IP_MULTICAST_LOOP,
4693 (const char *)&val, sizeof(val));
4694 if (ret < 0) {
4695 perror("setsockopt(SOL_IP, IP_MULTICAST_LOOP)");
4696 goto fail;
4697 }
4698
4699 socket_set_nonblock(fd);
4700 return fd;
4701 fail:
4702 if (fd >= 0)
4703 closesocket(fd);
4704 return -1;
4705 }
4706
4707 static NetSocketState *net_socket_fd_init_dgram(VLANState *vlan, int fd,
4708 int is_connected)
4709 {
4710 struct sockaddr_in saddr;
4711 int newfd;
4712 socklen_t saddr_len;
4713 NetSocketState *s;
4714
4715 /* fd passed: multicast: "learn" dgram_dst address from bound address and save it
4716 * Because this may be "shared" socket from a "master" process, datagrams would be recv()
4717 * by ONLY ONE process: we must "clone" this dgram socket --jjo
4718 */
4719
4720 if (is_connected) {
4721 if (getsockname(fd, (struct sockaddr *) &saddr, &saddr_len) == 0) {
4722 /* must be bound */
4723 if (saddr.sin_addr.s_addr==0) {
4724 fprintf(stderr, "qemu: error: init_dgram: fd=%d unbound, cannot setup multicast dst addr\n",
4725 fd);
4726 return NULL;
4727 }
4728 /* clone dgram socket */
4729 newfd = net_socket_mcast_create(&saddr);
4730 if (newfd < 0) {
4731 /* error already reported by net_socket_mcast_create() */
4732 close(fd);
4733 return NULL;
4734 }
4735 /* clone newfd to fd, close newfd */
4736 dup2(newfd, fd);
4737 close(newfd);
4738
4739 } else {
4740 fprintf(stderr, "qemu: error: init_dgram: fd=%d failed getsockname(): %s\n",
4741 fd, strerror(errno));
4742 return NULL;
4743 }
4744 }
4745
4746 s = qemu_mallocz(sizeof(NetSocketState));
4747 if (!s)
4748 return NULL;
4749 s->fd = fd;
4750
4751 s->vc = qemu_new_vlan_client(vlan, net_socket_receive_dgram, NULL, s);
4752 qemu_set_fd_handler(s->fd, net_socket_send_dgram, NULL, s);
4753
4754 /* mcast: save bound address as dst */
4755 if (is_connected) s->dgram_dst=saddr;
4756
4757 snprintf(s->vc->info_str, sizeof(s->vc->info_str),
4758 "socket: fd=%d (%s mcast=%s:%d)",
4759 fd, is_connected? "cloned" : "",
4760 inet_ntoa(saddr.sin_addr), ntohs(saddr.sin_port));
4761 return s;
4762 }
4763
4764 static void net_socket_connect(void *opaque)
4765 {
4766 NetSocketState *s = opaque;
4767 qemu_set_fd_handler(s->fd, net_socket_send, NULL, s);
4768 }
4769
4770 static NetSocketState *net_socket_fd_init_stream(VLANState *vlan, int fd,
4771 int is_connected)
4772 {
4773 NetSocketState *s;
4774 s = qemu_mallocz(sizeof(NetSocketState));
4775 if (!s)
4776 return NULL;
4777 s->fd = fd;
4778 s->vc = qemu_new_vlan_client(vlan,
4779 net_socket_receive, NULL, s);
4780 snprintf(s->vc->info_str, sizeof(s->vc->info_str),
4781 "socket: fd=%d", fd);
4782 if (is_connected) {
4783 net_socket_connect(s);
4784 } else {
4785 qemu_set_fd_handler(s->fd, NULL, net_socket_connect, s);
4786 }
4787 return s;
4788 }
4789
4790 static NetSocketState *net_socket_fd_init(VLANState *vlan, int fd,
4791 int is_connected)
4792 {
4793 int so_type=-1, optlen=sizeof(so_type);
4794
4795 if(getsockopt(fd, SOL_SOCKET, SO_TYPE, (char *)&so_type,
4796 (socklen_t *)&optlen)< 0) {
4797 fprintf(stderr, "qemu: error: getsockopt(SO_TYPE) for fd=%d failed\n", fd);
4798 return NULL;
4799 }
4800 switch(so_type) {
4801 case SOCK_DGRAM:
4802 return net_socket_fd_init_dgram(vlan, fd, is_connected);
4803 case SOCK_STREAM:
4804 return net_socket_fd_init_stream(vlan, fd, is_connected);
4805 default:
4806 /* who knows ... this could be a eg. a pty, do warn and continue as stream */
4807 fprintf(stderr, "qemu: warning: socket type=%d for fd=%d is not SOCK_DGRAM or SOCK_STREAM\n", so_type, fd);
4808 return net_socket_fd_init_stream(vlan, fd, is_connected);
4809 }
4810 return NULL;
4811 }
4812
4813 static void net_socket_accept(void *opaque)
4814 {
4815 NetSocketListenState *s = opaque;
4816 NetSocketState *s1;
4817 struct sockaddr_in saddr;
4818 socklen_t len;
4819 int fd;
4820
4821 for(;;) {
4822 len = sizeof(saddr);
4823 fd = accept(s->fd, (struct sockaddr *)&saddr, &len);
4824 if (fd < 0 && errno != EINTR) {
4825 return;
4826 } else if (fd >= 0) {
4827 break;
4828 }
4829 }
4830 s1 = net_socket_fd_init(s->vlan, fd, 1);
4831 if (!s1) {
4832 closesocket(fd);
4833 } else {
4834 snprintf(s1->vc->info_str, sizeof(s1->vc->info_str),
4835 "socket: connection from %s:%d",
4836 inet_ntoa(saddr.sin_addr), ntohs(saddr.sin_port));
4837 }
4838 }
4839
4840 static int net_socket_listen_init(VLANState *vlan, const char *host_str)
4841 {
4842 NetSocketListenState *s;
4843 int fd, val, ret;
4844 struct sockaddr_in saddr;
4845
4846 if (parse_host_port(&saddr, host_str) < 0)
4847 return -1;
4848
4849 s = qemu_mallocz(sizeof(NetSocketListenState));
4850 if (!s)
4851 return -1;
4852
4853 fd = socket(PF_INET, SOCK_STREAM, 0);
4854 if (fd < 0) {
4855 perror("socket");
4856 return -1;
4857 }
4858 socket_set_nonblock(fd);
4859
4860 /* allow fast reuse */
4861 val = 1;
4862 setsockopt(fd, SOL_SOCKET, SO_REUSEADDR, (const char *)&val, sizeof(val));
4863
4864 ret = bind(fd, (struct sockaddr *)&saddr, sizeof(saddr));
4865 if (ret < 0) {
4866 perror("bind");
4867 return -1;
4868 }
4869 ret = listen(fd, 0);
4870 if (ret < 0) {
4871 perror("listen");
4872 return -1;
4873 }
4874 s->vlan = vlan;
4875 s->fd = fd;
4876 qemu_set_fd_handler(fd, net_socket_accept, NULL, s);
4877 return 0;
4878 }
4879
4880 static int net_socket_connect_init(VLANState *vlan, const char *host_str)
4881 {
4882 NetSocketState *s;
4883 int fd, connected, ret, err;
4884 struct sockaddr_in saddr;
4885
4886 if (parse_host_port(&saddr, host_str) < 0)
4887 return -1;
4888
4889 fd = socket(PF_INET, SOCK_STREAM, 0);
4890 if (fd < 0) {
4891 perror("socket");
4892 return -1;
4893 }
4894 socket_set_nonblock(fd);
4895
4896 connected = 0;
4897 for(;;) {
4898 ret = connect(fd, (struct sockaddr *)&saddr, sizeof(saddr));
4899 if (ret < 0) {
4900 err = socket_error();
4901 if (err == EINTR || err == EWOULDBLOCK) {
4902 } else if (err == EINPROGRESS) {
4903 break;
4904 #ifdef _WIN32
4905 } else if (err == WSAEALREADY) {
4906 break;
4907 #endif
4908 } else {
4909 perror("connect");
4910 closesocket(fd);
4911 return -1;
4912 }
4913 } else {
4914 connected = 1;
4915 break;
4916 }
4917 }
4918 s = net_socket_fd_init(vlan, fd, connected);
4919 if (!s)
4920 return -1;
4921 snprintf(s->vc->info_str, sizeof(s->vc->info_str),
4922 "socket: connect to %s:%d",
4923 inet_ntoa(saddr.sin_addr), ntohs(saddr.sin_port));
4924 return 0;
4925 }
4926
4927 static int net_socket_mcast_init(VLANState *vlan, const char *host_str)
4928 {
4929 NetSocketState *s;
4930 int fd;
4931 struct sockaddr_in saddr;
4932
4933 if (parse_host_port(&saddr, host_str) < 0)
4934 return -1;
4935
4936
4937 fd = net_socket_mcast_create(&saddr);
4938 if (fd < 0)
4939 return -1;
4940
4941 s = net_socket_fd_init(vlan, fd, 0);
4942 if (!s)
4943 return -1;
4944
4945 s->dgram_dst = saddr;
4946
4947 snprintf(s->vc->info_str, sizeof(s->vc->info_str),
4948 "socket: mcast=%s:%d",
4949 inet_ntoa(saddr.sin_addr), ntohs(saddr.sin_port));
4950 return 0;
4951
4952 }
4953
4954 static const char *get_opt_name(char *buf, int buf_size, const char *p)
4955 {
4956 char *q;
4957
4958 q = buf;
4959 while (*p != '\0' && *p != '=') {
4960 if (q && (q - buf) < buf_size - 1)
4961 *q++ = *p;
4962 p++;
4963 }
4964 if (q)
4965 *q = '\0';
4966
4967 return p;
4968 }
4969
4970 static const char *get_opt_value(char *buf, int buf_size, const char *p)
4971 {
4972 char *q;
4973
4974 q = buf;
4975 while (*p != '\0') {
4976 if (*p == ',') {
4977 if (*(p + 1) != ',')
4978 break;
4979 p++;
4980 }
4981 if (q && (q - buf) < buf_size - 1)
4982 *q++ = *p;
4983 p++;
4984 }
4985 if (q)
4986 *q = '\0';
4987
4988 return p;
4989 }
4990
4991 int get_param_value(char *buf, int buf_size,
4992 const char *tag, const char *str)
4993 {
4994 const char *p;
4995 char option[128];
4996
4997 p = str;
4998 for(;;) {
4999 p = get_opt_name(option, sizeof(option), p);
5000 if (*p != '=')
5001 break;
5002 p++;
5003 if (!strcmp(tag, option)) {
5004 (void)get_opt_value(buf, buf_size, p);
5005 return strlen(buf);
5006 } else {
5007 p = get_opt_value(NULL, 0, p);
5008 }
5009 if (*p != ',')
5010 break;
5011 p++;
5012 }
5013 return 0;
5014 }
5015
5016 int check_params(char *buf, int buf_size,
5017 char **params, const char *str)
5018 {
5019 const char *p;
5020 int i;
5021
5022 p = str;
5023 for(;;) {
5024 p = get_opt_name(buf, buf_size, p);
5025 if (*p != '=')
5026 return -1;
5027 p++;
5028 for(i = 0; params[i] != NULL; i++)
5029 if (!strcmp(params[i], buf))
5030 break;
5031 if (params[i] == NULL)
5032 return -1;
5033 p = get_opt_value(NULL, 0, p);
5034 if (*p != ',')
5035 break;
5036 p++;
5037 }
5038 return 0;
5039 }
5040
5041 static int nic_get_free_idx(void)
5042 {
5043 int index;
5044
5045 for (index = 0; index < MAX_NICS; index++)
5046 if (!nd_table[index].used)
5047 return index;
5048 return -1;
5049 }
5050
5051 int net_client_init(const char *str)
5052 {
5053 const char *p;
5054 char *q;
5055 char device[64];
5056 char buf[1024];
5057 int vlan_id, ret;
5058 VLANState *vlan;
5059
5060 p = str;
5061 q = device;
5062 while (*p != '\0' && *p != ',') {
5063 if ((q - device) < sizeof(device) - 1)
5064 *q++ = *p;
5065 p++;
5066 }
5067 *q = '\0';
5068 if (*p == ',')
5069 p++;
5070 vlan_id = 0;
5071 if (get_param_value(buf, sizeof(buf), "vlan", p)) {
5072 vlan_id = strtol(buf, NULL, 0);
5073 }
5074 vlan = qemu_find_vlan(vlan_id);
5075 if (!vlan) {
5076 fprintf(stderr, "Could not create vlan %d\n", vlan_id);
5077 return -1;
5078 }
5079 if (!strcmp(device, "nic")) {
5080 NICInfo *nd;
5081 uint8_t *macaddr;
5082 int idx = nic_get_free_idx();
5083
5084 if (idx == -1 || nb_nics >= MAX_NICS) {
5085 fprintf(stderr, "Too Many NICs\n");
5086 return -1;
5087 }
5088 nd = &nd_table[idx];
5089 macaddr = nd->macaddr;
5090 macaddr[0] = 0x52;
5091 macaddr[1] = 0x54;
5092 macaddr[2] = 0x00;
5093 macaddr[3] = 0x12;
5094 macaddr[4] = 0x34;
5095 macaddr[5] = 0x56 + idx;
5096
5097 if (get_param_value(buf, sizeof(buf), "macaddr", p)) {
5098 if (parse_macaddr(macaddr, buf) < 0) {
5099 fprintf(stderr, "invalid syntax for ethernet address\n");
5100 return -1;
5101 }
5102 }
5103 if (get_param_value(buf, sizeof(buf), "model", p)) {
5104 nd->model = strdup(buf);
5105 }
5106 nd->vlan = vlan;
5107 nd->used = 1;
5108 nb_nics++;
5109 vlan->nb_guest_devs++;
5110 ret = idx;
5111 } else
5112 if (!strcmp(device, "none")) {
5113 /* does nothing. It is needed to signal that no network cards
5114 are wanted */
5115 ret = 0;
5116 } else
5117 #ifdef CONFIG_SLIRP
5118 if (!strcmp(device, "user")) {
5119 if (get_param_value(buf, sizeof(buf), "hostname", p)) {
5120 pstrcpy(slirp_hostname, sizeof(slirp_hostname), buf);
5121 }
5122 vlan->nb_host_devs++;
5123 ret = net_slirp_init(vlan);
5124 } else
5125 #endif
5126 #ifdef _WIN32
5127 if (!strcmp(device, "tap")) {
5128 char ifname[64];
5129 if (get_param_value(ifname, sizeof(ifname), "ifname", p) <= 0) {
5130 fprintf(stderr, "tap: no interface name\n");
5131 return -1;
5132 }
5133 vlan->nb_host_devs++;
5134 ret = tap_win32_init(vlan, ifname);
5135 } else
5136 #else
5137 if (!strcmp(device, "tap")) {
5138 char ifname[64];
5139 char setup_script[1024], down_script[1024];
5140 int fd;
5141 vlan->nb_host_devs++;
5142 if (get_param_value(buf, sizeof(buf), "fd", p) > 0) {
5143 fd = strtol(buf, NULL, 0);
5144 fcntl(fd, F_SETFL, O_NONBLOCK);
5145 ret = -1;
5146 if (net_tap_fd_init(vlan, fd))
5147 ret = 0;
5148 } else {
5149 if (get_param_value(ifname, sizeof(ifname), "ifname", p) <= 0) {
5150 ifname[0] = '\0';
5151 }
5152 if (get_param_value(setup_script, sizeof(setup_script), "script", p) == 0) {
5153 pstrcpy(setup_script, sizeof(setup_script), DEFAULT_NETWORK_SCRIPT);
5154 }
5155 if (get_param_value(down_script, sizeof(down_script), "downscript", p) == 0) {
5156 pstrcpy(down_script, sizeof(down_script), DEFAULT_NETWORK_DOWN_SCRIPT);
5157 }
5158 ret = net_tap_init(vlan, ifname, setup_script, down_script);
5159 }
5160 } else
5161 #endif
5162 if (!strcmp(device, "socket")) {
5163 if (get_param_value(buf, sizeof(buf), "fd", p) > 0) {
5164 int fd;
5165 fd = strtol(buf, NULL, 0);
5166 ret = -1;
5167 if (net_socket_fd_init(vlan, fd, 1))
5168 ret = 0;
5169 } else if (get_param_value(buf, sizeof(buf), "listen", p) > 0) {
5170 ret = net_socket_listen_init(vlan, buf);
5171 } else if (get_param_value(buf, sizeof(buf), "connect", p) > 0) {
5172 ret = net_socket_connect_init(vlan, buf);
5173 } else if (get_param_value(buf, sizeof(buf), "mcast", p) > 0) {
5174 ret = net_socket_mcast_init(vlan, buf);
5175 } else {
5176 fprintf(stderr, "Unknown socket options: %s\n", p);
5177 return -1;
5178 }
5179 vlan->nb_host_devs++;
5180 } else
5181 {
5182 fprintf(stderr, "Unknown network device: %s\n", device);
5183 return -1;
5184 }
5185 if (ret < 0) {
5186 fprintf(stderr, "Could not initialize device '%s'\n", device);
5187 }
5188
5189 return ret;
5190 }
5191
5192 void net_client_uninit(NICInfo *nd)
5193 {
5194 nd->vlan->nb_guest_devs--; /* XXX: free vlan on last reference */
5195 nb_nics--;
5196 nd->used = 0;
5197 free((void *)nd->model);
5198 }
5199
5200 void do_info_network(void)
5201 {
5202 VLANState *vlan;
5203 VLANClientState *vc;
5204
5205 for(vlan = first_vlan; vlan != NULL; vlan = vlan->next) {
5206 term_printf("VLAN %d devices:\n", vlan->id);
5207 for(vc = vlan->first_client; vc != NULL; vc = vc->next)
5208 term_printf(" %s\n", vc->info_str);
5209 }
5210 }
5211
5212 #define HD_ALIAS "index=%d,media=disk"
5213 #ifdef TARGET_PPC
5214 #define CDROM_ALIAS "index=1,media=cdrom"
5215 #else
5216 #define CDROM_ALIAS "index=2,media=cdrom"
5217 #endif
5218 #define FD_ALIAS "index=%d,if=floppy"
5219 #define PFLASH_ALIAS "if=pflash"
5220 #define MTD_ALIAS "if=mtd"
5221 #define SD_ALIAS "index=0,if=sd"
5222
5223 static int drive_opt_get_free_idx(void)
5224 {
5225 int index;
5226
5227 for (index = 0; index < MAX_DRIVES; index++)
5228 if (!drives_opt[index].used) {
5229 drives_opt[index].used = 1;
5230 return index;
5231 }
5232
5233 return -1;
5234 }
5235
5236 static int drive_get_free_idx(void)
5237 {
5238 int index;
5239
5240 for (index = 0; index < MAX_DRIVES; index++)
5241 if (!drives_table[index].used) {
5242 drives_table[index].used = 1;
5243 return index;
5244 }
5245
5246 return -1;
5247 }
5248
5249 int drive_add(const char *file, const char *fmt, ...)
5250 {
5251 va_list ap;
5252 int index = drive_opt_get_free_idx();
5253
5254 if (nb_drives_opt >= MAX_DRIVES || index == -1) {
5255 fprintf(stderr, "qemu: too many drives\n");
5256 return -1;
5257 }
5258
5259 drives_opt[index].file = file;
5260 va_start(ap, fmt);
5261 vsnprintf(drives_opt[index].opt,
5262 sizeof(drives_opt[0].opt), fmt, ap);
5263 va_end(ap);
5264
5265 nb_drives_opt++;
5266 return index;
5267 }
5268
5269 void drive_remove(int index)
5270 {
5271 drives_opt[index].used = 0;
5272 nb_drives_opt--;
5273 }
5274
5275 int drive_get_index(BlockInterfaceType type, int bus, int unit)
5276 {
5277 int index;
5278
5279 /* seek interface, bus and unit */
5280
5281 for (index = 0; index < MAX_DRIVES; index++)
5282 if (drives_table[index].type == type &&
5283 drives_table[index].bus == bus &&
5284 drives_table[index].unit == unit &&
5285 drives_table[index].used)
5286 return index;
5287
5288 return -1;
5289 }
5290
5291 int drive_get_max_bus(BlockInterfaceType type)
5292 {
5293 int max_bus;
5294 int index;
5295
5296 max_bus = -1;
5297 for (index = 0; index < nb_drives; index++) {
5298 if(drives_table[index].type == type &&
5299 drives_table[index].bus > max_bus)
5300 max_bus = drives_table[index].bus;
5301 }
5302 return max_bus;
5303 }
5304
5305 static void bdrv_format_print(void *opaque, const char *name)
5306 {
5307 fprintf(stderr, " %s", name);
5308 }
5309
5310 void drive_uninit(BlockDriverState *bdrv)
5311 {
5312 int i;
5313
5314 for (i = 0; i < MAX_DRIVES; i++)
5315 if (drives_table[i].bdrv == bdrv) {
5316 drives_table[i].bdrv = NULL;
5317 drives_table[i].used = 0;
5318 drive_remove(drives_table[i].drive_opt_idx);
5319 nb_drives--;
5320 break;
5321 }
5322 }
5323
5324 int drive_init(struct drive_opt *arg, int snapshot,
5325 QEMUMachine *machine)
5326 {
5327 char buf[128];
5328 char file[1024];
5329 char devname[128];
5330 const char *mediastr = "";
5331 BlockInterfaceType type;
5332 enum { MEDIA_DISK, MEDIA_CDROM } media;
5333 int bus_id, unit_id;
5334 int cyls, heads, secs, translation;
5335 BlockDriverState *bdrv;
5336 BlockDriver *drv = NULL;
5337 int max_devs;
5338 int index;
5339 int cache;
5340 int bdrv_flags;
5341 int drives_table_idx;
5342 char *str = arg->opt;
5343 char *params[] = { "bus", "unit", "if", "index", "cyls", "heads",
5344 "secs", "trans", "media", "snapshot", "file",
5345 "cache", "format", "boot", NULL };
5346
5347 if (check_params(buf, sizeof(buf), params, str) < 0) {
5348 fprintf(stderr, "qemu: unknown parameter '%s' in '%s'\n",
5349 buf, str);
5350 return -1;
5351 }
5352
5353 file[0] = 0;
5354 cyls = heads = secs = 0;
5355 bus_id = 0;
5356 unit_id = -1;
5357 translation = BIOS_ATA_TRANSLATION_AUTO;
5358 index = -1;
5359 cache = 1;
5360
5361 if (!strcmp(machine->name, "realview") ||
5362 !strcmp(machine->name, "SS-5") ||
5363 !strcmp(machine->name, "SS-10") ||
5364 !strcmp(machine->name, "SS-600MP") ||
5365 !strcmp(machine->name, "versatilepb") ||
5366 !strcmp(machine->name, "versatileab")) {
5367 type = IF_SCSI;
5368 max_devs = MAX_SCSI_DEVS;
5369 strcpy(devname, "scsi");
5370 } else {
5371 type = IF_IDE;
5372 max_devs = MAX_IDE_DEVS;
5373 strcpy(devname, "ide");
5374 }
5375 media = MEDIA_DISK;
5376
5377 /* extract parameters */
5378
5379 if (get_param_value(buf, sizeof(buf), "bus", str)) {
5380 bus_id = strtol(buf, NULL, 0);
5381 if (bus_id < 0) {
5382 fprintf(stderr, "qemu: '%s' invalid bus id\n", str);
5383 return -1;
5384 }
5385 }
5386
5387 if (get_param_value(buf, sizeof(buf), "unit", str)) {
5388 unit_id = strtol(buf, NULL, 0);
5389 if (unit_id < 0) {
5390 fprintf(stderr, "qemu: '%s' invalid unit id\n", str);
5391 return -1;
5392 }
5393 }
5394
5395 if (get_param_value(buf, sizeof(buf), "if", str)) {
5396 pstrcpy(devname, sizeof(devname), buf);
5397 if (!strcmp(buf, "ide")) {
5398 type = IF_IDE;
5399 max_devs = MAX_IDE_DEVS;
5400 } else if (!strcmp(buf, "scsi")) {
5401 type = IF_SCSI;
5402 max_devs = MAX_SCSI_DEVS;
5403 } else if (!strcmp(buf, "floppy")) {
5404 type = IF_FLOPPY;
5405 max_devs = 0;
5406 } else if (!strcmp(buf, "pflash")) {
5407 type = IF_PFLASH;
5408 max_devs = 0;
5409 } else if (!strcmp(buf, "mtd")) {
5410 type = IF_MTD;
5411 max_devs = 0;
5412 } else if (!strcmp(buf, "sd")) {
5413 type = IF_SD;
5414 max_devs = 0;
5415 } else if (!strcmp(buf, "virtio")) {
5416 type = IF_VIRTIO;
5417 max_devs = 0;
5418 } else {
5419 fprintf(stderr, "qemu: '%s' unsupported bus type '%s'\n", str, buf);
5420 return -1;
5421 }
5422 }
5423
5424 if (get_param_value(buf, sizeof(buf), "index", str)) {
5425 index = strtol(buf, NULL, 0);
5426 if (index < 0) {
5427 fprintf(stderr, "qemu: '%s' invalid index\n", str);
5428 return -1;
5429 }
5430 }
5431
5432 if (get_param_value(buf, sizeof(buf), "cyls", str)) {
5433 cyls = strtol(buf, NULL, 0);
5434 }
5435
5436 if (get_param_value(buf, sizeof(buf), "heads", str)) {
5437 heads = strtol(buf, NULL, 0);
5438 }
5439
5440 if (get_param_value(buf, sizeof(buf), "secs", str)) {
5441 secs = strtol(buf, NULL, 0);
5442 }
5443
5444 if (cyls || heads || secs) {
5445 if (cyls < 1 || cyls > 16383) {
5446 fprintf(stderr, "qemu: '%s' invalid physical cyls number\n", str);
5447 return -1;
5448 }
5449 if (heads < 1 || heads > 16) {
5450 fprintf(stderr, "qemu: '%s' invalid physical heads number\n", str);
5451 return -1;
5452 }
5453 if (secs < 1 || secs > 63) {
5454 fprintf(stderr, "qemu: '%s' invalid physical secs number\n", str);
5455 return -1;
5456 }
5457 }
5458
5459 if (get_param_value(buf, sizeof(buf), "trans", str)) {
5460 if (!cyls) {
5461 fprintf(stderr,
5462 "qemu: '%s' trans must be used with cyls,heads and secs\n",
5463 str);
5464 return -1;
5465 }
5466 if (!strcmp(buf, "none"))
5467 translation = BIOS_ATA_TRANSLATION_NONE;
5468 else if (!strcmp(buf, "lba"))
5469 translation = BIOS_ATA_TRANSLATION_LBA;
5470 else if (!strcmp(buf, "auto"))
5471 translation = BIOS_ATA_TRANSLATION_AUTO;
5472 else {
5473 fprintf(stderr, "qemu: '%s' invalid translation type\n", str);
5474 return -1;
5475 }
5476 }
5477
5478 if (get_param_value(buf, sizeof(buf), "media", str)) {
5479 if (!strcmp(buf, "disk")) {
5480 media = MEDIA_DISK;
5481 } else if (!strcmp(buf, "cdrom")) {
5482 if (cyls || secs || heads) {
5483 fprintf(stderr,
5484 "qemu: '%s' invalid physical CHS format\n", str);
5485 return -1;
5486 }
5487 media = MEDIA_CDROM;
5488 } else {
5489 fprintf(stderr, "qemu: '%s' invalid media\n", str);
5490 return -1;
5491 }
5492 }
5493
5494 if (get_param_value(buf, sizeof(buf), "snapshot", str)) {
5495 if (!strcmp(buf, "on"))
5496 snapshot = 1;
5497 else if (!strcmp(buf, "off"))
5498 snapshot = 0;
5499 else {
5500 fprintf(stderr, "qemu: '%s' invalid snapshot option\n", str);
5501 return -1;
5502 }
5503 }
5504
5505 if (get_param_value(buf, sizeof(buf), "cache", str)) {
5506 if (!strcmp(buf, "off"))
5507 cache = 0;
5508 else if (!strcmp(buf, "on"))
5509 cache = 1;
5510 else {
5511 fprintf(stderr, "qemu: invalid cache option\n");
5512 return -1;
5513 }
5514 }
5515
5516 if (get_param_value(buf, sizeof(buf), "format", str)) {
5517 if (strcmp(buf, "?") == 0) {
5518 fprintf(stderr, "qemu: Supported formats:");
5519 bdrv_iterate_format(bdrv_format_print, NULL);
5520 fprintf(stderr, "\n");
5521 return -1;
5522 }
5523 drv = bdrv_find_format(buf);
5524 if (!drv) {
5525 fprintf(stderr, "qemu: '%s' invalid format\n", buf);
5526 return -1;
5527 }
5528 }
5529
5530 if (get_param_value(buf, sizeof(buf), "boot", str)) {
5531 if (!strcmp(buf, "on")) {
5532 if (extboot_drive != -1) {
5533 fprintf(stderr, "qemu: two bootable drives specified\n");
5534 return -1;
5535 }
5536 extboot_drive = nb_drives;
5537 } else if (strcmp(buf, "off")) {
5538 fprintf(stderr, "qemu: '%s' invalid boot option\n", str);
5539 return -1;
5540 }
5541 }
5542
5543 if (arg->file == NULL)
5544 get_param_value(file, sizeof(file), "file", str);
5545 else
5546 pstrcpy(file, sizeof(file), arg->file);
5547
5548 /* compute bus and unit according index */
5549
5550 if (index != -1) {
5551 if (bus_id != 0 || unit_id != -1) {
5552 fprintf(stderr,
5553 "qemu: '%s' index cannot be used with bus and unit\n", str);
5554 return -1;
5555 }
5556 if (max_devs == 0)
5557 {
5558 unit_id = index;
5559 bus_id = 0;
5560 } else {
5561 unit_id = index % max_devs;
5562 bus_id = index / max_devs;
5563 }
5564 }
5565
5566 /* if user doesn't specify a unit_id,
5567 * try to find the first free
5568 */
5569
5570 if (unit_id == -1) {
5571 unit_id = 0;
5572 while (drive_get_index(type, bus_id, unit_id) != -1) {
5573 unit_id++;
5574 if (max_devs && unit_id >= max_devs) {
5575 unit_id -= max_devs;
5576 bus_id++;
5577 }
5578 }
5579 }
5580
5581 /* check unit id */
5582
5583 if (max_devs && unit_id >= max_devs) {
5584 fprintf(stderr, "qemu: '%s' unit %d too big (max is %d)\n",
5585 str, unit_id, max_devs - 1);
5586 return -1;
5587 }
5588
5589 /*
5590 * ignore multiple definitions
5591 */
5592
5593 if (drive_get_index(type, bus_id, unit_id) != -1)
5594 return -2;
5595
5596 /* init */
5597
5598 if (type == IF_IDE || type == IF_SCSI)
5599 mediastr = (media == MEDIA_CDROM) ? "-cd" : "-hd";
5600 if (max_devs)
5601 snprintf(buf, sizeof(buf), "%s%i%s%i",
5602 devname, bus_id, mediastr, unit_id);
5603 else
5604 snprintf(buf, sizeof(buf), "%s%s%i",
5605 devname, mediastr, unit_id);
5606 bdrv = bdrv_new(buf);
5607 drives_table_idx = drive_get_free_idx();
5608 drives_table[drives_table_idx].bdrv = bdrv;
5609 drives_table[drives_table_idx].type = type;
5610 drives_table[drives_table_idx].bus = bus_id;
5611 drives_table[drives_table_idx].unit = unit_id;
5612 drives_table[drives_table_idx].drive_opt_idx = arg - drives_opt;
5613 nb_drives++;
5614
5615 switch(type) {
5616 case IF_IDE:
5617 case IF_SCSI:
5618 switch(media) {
5619 case MEDIA_DISK:
5620 if (cyls != 0) {
5621 bdrv_set_geometry_hint(bdrv, cyls, heads, secs);
5622 bdrv_set_translation_hint(bdrv, translation);
5623 }
5624 break;
5625 case MEDIA_CDROM:
5626 bdrv_set_type_hint(bdrv, BDRV_TYPE_CDROM);
5627 break;
5628 }
5629 break;
5630 case IF_SD:
5631 /* FIXME: This isn't really a floppy, but it's a reasonable
5632 approximation. */
5633 case IF_FLOPPY:
5634 bdrv_set_type_hint(bdrv, BDRV_TYPE_FLOPPY);
5635 break;
5636 case IF_PFLASH:
5637 case IF_MTD:
5638 case IF_VIRTIO:
5639 break;
5640 }
5641 if (!file[0])
5642 return -2;
5643 bdrv_flags = 0;
5644 if (snapshot)
5645 bdrv_flags |= BDRV_O_SNAPSHOT;
5646 if (!cache)
5647 bdrv_flags |= BDRV_O_DIRECT;
5648 if (bdrv_open2(bdrv, file, bdrv_flags, drv) < 0 || qemu_key_check(bdrv, file)) {
5649 fprintf(stderr, "qemu: could not open disk image %s\n",
5650 file);
5651 return -1;
5652 }
5653 return drives_table_idx;
5654 }
5655
5656 /***********************************************************/
5657 /* USB devices */
5658
5659 static USBPort *used_usb_ports;
5660 static USBPort *free_usb_ports;
5661
5662 /* ??? Maybe change this to register a hub to keep track of the topology. */
5663 void qemu_register_usb_port(USBPort *port, void *opaque, int index,
5664 usb_attachfn attach)
5665 {
5666 port->opaque = opaque;
5667 port->index = index;
5668 port->attach = attach;
5669 port->next = free_usb_ports;
5670 free_usb_ports = port;
5671 }
5672
5673 static int usb_device_add(const char *devname)
5674 {
5675 const char *p;
5676 USBDevice *dev;
5677 USBPort *port;
5678
5679 if (!free_usb_ports)
5680 return -1;
5681
5682 if (strstart(devname, "host:", &p)) {
5683 dev = usb_host_device_open(p);
5684 } else if (!strcmp(devname, "mouse")) {
5685 dev = usb_mouse_init();
5686 } else if (!strcmp(devname, "tablet")) {
5687 dev = usb_tablet_init();
5688 } else if (!strcmp(devname, "keyboard")) {
5689 dev = usb_keyboard_init();
5690 } else if (strstart(devname, "disk:", &p)) {
5691 dev = usb_msd_init(p);
5692 } else if (!strcmp(devname, "wacom-tablet")) {
5693 dev = usb_wacom_init();
5694 } else if (strstart(devname, "serial:", &p)) {
5695 dev = usb_serial_init(p);
5696 #ifdef CONFIG_BRLAPI
5697 } else if (!strcmp(devname, "braille")) {
5698 dev = usb_baum_init();
5699 #endif
5700 } else {
5701 return -1;
5702 }
5703 if (!dev)
5704 return -1;
5705
5706 /* Find a USB port to add the device to. */
5707 port = free_usb_ports;
5708 if (!port->next) {
5709 USBDevice *hub;
5710
5711 /* Create a new hub and chain it on. */
5712 free_usb_ports = NULL;
5713 port->next = used_usb_ports;
5714 used_usb_ports = port;
5715
5716 hub = usb_hub_init(VM_USB_HUB_SIZE);
5717 usb_attach(port, hub);
5718 port = free_usb_ports;
5719 }
5720
5721 free_usb_ports = port->next;
5722 port->next = used_usb_ports;
5723 used_usb_ports = port;
5724 usb_attach(port, dev);
5725 return 0;
5726 }
5727
5728 static int usb_device_del(const char *devname)
5729 {
5730 USBPort *port;
5731 USBPort **lastp;
5732 USBDevice *dev;
5733 int bus_num, addr;
5734 const char *p;
5735
5736 if (!used_usb_ports)
5737 return -1;
5738
5739 p = strchr(devname, '.');
5740 if (!p)
5741 return -1;
5742 bus_num = strtoul(devname, NULL, 0);
5743 addr = strtoul(p + 1, NULL, 0);
5744 if (bus_num != 0)
5745 return -1;
5746
5747 lastp = &used_usb_ports;
5748 port = used_usb_ports;
5749 while (port && port->dev->addr != addr) {
5750 lastp = &port->next;
5751 port = port->next;
5752 }
5753
5754 if (!port)
5755 return -1;
5756
5757 dev = port->dev;
5758 *lastp = port->next;
5759 usb_attach(port, NULL);
5760 dev->handle_destroy(dev);
5761 port->next = free_usb_ports;
5762 free_usb_ports = port;
5763 return 0;
5764 }
5765
5766 void do_usb_add(const char *devname)
5767 {
5768 int ret;
5769 ret = usb_device_add(devname);
5770 if (ret < 0)
5771 term_printf("Could not add USB device '%s'\n", devname);
5772 }
5773
5774 void do_usb_del(const char *devname)
5775 {
5776 int ret;
5777 ret = usb_device_del(devname);
5778 if (ret < 0)
5779 term_printf("Could not remove USB device '%s'\n", devname);
5780 }
5781
5782 void usb_info(void)
5783 {
5784 USBDevice *dev;
5785 USBPort *port;
5786 const char *speed_str;
5787
5788 if (!usb_enabled) {
5789 term_printf("USB support not enabled\n");
5790 return;
5791 }
5792
5793 for (port = used_usb_ports; port; port = port->next) {
5794 dev = port->dev;
5795 if (!dev)
5796 continue;
5797 switch(dev->speed) {
5798 case USB_SPEED_LOW:
5799 speed_str = "1.5";
5800 break;
5801 case USB_SPEED_FULL:
5802 speed_str = "12";
5803 break;
5804 case USB_SPEED_HIGH:
5805 speed_str = "480";
5806 break;
5807 default:
5808 speed_str = "?";
5809 break;
5810 }
5811 term_printf(" Device %d.%d, Speed %s Mb/s, Product %s\n",
5812 0, dev->addr, speed_str, dev->devname);
5813 }
5814 }
5815
5816 /***********************************************************/
5817 /* PCMCIA/Cardbus */
5818
5819 static struct pcmcia_socket_entry_s {
5820 struct pcmcia_socket_s *socket;
5821 struct pcmcia_socket_entry_s *next;
5822 } *pcmcia_sockets = 0;
5823
5824 void pcmcia_socket_register(struct pcmcia_socket_s *socket)
5825 {
5826 struct pcmcia_socket_entry_s *entry;
5827
5828 entry = qemu_malloc(sizeof(struct pcmcia_socket_entry_s));
5829 entry->socket = socket;
5830 entry->next = pcmcia_sockets;
5831 pcmcia_sockets = entry;
5832 }
5833
5834 void pcmcia_socket_unregister(struct pcmcia_socket_s *socket)
5835 {
5836 struct pcmcia_socket_entry_s *entry, **ptr;
5837
5838 ptr = &pcmcia_sockets;
5839 for (entry = *ptr; entry; ptr = &entry->next, entry = *ptr)
5840 if (entry->socket == socket) {
5841 *ptr = entry->next;
5842 qemu_free(entry);
5843 }
5844 }
5845
5846 void pcmcia_info(void)
5847 {
5848 struct pcmcia_socket_entry_s *iter;
5849 if (!pcmcia_sockets)
5850 term_printf("No PCMCIA sockets\n");
5851
5852 for (iter = pcmcia_sockets; iter; iter = iter->next)
5853 term_printf("%s: %s\n", iter->socket->slot_string,
5854 iter->socket->attached ? iter->socket->card_string :
5855 "Empty");
5856 }
5857
5858 /***********************************************************/
5859 /* dumb display */
5860
5861 static void dumb_update(DisplayState *ds, int x, int y, int w, int h)
5862 {
5863 }
5864
5865 static void dumb_resize(DisplayState *ds, int w, int h)
5866 {
5867 }
5868
5869 static void dumb_refresh(DisplayState *ds)
5870 {
5871 #if defined(CONFIG_SDL)
5872 vga_hw_update();
5873 #endif
5874 }
5875
5876 static void dumb_display_init(DisplayState *ds)
5877 {
5878 ds->data = NULL;
5879 ds->linesize = 0;
5880 ds->depth = 0;
5881 ds->dpy_update = dumb_update;
5882 ds->dpy_resize = dumb_resize;
5883 ds->dpy_refresh = dumb_refresh;
5884 }
5885
5886 /***********************************************************/
5887 /* I/O handling */
5888
5889 #define MAX_IO_HANDLERS 64
5890
5891 typedef struct IOHandlerRecord {
5892 int fd;
5893 IOCanRWHandler *fd_read_poll;
5894 IOHandler *fd_read;
5895 IOHandler *fd_write;
5896 int deleted;
5897 void *opaque;
5898 /* temporary data */
5899 struct pollfd *ufd;
5900 struct IOHandlerRecord *next;
5901 } IOHandlerRecord;
5902
5903 static IOHandlerRecord *first_io_handler;
5904
5905 /* XXX: fd_read_poll should be suppressed, but an API change is
5906 necessary in the character devices to suppress fd_can_read(). */
5907 int qemu_set_fd_handler2(int fd,
5908 IOCanRWHandler *fd_read_poll,
5909 IOHandler *fd_read,
5910 IOHandler *fd_write,
5911 void *opaque)
5912 {
5913 IOHandlerRecord **pioh, *ioh;
5914
5915 if (!fd_read && !fd_write) {
5916 pioh = &first_io_handler;
5917 for(;;) {
5918 ioh = *pioh;
5919 if (ioh == NULL)
5920 break;
5921 if (ioh->fd == fd) {
5922 ioh->deleted = 1;
5923 break;
5924 }
5925 pioh = &ioh->next;
5926 }
5927 } else {
5928 for(ioh = first_io_handler; ioh != NULL; ioh = ioh->next) {
5929 if (ioh->fd == fd)
5930 goto found;
5931 }
5932 ioh = qemu_mallocz(sizeof(IOHandlerRecord));
5933 if (!ioh)
5934 return -1;
5935 ioh->next = first_io_handler;
5936 first_io_handler = ioh;
5937 found:
5938 ioh->fd = fd;
5939 ioh->fd_read_poll = fd_read_poll;
5940 ioh->fd_read = fd_read;
5941 ioh->fd_write = fd_write;
5942 ioh->opaque = opaque;
5943 ioh->deleted = 0;
5944 }
5945 main_loop_break();
5946 return 0;
5947 }
5948
5949 int qemu_set_fd_handler(int fd,
5950 IOHandler *fd_read,
5951 IOHandler *fd_write,
5952 void *opaque)
5953 {
5954 return qemu_set_fd_handler2(fd, NULL, fd_read, fd_write, opaque);
5955 }
5956
5957 /***********************************************************/
5958 /* Polling handling */
5959
5960 typedef struct PollingEntry {
5961 PollingFunc *func;
5962 void *opaque;
5963 struct PollingEntry *next;
5964 } PollingEntry;
5965
5966 static PollingEntry *first_polling_entry;
5967
5968 int qemu_add_polling_cb(PollingFunc *func, void *opaque)
5969 {
5970 PollingEntry **ppe, *pe;
5971 pe = qemu_mallocz(sizeof(PollingEntry));
5972 if (!pe)
5973 return -1;
5974 pe->func = func;
5975 pe->opaque = opaque;
5976 for(ppe = &first_polling_entry; *ppe != NULL; ppe = &(*ppe)->next);
5977 *ppe = pe;
5978 return 0;
5979 }
5980
5981 void qemu_del_polling_cb(PollingFunc *func, void *opaque)
5982 {
5983 PollingEntry **ppe, *pe;
5984 for(ppe = &first_polling_entry; *ppe != NULL; ppe = &(*ppe)->next) {
5985 pe = *ppe;
5986 if (pe->func == func && pe->opaque == opaque) {
5987 *ppe = pe->next;
5988 qemu_free(pe);
5989 break;
5990 }
5991 }
5992 }
5993
5994 #ifdef _WIN32
5995 /***********************************************************/
5996 /* Wait objects support */
5997 typedef struct WaitObjects {
5998 int num;
5999 HANDLE events[MAXIMUM_WAIT_OBJECTS + 1];
6000 WaitObjectFunc *func[MAXIMUM_WAIT_OBJECTS + 1];
6001 void *opaque[MAXIMUM_WAIT_OBJECTS + 1];
6002 } WaitObjects;
6003
6004 static WaitObjects wait_objects = {0};
6005
6006 int qemu_add_wait_object(HANDLE handle, WaitObjectFunc *func, void *opaque)
6007 {
6008 WaitObjects *w = &wait_objects;
6009
6010 if (w->num >= MAXIMUM_WAIT_OBJECTS)
6011 return -1;
6012 w->events[w->num] = handle;
6013 w->func[w->num] = func;
6014 w->opaque[w->num] = opaque;
6015 w->num++;
6016 return 0;
6017 }
6018
6019 void qemu_del_wait_object(HANDLE handle, WaitObjectFunc *func, void *opaque)
6020 {
6021 int i, found;
6022 WaitObjects *w = &wait_objects;
6023
6024 found = 0;
6025 for (i = 0; i < w->num; i++) {
6026 if (w->events[i] == handle)
6027 found = 1;
6028 if (found) {
6029 w->events[i] = w->events[i + 1];
6030 w->func[i] = w->func[i + 1];
6031 w->opaque[i] = w->opaque[i + 1];
6032 }
6033 }
6034 if (found)
6035 w->num--;
6036 }
6037 #endif
6038
6039 #define SELF_ANNOUNCE_ROUNDS 5
6040 #define ETH_P_EXPERIMENTAL 0x01F1 /* just a number */
6041 //#define ETH_P_EXPERIMENTAL 0x0012 /* make it the size of the packet */
6042 #define EXPERIMENTAL_MAGIC 0xf1f23f4f
6043
6044 static int announce_self_create(uint8_t *buf,
6045 uint8_t *mac_addr)
6046 {
6047 uint32_t magic = EXPERIMENTAL_MAGIC;
6048 uint16_t proto = htons(ETH_P_EXPERIMENTAL);
6049
6050 /* FIXME: should we send a different packet (arp/rarp/ping)? */
6051
6052 memset(buf, 0xff, 6); /* h_dst */
6053 memcpy(buf + 6, mac_addr, 6); /* h_src */
6054 memcpy(buf + 12, &proto, 2); /* h_proto */
6055 memcpy(buf + 14, &magic, 4); /* magic */
6056
6057 return 18; /* len */
6058 }
6059
6060 static void qemu_announce_self(void)
6061 {
6062 int i, j, len;
6063 VLANState *vlan;
6064 VLANClientState *vc;
6065 uint8_t buf[256];
6066
6067 for (i = 0; i < nb_nics; i++) {
6068 len = announce_self_create(buf, nd_table[i].macaddr);
6069 vlan = nd_table[i].vlan;
6070 for(vc = vlan->first_client; vc != NULL; vc = vc->next) {
6071 if (vc->fd_read == tap_receive) /* send only if tap */
6072 for (j=0; j < SELF_ANNOUNCE_ROUNDS; j++)
6073 vc->fd_read(vc->opaque, buf, len);
6074 }
6075 }
6076 }
6077
6078 /***********************************************************/
6079 /* savevm/loadvm support */
6080
6081 #define IO_BUF_SIZE 32768
6082
6083 struct QEMUFile {
6084 QEMUFilePutBufferFunc *put_buffer;
6085 QEMUFileGetBufferFunc *get_buffer;
6086 QEMUFileCloseFunc *close;
6087 void *opaque;
6088
6089 int64_t buf_offset; /* start of buffer when writing, end of buffer
6090 when reading */
6091 int buf_index;
6092 int buf_size; /* 0 when writing */
6093 uint8_t buf[IO_BUF_SIZE];
6094 };
6095
6096 typedef struct QEMUFileFD
6097 {
6098 int fd;
6099 } QEMUFileFD;
6100
6101 static int fd_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
6102 {
6103 QEMUFileFD *s = opaque;
6104 int offset = 0;
6105 ssize_t len;
6106
6107 again:
6108 len = read(s->fd, buf + offset, size - offset);
6109 if (len == -1) {
6110 if (errno == EINTR || errno == EAGAIN)
6111 goto again;
6112 }
6113
6114 return len;
6115 }
6116
6117 QEMUFile *qemu_fopen_fd(int fd)
6118 {
6119 QEMUFileFD *s = qemu_mallocz(sizeof(QEMUFileFD));
6120 s->fd = fd;
6121 return qemu_fopen(s, NULL, fd_get_buffer, qemu_free);
6122 }
6123
6124 typedef struct QEMUFileUnix
6125 {
6126 FILE *outfile;
6127 } QEMUFileUnix;
6128
6129 static void file_put_buffer(void *opaque, const uint8_t *buf, int64_t pos, int size)
6130 {
6131 QEMUFileUnix *s = opaque;
6132 fseek(s->outfile, pos, SEEK_SET);
6133 fwrite(buf, 1, size, s->outfile);
6134 }
6135
6136 static int file_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
6137 {
6138 QEMUFileUnix *s = opaque;
6139 fseek(s->outfile, pos, SEEK_SET);
6140 return fread(buf, 1, size, s->outfile);
6141 }
6142
6143 static void file_close(void *opaque)
6144 {
6145 QEMUFileUnix *s = opaque;
6146 fclose(s->outfile);
6147 qemu_free(s);
6148 }
6149
6150 QEMUFile *qemu_fopen_file(const char *filename, const char *mode)
6151 {
6152 QEMUFileUnix *s;
6153
6154 s = qemu_mallocz(sizeof(QEMUFileUnix));
6155 if (!s)
6156 return NULL;
6157
6158 s->outfile = fopen(filename, mode);
6159 if (!s->outfile)
6160 goto fail;
6161
6162 if (!strcmp(mode, "wb"))
6163 return qemu_fopen(s, file_put_buffer, NULL, file_close);
6164 else if (!strcmp(mode, "rb"))
6165 return qemu_fopen(s, NULL, file_get_buffer, file_close);
6166
6167 fail:
6168 if (s->outfile)
6169 fclose(s->outfile);
6170 qemu_free(s);
6171 return NULL;
6172 }
6173
6174 typedef struct QEMUFileBdrv
6175 {
6176 BlockDriverState *bs;
6177 int64_t base_offset;
6178 } QEMUFileBdrv;
6179
6180 static void bdrv_put_buffer(void *opaque, const uint8_t *buf, int64_t pos, int size)
6181 {
6182 QEMUFileBdrv *s = opaque;
6183 bdrv_pwrite(s->bs, s->base_offset + pos, buf, size);
6184 }
6185
6186 static int bdrv_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
6187 {
6188 QEMUFileBdrv *s = opaque;
6189 return bdrv_pread(s->bs, s->base_offset + pos, buf, size);
6190 }
6191
6192 QEMUFile *qemu_fopen_bdrv(BlockDriverState *bs, int64_t offset, int is_writable)
6193 {
6194 QEMUFileBdrv *s;
6195
6196 s = qemu_mallocz(sizeof(QEMUFileBdrv));
6197 if (!s)
6198 return NULL;
6199
6200 s->bs = bs;
6201 s->base_offset = offset;
6202
6203 if (is_writable)
6204 return qemu_fopen(s, bdrv_put_buffer, NULL, qemu_free);
6205
6206 return qemu_fopen(s, NULL, bdrv_get_buffer, qemu_free);
6207 }
6208
6209 QEMUFile *qemu_fopen(void *opaque, QEMUFilePutBufferFunc *put_buffer,
6210 QEMUFileGetBufferFunc *get_buffer, QEMUFileCloseFunc *close)
6211 {
6212 QEMUFile *f;
6213
6214 f = qemu_mallocz(sizeof(QEMUFile));
6215 if (!f)
6216 return NULL;
6217
6218 f->opaque = opaque;
6219 f->put_buffer = put_buffer;
6220 f->get_buffer = get_buffer;
6221 f->close = close;
6222
6223 return f;
6224 }
6225
6226 void qemu_fflush(QEMUFile *f)
6227 {
6228 if (!f->put_buffer)
6229 return;
6230
6231 if (f->buf_index > 0) {
6232 f->put_buffer(f->opaque, f->buf, f->buf_offset, f->buf_index);
6233 f->buf_offset += f->buf_index;
6234 f->buf_index = 0;
6235 }
6236 }
6237
6238 static void qemu_fill_buffer(QEMUFile *f)
6239 {
6240 int len;
6241
6242 if (!f->get_buffer)
6243 return;
6244
6245 len = f->get_buffer(f->opaque, f->buf, f->buf_offset, IO_BUF_SIZE);
6246 if (len < 0)
6247 len = 0;
6248
6249 f->buf_index = 0;
6250 f->buf_size = len;
6251 f->buf_offset += len;
6252 }
6253
6254 void qemu_fclose(QEMUFile *f)
6255 {
6256 qemu_fflush(f);
6257 if (f->close)
6258 f->close(f->opaque);
6259 qemu_free(f);
6260 }
6261
6262 void qemu_put_buffer(QEMUFile *f, const uint8_t *buf, int size)
6263 {
6264 int l;
6265 while (size > 0) {
6266 l = IO_BUF_SIZE - f->buf_index;
6267 if (l > size)
6268 l = size;
6269 memcpy(f->buf + f->buf_index, buf, l);
6270 f->buf_index += l;
6271 buf += l;
6272 size -= l;
6273 if (f->buf_index >= IO_BUF_SIZE)
6274 qemu_fflush(f);
6275 }
6276 }
6277
6278 void qemu_put_byte(QEMUFile *f, int v)
6279 {
6280 f->buf[f->buf_index++] = v;
6281 if (f->buf_index >= IO_BUF_SIZE)
6282 qemu_fflush(f);
6283 }
6284
6285 int qemu_get_buffer(QEMUFile *f, uint8_t *buf, int size1)
6286 {
6287 int size, l;
6288
6289 size = size1;
6290 while (size > 0) {
6291 l = f->buf_size - f->buf_index;
6292 if (l == 0) {
6293 qemu_fill_buffer(f);
6294 l = f->buf_size - f->buf_index;
6295 if (l == 0)
6296 break;
6297 }
6298 if (l > size)
6299 l = size;
6300 memcpy(buf, f->buf + f->buf_index, l);
6301 f->buf_index += l;
6302 buf += l;
6303 size -= l;
6304 }
6305 return size1 - size;
6306 }
6307
6308 int qemu_get_byte(QEMUFile *f)
6309 {
6310 if (f->buf_index >= f->buf_size) {
6311 qemu_fill_buffer(f);
6312 if (f->buf_index >= f->buf_size)
6313 return 0;
6314 }
6315 return f->buf[f->buf_index++];
6316 }
6317
6318 int64_t qemu_ftell(QEMUFile *f)
6319 {
6320 return f->buf_offset - f->buf_size + f->buf_index;
6321 }
6322
6323 int64_t qemu_fseek(QEMUFile *f, int64_t pos, int whence)
6324 {
6325 if (whence == SEEK_SET) {
6326 /* nothing to do */
6327 } else if (whence == SEEK_CUR) {
6328 pos += qemu_ftell(f);
6329 } else {
6330 /* SEEK_END not supported */
6331 return -1;
6332 }
6333 if (f->put_buffer) {
6334 qemu_fflush(f);
6335 f->buf_offset = pos;
6336 } else {
6337 f->buf_offset = pos;
6338 f->buf_index = 0;
6339 f->buf_size = 0;
6340 }
6341 return pos;
6342 }
6343
6344 void qemu_put_be16(QEMUFile *f, unsigned int v)
6345 {
6346 qemu_put_byte(f, v >> 8);
6347 qemu_put_byte(f, v);
6348 }
6349
6350 void qemu_put_be32(QEMUFile *f, unsigned int v)
6351 {
6352 qemu_put_byte(f, v >> 24);
6353 qemu_put_byte(f, v >> 16);
6354 qemu_put_byte(f, v >> 8);
6355 qemu_put_byte(f, v);
6356 }
6357
6358 void qemu_put_be64(QEMUFile *f, uint64_t v)
6359 {
6360 qemu_put_be32(f, v >> 32);
6361 qemu_put_be32(f, v);
6362 }
6363
6364 unsigned int qemu_get_be16(QEMUFile *f)
6365 {
6366 unsigned int v;
6367 v = qemu_get_byte(f) << 8;
6368 v |= qemu_get_byte(f);
6369 return v;
6370 }
6371
6372 unsigned int qemu_get_be32(QEMUFile *f)
6373 {
6374 unsigned int v;
6375 v = qemu_get_byte(f) << 24;
6376 v |= qemu_get_byte(f) << 16;
6377 v |= qemu_get_byte(f) << 8;
6378 v |= qemu_get_byte(f);
6379 return v;
6380 }
6381
6382 uint64_t qemu_get_be64(QEMUFile *f)
6383 {
6384 uint64_t v;
6385 v = (uint64_t)qemu_get_be32(f) << 32;
6386 v |= qemu_get_be32(f);
6387 return v;
6388 }
6389
6390 typedef struct SaveStateEntry {
6391 char idstr[256];
6392 int instance_id;
6393 int version_id;
6394 SaveStateHandler *save_state;
6395 LoadStateHandler *load_state;
6396 void *opaque;
6397 struct SaveStateEntry *next;
6398 } SaveStateEntry;
6399
6400 static SaveStateEntry *first_se;
6401
6402 /* TODO: Individual devices generally have very little idea about the rest
6403 of the system, so instance_id should be removed/replaced. */
6404 int register_savevm(const char *idstr,
6405 int instance_id,
6406 int version_id,
6407 SaveStateHandler *save_state,
6408 LoadStateHandler *load_state,
6409 void *opaque)
6410 {
6411 SaveStateEntry *se, **pse;
6412
6413 se = qemu_malloc(sizeof(SaveStateEntry));
6414 if (!se)
6415 return -1;
6416 pstrcpy(se->idstr, sizeof(se->idstr), idstr);
6417 se->instance_id = (instance_id == -1) ? 0 : instance_id;
6418 se->version_id = version_id;
6419 se->save_state = save_state;
6420 se->load_state = load_state;
6421 se->opaque = opaque;
6422 se->next = NULL;
6423
6424 /* add at the end of list */
6425 pse = &first_se;
6426 while (*pse != NULL) {
6427 if (instance_id == -1
6428 && strcmp(se->idstr, (*pse)->idstr) == 0
6429 && se->instance_id <= (*pse)->instance_id)
6430 se->instance_id = (*pse)->instance_id + 1;
6431 pse = &(*pse)->next;
6432 }
6433 *pse = se;
6434 return 0;
6435 }
6436
6437 #define QEMU_VM_FILE_MAGIC 0x5145564d
6438 #define QEMU_VM_FILE_VERSION 0x00000002
6439
6440 static int qemu_savevm_state(QEMUFile *f)
6441 {
6442 SaveStateEntry *se;
6443 int len, ret;
6444 int64_t cur_pos, len_pos, total_len_pos;
6445
6446 qemu_put_be32(f, QEMU_VM_FILE_MAGIC);
6447 qemu_put_be32(f, QEMU_VM_FILE_VERSION);
6448 total_len_pos = qemu_ftell(f);
6449 qemu_put_be64(f, 0); /* total size */
6450
6451 for(se = first_se; se != NULL; se = se->next) {
6452 if (se->save_state == NULL)
6453 /* this one has a loader only, for backwards compatibility */
6454 continue;
6455
6456 /* ID string */
6457 len = strlen(se->idstr);
6458 qemu_put_byte(f, len);
6459 qemu_put_buffer(f, (uint8_t *)se->idstr, len);
6460
6461 qemu_put_be32(f, se->instance_id);
6462 qemu_put_be32(f, se->version_id);
6463
6464 /* record size: filled later */
6465 len_pos = qemu_ftell(f);
6466 qemu_put_be32(f, 0);
6467 se->save_state(f, se->opaque);
6468
6469 /* fill record size */
6470 cur_pos = qemu_ftell(f);
6471 len = cur_pos - len_pos - 4;
6472 qemu_fseek(f, len_pos, SEEK_SET);
6473 qemu_put_be32(f, len);
6474 qemu_fseek(f, cur_pos, SEEK_SET);
6475 }
6476 cur_pos = qemu_ftell(f);
6477 qemu_fseek(f, total_len_pos, SEEK_SET);
6478 qemu_put_be64(f, cur_pos - total_len_pos - 8);
6479 qemu_fseek(f, cur_pos, SEEK_SET);
6480
6481 ret = 0;
6482 return ret;
6483 }
6484
6485 static SaveStateEntry *find_se(const char *idstr, int instance_id)
6486 {
6487 SaveStateEntry *se;
6488
6489 for(se = first_se; se != NULL; se = se->next) {
6490 if (!strcmp(se->idstr, idstr) &&
6491 instance_id == se->instance_id)
6492 return se;
6493 }
6494 return NULL;
6495 }
6496
6497 static int qemu_loadvm_state(QEMUFile *f)
6498 {
6499 SaveStateEntry *se;
6500 int len, ret, instance_id, record_len, version_id;
6501 int64_t total_len, end_pos, cur_pos;
6502 unsigned int v;
6503 char idstr[256];
6504
6505 v = qemu_get_be32(f);
6506 if (v != QEMU_VM_FILE_MAGIC)
6507 goto fail;
6508 v = qemu_get_be32(f);
6509 if (v != QEMU_VM_FILE_VERSION) {
6510 fail:
6511 ret = -1;
6512 goto the_end;
6513 }
6514 total_len = qemu_get_be64(f);
6515 end_pos = total_len + qemu_ftell(f);
6516 for(;;) {
6517 if (qemu_ftell(f) >= end_pos)
6518 break;
6519 len = qemu_get_byte(f);
6520 qemu_get_buffer(f, (uint8_t *)idstr, len);
6521 idstr[len] = '\0';
6522 instance_id = qemu_get_be32(f);
6523 version_id = qemu_get_be32(f);
6524 record_len = qemu_get_be32(f);
6525 #if 0
6526 printf("idstr=%s instance=0x%x version=%d len=%d\n",
6527 idstr, instance_id, version_id, record_len);
6528 #endif
6529 cur_pos = qemu_ftell(f);
6530 se = find_se(idstr, instance_id);
6531 if (!se) {
6532 fprintf(stderr, "qemu: warning: instance 0x%x of device '%s' not present in current VM\n",
6533 instance_id, idstr);
6534 } else {
6535 ret = se->load_state(f, se->opaque, version_id);
6536 if (ret < 0) {
6537 fprintf(stderr, "qemu: warning: error while loading state for instance 0x%x of device '%s'\n",
6538 instance_id, idstr);
6539 goto the_end;
6540 }
6541 }
6542 /* always seek to exact end of record */
6543 qemu_fseek(f, cur_pos + record_len, SEEK_SET);
6544 }
6545 ret = 0;
6546 the_end:
6547 return ret;
6548 }
6549
6550 int qemu_live_savevm_state(QEMUFile *f)
6551 {
6552 SaveStateEntry *se;
6553 int len, ret;
6554
6555 qemu_put_be32(f, QEMU_VM_FILE_MAGIC);
6556 qemu_put_be32(f, QEMU_VM_FILE_VERSION);
6557
6558 for(se = first_se; se != NULL; se = se->next) {
6559 len = strlen(se->idstr);
6560
6561 qemu_put_byte(f, len);
6562 qemu_put_buffer(f, se->idstr, len);
6563 qemu_put_be32(f, se->instance_id);
6564 qemu_put_be32(f, se->version_id);
6565
6566 se->save_state(f, se->opaque);
6567 }
6568
6569 qemu_put_byte(f, 0);
6570
6571 ret = 0;
6572 return ret;
6573 }
6574
6575 int qemu_live_loadvm_state(QEMUFile *f)
6576 {
6577 SaveStateEntry *se;
6578 int len, ret, instance_id, version_id;
6579 unsigned int v;
6580 char idstr[256];
6581
6582 v = qemu_get_be32(f);
6583 if (v != QEMU_VM_FILE_MAGIC)
6584 goto fail;
6585 v = qemu_get_be32(f);
6586 if (v != QEMU_VM_FILE_VERSION) {
6587 fail:
6588 ret = -1;
6589 goto the_end;
6590 }
6591
6592 for(;;) {
6593 len = qemu_get_byte(f);
6594 if (len == 0)
6595 break;
6596 qemu_get_buffer(f, idstr, len);
6597 idstr[len] = '\0';
6598 instance_id = qemu_get_be32(f);
6599 version_id = qemu_get_be32(f);
6600 se = find_se(idstr, instance_id);
6601 if (!se) {
6602 fprintf(stderr, "qemu: warning: instance 0x%x of device '%s' not present in current VM\n",
6603 instance_id, idstr);
6604 } else {
6605 if (version_id > se->version_id) { /* src version > dst version */
6606 fprintf(stderr, "migration:version mismatch:%s:%d(s)>%d(d)\n",
6607 idstr, version_id, se->version_id);
6608 ret = -1;
6609 goto the_end;
6610 }
6611 ret = se->load_state(f, se->opaque, version_id);
6612 if (ret < 0) {
6613 fprintf(stderr, "qemu: warning: error while loading state for instance 0x%x of device '%s'\n",
6614 instance_id, idstr);
6615 goto the_end;
6616 }
6617 }
6618 }
6619 ret = 0;
6620
6621 qemu_announce_self();
6622
6623 the_end:
6624 return ret;
6625 }
6626
6627 /* device can contain snapshots */
6628 static int bdrv_can_snapshot(BlockDriverState *bs)
6629 {
6630 return (bs &&
6631 !bdrv_is_removable(bs) &&
6632 !bdrv_is_read_only(bs));
6633 }
6634
6635 /* device must be snapshots in order to have a reliable snapshot */
6636 static int bdrv_has_snapshot(BlockDriverState *bs)
6637 {
6638 return (bs &&
6639 !bdrv_is_removable(bs) &&
6640 !bdrv_is_read_only(bs));
6641 }
6642
6643 static BlockDriverState *get_bs_snapshots(void)
6644 {
6645 BlockDriverState *bs;
6646 int i;
6647
6648 if (bs_snapshots)
6649 return bs_snapshots;
6650 for(i = 0; i <= nb_drives; i++) {
6651 bs = drives_table[i].bdrv;
6652 if (bdrv_can_snapshot(bs))
6653 goto ok;
6654 }
6655 return NULL;
6656 ok:
6657 bs_snapshots = bs;
6658 return bs;
6659 }
6660
6661 static int bdrv_snapshot_find(BlockDriverState *bs, QEMUSnapshotInfo *sn_info,
6662 const char *name)
6663 {
6664 QEMUSnapshotInfo *sn_tab, *sn;
6665 int nb_sns, i, ret;
6666
6667 ret = -ENOENT;
6668 nb_sns = bdrv_snapshot_list(bs, &sn_tab);
6669 if (nb_sns < 0)
6670 return ret;
6671 for(i = 0; i < nb_sns; i++) {
6672 sn = &sn_tab[i];
6673 if (!strcmp(sn->id_str, name) || !strcmp(sn->name, name)) {
6674 *sn_info = *sn;
6675 ret = 0;
6676 break;
6677 }
6678 }
6679 qemu_free(sn_tab);
6680 return ret;
6681 }
6682
6683 void do_savevm(const char *name)
6684 {
6685 BlockDriverState *bs, *bs1;
6686 QEMUSnapshotInfo sn1, *sn = &sn1, old_sn1, *old_sn = &old_sn1;
6687 int must_delete, ret, i;
6688 BlockDriverInfo bdi1, *bdi = &bdi1;
6689 QEMUFile *f;
6690 int saved_vm_running;
6691 #ifdef _WIN32
6692 struct _timeb tb;
6693 #else
6694 struct timeval tv;
6695 #endif
6696
6697 bs = get_bs_snapshots();
6698 if (!bs) {
6699 term_printf("No block device can accept snapshots\n");
6700 return;
6701 }
6702
6703 /* ??? Should this occur after vm_stop? */
6704 qemu_aio_flush();
6705
6706 saved_vm_running = vm_running;
6707 vm_stop(0);
6708
6709 must_delete = 0;
6710 if (name) {
6711 ret = bdrv_snapshot_find(bs, old_sn, name);
6712 if (ret >= 0) {
6713 must_delete = 1;
6714 }
6715 }
6716 memset(sn, 0, sizeof(*sn));
6717 if (must_delete) {
6718 pstrcpy(sn->name, sizeof(sn->name), old_sn->name);
6719 pstrcpy(sn->id_str, sizeof(sn->id_str), old_sn->id_str);
6720 } else {
6721 if (name)
6722 pstrcpy(sn->name, sizeof(sn->name), name);
6723 }
6724
6725 /* fill auxiliary fields */
6726 #ifdef _WIN32
6727 _ftime(&tb);
6728 sn->date_sec = tb.time;
6729 sn->date_nsec = tb.millitm * 1000000;
6730 #else
6731 gettimeofday(&tv, NULL);
6732 sn->date_sec = tv.tv_sec;
6733 sn->date_nsec = tv.tv_usec * 1000;
6734 #endif
6735 sn->vm_clock_nsec = qemu_get_clock(vm_clock);
6736
6737 if (bdrv_get_info(bs, bdi) < 0 || bdi->vm_state_offset <= 0) {
6738 term_printf("Device %s does not support VM state snapshots\n",
6739 bdrv_get_device_name(bs));
6740 goto the_end;
6741 }
6742
6743 /* save the VM state */
6744 f = qemu_fopen_bdrv(bs, bdi->vm_state_offset, 1);
6745 if (!f) {
6746 term_printf("Could not open VM state file\n");
6747 goto the_end;
6748 }
6749 ret = qemu_savevm_state(f);
6750 sn->vm_state_size = qemu_ftell(f);
6751 qemu_fclose(f);
6752 if (ret < 0) {
6753 term_printf("Error %d while writing VM\n", ret);
6754 goto the_end;
6755 }
6756
6757 /* create the snapshots */
6758
6759 for(i = 0; i < nb_drives; i++) {
6760 bs1 = drives_table[i].bdrv;
6761 if (bdrv_has_snapshot(bs1)) {
6762 if (must_delete) {
6763 ret = bdrv_snapshot_delete(bs1, old_sn->id_str);
6764 if (ret < 0) {
6765 term_printf("Error while deleting snapshot on '%s'\n",
6766 bdrv_get_device_name(bs1));
6767 }
6768 }
6769 ret = bdrv_snapshot_create(bs1, sn);
6770 if (ret < 0) {
6771 term_printf("Error while creating snapshot on '%s'\n",
6772 bdrv_get_device_name(bs1));
6773 }
6774 }
6775 }
6776
6777 the_end:
6778 if (saved_vm_running)
6779 vm_start();
6780 }
6781
6782 void do_loadvm(const char *name)
6783 {
6784 BlockDriverState *bs, *bs1;
6785 BlockDriverInfo bdi1, *bdi = &bdi1;
6786 QEMUFile *f;
6787 int i, ret;
6788 int saved_vm_running;
6789
6790 bs = get_bs_snapshots();
6791 if (!bs) {
6792 term_printf("No block device supports snapshots\n");
6793 return;
6794 }
6795
6796 /* Flush all IO requests so they don't interfere with the new state. */
6797 qemu_aio_flush();
6798
6799 saved_vm_running = vm_running;
6800 vm_stop(0);
6801
6802 for(i = 0; i <= nb_drives; i++) {
6803 bs1 = drives_table[i].bdrv;
6804 if (bdrv_has_snapshot(bs1)) {
6805 ret = bdrv_snapshot_goto(bs1, name);
6806 if (ret < 0) {
6807 if (bs != bs1)
6808 term_printf("Warning: ");
6809 switch(ret) {
6810 case -ENOTSUP:
6811 term_printf("Snapshots not supported on device '%s'\n",
6812 bdrv_get_device_name(bs1));
6813 break;
6814 case -ENOENT:
6815 term_printf("Could not find snapshot '%s' on device '%s'\n",
6816 name, bdrv_get_device_name(bs1));
6817 break;
6818 default:
6819 term_printf("Error %d while activating snapshot on '%s'\n",
6820 ret, bdrv_get_device_name(bs1));
6821 break;
6822 }
6823 /* fatal on snapshot block device */
6824 if (bs == bs1)
6825 goto the_end;
6826 }
6827 }
6828 }
6829
6830 if (bdrv_get_info(bs, bdi) < 0 || bdi->vm_state_offset <= 0) {
6831 term_printf("Device %s does not support VM state snapshots\n",
6832 bdrv_get_device_name(bs));
6833 return;
6834 }
6835
6836 /* restore the VM state */
6837 f = qemu_fopen_bdrv(bs, bdi->vm_state_offset, 0);
6838 if (!f) {
6839 term_printf("Could not open VM state file\n");
6840 goto the_end;
6841 }
6842 ret = qemu_loadvm_state(f);
6843 qemu_fclose(f);
6844 if (ret < 0) {
6845 term_printf("Error %d while loading VM state\n", ret);
6846 }
6847 the_end:
6848 if (saved_vm_running)
6849 vm_start();
6850 }
6851
6852 void do_delvm(const char *name)
6853 {
6854 BlockDriverState *bs, *bs1;
6855 int i, ret;
6856
6857 bs = get_bs_snapshots();
6858 if (!bs) {
6859 term_printf("No block device supports snapshots\n");
6860 return;
6861 }
6862
6863 for(i = 0; i <= nb_drives; i++) {
6864 bs1 = drives_table[i].bdrv;
6865 if (bdrv_has_snapshot(bs1)) {
6866 ret = bdrv_snapshot_delete(bs1, name);
6867 if (ret < 0) {
6868 if (ret == -ENOTSUP)
6869 term_printf("Snapshots not supported on device '%s'\n",
6870 bdrv_get_device_name(bs1));
6871 else
6872 term_printf("Error %d while deleting snapshot on '%s'\n",
6873 ret, bdrv_get_device_name(bs1));
6874 }
6875 }
6876 }
6877 }
6878
6879 void do_info_snapshots(void)
6880 {
6881 BlockDriverState *bs, *bs1;
6882 QEMUSnapshotInfo *sn_tab, *sn;
6883 int nb_sns, i;
6884 char buf[256];
6885
6886 bs = get_bs_snapshots();
6887 if (!bs) {
6888 term_printf("No available block device supports snapshots\n");
6889 return;
6890 }
6891 term_printf("Snapshot devices:");
6892 for(i = 0; i <= nb_drives; i++) {
6893 bs1 = drives_table[i].bdrv;
6894 if (bdrv_has_snapshot(bs1)) {
6895 if (bs == bs1)
6896 term_printf(" %s", bdrv_get_device_name(bs1));
6897 }
6898 }
6899 term_printf("\n");
6900
6901 nb_sns = bdrv_snapshot_list(bs, &sn_tab);
6902 if (nb_sns < 0) {
6903 term_printf("bdrv_snapshot_list: error %d\n", nb_sns);
6904 return;
6905 }
6906 term_printf("Snapshot list (from %s):\n", bdrv_get_device_name(bs));
6907 term_printf("%s\n", bdrv_snapshot_dump(buf, sizeof(buf), NULL));
6908 for(i = 0; i < nb_sns; i++) {
6909 sn = &sn_tab[i];
6910 term_printf("%s\n", bdrv_snapshot_dump(buf, sizeof(buf), sn));
6911 }
6912 qemu_free(sn_tab);
6913 }
6914
6915 /***********************************************************/
6916 /* ram save/restore */
6917
6918 static int ram_get_page(QEMUFile *f, uint8_t *buf, int len)
6919 {
6920 int v;
6921
6922 v = qemu_get_byte(f);
6923 switch(v) {
6924 case 0:
6925 if (qemu_get_buffer(f, buf, len) != len)
6926 return -EIO;
6927 break;
6928 case 1:
6929 v = qemu_get_byte(f);
6930 memset(buf, v, len);
6931 break;
6932 default:
6933 return -EINVAL;
6934 }
6935 return 0;
6936 }
6937
6938 static int ram_load_v1(QEMUFile *f, void *opaque)
6939 {
6940 int ret;
6941 ram_addr_t i;
6942
6943 if (qemu_get_be32(f) != phys_ram_size)
6944 return -EINVAL;
6945 for(i = 0; i < phys_ram_size; i+= TARGET_PAGE_SIZE) {
6946 if (kvm_enabled() && (i>=0xa0000) && (i<0xc0000)) /* do not access video-addresses */
6947 continue;
6948 ret = ram_get_page(f, phys_ram_base + i, TARGET_PAGE_SIZE);
6949 if (ret)
6950 return ret;
6951 }
6952 return 0;
6953 }
6954
6955 #define BDRV_HASH_BLOCK_SIZE 1024
6956 #define IOBUF_SIZE 4096
6957 #define RAM_CBLOCK_MAGIC 0xfabe
6958
6959 typedef struct RamCompressState {
6960 z_stream zstream;
6961 QEMUFile *f;
6962 uint8_t buf[IOBUF_SIZE];
6963 } RamCompressState;
6964
6965 static int ram_compress_open(RamCompressState *s, QEMUFile *f)
6966 {
6967 int ret;
6968 memset(s, 0, sizeof(*s));
6969 s->f = f;
6970 ret = deflateInit2(&s->zstream, 1,
6971 Z_DEFLATED, 15,
6972 9, Z_DEFAULT_STRATEGY);
6973 if (ret != Z_OK)
6974 return -1;
6975 s->zstream.avail_out = IOBUF_SIZE;
6976 s->zstream.next_out = s->buf;
6977 return 0;
6978 }
6979
6980 static void ram_put_cblock(RamCompressState *s, const uint8_t *buf, int len)
6981 {
6982 qemu_put_be16(s->f, RAM_CBLOCK_MAGIC);
6983 qemu_put_be16(s->f, len);
6984 qemu_put_buffer(s->f, buf, len);
6985 }
6986
6987 static int ram_compress_buf(RamCompressState *s, const uint8_t *buf, int len)
6988 {
6989 int ret;
6990
6991 s->zstream.avail_in = len;
6992 s->zstream.next_in = (uint8_t *)buf;
6993 while (s->zstream.avail_in > 0) {
6994 ret = deflate(&s->zstream, Z_NO_FLUSH);
6995 if (ret != Z_OK)
6996 return -1;
6997 if (s->zstream.avail_out == 0) {
6998 ram_put_cblock(s, s->buf, IOBUF_SIZE);
6999 s->zstream.avail_out = IOBUF_SIZE;
7000 s->zstream.next_out = s->buf;
7001 }
7002 }
7003 return 0;
7004 }
7005
7006 static void ram_compress_close(RamCompressState *s)
7007 {
7008 int len, ret;
7009
7010 /* compress last bytes */
7011 for(;;) {
7012 ret = deflate(&s->zstream, Z_FINISH);
7013 if (ret == Z_OK || ret == Z_STREAM_END) {
7014 len = IOBUF_SIZE - s->zstream.avail_out;
7015 if (len > 0) {
7016 ram_put_cblock(s, s->buf, len);
7017 }
7018 s->zstream.avail_out = IOBUF_SIZE;
7019 s->zstream.next_out = s->buf;
7020 if (ret == Z_STREAM_END)
7021 break;
7022 } else {
7023 goto fail;
7024 }
7025 }
7026 fail:
7027 deflateEnd(&s->zstream);
7028 }
7029
7030 typedef struct RamDecompressState {
7031 z_stream zstream;
7032 QEMUFile *f;
7033 uint8_t buf[IOBUF_SIZE];
7034 } RamDecompressState;
7035
7036 static int ram_decompress_open(RamDecompressState *s, QEMUFile *f)
7037 {
7038 int ret;
7039 memset(s, 0, sizeof(*s));
7040 s->f = f;
7041 ret = inflateInit(&s->zstream);
7042 if (ret != Z_OK)
7043 return -1;
7044 return 0;
7045 }
7046
7047 static int ram_decompress_buf(RamDecompressState *s, uint8_t *buf, int len)
7048 {
7049 int ret, clen;
7050
7051 s->zstream.avail_out = len;
7052 s->zstream.next_out = buf;
7053 while (s->zstream.avail_out > 0) {
7054 if (s->zstream.avail_in == 0) {
7055 if (qemu_get_be16(s->f) != RAM_CBLOCK_MAGIC)
7056 return -1;
7057 clen = qemu_get_be16(s->f);
7058 if (clen > IOBUF_SIZE)
7059 return -1;
7060 qemu_get_buffer(s->f, s->buf, clen);
7061 s->zstream.avail_in = clen;
7062 s->zstream.next_in = s->buf;
7063 }
7064 ret = inflate(&s->zstream, Z_PARTIAL_FLUSH);
7065 if (ret != Z_OK && ret != Z_STREAM_END) {
7066 return -1;
7067 }
7068 }
7069 return 0;
7070 }
7071
7072 static void ram_decompress_close(RamDecompressState *s)
7073 {
7074 inflateEnd(&s->zstream);
7075 }
7076
7077 static void ram_save_live(QEMUFile *f, void *opaque)
7078 {
7079 target_ulong addr;
7080
7081 for (addr = 0; addr < phys_ram_size; addr += TARGET_PAGE_SIZE) {
7082 if (kvm_enabled() && (addr>=0xa0000) && (addr<0xc0000)) /* do not access video-addresses */
7083 continue;
7084 if (cpu_physical_memory_get_dirty(addr, MIGRATION_DIRTY_FLAG)) {
7085 qemu_put_be32(f, addr);
7086 qemu_put_buffer(f, phys_ram_base + addr, TARGET_PAGE_SIZE);
7087 }
7088 }
7089 qemu_put_be32(f, 1);
7090 }
7091
7092 static void ram_save_static(QEMUFile *f, void *opaque)
7093 {
7094 ram_addr_t i;
7095 RamCompressState s1, *s = &s1;
7096 uint8_t buf[10];
7097
7098 qemu_put_be32(f, phys_ram_size);
7099 if (ram_compress_open(s, f) < 0)
7100 return;
7101 for(i = 0; i < phys_ram_size; i+= BDRV_HASH_BLOCK_SIZE) {
7102 if (kvm_enabled() && (i>=0xa0000) && (i<0xc0000)) /* do not access video-addresses */
7103 continue;
7104 #if 0
7105 if (tight_savevm_enabled) {
7106 int64_t sector_num;
7107 int j;
7108
7109 /* find if the memory block is available on a virtual
7110 block device */
7111 sector_num = -1;
7112 for(j = 0; j < nb_drives; j++) {
7113 sector_num = bdrv_hash_find(drives_table[j].bdrv,
7114 phys_ram_base + i,
7115 BDRV_HASH_BLOCK_SIZE);
7116 if (sector_num >= 0)
7117 break;
7118 }
7119 if (j == nb_drives)
7120 goto normal_compress;
7121 buf[0] = 1;
7122 buf[1] = j;
7123 cpu_to_be64wu((uint64_t *)(buf + 2), sector_num);
7124 ram_compress_buf(s, buf, 10);
7125 } else
7126 #endif
7127 {
7128 // normal_compress:
7129 buf[0] = 0;
7130 ram_compress_buf(s, buf, 1);
7131 ram_compress_buf(s, phys_ram_base + i, BDRV_HASH_BLOCK_SIZE);
7132 }
7133 }
7134 ram_compress_close(s);
7135 }
7136
7137 static void ram_save(QEMUFile *f, void *opaque)
7138 {
7139 int in_migration = cpu_physical_memory_get_dirty_tracking();
7140
7141 qemu_put_byte(f, in_migration);
7142
7143 if (in_migration)
7144 ram_save_live(f, opaque);
7145 else
7146 ram_save_static(f, opaque);
7147 }
7148
7149 static int ram_load_live(QEMUFile *f, void *opaque)
7150 {
7151 target_ulong addr;
7152
7153 do {
7154 addr = qemu_get_be32(f);
7155 if (addr == 1)
7156 break;
7157
7158 qemu_get_buffer(f, phys_ram_base + addr, TARGET_PAGE_SIZE);
7159 } while (1);
7160
7161 return 0;
7162 }
7163
7164 static int ram_load_static(QEMUFile *f, void *opaque)
7165 {
7166 RamDecompressState s1, *s = &s1;
7167 uint8_t buf[10];
7168 ram_addr_t i;
7169
7170 if (qemu_get_be32(f) != phys_ram_size)
7171 return -EINVAL;
7172 if (ram_decompress_open(s, f) < 0)
7173 return -EINVAL;
7174 for(i = 0; i < phys_ram_size; i+= BDRV_HASH_BLOCK_SIZE) {
7175 if (kvm_enabled() && (i>=0xa0000) && (i<0xc0000)) /* do not access video-addresses */
7176 continue;
7177 if (ram_decompress_buf(s, buf, 1) < 0) {
7178 fprintf(stderr, "Error while reading ram block header\n");
7179 goto error;
7180 }
7181 if (buf[0] == 0) {
7182 if (ram_decompress_buf(s, phys_ram_base + i, BDRV_HASH_BLOCK_SIZE) < 0) {
7183 fprintf(stderr, "Error while reading ram block address=0x%08" PRIx64, (uint64_t)i);
7184 goto error;
7185 }
7186 } else
7187 #if 0
7188 if (buf[0] == 1) {
7189 int bs_index;
7190 int64_t sector_num;
7191
7192 ram_decompress_buf(s, buf + 1, 9);
7193 bs_index = buf[1];
7194 sector_num = be64_to_cpupu((const uint64_t *)(buf + 2));
7195 if (bs_index >= nb_drives) {
7196 fprintf(stderr, "Invalid block device index %d\n", bs_index);
7197 goto error;
7198 }
7199 if (bdrv_read(drives_table[bs_index].bdrv, sector_num,
7200 phys_ram_base + i,
7201 BDRV_HASH_BLOCK_SIZE / 512) < 0) {
7202 fprintf(stderr, "Error while reading sector %d:%" PRId64 "\n",
7203 bs_index, sector_num);
7204 goto error;
7205 }
7206 } else
7207 #endif
7208 {
7209 error:
7210 printf("Error block header\n");
7211 return -EINVAL;
7212 }
7213 }
7214 ram_decompress_close(s);
7215 return 0;
7216 }
7217
7218 static int ram_load(QEMUFile *f, void *opaque, int version_id)
7219 {
7220 int ret;
7221
7222 switch (version_id) {
7223 case 1:
7224 ret = ram_load_v1(f, opaque);
7225 break;
7226 case 3:
7227 if (qemu_get_byte(f)) {
7228 ret = ram_load_live(f, opaque);
7229 break;
7230 }
7231 case 2:
7232 ret = ram_load_static(f, opaque);
7233 break;
7234 default:
7235 ret = -EINVAL;
7236 break;
7237 }
7238
7239 return ret;
7240 }
7241
7242 /***********************************************************/
7243 /* bottom halves (can be seen as timers which expire ASAP) */
7244
7245 struct QEMUBH {
7246 QEMUBHFunc *cb;
7247 void *opaque;
7248 int scheduled;
7249 QEMUBH *next;
7250 };
7251
7252 static QEMUBH *first_bh = NULL;
7253
7254 QEMUBH *qemu_bh_new(QEMUBHFunc *cb, void *opaque)
7255 {
7256 QEMUBH *bh;
7257 bh = qemu_mallocz(sizeof(QEMUBH));
7258 if (!bh)
7259 return NULL;
7260 bh->cb = cb;
7261 bh->opaque = opaque;
7262 return bh;
7263 }
7264
7265 int qemu_bh_poll(void)
7266 {
7267 QEMUBH *bh, **pbh;
7268 int ret;
7269
7270 ret = 0;
7271 for(;;) {
7272 pbh = &first_bh;
7273 bh = *pbh;
7274 if (!bh)
7275 break;
7276 ret = 1;
7277 *pbh = bh->next;
7278 bh->scheduled = 0;
7279 bh->cb(bh->opaque);
7280 }
7281 return ret;
7282 }
7283
7284 void qemu_bh_schedule(QEMUBH *bh)
7285 {
7286 CPUState *env = cpu_single_env;
7287 if (bh->scheduled)
7288 return;
7289 bh->scheduled = 1;
7290 bh->next = first_bh;
7291 first_bh = bh;
7292
7293 /* stop the currently executing CPU to execute the BH ASAP */
7294 if (env) {
7295 cpu_interrupt(env, CPU_INTERRUPT_EXIT);
7296 }
7297 main_loop_break();
7298 }
7299
7300 void qemu_bh_cancel(QEMUBH *bh)
7301 {
7302 QEMUBH **pbh;
7303 if (bh->scheduled) {
7304 pbh = &first_bh;
7305 while (*pbh != bh)
7306 pbh = &(*pbh)->next;
7307 *pbh = bh->next;
7308 bh->scheduled = 0;
7309 }
7310 }
7311
7312 void qemu_bh_delete(QEMUBH *bh)
7313 {
7314 qemu_bh_cancel(bh);
7315 qemu_free(bh);
7316 }
7317
7318 /***********************************************************/
7319 /* machine registration */
7320
7321 QEMUMachine *first_machine = NULL;
7322 QEMUMachine *current_machine = NULL;
7323
7324 int qemu_register_machine(QEMUMachine *m)
7325 {
7326 QEMUMachine **pm;
7327 pm = &first_machine;
7328 while (*pm != NULL)
7329 pm = &(*pm)->next;
7330 m->next = NULL;
7331 *pm = m;
7332 return 0;
7333 }
7334
7335 static QEMUMachine *find_machine(const char *name)
7336 {
7337 QEMUMachine *m;
7338
7339 for(m = first_machine; m != NULL; m = m->next) {
7340 if (!strcmp(m->name, name))
7341 return m;
7342 }
7343 return NULL;
7344 }
7345
7346 /***********************************************************/
7347 /* main execution loop */
7348
7349 static void gui_update(void *opaque)
7350 {
7351 DisplayState *ds = opaque;
7352 ds->dpy_refresh(ds);
7353 qemu_mod_timer(ds->gui_timer,
7354 (ds->gui_timer_interval ?
7355 ds->gui_timer_interval :
7356 GUI_REFRESH_INTERVAL)
7357 + qemu_get_clock(rt_clock));
7358 }
7359
7360 struct vm_change_state_entry {
7361 VMChangeStateHandler *cb;
7362 void *opaque;
7363 LIST_ENTRY (vm_change_state_entry) entries;
7364 };
7365
7366 static LIST_HEAD(vm_change_state_head, vm_change_state_entry) vm_change_state_head;
7367
7368 VMChangeStateEntry *qemu_add_vm_change_state_handler(VMChangeStateHandler *cb,
7369 void *opaque)
7370 {
7371 VMChangeStateEntry *e;
7372
7373 e = qemu_mallocz(sizeof (*e));
7374 if (!e)
7375 return NULL;
7376
7377 e->cb = cb;
7378 e->opaque = opaque;
7379 LIST_INSERT_HEAD(&vm_change_state_head, e, entries);
7380 return e;
7381 }
7382
7383 void qemu_del_vm_change_state_handler(VMChangeStateEntry *e)
7384 {
7385 LIST_REMOVE (e, entries);
7386 qemu_free (e);
7387 }
7388
7389 static void vm_state_notify(int running)
7390 {
7391 VMChangeStateEntry *e;
7392
7393 for (e = vm_change_state_head.lh_first; e; e = e->entries.le_next) {
7394 e->cb(e->opaque, running);
7395 }
7396 }
7397
7398 /* XXX: support several handlers */
7399 static VMStopHandler *vm_stop_cb;
7400 static void *vm_stop_opaque;
7401
7402 int qemu_add_vm_stop_handler(VMStopHandler *cb, void *opaque)
7403 {
7404 vm_stop_cb = cb;
7405 vm_stop_opaque = opaque;
7406 return 0;
7407 }
7408
7409 void qemu_del_vm_stop_handler(VMStopHandler *cb, void *opaque)
7410 {
7411 vm_stop_cb = NULL;
7412 }
7413
7414 void vm_start(void)
7415 {
7416 if (!vm_running) {
7417 cpu_enable_ticks();
7418 vm_running = 1;
7419 vm_state_notify(1);
7420 qemu_rearm_alarm_timer(alarm_timer);
7421 }
7422 }
7423
7424 void vm_stop(int reason)
7425 {
7426 if (vm_running) {
7427 cpu_disable_ticks();
7428 vm_running = 0;
7429 if (reason != 0) {
7430 if (vm_stop_cb) {
7431 vm_stop_cb(vm_stop_opaque, reason);
7432 }
7433 }
7434 vm_state_notify(0);
7435 }
7436 }
7437
7438 /* reset/shutdown handler */
7439
7440 typedef struct QEMUResetEntry {
7441 QEMUResetHandler *func;
7442 void *opaque;
7443 struct QEMUResetEntry *next;
7444 } QEMUResetEntry;
7445
7446 static QEMUResetEntry *first_reset_entry;
7447 static int reset_requested;
7448 static int shutdown_requested;
7449 static int powerdown_requested;
7450
7451 int qemu_shutdown_requested(void)
7452 {
7453 int r = shutdown_requested;
7454 shutdown_requested = 0;
7455 return r;
7456 }
7457
7458 int qemu_reset_requested(void)
7459 {
7460 int r = reset_requested;
7461 reset_requested = 0;
7462 return r;
7463 }
7464
7465 int qemu_powerdown_requested(void)
7466 {
7467 int r = powerdown_requested;
7468 powerdown_requested = 0;
7469 return r;
7470 }
7471
7472 void qemu_register_reset(QEMUResetHandler *func, void *opaque)
7473 {
7474 QEMUResetEntry **pre, *re;
7475
7476 pre = &first_reset_entry;
7477 while (*pre != NULL)
7478 pre = &(*pre)->next;
7479 re = qemu_mallocz(sizeof(QEMUResetEntry));
7480 re->func = func;
7481 re->opaque = opaque;
7482 re->next = NULL;
7483 *pre = re;
7484 }
7485
7486 void qemu_system_reset(void)
7487 {
7488 QEMUResetEntry *re;
7489
7490 /* reset all devices */
7491 for(re = first_reset_entry; re != NULL; re = re->next) {
7492 re->func(re->opaque);
7493 }
7494 }
7495
7496 void qemu_system_reset_request(void)
7497 {
7498 if (no_reboot) {
7499 shutdown_requested = 1;
7500 } else {
7501 reset_requested = 1;
7502 }
7503 if (cpu_single_env)
7504 cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
7505 main_loop_break();
7506 }
7507
7508 void qemu_system_shutdown_request(void)
7509 {
7510 shutdown_requested = 1;
7511 if (cpu_single_env)
7512 cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
7513 }
7514
7515 void qemu_system_powerdown_request(void)
7516 {
7517 powerdown_requested = 1;
7518 if (cpu_single_env)
7519 cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
7520 }
7521
7522 static int qemu_select(int max_fd, fd_set *rfds, fd_set *wfds, fd_set *xfds,
7523 struct timeval *tv)
7524 {
7525 int ret;
7526
7527 /* KVM holds a mutex while QEMU code is running, we need hooks to
7528 release the mutex whenever QEMU code sleeps. */
7529
7530 kvm_sleep_begin();
7531
7532 ret = select(max_fd, rfds, wfds, xfds, tv);
7533
7534 kvm_sleep_end();
7535
7536 return ret;
7537 }
7538
7539 void main_loop_wait(int timeout)
7540 {
7541 IOHandlerRecord *ioh;
7542 fd_set rfds, wfds, xfds;
7543 int ret, nfds;
7544 #ifdef _WIN32
7545 int ret2, i;
7546 #endif
7547 struct timeval tv;
7548 PollingEntry *pe;
7549
7550
7551 /* XXX: need to suppress polling by better using win32 events */
7552 ret = 0;
7553 for(pe = first_polling_entry; pe != NULL; pe = pe->next) {
7554 ret |= pe->func(pe->opaque);
7555 }
7556 #ifdef _WIN32
7557 if (ret == 0) {
7558 int err;
7559 WaitObjects *w = &wait_objects;
7560
7561 ret = WaitForMultipleObjects(w->num, w->events, FALSE, timeout);
7562 if (WAIT_OBJECT_0 + 0 <= ret && ret <= WAIT_OBJECT_0 + w->num - 1) {
7563 if (w->func[ret - WAIT_OBJECT_0])
7564 w->func[ret - WAIT_OBJECT_0](w->opaque[ret - WAIT_OBJECT_0]);
7565
7566 /* Check for additional signaled events */
7567 for(i = (ret - WAIT_OBJECT_0 + 1); i < w->num; i++) {
7568
7569 /* Check if event is signaled */
7570 ret2 = WaitForSingleObject(w->events[i], 0);
7571 if(ret2 == WAIT_OBJECT_0) {
7572 if (w->func[i])
7573 w->func[i](w->opaque[i]);
7574 } else if (ret2 == WAIT_TIMEOUT) {
7575 } else {
7576 err = GetLastError();
7577 fprintf(stderr, "WaitForSingleObject error %d %d\n", i, err);
7578 }
7579 }
7580 } else if (ret == WAIT_TIMEOUT) {
7581 } else {
7582 err = GetLastError();
7583 fprintf(stderr, "WaitForMultipleObjects error %d %d\n", ret, err);
7584 }
7585 }
7586 #endif
7587 /* poll any events */
7588 /* XXX: separate device handlers from system ones */
7589 nfds = -1;
7590 FD_ZERO(&rfds);
7591 FD_ZERO(&wfds);
7592 FD_ZERO(&xfds);
7593 for(ioh = first_io_handler; ioh != NULL; ioh = ioh->next) {
7594 if (ioh->deleted)
7595 continue;
7596 if (ioh->fd_read &&
7597 (!ioh->fd_read_poll ||
7598 ioh->fd_read_poll(ioh->opaque) != 0)) {
7599 FD_SET(ioh->fd, &rfds);
7600 if (ioh->fd > nfds)
7601 nfds = ioh->fd;
7602 }
7603 if (ioh->fd_write) {
7604 FD_SET(ioh->fd, &wfds);
7605 if (ioh->fd > nfds)
7606 nfds = ioh->fd;
7607 }
7608 }
7609
7610 #ifdef _WIN32
7611 tv.tv_sec = 0;
7612 tv.tv_usec = 0;
7613 #else
7614 tv.tv_sec = timeout / 1000;
7615 tv.tv_usec = (timeout % 1000) * 1000;
7616 #endif
7617 #if defined(CONFIG_SLIRP)
7618 if (slirp_inited) {
7619 slirp_select_fill(&nfds, &rfds, &wfds, &xfds);
7620 }
7621 #endif
7622 ret = qemu_select(nfds + 1, &rfds, &wfds, &xfds, &tv);
7623 if (ret > 0) {
7624 IOHandlerRecord **pioh;
7625
7626 for(ioh = first_io_handler; ioh != NULL; ioh = ioh->next) {
7627 if (!ioh->deleted && ioh->fd_read && FD_ISSET(ioh->fd, &rfds)) {
7628 ioh->fd_read(ioh->opaque);
7629 if (!(ioh->fd_read_poll && ioh->fd_read_poll(ioh->opaque)))
7630 FD_CLR(ioh->fd, &rfds);
7631 }
7632 if (!ioh->deleted && ioh->fd_write && FD_ISSET(ioh->fd, &wfds)) {
7633 ioh->fd_write(ioh->opaque);
7634 }
7635 }
7636
7637 /* remove deleted IO handlers */
7638 pioh = &first_io_handler;
7639 while (*pioh) {
7640 ioh = *pioh;
7641 if (ioh->deleted) {
7642 *pioh = ioh->next;
7643 qemu_free(ioh);
7644 } else
7645 pioh = &ioh->next;
7646 }
7647 }
7648 #if defined(CONFIG_SLIRP)
7649 if (slirp_inited) {
7650 if (ret < 0) {
7651 FD_ZERO(&rfds);
7652 FD_ZERO(&wfds);
7653 FD_ZERO(&xfds);
7654 }
7655 slirp_select_poll(&rfds, &wfds, &xfds);
7656 }
7657 #endif
7658 qemu_aio_poll();
7659 if (vm_running) {
7660 if (likely(!cur_cpu || !(cur_cpu->singlestep_enabled & SSTEP_NOTIMER)))
7661 qemu_run_timers(&active_timers[QEMU_TIMER_VIRTUAL],
7662 qemu_get_clock(vm_clock));
7663 /* run dma transfers, if any */
7664 DMA_run();
7665 }
7666
7667 /* real time timers */
7668 qemu_run_timers(&active_timers[QEMU_TIMER_REALTIME],
7669 qemu_get_clock(rt_clock));
7670
7671 if (alarm_timer->flags & ALARM_FLAG_EXPIRED) {
7672 alarm_timer->flags &= ~(ALARM_FLAG_EXPIRED);
7673 qemu_rearm_alarm_timer(alarm_timer);
7674 }
7675
7676 /* Check bottom-halves last in case any of the earlier events triggered
7677 them. */
7678 qemu_bh_poll();
7679
7680 }
7681
7682 static int main_loop(void)
7683 {
7684 int ret, timeout;
7685 #ifdef CONFIG_PROFILER
7686 int64_t ti;
7687 #endif
7688 CPUState *env;
7689
7690
7691 if (kvm_enabled()) {
7692 kvm_main_loop();
7693 cpu_disable_ticks();
7694 return 0;
7695 }
7696
7697 cur_cpu = first_cpu;
7698 next_cpu = cur_cpu->next_cpu ?: first_cpu;
7699 for(;;) {
7700 if (vm_running) {
7701
7702 for(;;) {
7703 /* get next cpu */
7704 env = next_cpu;
7705 #ifdef CONFIG_PROFILER
7706 ti = profile_getclock();
7707 #endif
7708 if (use_icount) {
7709 int64_t count;
7710 int decr;
7711 qemu_icount -= (env->icount_decr.u16.low + env->icount_extra);
7712 env->icount_decr.u16.low = 0;
7713 env->icount_extra = 0;
7714 count = qemu_next_deadline();
7715 count = (count + (1 << icount_time_shift) - 1)
7716 >> icount_time_shift;
7717 qemu_icount += count;
7718 decr = (count > 0xffff) ? 0xffff : count;
7719 count -= decr;
7720 env->icount_decr.u16.low = decr;
7721 env->icount_extra = count;
7722 }
7723 ret = cpu_exec(env);
7724 #ifdef CONFIG_PROFILER
7725 qemu_time += profile_getclock() - ti;
7726 #endif
7727 if (use_icount) {
7728 /* Fold pending instructions back into the
7729 instruction counter, and clear the interrupt flag. */
7730 qemu_icount -= (env->icount_decr.u16.low
7731 + env->icount_extra);
7732 env->icount_decr.u32 = 0;
7733 env->icount_extra = 0;
7734 }
7735 next_cpu = env->next_cpu ?: first_cpu;
7736 if (event_pending && likely(ret != EXCP_DEBUG)) {
7737 ret = EXCP_INTERRUPT;
7738 event_pending = 0;
7739 break;
7740 }
7741 if (ret == EXCP_HLT) {
7742 /* Give the next CPU a chance to run. */
7743 cur_cpu = env;
7744 continue;
7745 }
7746 if (ret != EXCP_HALTED)
7747 break;
7748 /* all CPUs are halted ? */
7749 if (env == cur_cpu)
7750 break;
7751 }
7752 cur_cpu = env;
7753
7754 if (shutdown_requested) {
7755 ret = EXCP_INTERRUPT;
7756 if (no_shutdown) {
7757 vm_stop(0);
7758 no_shutdown = 0;
7759 }
7760 else
7761 break;
7762 }
7763 if (reset_requested) {
7764 reset_requested = 0;
7765 qemu_system_reset();
7766 if (kvm_enabled())
7767 kvm_load_registers(env);
7768 ret = EXCP_INTERRUPT;
7769 }
7770 if (powerdown_requested) {
7771 powerdown_requested = 0;
7772 qemu_system_powerdown();
7773 ret = EXCP_INTERRUPT;
7774 }
7775 if (unlikely(ret == EXCP_DEBUG)) {
7776 vm_stop(EXCP_DEBUG);
7777 }
7778 /* If all cpus are halted then wait until the next IRQ */
7779 /* XXX: use timeout computed from timers */
7780 if (ret == EXCP_HALTED) {
7781 if (use_icount) {
7782 int64_t add;
7783 int64_t delta;
7784 /* Advance virtual time to the next event. */
7785 if (use_icount == 1) {
7786 /* When not using an adaptive execution frequency
7787 we tend to get badly out of sync with real time,
7788 so just delay for a reasonable amount of time. */
7789 delta = 0;
7790 } else {
7791 delta = cpu_get_icount() - cpu_get_clock();
7792 }
7793 if (delta > 0) {
7794 /* If virtual time is ahead of real time then just
7795 wait for IO. */
7796 timeout = (delta / 1000000) + 1;
7797 } else {
7798 /* Wait for either IO to occur or the next
7799 timer event. */
7800 add = qemu_next_deadline();
7801 /* We advance the timer before checking for IO.
7802 Limit the amount we advance so that early IO
7803 activity won't get the guest too far ahead. */
7804 if (add > 10000000)
7805 add = 10000000;
7806 delta += add;
7807 add = (add + (1 << icount_time_shift) - 1)
7808 >> icount_time_shift;
7809 qemu_icount += add;
7810 timeout = delta / 1000000;
7811 if (timeout < 0)
7812 timeout = 0;
7813 }
7814 } else {
7815 timeout = 10;
7816 }
7817 } else {
7818 timeout = 0;
7819 }
7820 } else {
7821 timeout = 10;
7822 }
7823 #ifdef CONFIG_PROFILER
7824 ti = profile_getclock();
7825 #endif
7826 main_loop_wait(timeout);
7827 #ifdef CONFIG_PROFILER
7828 dev_time += profile_getclock() - ti;
7829 #endif
7830 }
7831 cpu_disable_ticks();
7832 return ret;
7833 }
7834
7835 static void help(int exitcode)
7836 {
7837 printf("QEMU PC emulator version " QEMU_VERSION " (" KVM_VERSION ")"
7838 ", Copyright (c) 2003-2008 Fabrice Bellard\n"
7839 "usage: %s [options] [disk_image]\n"
7840 "\n"
7841 "'disk_image' is a raw hard image image for IDE hard disk 0\n"
7842 "\n"
7843 "Standard options:\n"
7844 "-M machine select emulated machine (-M ? for list)\n"
7845 "-cpu cpu select CPU (-cpu ? for list)\n"
7846 "-fda/-fdb file use 'file' as floppy disk 0/1 image\n"
7847 "-hda/-hdb file use 'file' as IDE hard disk 0/1 image\n"
7848 "-hdc/-hdd file use 'file' as IDE hard disk 2/3 image\n"
7849 "-cdrom file use 'file' as IDE cdrom image (cdrom is ide1 master)\n"
7850 "-drive [file=file][,if=type][,bus=n][,unit=m][,media=d][,index=i]\n"
7851 " [,cyls=c,heads=h,secs=s[,trans=t]][,snapshot=on|off]\n"
7852 " [,cache=on|off][,format=f][,boot=on|off]\n"
7853 " use 'file' as a drive image\n"
7854 "-mtdblock file use 'file' as on-board Flash memory image\n"
7855 "-sd file use 'file' as SecureDigital card image\n"
7856 "-pflash file use 'file' as a parallel flash image\n"
7857 "-boot [a|c|d|n] boot on floppy (a), hard disk (c), CD-ROM (d), or network (n)\n"
7858 "-snapshot write to temporary files instead of disk image files\n"
7859 #ifdef CONFIG_SDL
7860 "-no-frame open SDL window without a frame and window decorations\n"
7861 "-alt-grab use Ctrl-Alt-Shift to grab mouse (instead of Ctrl-Alt)\n"
7862 "-no-quit disable SDL window close capability\n"
7863 #endif
7864 #ifdef TARGET_I386
7865 "-no-fd-bootchk disable boot signature checking for floppy disks\n"
7866 #endif
7867 "-m megs set virtual RAM size to megs MB [default=%d]\n"
7868 "-smp n set the number of CPUs to 'n' [default=1]\n"
7869 "-nographic disable graphical output and redirect serial I/Os to console\n"
7870 "-portrait rotate graphical output 90 deg left (only PXA LCD)\n"
7871 #ifndef _WIN32
7872 "-k language use keyboard layout (for example \"fr\" for French)\n"
7873 #endif
7874 #ifdef HAS_AUDIO
7875 "-audio-help print list of audio drivers and their options\n"
7876 "-soundhw c1,... enable audio support\n"
7877 " and only specified sound cards (comma separated list)\n"
7878 " use -soundhw ? to get the list of supported cards\n"
7879 " use -soundhw all to enable all of them\n"
7880 #endif
7881 "-localtime set the real time clock to local time [default=utc]\n"
7882 "-full-screen start in full screen\n"
7883 #ifdef TARGET_I386
7884 "-win2k-hack use it when installing Windows 2000 to avoid a disk full bug\n"
7885 #endif
7886 "-usb enable the USB driver (will be the default soon)\n"
7887 "-usbdevice name add the host or guest USB device 'name'\n"
7888 #if defined(TARGET_PPC) || defined(TARGET_SPARC)
7889 "-g WxH[xDEPTH] Set the initial graphical resolution and depth\n"
7890 #endif
7891 "-name string set the name of the guest\n"
7892 "\n"
7893 "Network options:\n"
7894 "-net nic[,vlan=n][,macaddr=addr][,model=type]\n"
7895 " create a new Network Interface Card and connect it to VLAN 'n'\n"
7896 #ifdef CONFIG_SLIRP
7897 "-net user[,vlan=n][,hostname=host]\n"
7898 " connect the user mode network stack to VLAN 'n' and send\n"
7899 " hostname 'host' to DHCP clients\n"
7900 #endif
7901 #ifdef _WIN32
7902 "-net tap[,vlan=n],ifname=name\n"
7903 " connect the host TAP network interface to VLAN 'n'\n"
7904 #else
7905 "-net tap[,vlan=n][,fd=h][,ifname=name][,script=file][,downscript=dfile]\n"
7906 " connect the host TAP network interface to VLAN 'n' and use the\n"
7907 " network scripts 'file' (default=%s)\n"
7908 " and 'dfile' (default=%s);\n"
7909 " use '[down]script=no' to disable script execution;\n"
7910 " use 'fd=h' to connect to an already opened TAP interface\n"
7911 #endif
7912 "-net socket[,vlan=n][,fd=h][,listen=[host]:port][,connect=host:port]\n"
7913 " connect the vlan 'n' to another VLAN using a socket connection\n"
7914 "-net socket[,vlan=n][,fd=h][,mcast=maddr:port]\n"
7915 " connect the vlan 'n' to multicast maddr and port\n"
7916 "-net none use it alone to have zero network devices; if no -net option\n"
7917 " is provided, the default is '-net nic -net user'\n"
7918 "\n"
7919 #ifdef CONFIG_SLIRP
7920 "-tftp dir allow tftp access to files in dir [-net user]\n"
7921 "-bootp file advertise file in BOOTP replies\n"
7922 #ifndef _WIN32
7923 "-smb dir allow SMB access to files in 'dir' [-net user]\n"
7924 #endif
7925 "-redir [tcp|udp]:host-port:[guest-host]:guest-port\n"
7926 " redirect TCP or UDP connections from host to guest [-net user]\n"
7927 #endif
7928 "\n"
7929 "Linux boot specific:\n"
7930 "-kernel bzImage use 'bzImage' as kernel image\n"
7931 "-append cmdline use 'cmdline' as kernel command line\n"
7932 "-initrd file use 'file' as initial ram disk\n"
7933 "\n"
7934 "Debug/Expert options:\n"
7935 "-monitor dev redirect the monitor to char device 'dev'\n"
7936 "-serial dev redirect the serial port to char device 'dev'\n"
7937 "-parallel dev redirect the parallel port to char device 'dev'\n"
7938 "-pidfile file Write PID to 'file'\n"
7939 "-S freeze CPU at startup (use 'c' to start execution)\n"
7940 "-s wait gdb connection to port\n"
7941 "-p port set gdb connection port [default=%s]\n"
7942 "-d item1,... output log to %s (use -d ? for a list of log items)\n"
7943 "-hdachs c,h,s[,t] force hard disk 0 physical geometry and the optional BIOS\n"
7944 " translation (t=none or lba) (usually qemu can guess them)\n"
7945 "-L path set the directory for the BIOS, VGA BIOS and keymaps\n"
7946 #ifdef USE_KQEMU
7947 "-kernel-kqemu enable KQEMU full virtualization (default is user mode only)\n"
7948 "-no-kqemu disable KQEMU kernel module usage\n"
7949 #endif
7950 #ifdef USE_KVM
7951 #ifndef NO_CPU_EMULATION
7952 "-no-kvm disable KVM hardware virtualization\n"
7953 #endif
7954 "-no-kvm-irqchip disable KVM kernel mode PIC/IOAPIC/LAPIC\n"
7955 "-no-kvm-pit disable KVM kernel mode PIT\n"
7956 #endif
7957 #ifdef TARGET_I386
7958 "-std-vga simulate a standard VGA card with VESA Bochs Extensions\n"
7959 " (default is CL-GD5446 PCI VGA)\n"
7960 "-no-acpi disable ACPI\n"
7961 #endif
7962 #ifdef CONFIG_CURSES
7963 "-curses use a curses/ncurses interface instead of SDL\n"
7964 #endif
7965 "-no-reboot exit instead of rebooting\n"
7966 "-no-shutdown stop before shutdown\n"
7967 "-loadvm [tag|id] start right away with a saved state (loadvm in monitor)\n"
7968 "-vnc display start a VNC server on display\n"
7969 #ifndef _WIN32
7970 "-daemonize daemonize QEMU after initializing\n"
7971 #endif
7972 "-tdf inject timer interrupts that got lost\n"
7973 "-kvm-shadow-memory megs set the amount of shadow pages to be allocated\n"
7974 "-mem-path set the path to hugetlbfs/tmpfs mounted directory, also enables allocation of guest memory with huge pages\n"
7975 "-option-rom rom load a file, rom, into the option ROM space\n"
7976 #ifdef TARGET_SPARC
7977 "-prom-env variable=value set OpenBIOS nvram variables\n"
7978 #endif
7979 "-clock force the use of the given methods for timer alarm.\n"
7980 " To see what timers are available use -clock ?\n"
7981 "-startdate select initial date of the clock\n"
7982 "-icount [N|auto]\n"
7983 " Enable virtual instruction counter with 2^N clock ticks per instruction\n"
7984 "\n"
7985 "During emulation, the following keys are useful:\n"
7986 "ctrl-alt-f toggle full screen\n"
7987 "ctrl-alt-n switch to virtual console 'n'\n"
7988 "ctrl-alt toggle mouse and keyboard grab\n"
7989 "\n"
7990 "When using -nographic, press 'ctrl-a h' to get some help.\n"
7991 ,
7992 "qemu",
7993 DEFAULT_RAM_SIZE,
7994 #ifndef _WIN32
7995 DEFAULT_NETWORK_SCRIPT,
7996 DEFAULT_NETWORK_DOWN_SCRIPT,
7997 #endif
7998 DEFAULT_GDBSTUB_PORT,
7999 "/tmp/qemu.log");
8000 exit(exitcode);
8001 }
8002
8003 #define HAS_ARG 0x0001
8004
8005 enum {
8006 QEMU_OPTION_h,
8007
8008 QEMU_OPTION_M,
8009 QEMU_OPTION_cpu,
8010 QEMU_OPTION_fda,
8011 QEMU_OPTION_fdb,
8012 QEMU_OPTION_hda,
8013 QEMU_OPTION_hdb,
8014 QEMU_OPTION_hdc,
8015 QEMU_OPTION_hdd,
8016 QEMU_OPTION_drive,
8017 QEMU_OPTION_cdrom,
8018 QEMU_OPTION_mtdblock,
8019 QEMU_OPTION_sd,
8020 QEMU_OPTION_pflash,
8021 QEMU_OPTION_boot,
8022 QEMU_OPTION_snapshot,
8023 #ifdef TARGET_I386
8024 QEMU_OPTION_no_fd_bootchk,
8025 #endif
8026 QEMU_OPTION_m,
8027 QEMU_OPTION_nographic,
8028 QEMU_OPTION_portrait,
8029 #ifdef HAS_AUDIO
8030 QEMU_OPTION_audio_help,
8031 QEMU_OPTION_soundhw,
8032 #endif
8033
8034 QEMU_OPTION_net,
8035 QEMU_OPTION_tftp,
8036 QEMU_OPTION_bootp,
8037 QEMU_OPTION_smb,
8038 QEMU_OPTION_redir,
8039
8040 QEMU_OPTION_kernel,
8041 QEMU_OPTION_append,
8042 QEMU_OPTION_initrd,
8043
8044 QEMU_OPTION_S,
8045 QEMU_OPTION_s,
8046 QEMU_OPTION_p,
8047 QEMU_OPTION_d,
8048 QEMU_OPTION_hdachs,
8049 QEMU_OPTION_L,
8050 QEMU_OPTION_bios,
8051 QEMU_OPTION_k,
8052 QEMU_OPTION_localtime,
8053 QEMU_OPTION_cirrusvga,
8054 QEMU_OPTION_vmsvga,
8055 QEMU_OPTION_g,
8056 QEMU_OPTION_std_vga,
8057 QEMU_OPTION_echr,
8058 QEMU_OPTION_monitor,
8059 QEMU_OPTION_serial,
8060 QEMU_OPTION_parallel,
8061 QEMU_OPTION_loadvm,
8062 QEMU_OPTION_full_screen,
8063 QEMU_OPTION_no_frame,
8064 QEMU_OPTION_alt_grab,
8065 QEMU_OPTION_no_quit,
8066 QEMU_OPTION_pidfile,
8067 QEMU_OPTION_no_kqemu,
8068 QEMU_OPTION_kernel_kqemu,
8069 QEMU_OPTION_win2k_hack,
8070 QEMU_OPTION_usb,
8071 QEMU_OPTION_usbdevice,
8072 QEMU_OPTION_smp,
8073 QEMU_OPTION_vnc,
8074 QEMU_OPTION_no_acpi,
8075 QEMU_OPTION_curses,
8076 QEMU_OPTION_no_kvm,
8077 QEMU_OPTION_no_kvm_irqchip,
8078 QEMU_OPTION_no_kvm_pit,
8079 QEMU_OPTION_no_reboot,
8080 QEMU_OPTION_no_shutdown,
8081 QEMU_OPTION_show_cursor,
8082 QEMU_OPTION_daemonize,
8083 QEMU_OPTION_option_rom,
8084 QEMU_OPTION_semihosting,
8085 QEMU_OPTION_cpu_vendor,
8086 QEMU_OPTION_name,
8087 QEMU_OPTION_prom_env,
8088 QEMU_OPTION_old_param,
8089 QEMU_OPTION_clock,
8090 QEMU_OPTION_startdate,
8091 QEMU_OPTION_tb_size,
8092 QEMU_OPTION_icount,
8093 QEMU_OPTION_translation,
8094 QEMU_OPTION_incoming,
8095 QEMU_OPTION_tdf,
8096 QEMU_OPTION_kvm_shadow_memory,
8097 QEMU_OPTION_mempath,
8098 };
8099
8100 typedef struct QEMUOption {
8101 const char *name;
8102 int flags;
8103 int index;
8104 } QEMUOption;
8105
8106 const QEMUOption qemu_options[] = {
8107 { "h", 0, QEMU_OPTION_h },
8108 { "help", 0, QEMU_OPTION_h },
8109
8110 { "M", HAS_ARG, QEMU_OPTION_M },
8111 { "cpu", HAS_ARG, QEMU_OPTION_cpu },
8112 { "fda", HAS_ARG, QEMU_OPTION_fda },
8113 { "fdb", HAS_ARG, QEMU_OPTION_fdb },
8114 { "hda", HAS_ARG, QEMU_OPTION_hda },
8115 { "hdb", HAS_ARG, QEMU_OPTION_hdb },
8116 { "hdc", HAS_ARG, QEMU_OPTION_hdc },
8117 { "hdd", HAS_ARG, QEMU_OPTION_hdd },
8118 { "drive", HAS_ARG, QEMU_OPTION_drive },
8119 { "cdrom", HAS_ARG, QEMU_OPTION_cdrom },
8120 { "mtdblock", HAS_ARG, QEMU_OPTION_mtdblock },
8121 { "sd", HAS_ARG, QEMU_OPTION_sd },
8122 { "pflash", HAS_ARG, QEMU_OPTION_pflash },
8123 { "boot", HAS_ARG, QEMU_OPTION_boot },
8124 { "snapshot", 0, QEMU_OPTION_snapshot },
8125 #ifdef TARGET_I386
8126 { "no-fd-bootchk", 0, QEMU_OPTION_no_fd_bootchk },
8127 #endif
8128 { "m", HAS_ARG, QEMU_OPTION_m },
8129 { "nographic", 0, QEMU_OPTION_nographic },
8130 { "portrait", 0, QEMU_OPTION_portrait },
8131 { "k", HAS_ARG, QEMU_OPTION_k },
8132 #ifdef HAS_AUDIO
8133 { "audio-help", 0, QEMU_OPTION_audio_help },
8134 { "soundhw", HAS_ARG, QEMU_OPTION_soundhw },
8135 #endif
8136
8137 { "net", HAS_ARG, QEMU_OPTION_net},
8138 #ifdef CONFIG_SLIRP
8139 { "tftp", HAS_ARG, QEMU_OPTION_tftp },
8140 { "bootp", HAS_ARG, QEMU_OPTION_bootp },
8141 #ifndef _WIN32
8142 { "smb", HAS_ARG, QEMU_OPTION_smb },
8143 #endif
8144 { "redir", HAS_ARG, QEMU_OPTION_redir },
8145 #endif
8146
8147 { "kernel", HAS_ARG, QEMU_OPTION_kernel },
8148 { "append", HAS_ARG, QEMU_OPTION_append },
8149 { "initrd", HAS_ARG, QEMU_OPTION_initrd },
8150
8151 { "S", 0, QEMU_OPTION_S },
8152 { "s", 0, QEMU_OPTION_s },
8153 { "p", HAS_ARG, QEMU_OPTION_p },
8154 { "d", HAS_ARG, QEMU_OPTION_d },
8155 { "hdachs", HAS_ARG, QEMU_OPTION_hdachs },
8156 { "L", HAS_ARG, QEMU_OPTION_L },
8157 { "bios", HAS_ARG, QEMU_OPTION_bios },
8158 #ifdef USE_KQEMU
8159 { "no-kqemu", 0, QEMU_OPTION_no_kqemu },
8160 { "kernel-kqemu", 0, QEMU_OPTION_kernel_kqemu },
8161 #endif
8162 #ifdef USE_KVM
8163 #ifndef NO_CPU_EMULATION
8164 { "no-kvm", 0, QEMU_OPTION_no_kvm },
8165 #endif
8166 { "no-kvm-irqchip", 0, QEMU_OPTION_no_kvm_irqchip },
8167 { "no-kvm-pit", 0, QEMU_OPTION_no_kvm_pit },
8168 #endif
8169 #if defined(TARGET_PPC) || defined(TARGET_SPARC)
8170 { "g", 1, QEMU_OPTION_g },
8171 #endif
8172 { "localtime", 0, QEMU_OPTION_localtime },
8173 { "std-vga", 0, QEMU_OPTION_std_vga },
8174 { "echr", HAS_ARG, QEMU_OPTION_echr },
8175 { "monitor", HAS_ARG, QEMU_OPTION_monitor },
8176 { "serial", HAS_ARG, QEMU_OPTION_serial },
8177 { "parallel", HAS_ARG, QEMU_OPTION_parallel },
8178 { "loadvm", HAS_ARG, QEMU_OPTION_loadvm },
8179 { "incoming", 1, QEMU_OPTION_incoming },
8180 { "full-screen", 0, QEMU_OPTION_full_screen },
8181 #ifdef CONFIG_SDL
8182 { "no-frame", 0, QEMU_OPTION_no_frame },
8183 { "alt-grab", 0, QEMU_OPTION_alt_grab },
8184 { "no-quit", 0, QEMU_OPTION_no_quit },
8185 #endif
8186 { "pidfile", HAS_ARG, QEMU_OPTION_pidfile },
8187 { "win2k-hack", 0, QEMU_OPTION_win2k_hack },
8188 { "usbdevice", HAS_ARG, QEMU_OPTION_usbdevice },
8189 { "smp", HAS_ARG, QEMU_OPTION_smp },
8190 { "vnc", HAS_ARG, QEMU_OPTION_vnc },
8191 #ifdef CONFIG_CURSES
8192 { "curses", 0, QEMU_OPTION_curses },
8193 #endif
8194
8195 /* temporary options */
8196 { "usb", 0, QEMU_OPTION_usb },
8197 { "cirrusvga", 0, QEMU_OPTION_cirrusvga },
8198 { "vmwarevga", 0, QEMU_OPTION_vmsvga },
8199 { "no-acpi", 0, QEMU_OPTION_no_acpi },
8200 { "no-reboot", 0, QEMU_OPTION_no_reboot },
8201 { "no-shutdown", 0, QEMU_OPTION_no_shutdown },
8202 { "show-cursor", 0, QEMU_OPTION_show_cursor },
8203 { "daemonize", 0, QEMU_OPTION_daemonize },
8204 { "option-rom", HAS_ARG, QEMU_OPTION_option_rom },
8205 #if defined(TARGET_ARM) || defined(TARGET_M68K)
8206 { "semihosting", 0, QEMU_OPTION_semihosting },
8207 #endif
8208 { "tdf", 0, QEMU_OPTION_tdf }, /* enable time drift fix */
8209 { "kvm-shadow-memory", HAS_ARG, QEMU_OPTION_kvm_shadow_memory },
8210 { "name", HAS_ARG, QEMU_OPTION_name },
8211 #if defined(TARGET_SPARC)
8212 { "prom-env", HAS_ARG, QEMU_OPTION_prom_env },
8213 #endif
8214 { "cpu-vendor", HAS_ARG, QEMU_OPTION_cpu_vendor },
8215 #if defined(TARGET_ARM)
8216 { "old-param", 0, QEMU_OPTION_old_param },
8217 #endif
8218 { "clock", HAS_ARG, QEMU_OPTION_clock },
8219 { "startdate", HAS_ARG, QEMU_OPTION_startdate },
8220 { "tb-size", HAS_ARG, QEMU_OPTION_tb_size },
8221 { "icount", HAS_ARG, QEMU_OPTION_icount },
8222 { "mem-path", HAS_ARG, QEMU_OPTION_mempath },
8223 { NULL },
8224 };
8225
8226 /* password input */
8227
8228 int qemu_key_check(BlockDriverState *bs, const char *name)
8229 {
8230 char password[256];
8231 int i;
8232
8233 if (!bdrv_is_encrypted(bs))
8234 return 0;
8235
8236 term_printf("%s is encrypted.\n", name);
8237 for(i = 0; i < 3; i++) {
8238 monitor_readline("Password: ", 1, password, sizeof(password));
8239 if (bdrv_set_key(bs, password) == 0)
8240 return 0;
8241 term_printf("invalid password\n");
8242 }
8243 return -EPERM;
8244 }
8245
8246 static BlockDriverState *get_bdrv(int index)
8247 {
8248 if (index > nb_drives)
8249 return NULL;
8250 return drives_table[index].bdrv;
8251 }
8252
8253 static void read_passwords(void)
8254 {
8255 BlockDriverState *bs;
8256 int i;
8257
8258 for(i = 0; i < 6; i++) {
8259 bs = get_bdrv(i);
8260 if (bs)
8261 qemu_key_check(bs, bdrv_get_device_name(bs));
8262 }
8263 }
8264
8265 #ifdef HAS_AUDIO
8266 struct soundhw soundhw[] = {
8267 #ifdef HAS_AUDIO_CHOICE
8268 #if defined(TARGET_I386) || defined(TARGET_MIPS)
8269 {
8270 "pcspk",
8271 "PC speaker",
8272 0,
8273 1,
8274 { .init_isa = pcspk_audio_init }
8275 },
8276 #endif
8277 {
8278 "sb16",
8279 "Creative Sound Blaster 16",
8280 0,
8281 1,
8282 { .init_isa = SB16_init }
8283 },
8284
8285 #ifdef CONFIG_CS4231A
8286 {
8287 "cs4231a",
8288 "CS4231A",
8289 0,
8290 1,
8291 { .init_isa = cs4231a_init }
8292 },
8293 #endif
8294
8295 #ifdef CONFIG_ADLIB
8296 {
8297 "adlib",
8298 #ifdef HAS_YMF262
8299 "Yamaha YMF262 (OPL3)",
8300 #else
8301 "Yamaha YM3812 (OPL2)",
8302 #endif
8303 0,
8304 1,
8305 { .init_isa = Adlib_init }
8306 },
8307 #endif
8308
8309 #ifdef CONFIG_GUS
8310 {
8311 "gus",
8312 "Gravis Ultrasound GF1",
8313 0,
8314 1,
8315 { .init_isa = GUS_init }
8316 },
8317 #endif
8318
8319 #ifdef CONFIG_AC97
8320 {
8321 "ac97",
8322 "Intel 82801AA AC97 Audio",
8323 0,
8324 0,
8325 { .init_pci = ac97_init }
8326 },
8327 #endif
8328
8329 {
8330 "es1370",
8331 "ENSONIQ AudioPCI ES1370",
8332 0,
8333 0,
8334 { .init_pci = es1370_init }
8335 },
8336 #endif
8337
8338 { NULL, NULL, 0, 0, { NULL } }
8339 };
8340
8341 static void select_soundhw (const char *optarg)
8342 {
8343 struct soundhw *c;
8344
8345 if (*optarg == '?') {
8346 show_valid_cards:
8347
8348 printf ("Valid sound card names (comma separated):\n");
8349 for (c = soundhw; c->name; ++c) {
8350 printf ("%-11s %s\n", c->name, c->descr);
8351 }
8352 printf ("\n-soundhw all will enable all of the above\n");
8353 exit (*optarg != '?');
8354 }
8355 else {
8356 size_t l;
8357 const char *p;
8358 char *e;
8359 int bad_card = 0;
8360
8361 if (!strcmp (optarg, "all")) {
8362 for (c = soundhw; c->name; ++c) {
8363 c->enabled = 1;
8364 }
8365 return;
8366 }
8367
8368 p = optarg;
8369 while (*p) {
8370 e = strchr (p, ',');
8371 l = !e ? strlen (p) : (size_t) (e - p);
8372
8373 for (c = soundhw; c->name; ++c) {
8374 if (!strncmp (c->name, p, l)) {
8375 c->enabled = 1;
8376 break;
8377 }
8378 }
8379
8380 if (!c->name) {
8381 if (l > 80) {
8382 fprintf (stderr,
8383 "Unknown sound card name (too big to show)\n");
8384 }
8385 else {
8386 fprintf (stderr, "Unknown sound card name `%.*s'\n",
8387 (int) l, p);
8388 }
8389 bad_card = 1;
8390 }
8391 p += l + (e != NULL);
8392 }
8393
8394 if (bad_card)
8395 goto show_valid_cards;
8396 }
8397 }
8398 #endif
8399
8400 #ifdef _WIN32
8401 static BOOL WINAPI qemu_ctrl_handler(DWORD type)
8402 {
8403 exit(STATUS_CONTROL_C_EXIT);
8404 return TRUE;
8405 }
8406 #endif
8407
8408 #define MAX_NET_CLIENTS 32
8409
8410 static int saved_argc;
8411 static char **saved_argv;
8412
8413 void qemu_get_launch_info(int *argc, char ***argv, int *opt_daemonize, const char **opt_incoming)
8414 {
8415 *argc = saved_argc;
8416 *argv = saved_argv;
8417 *opt_daemonize = daemonize;
8418 *opt_incoming = incoming;
8419 }
8420
8421
8422 static int gethugepagesize(void)
8423 {
8424 int ret, fd;
8425 char buf[4096];
8426 char *needle = "Hugepagesize:";
8427 char *size;
8428 unsigned long hugepagesize;
8429
8430 fd = open("/proc/meminfo", O_RDONLY);
8431 if (fd < 0) {
8432 perror("open");
8433 exit(0);
8434 }
8435
8436 ret = read(fd, buf, sizeof(buf));
8437 if (ret < 0) {
8438 perror("read");
8439 exit(0);
8440 }
8441
8442 size = strstr(buf, needle);
8443 if (!size)
8444 return 0;
8445 size += strlen(needle);
8446 hugepagesize = strtol(size, NULL, 0);
8447 return hugepagesize;
8448 }
8449
8450 void *alloc_mem_area(unsigned long memory, const char *path)
8451 {
8452 char *filename;
8453 void *area;
8454 int fd;
8455
8456 if (asprintf(&filename, "%s/kvm.XXXXXX", path) == -1)
8457 return NULL;
8458
8459 hpagesize = gethugepagesize() * 1024;
8460 if (!hpagesize)
8461 return NULL;
8462
8463 fd = mkstemp(filename);
8464 if (fd < 0) {
8465 perror("mkstemp");
8466 free(filename);
8467 return NULL;
8468 }
8469 unlink(filename);
8470 free(filename);
8471
8472 memory = (memory+hpagesize-1) & ~(hpagesize-1);
8473
8474 /*
8475 * ftruncate is not supported by hugetlbfs in older
8476 * hosts, so don't bother checking for errors.
8477 * If anything goes wrong with it under other filesystems,
8478 * mmap will fail.
8479 */
8480 ftruncate(fd, memory);
8481
8482 area = mmap(0, memory, PROT_READ|PROT_WRITE, MAP_PRIVATE, fd, 0);
8483 if (area == MAP_FAILED) {
8484 perror("mmap");
8485 close(fd);
8486 return NULL;
8487 }
8488
8489 return area;
8490 }
8491
8492 void *qemu_alloc_physram(unsigned long memory)
8493 {
8494 void *area = NULL;
8495
8496 if (mem_path)
8497 area = alloc_mem_area(memory, mem_path);
8498 if (!area)
8499 area = qemu_vmalloc(memory);
8500
8501 return area;
8502 }
8503
8504 int main(int argc, char **argv)
8505 {
8506 #ifdef CONFIG_GDBSTUB
8507 int use_gdbstub;
8508 const char *gdbstub_port;
8509 #endif
8510 uint32_t boot_devices_bitmap = 0;
8511 int i;
8512 int snapshot, linux_boot, net_boot;
8513 const char *initrd_filename;
8514 const char *kernel_filename, *kernel_cmdline;
8515 const char *boot_devices = "";
8516 DisplayState *ds = &display_state;
8517 int cyls, heads, secs, translation;
8518 const char *net_clients[MAX_NET_CLIENTS];
8519 int nb_net_clients;
8520 int hda_index;
8521 int optind;
8522 const char *r, *optarg;
8523 CharDriverState *monitor_hd;
8524 const char *monitor_device;
8525 const char *serial_devices[MAX_SERIAL_PORTS];
8526 int serial_device_index;
8527 const char *parallel_devices[MAX_PARALLEL_PORTS];
8528 int parallel_device_index;
8529 const char *loadvm = NULL;
8530 QEMUMachine *machine;
8531 const char *cpu_model;
8532 const char *usb_devices[MAX_USB_CMDLINE];
8533 int usb_devices_index;
8534 int fds[2];
8535 int tb_size;
8536 const char *pid_file = NULL;
8537 VLANState *vlan;
8538
8539 saved_argc = argc;
8540 saved_argv = argv;
8541
8542 LIST_INIT (&vm_change_state_head);
8543 #ifndef _WIN32
8544 {
8545 struct sigaction act;
8546 sigfillset(&act.sa_mask);
8547 act.sa_flags = 0;
8548 act.sa_handler = SIG_IGN;
8549 sigaction(SIGPIPE, &act, NULL);
8550 }
8551 #else
8552 SetConsoleCtrlHandler(qemu_ctrl_handler, TRUE);
8553 /* Note: cpu_interrupt() is currently not SMP safe, so we force
8554 QEMU to run on a single CPU */
8555 {
8556 HANDLE h;
8557 DWORD mask, smask;
8558 int i;
8559 h = GetCurrentProcess();
8560 if (GetProcessAffinityMask(h, &mask, &smask)) {
8561 for(i = 0; i < 32; i++) {
8562 if (mask & (1 << i))
8563 break;
8564 }
8565 if (i != 32) {
8566 mask = 1 << i;
8567 SetProcessAffinityMask(h, mask);
8568 }
8569 }
8570 }
8571 #endif
8572
8573 register_machines();
8574 machine = first_machine;
8575 cpu_model = NULL;
8576 initrd_filename = NULL;
8577 ram_size = 0;
8578 vga_ram_size = VGA_RAM_SIZE;
8579 #ifdef CONFIG_GDBSTUB
8580 use_gdbstub = 0;
8581 gdbstub_port = DEFAULT_GDBSTUB_PORT;
8582 #endif
8583 snapshot = 0;
8584 nographic = 0;
8585 curses = 0;
8586 kernel_filename = NULL;
8587 kernel_cmdline = "";
8588 cyls = heads = secs = 0;
8589 translation = BIOS_ATA_TRANSLATION_AUTO;
8590 monitor_device = "vc";
8591
8592 serial_devices[0] = "vc:80Cx24C";
8593 for(i = 1; i < MAX_SERIAL_PORTS; i++)
8594 serial_devices[i] = NULL;
8595 serial_device_index = 0;
8596
8597 parallel_devices[0] = "vc:640x480";
8598 for(i = 1; i < MAX_PARALLEL_PORTS; i++)
8599 parallel_devices[i] = NULL;
8600 parallel_device_index = 0;
8601
8602 usb_devices_index = 0;
8603
8604 nb_net_clients = 0;
8605 nb_drives = 0;
8606 nb_drives_opt = 0;
8607 hda_index = -1;
8608
8609 nb_nics = 0;
8610
8611 tb_size = 0;
8612
8613 optind = 1;
8614 for(;;) {
8615 if (optind >= argc)
8616 break;
8617 r = argv[optind];
8618 if (r[0] != '-') {
8619 hda_index = drive_add(argv[optind++], HD_ALIAS, 0);
8620 } else {
8621 const QEMUOption *popt;
8622
8623 optind++;
8624 /* Treat --foo the same as -foo. */
8625 if (r[1] == '-')
8626 r++;
8627 popt = qemu_options;
8628 for(;;) {
8629 if (!popt->name) {
8630 fprintf(stderr, "%s: invalid option -- '%s'\n",
8631 argv[0], r);
8632 exit(1);
8633 }
8634 if (!strcmp(popt->name, r + 1))
8635 break;
8636 popt++;
8637 }
8638 if (popt->flags & HAS_ARG) {
8639 if (optind >= argc) {
8640 fprintf(stderr, "%s: option '%s' requires an argument\n",
8641 argv[0], r);
8642 exit(1);
8643 }
8644 optarg = argv[optind++];
8645 } else {
8646 optarg = NULL;
8647 }
8648
8649 switch(popt->index) {
8650 case QEMU_OPTION_M:
8651 machine = find_machine(optarg);
8652 if (!machine) {
8653 QEMUMachine *m;
8654 printf("Supported machines are:\n");
8655 for(m = first_machine; m != NULL; m = m->next) {
8656 printf("%-10s %s%s\n",
8657 m->name, m->desc,
8658 m == first_machine ? " (default)" : "");
8659 }
8660 exit(*optarg != '?');
8661 }
8662 break;
8663 case QEMU_OPTION_cpu:
8664 /* hw initialization will check this */
8665 if (*optarg == '?') {
8666 /* XXX: implement xxx_cpu_list for targets that still miss it */
8667 #if defined(cpu_list)
8668 cpu_list(stdout, &fprintf);
8669 #endif
8670 exit(0);
8671 } else {
8672 cpu_model = optarg;
8673 }
8674 break;
8675 case QEMU_OPTION_initrd:
8676 initrd_filename = optarg;
8677 break;
8678 case QEMU_OPTION_hda:
8679 if (cyls == 0)
8680 hda_index = drive_add(optarg, HD_ALIAS, 0);
8681 else
8682 hda_index = drive_add(optarg, HD_ALIAS
8683 ",cyls=%d,heads=%d,secs=%d%s",
8684 0, cyls, heads, secs,
8685 translation == BIOS_ATA_TRANSLATION_LBA ?
8686 ",trans=lba" :
8687 translation == BIOS_ATA_TRANSLATION_NONE ?
8688 ",trans=none" : "");
8689 break;
8690 case QEMU_OPTION_hdb:
8691 case QEMU_OPTION_hdc:
8692 case QEMU_OPTION_hdd:
8693 drive_add(optarg, HD_ALIAS, popt->index - QEMU_OPTION_hda);
8694 break;
8695 case QEMU_OPTION_drive:
8696 drive_add(NULL, "%s", optarg);
8697 break;
8698 case QEMU_OPTION_mtdblock:
8699 drive_add(optarg, MTD_ALIAS);
8700 break;
8701 case QEMU_OPTION_sd:
8702 drive_add(optarg, SD_ALIAS);
8703 break;
8704 case QEMU_OPTION_pflash:
8705 drive_add(optarg, PFLASH_ALIAS);
8706 break;
8707 case QEMU_OPTION_snapshot:
8708 snapshot = 1;
8709 break;
8710 case QEMU_OPTION_hdachs:
8711 {
8712 const char *p;
8713 p = optarg;
8714 cyls = strtol(p, (char **)&p, 0);
8715 if (cyls < 1 || cyls > 16383)
8716 goto chs_fail;
8717 if (*p != ',')
8718 goto chs_fail;
8719 p++;
8720 heads = strtol(p, (char **)&p, 0);
8721 if (heads < 1 || heads > 16)
8722 goto chs_fail;
8723 if (*p != ',')
8724 goto chs_fail;
8725 p++;
8726 secs = strtol(p, (char **)&p, 0);
8727 if (secs < 1 || secs > 63)
8728 goto chs_fail;
8729 if (*p == ',') {
8730 p++;
8731 if (!strcmp(p, "none"))
8732 translation = BIOS_ATA_TRANSLATION_NONE;
8733 else if (!strcmp(p, "lba"))
8734 translation = BIOS_ATA_TRANSLATION_LBA;
8735 else if (!strcmp(p, "auto"))
8736 translation = BIOS_ATA_TRANSLATION_AUTO;
8737 else
8738 goto chs_fail;
8739 } else if (*p != '\0') {
8740 chs_fail:
8741 fprintf(stderr, "qemu: invalid physical CHS format\n");
8742 exit(1);
8743 }
8744 if (hda_index != -1)
8745 snprintf(drives_opt[hda_index].opt,
8746 sizeof(drives_opt[hda_index].opt),
8747 HD_ALIAS ",cyls=%d,heads=%d,secs=%d%s",
8748 0, cyls, heads, secs,
8749 translation == BIOS_ATA_TRANSLATION_LBA ?
8750 ",trans=lba" :
8751 translation == BIOS_ATA_TRANSLATION_NONE ?
8752 ",trans=none" : "");
8753 }
8754 break;
8755 case QEMU_OPTION_nographic:
8756 serial_devices[0] = "stdio";
8757 parallel_devices[0] = "null";
8758 monitor_device = "stdio";
8759 nographic = 1;
8760 break;
8761 #ifdef CONFIG_CURSES
8762 case QEMU_OPTION_curses:
8763 curses = 1;
8764 break;
8765 #endif
8766 case QEMU_OPTION_portrait:
8767 graphic_rotate = 1;
8768 break;
8769 case QEMU_OPTION_kernel:
8770 kernel_filename = optarg;
8771 break;
8772 case QEMU_OPTION_append:
8773 kernel_cmdline = optarg;
8774 break;
8775 case QEMU_OPTION_cdrom:
8776 drive_add(optarg, CDROM_ALIAS);
8777 break;
8778 case QEMU_OPTION_boot:
8779 boot_devices = optarg;
8780 /* We just do some generic consistency checks */
8781 {
8782 /* Could easily be extended to 64 devices if needed */
8783 const char *p;
8784
8785 boot_devices_bitmap = 0;
8786 for (p = boot_devices; *p != '\0'; p++) {
8787 /* Allowed boot devices are:
8788 * a b : floppy disk drives
8789 * c ... f : IDE disk drives
8790 * g ... m : machine implementation dependant drives
8791 * n ... p : network devices
8792 * It's up to each machine implementation to check
8793 * if the given boot devices match the actual hardware
8794 * implementation and firmware features.
8795 */
8796 if (*p < 'a' || *p > 'q') {
8797 fprintf(stderr, "Invalid boot device '%c'\n", *p);
8798 exit(1);
8799 }
8800 if (boot_devices_bitmap & (1 << (*p - 'a'))) {
8801 fprintf(stderr,
8802 "Boot device '%c' was given twice\n",*p);
8803 exit(1);
8804 }
8805 boot_devices_bitmap |= 1 << (*p - 'a');
8806 }
8807 }
8808 break;
8809 case QEMU_OPTION_fda:
8810 case QEMU_OPTION_fdb:
8811 drive_add(optarg, FD_ALIAS, popt->index - QEMU_OPTION_fda);
8812 break;
8813 #ifdef TARGET_I386
8814 case QEMU_OPTION_no_fd_bootchk:
8815 fd_bootchk = 0;
8816 break;
8817 #endif
8818 case QEMU_OPTION_net:
8819 if (nb_net_clients >= MAX_NET_CLIENTS) {
8820 fprintf(stderr, "qemu: too many network clients\n");
8821 exit(1);
8822 }
8823 net_clients[nb_net_clients] = optarg;
8824 nb_net_clients++;
8825 break;
8826 #ifdef CONFIG_SLIRP
8827 case QEMU_OPTION_tftp:
8828 tftp_prefix = optarg;
8829 break;
8830 case QEMU_OPTION_bootp:
8831 bootp_filename = optarg;
8832 break;
8833 #ifndef _WIN32
8834 case QEMU_OPTION_smb:
8835 net_slirp_smb(optarg);
8836 break;
8837 #endif
8838 case QEMU_OPTION_redir:
8839 net_slirp_redir(optarg);
8840 break;
8841 #endif
8842 #ifdef HAS_AUDIO
8843 case QEMU_OPTION_audio_help:
8844 AUD_help ();
8845 exit (0);
8846 break;
8847 case QEMU_OPTION_soundhw:
8848 select_soundhw (optarg);
8849 break;
8850 #endif
8851 case QEMU_OPTION_h:
8852 help(0);
8853 break;
8854 case QEMU_OPTION_m: {
8855 uint64_t value;
8856 char *ptr;
8857
8858 value = strtoul(optarg, &ptr, 10);
8859 switch (*ptr) {
8860 case 0: case 'M': case 'm':
8861 value <<= 20;
8862 break;
8863 case 'G': case 'g':
8864 value <<= 30;
8865 break;
8866 default:
8867 fprintf(stderr, "qemu: invalid ram size: %s\n", optarg);
8868 exit(1);
8869 }
8870
8871 /* On 32-bit hosts, QEMU is limited by virtual address space */
8872 if (value > (2047 << 20)
8873 #ifndef USE_KQEMU
8874 && HOST_LONG_BITS == 32
8875 #endif
8876 ) {
8877 fprintf(stderr, "qemu: at most 2047 MB RAM can be simulated\n");
8878 exit(1);
8879 }
8880 if (value != (uint64_t)(ram_addr_t)value) {
8881 fprintf(stderr, "qemu: ram size too large\n");
8882 exit(1);
8883 }
8884 ram_size = value;
8885 break;
8886 }
8887 case QEMU_OPTION_d:
8888 {
8889 int mask;
8890 CPULogItem *item;
8891
8892 mask = cpu_str_to_log_mask(optarg);
8893 if (!mask) {
8894 printf("Log items (comma separated):\n");
8895 for(item = cpu_log_items; item->mask != 0; item++) {
8896 printf("%-10s %s\n", item->name, item->help);
8897 }
8898 exit(1);
8899 }
8900 cpu_set_log(mask);
8901 }
8902 break;
8903 #ifdef CONFIG_GDBSTUB
8904 case QEMU_OPTION_s:
8905 use_gdbstub = 1;
8906 break;
8907 case QEMU_OPTION_p:
8908 gdbstub_port = optarg;
8909 break;
8910 #endif
8911 case QEMU_OPTION_L:
8912 bios_dir = optarg;
8913 break;
8914 case QEMU_OPTION_bios:
8915 bios_name = optarg;
8916 break;
8917 case QEMU_OPTION_S:
8918 autostart = 0;
8919 break;
8920 case QEMU_OPTION_k:
8921 keyboard_layout = optarg;
8922 break;
8923 case QEMU_OPTION_localtime:
8924 rtc_utc = 0;
8925 break;
8926 case QEMU_OPTION_cirrusvga:
8927 cirrus_vga_enabled = 1;
8928 vmsvga_enabled = 0;
8929 break;
8930 case QEMU_OPTION_vmsvga:
8931 cirrus_vga_enabled = 0;
8932 vmsvga_enabled = 1;
8933 break;
8934 case QEMU_OPTION_std_vga:
8935 cirrus_vga_enabled = 0;
8936 vmsvga_enabled = 0;
8937 break;
8938 case QEMU_OPTION_g:
8939 {
8940 const char *p;
8941 int w, h, depth;
8942 p = optarg;
8943 w = strtol(p, (char **)&p, 10);
8944 if (w <= 0) {
8945 graphic_error:
8946 fprintf(stderr, "qemu: invalid resolution or depth\n");
8947 exit(1);
8948 }
8949 if (*p != 'x')
8950 goto graphic_error;
8951 p++;
8952 h = strtol(p, (char **)&p, 10);
8953 if (h <= 0)
8954 goto graphic_error;
8955 if (*p == 'x') {
8956 p++;
8957 depth = strtol(p, (char **)&p, 10);
8958 if (depth != 8 && depth != 15 && depth != 16 &&
8959 depth != 24 && depth != 32)
8960 goto graphic_error;
8961 } else if (*p == '\0') {
8962 depth = graphic_depth;
8963 } else {
8964 goto graphic_error;
8965 }
8966
8967 graphic_width = w;
8968 graphic_height = h;
8969 graphic_depth = depth;
8970 }
8971 break;
8972 case QEMU_OPTION_echr:
8973 {
8974 char *r;
8975 term_escape_char = strtol(optarg, &r, 0);
8976 if (r == optarg)
8977 printf("Bad argument to echr\n");
8978 break;
8979 }
8980 case QEMU_OPTION_monitor:
8981 monitor_device = optarg;
8982 break;
8983 case QEMU_OPTION_serial:
8984 if (serial_device_index >= MAX_SERIAL_PORTS) {
8985 fprintf(stderr, "qemu: too many serial ports\n");
8986 exit(1);
8987 }
8988 serial_devices[serial_device_index] = optarg;
8989 serial_device_index++;
8990 break;
8991 case QEMU_OPTION_parallel:
8992 if (parallel_device_index >= MAX_PARALLEL_PORTS) {
8993 fprintf(stderr, "qemu: too many parallel ports\n");
8994 exit(1);
8995 }
8996 parallel_devices[parallel_device_index] = optarg;
8997 parallel_device_index++;
8998 break;
8999 case QEMU_OPTION_loadvm:
9000 loadvm = optarg;
9001 break;
9002 case QEMU_OPTION_incoming:
9003 incoming = optarg;
9004 break;
9005 case QEMU_OPTION_full_screen:
9006 full_screen = 1;
9007 break;
9008 #ifdef CONFIG_SDL
9009 case QEMU_OPTION_no_frame:
9010 no_frame = 1;
9011 break;
9012 case QEMU_OPTION_alt_grab:
9013 alt_grab = 1;
9014 break;
9015 case QEMU_OPTION_no_quit:
9016 no_quit = 1;
9017 break;
9018 #endif
9019 case QEMU_OPTION_pidfile:
9020 pid_file = optarg;
9021 break;
9022 #ifdef TARGET_I386
9023 case QEMU_OPTION_win2k_hack:
9024 win2k_install_hack = 1;
9025 break;
9026 #endif
9027 #ifdef USE_KQEMU
9028 case QEMU_OPTION_no_kqemu:
9029 kqemu_allowed = 0;
9030 break;
9031 case QEMU_OPTION_kernel_kqemu:
9032 kqemu_allowed = 2;
9033 break;
9034 #endif
9035 #ifdef USE_KVM
9036 case QEMU_OPTION_no_kvm:
9037 kvm_allowed = 0;
9038 break;
9039 case QEMU_OPTION_no_kvm_irqchip: {
9040 extern int kvm_irqchip, kvm_pit;
9041 kvm_irqchip = 0;
9042 kvm_pit = 0;
9043 break;
9044 }
9045 case QEMU_OPTION_no_kvm_pit: {
9046 extern int kvm_pit;
9047 kvm_pit = 0;
9048 break;
9049 }
9050 #endif
9051 case QEMU_OPTION_usb:
9052 usb_enabled = 1;
9053 break;
9054 case QEMU_OPTION_usbdevice:
9055 usb_enabled = 1;
9056 if (usb_devices_index >= MAX_USB_CMDLINE) {
9057 fprintf(stderr, "Too many USB devices\n");
9058 exit(1);
9059 }
9060 usb_devices[usb_devices_index] = optarg;
9061 usb_devices_index++;
9062 break;
9063 case QEMU_OPTION_smp:
9064 smp_cpus = atoi(optarg);
9065 if (smp_cpus < 1 || smp_cpus > MAX_CPUS) {
9066 fprintf(stderr, "Invalid number of CPUs\n");
9067 exit(1);
9068 }
9069 break;
9070 case QEMU_OPTION_vnc:
9071 vnc_display = optarg;
9072 break;
9073 case QEMU_OPTION_no_acpi:
9074 acpi_enabled = 0;
9075 break;
9076 case QEMU_OPTION_no_reboot:
9077 no_reboot = 1;
9078 break;
9079 case QEMU_OPTION_no_shutdown:
9080 no_shutdown = 1;
9081 break;
9082 case QEMU_OPTION_show_cursor:
9083 cursor_hide = 0;
9084 break;
9085 case QEMU_OPTION_daemonize:
9086 daemonize = 1;
9087 break;
9088 case QEMU_OPTION_option_rom:
9089 if (nb_option_roms >= MAX_OPTION_ROMS) {
9090 fprintf(stderr, "Too many option ROMs\n");
9091 exit(1);
9092 }
9093 option_rom[nb_option_roms] = optarg;
9094 nb_option_roms++;
9095 break;
9096 case QEMU_OPTION_semihosting:
9097 semihosting_enabled = 1;
9098 break;
9099 case QEMU_OPTION_tdf:
9100 time_drift_fix = 1;
9101 break;
9102 case QEMU_OPTION_kvm_shadow_memory:
9103 kvm_shadow_memory = (int64_t)atoi(optarg) * 1024 * 1024 / 4096;
9104 break;
9105 case QEMU_OPTION_mempath:
9106 mem_path = optarg;
9107 break;
9108 case QEMU_OPTION_name:
9109 qemu_name = optarg;
9110 break;
9111 #ifdef TARGET_SPARC
9112 case QEMU_OPTION_prom_env:
9113 if (nb_prom_envs >= MAX_PROM_ENVS) {
9114 fprintf(stderr, "Too many prom variables\n");
9115 exit(1);
9116 }
9117 prom_envs[nb_prom_envs] = optarg;
9118 nb_prom_envs++;
9119 break;
9120 #endif
9121 case QEMU_OPTION_cpu_vendor:
9122 cpu_vendor_string = optarg;
9123 break;
9124 #ifdef TARGET_ARM
9125 case QEMU_OPTION_old_param:
9126 old_param = 1;
9127 break;
9128 #endif
9129 case QEMU_OPTION_clock:
9130 configure_alarms(optarg);
9131 break;
9132 case QEMU_OPTION_startdate:
9133 {
9134 struct tm tm;
9135 time_t rtc_start_date;
9136 if (!strcmp(optarg, "now")) {
9137 rtc_date_offset = -1;
9138 } else {
9139 if (sscanf(optarg, "%d-%d-%dT%d:%d:%d",
9140 &tm.tm_year,
9141 &tm.tm_mon,
9142 &tm.tm_mday,
9143 &tm.tm_hour,
9144 &tm.tm_min,
9145 &tm.tm_sec) == 6) {
9146 /* OK */
9147 } else if (sscanf(optarg, "%d-%d-%d",
9148 &tm.tm_year,
9149 &tm.tm_mon,
9150 &tm.tm_mday) == 3) {
9151 tm.tm_hour = 0;
9152 tm.tm_min = 0;
9153 tm.tm_sec = 0;
9154 } else {
9155 goto date_fail;
9156 }
9157 tm.tm_year -= 1900;
9158 tm.tm_mon--;
9159 rtc_start_date = mktimegm(&tm);
9160 if (rtc_start_date == -1) {
9161 date_fail:
9162 fprintf(stderr, "Invalid date format. Valid format are:\n"
9163 "'now' or '2006-06-17T16:01:21' or '2006-06-17'\n");
9164 exit(1);
9165 }
9166 rtc_date_offset = time(NULL) - rtc_start_date;
9167 }
9168 }
9169 break;
9170 case QEMU_OPTION_tb_size:
9171 tb_size = strtol(optarg, NULL, 0);
9172 if (tb_size < 0)
9173 tb_size = 0;
9174 break;
9175 case QEMU_OPTION_icount:
9176 use_icount = 1;
9177 if (strcmp(optarg, "auto") == 0) {
9178 icount_time_shift = -1;
9179 } else {
9180 icount_time_shift = strtol(optarg, NULL, 0);
9181 }
9182 break;
9183 }
9184 }
9185 }
9186
9187 #ifndef _WIN32
9188 if (daemonize) {
9189 pid_t pid;
9190
9191 if (pipe(fds) == -1)
9192 exit(1);
9193
9194 pid = fork();
9195 if (pid > 0) {
9196 uint8_t status;
9197 ssize_t len;
9198
9199 close(fds[1]);
9200
9201 again:
9202 len = read(fds[0], &status, 1);
9203 if (len == -1 && (errno == EINTR))
9204 goto again;
9205
9206 if (len != 1)
9207 exit(1);
9208 else if (status == 1) {
9209 fprintf(stderr, "Could not acquire pidfile\n");
9210 exit(1);
9211 } else
9212 exit(0);
9213 } else if (pid < 0)
9214 exit(1);
9215
9216 setsid();
9217
9218 pid = fork();
9219 if (pid > 0)
9220 exit(0);
9221 else if (pid < 0)
9222 exit(1);
9223
9224 umask(027);
9225
9226 signal(SIGTSTP, SIG_IGN);
9227 signal(SIGTTOU, SIG_IGN);
9228 signal(SIGTTIN, SIG_IGN);
9229 }
9230 #endif
9231
9232 #if USE_KVM
9233 if (kvm_enabled()) {
9234 if (kvm_qemu_init() < 0) {
9235 extern int kvm_allowed;
9236 fprintf(stderr, "Could not initialize KVM, will disable KVM support\n");
9237 #ifdef NO_CPU_EMULATION
9238 fprintf(stderr, "Compiled with --disable-cpu-emulation, exiting.\n");
9239 exit(1);
9240 #endif
9241 kvm_allowed = 0;
9242 }
9243 }
9244 #endif
9245
9246 if (pid_file && qemu_create_pidfile(pid_file) != 0) {
9247 if (daemonize) {
9248 uint8_t status = 1;
9249 write(fds[1], &status, 1);
9250 } else
9251 fprintf(stderr, "Could not acquire pid file\n");
9252 exit(1);
9253 }
9254
9255 #ifdef USE_KQEMU
9256 if (smp_cpus > 1)
9257 kqemu_allowed = 0;
9258 #endif
9259 linux_boot = (kernel_filename != NULL);
9260 net_boot = (boot_devices_bitmap >> ('n' - 'a')) & 0xF;
9261
9262 /* XXX: this should not be: some embedded targets just have flash */
9263 if (!linux_boot && net_boot == 0 &&
9264 nb_drives_opt == 0)
9265 help(1);
9266
9267 if (!linux_boot && *kernel_cmdline != '\0') {
9268 fprintf(stderr, "-append only allowed with -kernel option\n");
9269 exit(1);
9270 }
9271
9272 if (!linux_boot && initrd_filename != NULL) {
9273 fprintf(stderr, "-initrd only allowed with -kernel option\n");
9274 exit(1);
9275 }
9276
9277 /* boot to floppy or the default cd if no hard disk defined yet */
9278 if (!boot_devices[0]) {
9279 boot_devices = "cad";
9280 }
9281 setvbuf(stdout, NULL, _IOLBF, 0);
9282
9283 init_timers();
9284 init_timer_alarm();
9285 qemu_aio_init();
9286 if (use_icount && icount_time_shift < 0) {
9287 use_icount = 2;
9288 /* 125MIPS seems a reasonable initial guess at the guest speed.
9289 It will be corrected fairly quickly anyway. */
9290 icount_time_shift = 3;
9291 init_icount_adjust();
9292 }
9293
9294 #ifdef _WIN32
9295 socket_init();
9296 #endif
9297
9298 /* init network clients */
9299 if (nb_net_clients == 0) {
9300 /* if no clients, we use a default config */
9301 net_clients[0] = "nic";
9302 net_clients[1] = "user";
9303 nb_net_clients = 2;
9304 }
9305
9306 for(i = 0;i < nb_net_clients; i++) {
9307 if (net_client_init(net_clients[i]) < 0)
9308 exit(1);
9309 }
9310 for(vlan = first_vlan; vlan != NULL; vlan = vlan->next) {
9311 if (vlan->nb_guest_devs == 0 && vlan->nb_host_devs == 0)
9312 continue;
9313 if (vlan->nb_guest_devs == 0) {
9314 fprintf(stderr, "Invalid vlan (%d) with no nics\n", vlan->id);
9315 exit(1);
9316 }
9317 if (vlan->nb_host_devs == 0)
9318 fprintf(stderr,
9319 "Warning: vlan %d is not connected to host network\n",
9320 vlan->id);
9321 }
9322
9323 #ifdef TARGET_I386
9324 /* XXX: this should be moved in the PC machine instantiation code */
9325 if (net_boot != 0) {
9326 int netroms = 0;
9327 for (i = 0; i < nb_nics && i < 4; i++) {
9328 const char *model = nd_table[i].model;
9329 char buf[1024];
9330 if (net_boot & (1 << i)) {
9331 if (model == NULL)
9332 model = "rtl8139";
9333 snprintf(buf, sizeof(buf), "%s/pxe-%s.bin", bios_dir, model);
9334 if (get_image_size(buf) > 0) {
9335 if (nb_option_roms >= MAX_OPTION_ROMS) {
9336 fprintf(stderr, "Too many option ROMs\n");
9337 exit(1);
9338 }
9339 option_rom[nb_option_roms] = strdup(buf);
9340 nb_option_roms++;
9341 netroms++;
9342 }
9343 }
9344 }
9345 if (netroms == 0) {
9346 fprintf(stderr, "No valid PXE rom found for network device\n");
9347 exit(1);
9348 }
9349 }
9350 #endif
9351
9352 /* init the memory */
9353 phys_ram_size = machine->ram_require & ~RAMSIZE_FIXED;
9354
9355 if (machine->ram_require & RAMSIZE_FIXED) {
9356 if (ram_size > 0) {
9357 if (ram_size < phys_ram_size) {
9358 fprintf(stderr, "Machine `%s' requires %llu bytes of memory\n",
9359 machine->name, (unsigned long long) phys_ram_size);
9360 exit(-1);
9361 }
9362
9363 phys_ram_size = ram_size;
9364 } else
9365 ram_size = phys_ram_size;
9366 } else {
9367 if (ram_size == 0)
9368 ram_size = DEFAULT_RAM_SIZE * 1024 * 1024;
9369
9370 phys_ram_size += ram_size;
9371 }
9372
9373 /* Initialize kvm */
9374 #if defined(TARGET_I386) || defined(TARGET_X86_64)
9375 #define KVM_EXTRA_PAGES 3
9376 #else
9377 #define KVM_EXTRA_PAGES 0
9378 #endif
9379 if (kvm_enabled()) {
9380 phys_ram_size += KVM_EXTRA_PAGES * TARGET_PAGE_SIZE;
9381 if (kvm_qemu_create_context() < 0) {
9382 fprintf(stderr, "Could not create KVM context\n");
9383 exit(1);
9384 }
9385 #ifdef KVM_CAP_USER_MEMORY
9386 {
9387 int ret;
9388
9389 ret = kvm_qemu_check_extension(KVM_CAP_USER_MEMORY);
9390 if (ret) {
9391 phys_ram_base = qemu_alloc_physram(phys_ram_size);
9392 if (!phys_ram_base) {
9393 fprintf(stderr, "Could not allocate physical memory\n");
9394 exit(1);
9395 }
9396 }
9397 }
9398 #endif
9399 } else {
9400 phys_ram_base = qemu_vmalloc(phys_ram_size);
9401 if (!phys_ram_base) {
9402 fprintf(stderr, "Could not allocate physical memory\n");
9403 exit(1);
9404 }
9405 }
9406
9407 /* init the dynamic translator */
9408 cpu_exec_init_all(tb_size * 1024 * 1024);
9409
9410 bdrv_init();
9411
9412 /* we always create the cdrom drive, even if no disk is there */
9413
9414 if (nb_drives_opt < MAX_DRIVES)
9415 drive_add(NULL, CDROM_ALIAS);
9416
9417 /* we always create at least one floppy */
9418
9419 if (nb_drives_opt < MAX_DRIVES)
9420 drive_add(NULL, FD_ALIAS, 0);
9421
9422 /* we always create one sd slot, even if no card is in it */
9423
9424 if (nb_drives_opt < MAX_DRIVES)
9425 drive_add(NULL, SD_ALIAS);
9426
9427 /* open the virtual block devices
9428 * note that migration with device
9429 * hot add/remove is broken.
9430 */
9431 for(i = 0; i < nb_drives_opt; i++)
9432 if (drive_init(&drives_opt[i], snapshot, machine) == -1)
9433 exit(1);
9434
9435 register_savevm("timer", 0, 2, timer_save, timer_load, NULL);
9436 register_savevm("ram", 0, 3, ram_save, ram_load, NULL);
9437
9438 init_ioports();
9439
9440 /* terminal init */
9441 memset(&display_state, 0, sizeof(display_state));
9442 if (nographic) {
9443 if (curses) {
9444 fprintf(stderr, "fatal: -nographic can't be used with -curses\n");
9445 exit(1);
9446 }
9447 /* nearly nothing to do */
9448 dumb_display_init(ds);
9449 } else if (vnc_display != NULL) {
9450 vnc_display_init(ds);
9451 if (vnc_display_open(ds, vnc_display) < 0)
9452 exit(1);
9453 } else
9454 #if defined(CONFIG_CURSES)
9455 if (curses) {
9456 curses_display_init(ds, full_screen);
9457 } else
9458 #endif
9459 {
9460 #if defined(CONFIG_SDL)
9461 sdl_display_init(ds, full_screen, no_frame);
9462 #elif defined(CONFIG_COCOA)
9463 cocoa_display_init(ds, full_screen);
9464 #else
9465 dumb_display_init(ds);
9466 #endif
9467 }
9468
9469 /* Maintain compatibility with multiple stdio monitors */
9470 if (!strcmp(monitor_device,"stdio")) {
9471 for (i = 0; i < MAX_SERIAL_PORTS; i++) {
9472 const char *devname = serial_devices[i];
9473 if (devname && !strcmp(devname,"mon:stdio")) {
9474 monitor_device = NULL;
9475 break;
9476 } else if (devname && !strcmp(devname,"stdio")) {
9477 monitor_device = NULL;
9478 serial_devices[i] = "mon:stdio";
9479 break;
9480 }
9481 }
9482 }
9483 if (monitor_device) {
9484 monitor_hd = qemu_chr_open(monitor_device);
9485 if (!monitor_hd) {
9486 fprintf(stderr, "qemu: could not open monitor device '%s'\n", monitor_device);
9487 exit(1);
9488 }
9489 monitor_init(monitor_hd, !nographic);
9490 }
9491
9492 for(i = 0; i < MAX_SERIAL_PORTS; i++) {
9493 const char *devname = serial_devices[i];
9494 if (devname && strcmp(devname, "none")) {
9495 serial_hds[i] = qemu_chr_open(devname);
9496 if (!serial_hds[i]) {
9497 fprintf(stderr, "qemu: could not open serial device '%s'\n",
9498 devname);
9499 exit(1);
9500 }
9501 if (strstart(devname, "vc", 0))
9502 qemu_chr_printf(serial_hds[i], "serial%d console\r\n", i);
9503 }
9504 }
9505
9506 for(i = 0; i < MAX_PARALLEL_PORTS; i++) {
9507 const char *devname = parallel_devices[i];
9508 if (devname && strcmp(devname, "none")) {
9509 parallel_hds[i] = qemu_chr_open(devname);
9510 if (!parallel_hds[i]) {
9511 fprintf(stderr, "qemu: could not open parallel device '%s'\n",
9512 devname);
9513 exit(1);
9514 }
9515 if (strstart(devname, "vc", 0))
9516 qemu_chr_printf(parallel_hds[i], "parallel%d console\r\n", i);
9517 }
9518 }
9519
9520 if (kvm_enabled())
9521 kvm_init_ap();
9522
9523 machine->init(ram_size, vga_ram_size, boot_devices, ds,
9524 kernel_filename, kernel_cmdline, initrd_filename, cpu_model);
9525
9526 current_machine = machine;
9527
9528 /* init USB devices */
9529 if (usb_enabled) {
9530 for(i = 0; i < usb_devices_index; i++) {
9531 if (usb_device_add(usb_devices[i]) < 0) {
9532 fprintf(stderr, "Warning: could not add USB device %s\n",
9533 usb_devices[i]);
9534 }
9535 }
9536 }
9537
9538 if (display_state.dpy_refresh) {
9539 display_state.gui_timer = qemu_new_timer(rt_clock, gui_update, &display_state);
9540 qemu_mod_timer(display_state.gui_timer, qemu_get_clock(rt_clock));
9541 }
9542
9543 #ifdef CONFIG_GDBSTUB
9544 if (use_gdbstub) {
9545 /* XXX: use standard host:port notation and modify options
9546 accordingly. */
9547 if (gdbserver_start(gdbstub_port) < 0) {
9548 fprintf(stderr, "qemu: could not open gdbstub device on port '%s'\n",
9549 gdbstub_port);
9550 exit(1);
9551 }
9552 }
9553 #endif
9554 if (loadvm)
9555 do_loadvm(loadvm);
9556
9557 if (incoming) {
9558 int rc;
9559
9560 rc = migrate_incoming(incoming);
9561 if (rc != 0) {
9562 fprintf(stderr, "Migration failed rc=%d\n", rc);
9563 exit(rc);
9564 }
9565 }
9566
9567 {
9568 /* XXX: simplify init */
9569 read_passwords();
9570 if (autostart) {
9571 vm_start();
9572 }
9573 }
9574
9575 if (daemonize) {
9576 uint8_t status = 0;
9577 ssize_t len;
9578 int fd;
9579
9580 again1:
9581 len = write(fds[1], &status, 1);
9582 if (len == -1 && (errno == EINTR))
9583 goto again1;
9584
9585 if (len != 1)
9586 exit(1);
9587
9588 chdir("/");
9589 TFR(fd = open("/dev/null", O_RDWR));
9590 if (fd == -1)
9591 exit(1);
9592
9593 dup2(fd, 0);
9594 dup2(fd, 1);
9595 dup2(fd, 2);
9596
9597 close(fd);
9598 }
9599
9600 main_loop();
9601 quit_timers();
9602
9603 #if !defined(_WIN32)
9604 /* close network clients */
9605 for(vlan = first_vlan; vlan != NULL; vlan = vlan->next) {
9606 VLANClientState *vc;
9607
9608 for(vc = vlan->first_client; vc != NULL; vc = vc->next) {
9609 if (vc->fd_read == tap_receive) {
9610 char ifname[64];
9611 TAPState *s = vc->opaque;
9612
9613 if (sscanf(vc->info_str, "tap: ifname=%63s ", ifname) == 1 &&
9614 s->down_script[0])
9615 launch_script(s->down_script, ifname, s->fd);
9616 }
9617 }
9618 }
9619 #endif
9620 return 0;
9621 }
Patches shipped by Fedora