git.maemo.org Git - qemu/blob - vl.c

   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 "hw/bt.h"
  33 #include "net.h"
  34 #include "console.h"
  35 #include "sysemu.h"
  36 #include "gdbstub.h"
  37 #include "qemu-timer.h"
  38 #include "qemu-char.h"
  39 #include "block.h"
  40 #include "audio/audio.h"
  41 #include "migration.h"
  42 #include "kvm.h"
  43
  44 #include <unistd.h>
  45 #include <fcntl.h>
  46 #include <signal.h>
  47 #include <time.h>
  48 #include <errno.h>
  49 #include <sys/time.h>
  50 #include <zlib.h>
  51
  52 #ifndef _WIN32
  53 #include <sys/times.h>
  54 #include <sys/wait.h>
  55 #include <termios.h>
  56 #include <sys/mman.h>
  57 #include <sys/ioctl.h>
  58 #include <sys/resource.h>
  59 #include <sys/socket.h>
  60 #include <netinet/in.h>
  61 #include <net/if.h>
  62 #if defined(__NetBSD__)
  63 #include <net/if_tap.h>
  64 #endif
  65 #ifdef __linux__
  66 #include <linux/if_tun.h>
  67 #endif
  68 #include <arpa/inet.h>
  69 #include <dirent.h>
  70 #include <netdb.h>
  71 #include <sys/select.h>
  72 #ifdef _BSD
  73 #include <sys/stat.h>
  74 #ifdef __FreeBSD__
  75 #include <libutil.h>
  76 #else
  77 #include <util.h>
  78 #endif
  79 #elif defined (__GLIBC__) && defined (__FreeBSD_kernel__)
  80 #include <freebsd/stdlib.h>
  81 #else
  82 #ifdef __linux__
  83 #include <pty.h>
  84 #include <malloc.h>
  85 #include <linux/rtc.h>
  86
  87 /* For the benefit of older linux systems which don't supply it,
  88    we use a local copy of hpet.h. */
  89 /* #include <linux/hpet.h> */
  90 #include "hpet.h"
  91
  92 #include <linux/ppdev.h>
  93 #include <linux/parport.h>
  94 #endif
  95 #ifdef __sun__
  96 #include <sys/stat.h>
  97 #include <sys/ethernet.h>
  98 #include <sys/sockio.h>
  99 #include <netinet/arp.h>
 100 #include <netinet/in.h>
 101 #include <netinet/in_systm.h>
 102 #include <netinet/ip.h>
 103 #include <netinet/ip_icmp.h> // must come after ip.h
 104 #include <netinet/udp.h>
 105 #include <netinet/tcp.h>
 106 #include <net/if.h>
 107 #include <syslog.h>
 108 #include <stropts.h>
 109 #endif
 110 #endif
 111 #endif
 112
 113 #include "qemu_socket.h"
 114
 115 #if defined(CONFIG_SLIRP)
 116 #include "libslirp.h"
 117 #endif
 118
 119 #if defined(__OpenBSD__)
 120 #include <util.h>
 121 #endif
 122
 123 #if defined(CONFIG_VDE)
 124 #include <libvdeplug.h>
 125 #endif
 126
 127 #ifdef _WIN32
 128 #include <malloc.h>
 129 #include <sys/timeb.h>
 130 #include <mmsystem.h>
 131 #define getopt_long_only getopt_long
 132 #define memalign(align, size) malloc(size)
 133 #endif
 134
 135 #ifdef CONFIG_SDL
 136 #ifdef __APPLE__
 137 #include <SDL/SDL.h>
 138 #endif
 139 #endif /* CONFIG_SDL */
 140
 141 #ifdef CONFIG_COCOA
 142 #undef main
 143 #define main qemu_main
 144 #endif /* CONFIG_COCOA */
 145
 146 #include "disas.h"
 147
 148 #include "exec-all.h"
 149
 150 #define DEFAULT_NETWORK_SCRIPT "/etc/qemu-ifup"
 151 #define DEFAULT_NETWORK_DOWN_SCRIPT "/etc/qemu-ifdown"
 152 #ifdef __sun__
 153 #define SMBD_COMMAND "/usr/sfw/sbin/smbd"
 154 #else
 155 #define SMBD_COMMAND "/usr/sbin/smbd"
 156 #endif
 157
 158 //#define DEBUG_UNUSED_IOPORT
 159 //#define DEBUG_IOPORT
 160 //#define DEBUG_NET
 161 //#define DEBUG_SLIRP
 162
 163 #ifdef TARGET_PPC
 164 #define DEFAULT_RAM_SIZE 144
 165 #else
 166 #define DEFAULT_RAM_SIZE 128
 167 #endif
 168
 169 /* Max number of USB devices that can be specified on the commandline.  */
 170 #define MAX_USB_CMDLINE 8
 171
 172 /* Max number of bluetooth switches on the commandline.  */
 173 #define MAX_BT_CMDLINE 10
 174
 175 /* XXX: use a two level table to limit memory usage */
 176 #define MAX_IOPORTS 65536
 177
 178 const char *bios_dir = CONFIG_QEMU_SHAREDIR;
 179 const char *bios_name = NULL;
 180 static void *ioport_opaque[MAX_IOPORTS];
 181 static IOPortReadFunc *ioport_read_table[3][MAX_IOPORTS];
 182 static IOPortWriteFunc *ioport_write_table[3][MAX_IOPORTS];
 183 /* Note: drives_table[MAX_DRIVES] is a dummy block driver if none available
 184    to store the VM snapshots */
 185 DriveInfo drives_table[MAX_DRIVES+1];
 186 int nb_drives;
 187 /* point to the block driver where the snapshots are managed */
 188 static BlockDriverState *bs_snapshots;
 189 static int vga_ram_size;
 190 enum vga_retrace_method vga_retrace_method = VGA_RETRACE_DUMB;
 191 DisplayState display_state;
 192 int nographic;
 193 static int curses;
 194 const char* keyboard_layout = NULL;
 195 int64_t ticks_per_sec;
 196 ram_addr_t ram_size;
 197 int nb_nics;
 198 NICInfo nd_table[MAX_NICS];
 199 int vm_running;
 200 static int rtc_utc = 1;
 201 static int rtc_date_offset = -1; /* -1 means no change */
 202 int cirrus_vga_enabled = 1;
 203 int vmsvga_enabled = 0;
 204 #ifdef TARGET_SPARC
 205 int graphic_width = 1024;
 206 int graphic_height = 768;
 207 int graphic_depth = 8;
 208 #else
 209 int graphic_width = 800;
 210 int graphic_height = 600;
 211 int graphic_depth = 15;
 212 #endif
 213 static int full_screen = 0;
 214 static int no_frame = 0;
 215 int no_quit = 0;
 216 CharDriverState *serial_hds[MAX_SERIAL_PORTS];
 217 CharDriverState *parallel_hds[MAX_PARALLEL_PORTS];
 218 #ifdef TARGET_I386
 219 int win2k_install_hack = 0;
 220 #endif
 221 int usb_enabled = 0;
 222 int smp_cpus = 1;
 223 const char *vnc_display;
 224 int acpi_enabled = 1;
 225 int fd_bootchk = 1;
 226 int no_reboot = 0;
 227 int no_shutdown = 0;
 228 int cursor_hide = 1;
 229 int graphic_rotate = 0;
 230 int daemonize = 0;
 231 const char *option_rom[MAX_OPTION_ROMS];
 232 int nb_option_roms;
 233 int semihosting_enabled = 0;
 234 #ifdef TARGET_ARM
 235 int old_param = 0;
 236 #endif
 237 const char *qemu_name;
 238 int alt_grab = 0;
 239 #ifdef TARGET_SPARC
 240 unsigned int nb_prom_envs = 0;
 241 const char *prom_envs[MAX_PROM_ENVS];
 242 #endif
 243 static int nb_drives_opt;
 244 static struct drive_opt {
 245     const char *file;
 246     char opt[1024];
 247 } 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 static QEMUTimer *icount_rt_timer;
 259 static QEMUTimer *icount_vm_timer;
 260
 261 uint8_t qemu_uuid[16];
 262
 263 /***********************************************************/
 264 /* x86 ISA bus support */
 265
 266 target_phys_addr_t isa_mem_base = 0;
 267 PicState2 *isa_pic;
 268
 269 static IOPortReadFunc default_ioport_readb, default_ioport_readw, default_ioport_readl;
 270 static IOPortWriteFunc default_ioport_writeb, default_ioport_writew, default_ioport_writel;
 271
 272 static uint32_t ioport_read(int index, uint32_t address)
 273 {
 274     static IOPortReadFunc *default_func[3] = {
 275         default_ioport_readb,
 276         default_ioport_readw,
 277         default_ioport_readl
 278     };
 279     IOPortReadFunc *func = ioport_read_table[index][address];
 280     if (!func)
 281         func = default_func[index];
 282     return func(ioport_opaque[address], address);
 283 }
 284
 285 static void ioport_write(int index, uint32_t address, uint32_t data)
 286 {
 287     static IOPortWriteFunc *default_func[3] = {
 288         default_ioport_writeb,
 289         default_ioport_writew,
 290         default_ioport_writel
 291     };
 292     IOPortWriteFunc *func = ioport_write_table[index][address];
 293     if (!func)
 294         func = default_func[index];
 295     func(ioport_opaque[address], address, data);
 296 }
 297
 298 static uint32_t default_ioport_readb(void *opaque, uint32_t address)
 299 {
 300 #ifdef DEBUG_UNUSED_IOPORT
 301     fprintf(stderr, "unused inb: port=0x%04x\n", address);
 302 #endif
 303     return 0xff;
 304 }
 305
 306 static void default_ioport_writeb(void *opaque, uint32_t address, uint32_t data)
 307 {
 308 #ifdef DEBUG_UNUSED_IOPORT
 309     fprintf(stderr, "unused outb: port=0x%04x data=0x%02x\n", address, data);
 310 #endif
 311 }
 312
 313 /* default is to make two byte accesses */
 314 static uint32_t default_ioport_readw(void *opaque, uint32_t address)
 315 {
 316     uint32_t data;
 317     data = ioport_read(0, address);
 318     address = (address + 1) & (MAX_IOPORTS - 1);
 319     data |= ioport_read(0, address) << 8;
 320     return data;
 321 }
 322
 323 static void default_ioport_writew(void *opaque, uint32_t address, uint32_t data)
 324 {
 325     ioport_write(0, address, data & 0xff);
 326     address = (address + 1) & (MAX_IOPORTS - 1);
 327     ioport_write(0, address, (data >> 8) & 0xff);
 328 }
 329
 330 static uint32_t default_ioport_readl(void *opaque, uint32_t address)
 331 {
 332 #ifdef DEBUG_UNUSED_IOPORT
 333     fprintf(stderr, "unused inl: port=0x%04x\n", address);
 334 #endif
 335     return 0xffffffff;
 336 }
 337
 338 static void default_ioport_writel(void *opaque, uint32_t address, uint32_t data)
 339 {
 340 #ifdef DEBUG_UNUSED_IOPORT
 341     fprintf(stderr, "unused outl: port=0x%04x data=0x%02x\n", address, data);
 342 #endif
 343 }
 344
 345 /* size is the word size in byte */
 346 int register_ioport_read(int start, int length, int size,
 347                          IOPortReadFunc *func, void *opaque)
 348 {
 349     int i, bsize;
 350
 351     if (size == 1) {
 352         bsize = 0;
 353     } else if (size == 2) {
 354         bsize = 1;
 355     } else if (size == 4) {
 356         bsize = 2;
 357     } else {
 358         hw_error("register_ioport_read: invalid size");
 359         return -1;
 360     }
 361     for(i = start; i < start + length; i += size) {
 362         ioport_read_table[bsize][i] = func;
 363         if (ioport_opaque[i] != NULL && ioport_opaque[i] != opaque)
 364             hw_error("register_ioport_read: invalid opaque");
 365         ioport_opaque[i] = opaque;
 366     }
 367     return 0;
 368 }
 369
 370 /* size is the word size in byte */
 371 int register_ioport_write(int start, int length, int size,
 372                           IOPortWriteFunc *func, void *opaque)
 373 {
 374     int i, bsize;
 375
 376     if (size == 1) {
 377         bsize = 0;
 378     } else if (size == 2) {
 379         bsize = 1;
 380     } else if (size == 4) {
 381         bsize = 2;
 382     } else {
 383         hw_error("register_ioport_write: invalid size");
 384         return -1;
 385     }
 386     for(i = start; i < start + length; i += size) {
 387         ioport_write_table[bsize][i] = func;
 388         if (ioport_opaque[i] != NULL && ioport_opaque[i] != opaque)
 389             hw_error("register_ioport_write: invalid opaque");
 390         ioport_opaque[i] = opaque;
 391     }
 392     return 0;
 393 }
 394
 395 void isa_unassign_ioport(int start, int length)
 396 {
 397     int i;
 398
 399     for(i = start; i < start + length; i++) {
 400         ioport_read_table[0][i] = default_ioport_readb;
 401         ioport_read_table[1][i] = default_ioport_readw;
 402         ioport_read_table[2][i] = default_ioport_readl;
 403
 404         ioport_write_table[0][i] = default_ioport_writeb;
 405         ioport_write_table[1][i] = default_ioport_writew;
 406         ioport_write_table[2][i] = default_ioport_writel;
 407     }
 408 }
 409
 410 /***********************************************************/
 411
 412 void cpu_outb(CPUState *env, int addr, int val)
 413 {
 414 #ifdef DEBUG_IOPORT
 415     if (loglevel & CPU_LOG_IOPORT)
 416         fprintf(logfile, "outb: %04x %02x\n", addr, val);
 417 #endif
 418     ioport_write(0, addr, val);
 419 #ifdef USE_KQEMU
 420     if (env)
 421         env->last_io_time = cpu_get_time_fast();
 422 #endif
 423 }
 424
 425 void cpu_outw(CPUState *env, int addr, int val)
 426 {
 427 #ifdef DEBUG_IOPORT
 428     if (loglevel & CPU_LOG_IOPORT)
 429         fprintf(logfile, "outw: %04x %04x\n", addr, val);
 430 #endif
 431     ioport_write(1, addr, val);
 432 #ifdef USE_KQEMU
 433     if (env)
 434         env->last_io_time = cpu_get_time_fast();
 435 #endif
 436 }
 437
 438 void cpu_outl(CPUState *env, int addr, int val)
 439 {
 440 #ifdef DEBUG_IOPORT
 441     if (loglevel & CPU_LOG_IOPORT)
 442         fprintf(logfile, "outl: %04x %08x\n", addr, val);
 443 #endif
 444     ioport_write(2, addr, val);
 445 #ifdef USE_KQEMU
 446     if (env)
 447         env->last_io_time = cpu_get_time_fast();
 448 #endif
 449 }
 450
 451 int cpu_inb(CPUState *env, int addr)
 452 {
 453     int val;
 454     val = ioport_read(0, addr);
 455 #ifdef DEBUG_IOPORT
 456     if (loglevel & CPU_LOG_IOPORT)
 457         fprintf(logfile, "inb : %04x %02x\n", addr, val);
 458 #endif
 459 #ifdef USE_KQEMU
 460     if (env)
 461         env->last_io_time = cpu_get_time_fast();
 462 #endif
 463     return val;
 464 }
 465
 466 int cpu_inw(CPUState *env, int addr)
 467 {
 468     int val;
 469     val = ioport_read(1, addr);
 470 #ifdef DEBUG_IOPORT
 471     if (loglevel & CPU_LOG_IOPORT)
 472         fprintf(logfile, "inw : %04x %04x\n", addr, val);
 473 #endif
 474 #ifdef USE_KQEMU
 475     if (env)
 476         env->last_io_time = cpu_get_time_fast();
 477 #endif
 478     return val;
 479 }
 480
 481 int cpu_inl(CPUState *env, int addr)
 482 {
 483     int val;
 484     val = ioport_read(2, addr);
 485 #ifdef DEBUG_IOPORT
 486     if (loglevel & CPU_LOG_IOPORT)
 487         fprintf(logfile, "inl : %04x %08x\n", addr, val);
 488 #endif
 489 #ifdef USE_KQEMU
 490     if (env)
 491         env->last_io_time = cpu_get_time_fast();
 492 #endif
 493     return val;
 494 }
 495
 496 /***********************************************************/
 497 void hw_error(const char *fmt, ...)
 498 {
 499     va_list ap;
 500     CPUState *env;
 501
 502     va_start(ap, fmt);
 503     fprintf(stderr, "qemu: hardware error: ");
 504     vfprintf(stderr, fmt, ap);
 505     fprintf(stderr, "\n");
 506     for(env = first_cpu; env != NULL; env = env->next_cpu) {
 507         fprintf(stderr, "CPU #%d:\n", env->cpu_index);
 508 #ifdef TARGET_I386
 509         cpu_dump_state(env, stderr, fprintf, X86_DUMP_FPU);
 510 #else
 511         cpu_dump_state(env, stderr, fprintf, 0);
 512 #endif
 513     }
 514     va_end(ap);
 515     abort();
 516 }
 517
 518 /***********************************************************/
 519 /* keyboard/mouse */
 520
 521 static QEMUPutKBDEvent *qemu_put_kbd_event;
 522 static void *qemu_put_kbd_event_opaque;
 523 static QEMUPutMouseEntry *qemu_put_mouse_event_head;
 524 static QEMUPutMouseEntry *qemu_put_mouse_event_current;
 525
 526 void qemu_add_kbd_event_handler(QEMUPutKBDEvent *func, void *opaque)
 527 {
 528     qemu_put_kbd_event_opaque = opaque;
 529     qemu_put_kbd_event = func;
 530 }
 531
 532 QEMUPutMouseEntry *qemu_add_mouse_event_handler(QEMUPutMouseEvent *func,
 533                                                 void *opaque, int absolute,
 534                                                 const char *name)
 535 {
 536     QEMUPutMouseEntry *s, *cursor;
 537
 538     s = qemu_mallocz(sizeof(QEMUPutMouseEntry));
 539     if (!s)
 540         return NULL;
 541
 542     s->qemu_put_mouse_event = func;
 543     s->qemu_put_mouse_event_opaque = opaque;
 544     s->qemu_put_mouse_event_absolute = absolute;
 545     s->qemu_put_mouse_event_name = qemu_strdup(name);
 546     s->next = NULL;
 547
 548     if (!qemu_put_mouse_event_head) {
 549         qemu_put_mouse_event_head = qemu_put_mouse_event_current = s;
 550         return s;
 551     }
 552
 553     cursor = qemu_put_mouse_event_head;
 554     while (cursor->next != NULL)
 555         cursor = cursor->next;
 556
 557     cursor->next = s;
 558     qemu_put_mouse_event_current = s;
 559
 560     return s;
 561 }
 562
 563 void qemu_remove_mouse_event_handler(QEMUPutMouseEntry *entry)
 564 {
 565     QEMUPutMouseEntry *prev = NULL, *cursor;
 566
 567     if (!qemu_put_mouse_event_head || entry == NULL)
 568         return;
 569
 570     cursor = qemu_put_mouse_event_head;
 571     while (cursor != NULL && cursor != entry) {
 572         prev = cursor;
 573         cursor = cursor->next;
 574     }
 575
 576     if (cursor == NULL) // does not exist or list empty
 577         return;
 578     else if (prev == NULL) { // entry is head
 579         qemu_put_mouse_event_head = cursor->next;
 580         if (qemu_put_mouse_event_current == entry)
 581             qemu_put_mouse_event_current = cursor->next;
 582         qemu_free(entry->qemu_put_mouse_event_name);
 583         qemu_free(entry);
 584         return;
 585     }
 586
 587     prev->next = entry->next;
 588
 589     if (qemu_put_mouse_event_current == entry)
 590         qemu_put_mouse_event_current = prev;
 591
 592     qemu_free(entry->qemu_put_mouse_event_name);
 593     qemu_free(entry);
 594 }
 595
 596 void kbd_put_keycode(int keycode)
 597 {
 598     if (qemu_put_kbd_event) {
 599         qemu_put_kbd_event(qemu_put_kbd_event_opaque, keycode);
 600     }
 601 }
 602
 603 void kbd_mouse_event(int dx, int dy, int dz, int buttons_state)
 604 {
 605     QEMUPutMouseEvent *mouse_event;
 606     void *mouse_event_opaque;
 607     int width;
 608
 609     if (!qemu_put_mouse_event_current) {
 610         return;
 611     }
 612
 613     mouse_event =
 614         qemu_put_mouse_event_current->qemu_put_mouse_event;
 615     mouse_event_opaque =
 616         qemu_put_mouse_event_current->qemu_put_mouse_event_opaque;
 617
 618     if (mouse_event) {
 619         if (graphic_rotate) {
 620             if (qemu_put_mouse_event_current->qemu_put_mouse_event_absolute)
 621                 width = 0x7fff;
 622             else
 623                 width = graphic_width - 1;
 624             mouse_event(mouse_event_opaque,
 625                                  width - dy, dx, dz, buttons_state);
 626         } else
 627             mouse_event(mouse_event_opaque,
 628                                  dx, dy, dz, buttons_state);
 629     }
 630 }
 631
 632 int kbd_mouse_is_absolute(void)
 633 {
 634     if (!qemu_put_mouse_event_current)
 635         return 0;
 636
 637     return qemu_put_mouse_event_current->qemu_put_mouse_event_absolute;
 638 }
 639
 640 void do_info_mice(void)
 641 {
 642     QEMUPutMouseEntry *cursor;
 643     int index = 0;
 644
 645     if (!qemu_put_mouse_event_head) {
 646         term_printf("No mouse devices connected\n");
 647         return;
 648     }
 649
 650     term_printf("Mouse devices available:\n");
 651     cursor = qemu_put_mouse_event_head;
 652     while (cursor != NULL) {
 653         term_printf("%c Mouse #%d: %s\n",
 654                     (cursor == qemu_put_mouse_event_current ? '*' : ' '),
 655                     index, cursor->qemu_put_mouse_event_name);
 656         index++;
 657         cursor = cursor->next;
 658     }
 659 }
 660
 661 void do_mouse_set(int index)
 662 {
 663     QEMUPutMouseEntry *cursor;
 664     int i = 0;
 665
 666     if (!qemu_put_mouse_event_head) {
 667         term_printf("No mouse devices connected\n");
 668         return;
 669     }
 670
 671     cursor = qemu_put_mouse_event_head;
 672     while (cursor != NULL && index != i) {
 673         i++;
 674         cursor = cursor->next;
 675     }
 676
 677     if (cursor != NULL)
 678         qemu_put_mouse_event_current = cursor;
 679     else
 680         term_printf("Mouse at given index not found\n");
 681 }
 682
 683 /* compute with 96 bit intermediate result: (a*b)/c */
 684 uint64_t muldiv64(uint64_t a, uint32_t b, uint32_t c)
 685 {
 686     union {
 687         uint64_t ll;
 688         struct {
 689 #ifdef WORDS_BIGENDIAN
 690             uint32_t high, low;
 691 #else
 692             uint32_t low, high;
 693 #endif
 694         } l;
 695     } u, res;
 696     uint64_t rl, rh;
 697
 698     u.ll = a;
 699     rl = (uint64_t)u.l.low * (uint64_t)b;
 700     rh = (uint64_t)u.l.high * (uint64_t)b;
 701     rh += (rl >> 32);
 702     res.l.high = rh / c;
 703     res.l.low = (((rh % c) << 32) + (rl & 0xffffffff)) / c;
 704     return res.ll;
 705 }
 706
 707 /***********************************************************/
 708 /* real time host monotonic timer */
 709
 710 #define QEMU_TIMER_BASE 1000000000LL
 711
 712 #ifdef WIN32
 713
 714 static int64_t clock_freq;
 715
 716 static void init_get_clock(void)
 717 {
 718     LARGE_INTEGER freq;
 719     int ret;
 720     ret = QueryPerformanceFrequency(&freq);
 721     if (ret == 0) {
 722         fprintf(stderr, "Could not calibrate ticks\n");
 723         exit(1);
 724     }
 725     clock_freq = freq.QuadPart;
 726 }
 727
 728 static int64_t get_clock(void)
 729 {
 730     LARGE_INTEGER ti;
 731     QueryPerformanceCounter(&ti);
 732     return muldiv64(ti.QuadPart, QEMU_TIMER_BASE, clock_freq);
 733 }
 734
 735 #else
 736
 737 static int use_rt_clock;
 738
 739 static void init_get_clock(void)
 740 {
 741     use_rt_clock = 0;
 742 #if defined(__linux__) || (defined(__FreeBSD__) && __FreeBSD_version >= 500000)
 743     {
 744         struct timespec ts;
 745         if (clock_gettime(CLOCK_MONOTONIC, &ts) == 0) {
 746             use_rt_clock = 1;
 747         }
 748     }
 749 #endif
 750 }
 751
 752 static int64_t get_clock(void)
 753 {
 754 #if defined(__linux__) || (defined(__FreeBSD__) && __FreeBSD_version >= 500000)
 755     if (use_rt_clock) {
 756         struct timespec ts;
 757         clock_gettime(CLOCK_MONOTONIC, &ts);
 758         return ts.tv_sec * 1000000000LL + ts.tv_nsec;
 759     } else
 760 #endif
 761     {
 762         /* XXX: using gettimeofday leads to problems if the date
 763            changes, so it should be avoided. */
 764         struct timeval tv;
 765         gettimeofday(&tv, NULL);
 766         return tv.tv_sec * 1000000000LL + (tv.tv_usec * 1000);
 767     }
 768 }
 769 #endif
 770
 771 /* Return the virtual CPU time, based on the instruction counter.  */
 772 static int64_t cpu_get_icount(void)
 773 {
 774     int64_t icount;
 775     CPUState *env = cpu_single_env;;
 776     icount = qemu_icount;
 777     if (env) {
 778         if (!can_do_io(env))
 779             fprintf(stderr, "Bad clock read\n");
 780         icount -= (env->icount_decr.u16.low + env->icount_extra);
 781     }
 782     return qemu_icount_bias + (icount << icount_time_shift);
 783 }
 784
 785 /***********************************************************/
 786 /* guest cycle counter */
 787
 788 static int64_t cpu_ticks_prev;
 789 static int64_t cpu_ticks_offset;
 790 static int64_t cpu_clock_offset;
 791 static int cpu_ticks_enabled;
 792
 793 /* return the host CPU cycle counter and handle stop/restart */
 794 int64_t cpu_get_ticks(void)
 795 {
 796     if (use_icount) {
 797         return cpu_get_icount();
 798     }
 799     if (!cpu_ticks_enabled) {
 800         return cpu_ticks_offset;
 801     } else {
 802         int64_t ticks;
 803         ticks = cpu_get_real_ticks();
 804         if (cpu_ticks_prev > ticks) {
 805             /* Note: non increasing ticks may happen if the host uses
 806                software suspend */
 807             cpu_ticks_offset += cpu_ticks_prev - ticks;
 808         }
 809         cpu_ticks_prev = ticks;
 810         return ticks + cpu_ticks_offset;
 811     }
 812 }
 813
 814 /* return the host CPU monotonic timer and handle stop/restart */
 815 static int64_t cpu_get_clock(void)
 816 {
 817     int64_t ti;
 818     if (!cpu_ticks_enabled) {
 819         return cpu_clock_offset;
 820     } else {
 821         ti = get_clock();
 822         return ti + cpu_clock_offset;
 823     }
 824 }
 825
 826 /* enable cpu_get_ticks() */
 827 void cpu_enable_ticks(void)
 828 {
 829     if (!cpu_ticks_enabled) {
 830         cpu_ticks_offset -= cpu_get_real_ticks();
 831         cpu_clock_offset -= get_clock();
 832         cpu_ticks_enabled = 1;
 833     }
 834 }
 835
 836 /* disable cpu_get_ticks() : the clock is stopped. You must not call
 837    cpu_get_ticks() after that.  */
 838 void cpu_disable_ticks(void)
 839 {
 840     if (cpu_ticks_enabled) {
 841         cpu_ticks_offset = cpu_get_ticks();
 842         cpu_clock_offset = cpu_get_clock();
 843         cpu_ticks_enabled = 0;
 844     }
 845 }
 846
 847 /***********************************************************/
 848 /* timers */
 849
 850 #define QEMU_TIMER_REALTIME 0
 851 #define QEMU_TIMER_VIRTUAL  1
 852
 853 struct QEMUClock {
 854     int type;
 855     /* XXX: add frequency */
 856 };
 857
 858 struct QEMUTimer {
 859     QEMUClock *clock;
 860     int64_t expire_time;
 861     QEMUTimerCB *cb;
 862     void *opaque;
 863     struct QEMUTimer *next;
 864 };
 865
 866 struct qemu_alarm_timer {
 867     char const *name;
 868     unsigned int flags;
 869
 870     int (*start)(struct qemu_alarm_timer *t);
 871     void (*stop)(struct qemu_alarm_timer *t);
 872     void (*rearm)(struct qemu_alarm_timer *t);
 873     void *priv;
 874 };
 875
 876 #define ALARM_FLAG_DYNTICKS  0x1
 877 #define ALARM_FLAG_EXPIRED   0x2
 878
 879 static inline int alarm_has_dynticks(struct qemu_alarm_timer *t)
 880 {
 881     return t->flags & ALARM_FLAG_DYNTICKS;
 882 }
 883
 884 static void qemu_rearm_alarm_timer(struct qemu_alarm_timer *t)
 885 {
 886     if (!alarm_has_dynticks(t))
 887         return;
 888
 889     t->rearm(t);
 890 }
 891
 892 /* TODO: MIN_TIMER_REARM_US should be optimized */
 893 #define MIN_TIMER_REARM_US 250
 894
 895 static struct qemu_alarm_timer *alarm_timer;
 896 #ifndef _WIN32
 897 static int alarm_timer_rfd, alarm_timer_wfd;
 898 #endif
 899
 900 #ifdef _WIN32
 901
 902 struct qemu_alarm_win32 {
 903     MMRESULT timerId;
 904     HANDLE host_alarm;
 905     unsigned int period;
 906 } alarm_win32_data = {0, NULL, -1};
 907
 908 static int win32_start_timer(struct qemu_alarm_timer *t);
 909 static void win32_stop_timer(struct qemu_alarm_timer *t);
 910 static void win32_rearm_timer(struct qemu_alarm_timer *t);
 911
 912 #else
 913
 914 static int unix_start_timer(struct qemu_alarm_timer *t);
 915 static void unix_stop_timer(struct qemu_alarm_timer *t);
 916
 917 #ifdef __linux__
 918
 919 static int dynticks_start_timer(struct qemu_alarm_timer *t);
 920 static void dynticks_stop_timer(struct qemu_alarm_timer *t);
 921 static void dynticks_rearm_timer(struct qemu_alarm_timer *t);
 922
 923 static int hpet_start_timer(struct qemu_alarm_timer *t);
 924 static void hpet_stop_timer(struct qemu_alarm_timer *t);
 925
 926 static int rtc_start_timer(struct qemu_alarm_timer *t);
 927 static void rtc_stop_timer(struct qemu_alarm_timer *t);
 928
 929 #endif /* __linux__ */
 930
 931 #endif /* _WIN32 */
 932
 933 /* Correlation between real and virtual time is always going to be
 934    fairly approximate, so ignore small variation.
 935    When the guest is idle real and virtual time will be aligned in
 936    the IO wait loop.  */
 937 #define ICOUNT_WOBBLE (QEMU_TIMER_BASE / 10)
 938
 939 static void icount_adjust(void)
 940 {
 941     int64_t cur_time;
 942     int64_t cur_icount;
 943     int64_t delta;
 944     static int64_t last_delta;
 945     /* If the VM is not running, then do nothing.  */
 946     if (!vm_running)
 947         return;
 948
 949     cur_time = cpu_get_clock();
 950     cur_icount = qemu_get_clock(vm_clock);
 951     delta = cur_icount - cur_time;
 952     /* FIXME: This is a very crude algorithm, somewhat prone to oscillation.  */
 953     if (delta > 0
 954         && last_delta + ICOUNT_WOBBLE < delta * 2
 955         && icount_time_shift > 0) {
 956         /* The guest is getting too far ahead.  Slow time down.  */
 957         icount_time_shift--;
 958     }
 959     if (delta < 0
 960         && last_delta - ICOUNT_WOBBLE > delta * 2
 961         && icount_time_shift < MAX_ICOUNT_SHIFT) {
 962         /* The guest is getting too far behind.  Speed time up.  */
 963         icount_time_shift++;
 964     }
 965     last_delta = delta;
 966     qemu_icount_bias = cur_icount - (qemu_icount << icount_time_shift);
 967 }
 968
 969 static void icount_adjust_rt(void * opaque)
 970 {
 971     qemu_mod_timer(icount_rt_timer,
 972                    qemu_get_clock(rt_clock) + 1000);
 973     icount_adjust();
 974 }
 975
 976 static void icount_adjust_vm(void * opaque)
 977 {
 978     qemu_mod_timer(icount_vm_timer,
 979                    qemu_get_clock(vm_clock) + QEMU_TIMER_BASE / 10);
 980     icount_adjust();
 981 }
 982
 983 static void init_icount_adjust(void)
 984 {
 985     /* Have both realtime and virtual time triggers for speed adjustment.
 986        The realtime trigger catches emulated time passing too slowly,
 987        the virtual time trigger catches emulated time passing too fast.
 988        Realtime triggers occur even when idle, so use them less frequently
 989        than VM triggers.  */
 990     icount_rt_timer = qemu_new_timer(rt_clock, icount_adjust_rt, NULL);
 991     qemu_mod_timer(icount_rt_timer,
 992                    qemu_get_clock(rt_clock) + 1000);
 993     icount_vm_timer = qemu_new_timer(vm_clock, icount_adjust_vm, NULL);
 994     qemu_mod_timer(icount_vm_timer,
 995                    qemu_get_clock(vm_clock) + QEMU_TIMER_BASE / 10);
 996 }
 997
 998 static struct qemu_alarm_timer alarm_timers[] = {
 999 #ifndef _WIN32
1000 #ifdef __linux__
1001     {"dynticks", ALARM_FLAG_DYNTICKS, dynticks_start_timer,
1002      dynticks_stop_timer, dynticks_rearm_timer, NULL},
1003     /* HPET - if available - is preferred */
1004     {"hpet", 0, hpet_start_timer, hpet_stop_timer, NULL, NULL},
1005     /* ...otherwise try RTC */
1006     {"rtc", 0, rtc_start_timer, rtc_stop_timer, NULL, NULL},
1007 #endif
1008     {"unix", 0, unix_start_timer, unix_stop_timer, NULL, NULL},
1009 #else
1010     {"dynticks", ALARM_FLAG_DYNTICKS, win32_start_timer,
1011      win32_stop_timer, win32_rearm_timer, &alarm_win32_data},
1012     {"win32", 0, win32_start_timer,
1013      win32_stop_timer, NULL, &alarm_win32_data},
1014 #endif
1015     {NULL, }
1016 };
1017
1018 static void show_available_alarms(void)
1019 {
1020     int i;
1021
1022     printf("Available alarm timers, in order of precedence:\n");
1023     for (i = 0; alarm_timers[i].name; i++)
1024         printf("%s\n", alarm_timers[i].name);
1025 }
1026
1027 static void configure_alarms(char const *opt)
1028 {
1029     int i;
1030     int cur = 0;
1031     int count = (sizeof(alarm_timers) / sizeof(*alarm_timers)) - 1;
1032     char *arg;
1033     char *name;
1034     struct qemu_alarm_timer tmp;
1035
1036     if (!strcmp(opt, "?")) {
1037         show_available_alarms();
1038         exit(0);
1039     }
1040
1041     arg = strdup(opt);
1042
1043     /* Reorder the array */
1044     name = strtok(arg, ",");
1045     while (name) {
1046         for (i = 0; i < count && alarm_timers[i].name; i++) {
1047             if (!strcmp(alarm_timers[i].name, name))
1048                 break;
1049         }
1050
1051         if (i == count) {
1052             fprintf(stderr, "Unknown clock %s\n", name);
1053             goto next;
1054         }
1055
1056         if (i < cur)
1057             /* Ignore */
1058             goto next;
1059
1060         /* Swap */
1061         tmp = alarm_timers[i];
1062         alarm_timers[i] = alarm_timers[cur];
1063         alarm_timers[cur] = tmp;
1064
1065         cur++;
1066 next:
1067         name = strtok(NULL, ",");
1068     }
1069
1070     free(arg);
1071
1072     if (cur) {
1073         /* Disable remaining timers */
1074         for (i = cur; i < count; i++)
1075             alarm_timers[i].name = NULL;
1076     } else {
1077         show_available_alarms();
1078         exit(1);
1079     }
1080 }
1081
1082 QEMUClock *rt_clock;
1083 QEMUClock *vm_clock;
1084
1085 static QEMUTimer *active_timers[2];
1086
1087 static QEMUClock *qemu_new_clock(int type)
1088 {
1089     QEMUClock *clock;
1090     clock = qemu_mallocz(sizeof(QEMUClock));
1091     if (!clock)
1092         return NULL;
1093     clock->type = type;
1094     return clock;
1095 }
1096
1097 QEMUTimer *qemu_new_timer(QEMUClock *clock, QEMUTimerCB *cb, void *opaque)
1098 {
1099     QEMUTimer *ts;
1100
1101     ts = qemu_mallocz(sizeof(QEMUTimer));
1102     ts->clock = clock;
1103     ts->cb = cb;
1104     ts->opaque = opaque;
1105     return ts;
1106 }
1107
1108 void qemu_free_timer(QEMUTimer *ts)
1109 {
1110     qemu_free(ts);
1111 }
1112
1113 /* stop a timer, but do not dealloc it */
1114 void qemu_del_timer(QEMUTimer *ts)
1115 {
1116     QEMUTimer **pt, *t;
1117
1118     /* NOTE: this code must be signal safe because
1119        qemu_timer_expired() can be called from a signal. */
1120     pt = &active_timers[ts->clock->type];
1121     for(;;) {
1122         t = *pt;
1123         if (!t)
1124             break;
1125         if (t == ts) {
1126             *pt = t->next;
1127             break;
1128         }
1129         pt = &t->next;
1130     }
1131 }
1132
1133 /* modify the current timer so that it will be fired when current_time
1134    >= expire_time. The corresponding callback will be called. */
1135 void qemu_mod_timer(QEMUTimer *ts, int64_t expire_time)
1136 {
1137     QEMUTimer **pt, *t;
1138
1139     qemu_del_timer(ts);
1140
1141     /* add the timer in the sorted list */
1142     /* NOTE: this code must be signal safe because
1143        qemu_timer_expired() can be called from a signal. */
1144     pt = &active_timers[ts->clock->type];
1145     for(;;) {
1146         t = *pt;
1147         if (!t)
1148             break;
1149         if (t->expire_time > expire_time)
1150             break;
1151         pt = &t->next;
1152     }
1153     ts->expire_time = expire_time;
1154     ts->next = *pt;
1155     *pt = ts;
1156
1157     /* Rearm if necessary  */
1158     if (pt == &active_timers[ts->clock->type]) {
1159         if ((alarm_timer->flags & ALARM_FLAG_EXPIRED) == 0) {
1160             qemu_rearm_alarm_timer(alarm_timer);
1161         }
1162         /* Interrupt execution to force deadline recalculation.  */
1163         if (use_icount && cpu_single_env) {
1164             cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
1165         }
1166     }
1167 }
1168
1169 int qemu_timer_pending(QEMUTimer *ts)
1170 {
1171     QEMUTimer *t;
1172     for(t = active_timers[ts->clock->type]; t != NULL; t = t->next) {
1173         if (t == ts)
1174             return 1;
1175     }
1176     return 0;
1177 }
1178
1179 static inline int qemu_timer_expired(QEMUTimer *timer_head, int64_t current_time)
1180 {
1181     if (!timer_head)
1182         return 0;
1183     return (timer_head->expire_time <= current_time);
1184 }
1185
1186 static void qemu_run_timers(QEMUTimer **ptimer_head, int64_t current_time)
1187 {
1188     QEMUTimer *ts;
1189
1190     for(;;) {
1191         ts = *ptimer_head;
1192         if (!ts || ts->expire_time > current_time)
1193             break;
1194         /* remove timer from the list before calling the callback */
1195         *ptimer_head = ts->next;
1196         ts->next = NULL;
1197
1198         /* run the callback (the timer list can be modified) */
1199         ts->cb(ts->opaque);
1200     }
1201 }
1202
1203 int64_t qemu_get_clock(QEMUClock *clock)
1204 {
1205     switch(clock->type) {
1206     case QEMU_TIMER_REALTIME:
1207         return get_clock() / 1000000;
1208     default:
1209     case QEMU_TIMER_VIRTUAL:
1210         if (use_icount) {
1211             return cpu_get_icount();
1212         } else {
1213             return cpu_get_clock();
1214         }
1215     }
1216 }
1217
1218 static void init_timers(void)
1219 {
1220     init_get_clock();
1221     ticks_per_sec = QEMU_TIMER_BASE;
1222     rt_clock = qemu_new_clock(QEMU_TIMER_REALTIME);
1223     vm_clock = qemu_new_clock(QEMU_TIMER_VIRTUAL);
1224 }
1225
1226 /* save a timer */
1227 void qemu_put_timer(QEMUFile *f, QEMUTimer *ts)
1228 {
1229     uint64_t expire_time;
1230
1231     if (qemu_timer_pending(ts)) {
1232         expire_time = ts->expire_time;
1233     } else {
1234         expire_time = -1;
1235     }
1236     qemu_put_be64(f, expire_time);
1237 }
1238
1239 void qemu_get_timer(QEMUFile *f, QEMUTimer *ts)
1240 {
1241     uint64_t expire_time;
1242
1243     expire_time = qemu_get_be64(f);
1244     if (expire_time != -1) {
1245         qemu_mod_timer(ts, expire_time);
1246     } else {
1247         qemu_del_timer(ts);
1248     }
1249 }
1250
1251 static void timer_save(QEMUFile *f, void *opaque)
1252 {
1253     if (cpu_ticks_enabled) {
1254         hw_error("cannot save state if virtual timers are running");
1255     }
1256     qemu_put_be64(f, cpu_ticks_offset);
1257     qemu_put_be64(f, ticks_per_sec);
1258     qemu_put_be64(f, cpu_clock_offset);
1259 }
1260
1261 static int timer_load(QEMUFile *f, void *opaque, int version_id)
1262 {
1263     if (version_id != 1 && version_id != 2)
1264         return -EINVAL;
1265     if (cpu_ticks_enabled) {
1266         return -EINVAL;
1267     }
1268     cpu_ticks_offset=qemu_get_be64(f);
1269     ticks_per_sec=qemu_get_be64(f);
1270     if (version_id == 2) {
1271         cpu_clock_offset=qemu_get_be64(f);
1272     }
1273     return 0;
1274 }
1275
1276 #ifdef _WIN32
1277 void CALLBACK host_alarm_handler(UINT uTimerID, UINT uMsg,
1278                                  DWORD_PTR dwUser, DWORD_PTR dw1, DWORD_PTR dw2)
1279 #else
1280 static void host_alarm_handler(int host_signum)
1281 #endif
1282 {
1283 #if 0
1284 #define DISP_FREQ 1000
1285     {
1286         static int64_t delta_min = INT64_MAX;
1287         static int64_t delta_max, delta_cum, last_clock, delta, ti;
1288         static int count;
1289         ti = qemu_get_clock(vm_clock);
1290         if (last_clock != 0) {
1291             delta = ti - last_clock;
1292             if (delta < delta_min)
1293                 delta_min = delta;
1294             if (delta > delta_max)
1295                 delta_max = delta;
1296             delta_cum += delta;
1297             if (++count == DISP_FREQ) {
1298                 printf("timer: min=%" PRId64 " us max=%" PRId64 " us avg=%" PRId64 " us avg_freq=%0.3f Hz\n",
1299                        muldiv64(delta_min, 1000000, ticks_per_sec),
1300                        muldiv64(delta_max, 1000000, ticks_per_sec),
1301                        muldiv64(delta_cum, 1000000 / DISP_FREQ, ticks_per_sec),
1302                        (double)ticks_per_sec / ((double)delta_cum / DISP_FREQ));
1303                 count = 0;
1304                 delta_min = INT64_MAX;
1305                 delta_max = 0;
1306                 delta_cum = 0;
1307             }
1308         }
1309         last_clock = ti;
1310     }
1311 #endif
1312     if (alarm_has_dynticks(alarm_timer) ||
1313         (!use_icount &&
1314             qemu_timer_expired(active_timers[QEMU_TIMER_VIRTUAL],
1315                                qemu_get_clock(vm_clock))) ||
1316         qemu_timer_expired(active_timers[QEMU_TIMER_REALTIME],
1317                            qemu_get_clock(rt_clock))) {
1318         CPUState *env = next_cpu;
1319
1320 #ifdef _WIN32
1321         struct qemu_alarm_win32 *data = ((struct qemu_alarm_timer*)dwUser)->priv;
1322         SetEvent(data->host_alarm);
1323 #else
1324         static const char byte = 0;
1325         write(alarm_timer_wfd, &byte, sizeof(byte));
1326 #endif
1327         alarm_timer->flags |= ALARM_FLAG_EXPIRED;
1328
1329         if (env) {
1330             /* stop the currently executing cpu because a timer occured */
1331             cpu_interrupt(env, CPU_INTERRUPT_EXIT);
1332 #ifdef USE_KQEMU
1333             if (env->kqemu_enabled) {
1334                 kqemu_cpu_interrupt(env);
1335             }
1336 #endif
1337         }
1338         event_pending = 1;
1339     }
1340 }
1341
1342 static int64_t qemu_next_deadline(void)
1343 {
1344     int64_t delta;
1345
1346     if (active_timers[QEMU_TIMER_VIRTUAL]) {
1347         delta = active_timers[QEMU_TIMER_VIRTUAL]->expire_time -
1348                      qemu_get_clock(vm_clock);
1349     } else {
1350         /* To avoid problems with overflow limit this to 2^32.  */
1351         delta = INT32_MAX;
1352     }
1353
1354     if (delta < 0)
1355         delta = 0;
1356
1357     return delta;
1358 }
1359
1360 #if defined(__linux__) || defined(_WIN32)
1361 static uint64_t qemu_next_deadline_dyntick(void)
1362 {
1363     int64_t delta;
1364     int64_t rtdelta;
1365
1366     if (use_icount)
1367         delta = INT32_MAX;
1368     else
1369         delta = (qemu_next_deadline() + 999) / 1000;
1370
1371     if (active_timers[QEMU_TIMER_REALTIME]) {
1372         rtdelta = (active_timers[QEMU_TIMER_REALTIME]->expire_time -
1373                  qemu_get_clock(rt_clock))*1000;
1374         if (rtdelta < delta)
1375             delta = rtdelta;
1376     }
1377
1378     if (delta < MIN_TIMER_REARM_US)
1379         delta = MIN_TIMER_REARM_US;
1380
1381     return delta;
1382 }
1383 #endif
1384
1385 #ifndef _WIN32
1386
1387 /* Sets a specific flag */
1388 static int fcntl_setfl(int fd, int flag)
1389 {
1390     int flags;
1391
1392     flags = fcntl(fd, F_GETFL);
1393     if (flags == -1)
1394         return -errno;
1395
1396     if (fcntl(fd, F_SETFL, flags | flag) == -1)
1397         return -errno;
1398
1399     return 0;
1400 }
1401
1402 #if defined(__linux__)
1403
1404 #define RTC_FREQ 1024
1405
1406 static void enable_sigio_timer(int fd)
1407 {
1408     struct sigaction act;
1409
1410     /* timer signal */
1411     sigfillset(&act.sa_mask);
1412     act.sa_flags = 0;
1413     act.sa_handler = host_alarm_handler;
1414
1415     sigaction(SIGIO, &act, NULL);
1416     fcntl_setfl(fd, O_ASYNC);
1417     fcntl(fd, F_SETOWN, getpid());
1418 }
1419
1420 static int hpet_start_timer(struct qemu_alarm_timer *t)
1421 {
1422     struct hpet_info info;
1423     int r, fd;
1424
1425     fd = open("/dev/hpet", O_RDONLY);
1426     if (fd < 0)
1427         return -1;
1428
1429     /* Set frequency */
1430     r = ioctl(fd, HPET_IRQFREQ, RTC_FREQ);
1431     if (r < 0) {
1432         fprintf(stderr, "Could not configure '/dev/hpet' to have a 1024Hz timer. This is not a fatal\n"
1433                 "error, but for better emulation accuracy type:\n"
1434                 "'echo 1024 > /proc/sys/dev/hpet/max-user-freq' as root.\n");
1435         goto fail;
1436     }
1437
1438     /* Check capabilities */
1439     r = ioctl(fd, HPET_INFO, &info);
1440     if (r < 0)
1441         goto fail;
1442
1443     /* Enable periodic mode */
1444     r = ioctl(fd, HPET_EPI, 0);
1445     if (info.hi_flags && (r < 0))
1446         goto fail;
1447
1448     /* Enable interrupt */
1449     r = ioctl(fd, HPET_IE_ON, 0);
1450     if (r < 0)
1451         goto fail;
1452
1453     enable_sigio_timer(fd);
1454     t->priv = (void *)(long)fd;
1455
1456     return 0;
1457 fail:
1458     close(fd);
1459     return -1;
1460 }
1461
1462 static void hpet_stop_timer(struct qemu_alarm_timer *t)
1463 {
1464     int fd = (long)t->priv;
1465
1466     close(fd);
1467 }
1468
1469 static int rtc_start_timer(struct qemu_alarm_timer *t)
1470 {
1471     int rtc_fd;
1472     unsigned long current_rtc_freq = 0;
1473
1474     TFR(rtc_fd = open("/dev/rtc", O_RDONLY));
1475     if (rtc_fd < 0)
1476         return -1;
1477     ioctl(rtc_fd, RTC_IRQP_READ, &current_rtc_freq);
1478     if (current_rtc_freq != RTC_FREQ &&
1479         ioctl(rtc_fd, RTC_IRQP_SET, RTC_FREQ) < 0) {
1480         fprintf(stderr, "Could not configure '/dev/rtc' to have a 1024 Hz timer. This is not a fatal\n"
1481                 "error, but for better emulation accuracy either use a 2.6 host Linux kernel or\n"
1482                 "type 'echo 1024 > /proc/sys/dev/rtc/max-user-freq' as root.\n");
1483         goto fail;
1484     }
1485     if (ioctl(rtc_fd, RTC_PIE_ON, 0) < 0) {
1486     fail:
1487         close(rtc_fd);
1488         return -1;
1489     }
1490
1491     enable_sigio_timer(rtc_fd);
1492
1493     t->priv = (void *)(long)rtc_fd;
1494
1495     return 0;
1496 }
1497
1498 static void rtc_stop_timer(struct qemu_alarm_timer *t)
1499 {
1500     int rtc_fd = (long)t->priv;
1501
1502     close(rtc_fd);
1503 }
1504
1505 static int dynticks_start_timer(struct qemu_alarm_timer *t)
1506 {
1507     struct sigevent ev;
1508     timer_t host_timer;
1509     struct sigaction act;
1510
1511     sigfillset(&act.sa_mask);
1512     act.sa_flags = 0;
1513     act.sa_handler = host_alarm_handler;
1514
1515     sigaction(SIGALRM, &act, NULL);
1516
1517     ev.sigev_value.sival_int = 0;
1518     ev.sigev_notify = SIGEV_SIGNAL;
1519     ev.sigev_signo = SIGALRM;
1520
1521     if (timer_create(CLOCK_REALTIME, &ev, &host_timer)) {
1522         perror("timer_create");
1523
1524         /* disable dynticks */
1525         fprintf(stderr, "Dynamic Ticks disabled\n");
1526
1527         return -1;
1528     }
1529
1530     t->priv = (void *)host_timer;
1531
1532     return 0;
1533 }
1534
1535 static void dynticks_stop_timer(struct qemu_alarm_timer *t)
1536 {
1537     timer_t host_timer = (timer_t)t->priv;
1538
1539     timer_delete(host_timer);
1540 }
1541
1542 static void dynticks_rearm_timer(struct qemu_alarm_timer *t)
1543 {
1544     timer_t host_timer = (timer_t)t->priv;
1545     struct itimerspec timeout;
1546     int64_t nearest_delta_us = INT64_MAX;
1547     int64_t current_us;
1548
1549     if (!active_timers[QEMU_TIMER_REALTIME] &&
1550                 !active_timers[QEMU_TIMER_VIRTUAL])
1551         return;
1552
1553     nearest_delta_us = qemu_next_deadline_dyntick();
1554
1555     /* check whether a timer is already running */
1556     if (timer_gettime(host_timer, &timeout)) {
1557         perror("gettime");
1558         fprintf(stderr, "Internal timer error: aborting\n");
1559         exit(1);
1560     }
1561     current_us = timeout.it_value.tv_sec * 1000000 + timeout.it_value.tv_nsec/1000;
1562     if (current_us && current_us <= nearest_delta_us)
1563         return;
1564
1565     timeout.it_interval.tv_sec = 0;
1566     timeout.it_interval.tv_nsec = 0; /* 0 for one-shot timer */
1567     timeout.it_value.tv_sec =  nearest_delta_us / 1000000;
1568     timeout.it_value.tv_nsec = (nearest_delta_us % 1000000) * 1000;
1569     if (timer_settime(host_timer, 0 /* RELATIVE */, &timeout, NULL)) {
1570         perror("settime");
1571         fprintf(stderr, "Internal timer error: aborting\n");
1572         exit(1);
1573     }
1574 }
1575
1576 #endif /* defined(__linux__) */
1577
1578 static int unix_start_timer(struct qemu_alarm_timer *t)
1579 {
1580     struct sigaction act;
1581     struct itimerval itv;
1582     int err;
1583
1584     /* timer signal */
1585     sigfillset(&act.sa_mask);
1586     act.sa_flags = 0;
1587     act.sa_handler = host_alarm_handler;
1588
1589     sigaction(SIGALRM, &act, NULL);
1590
1591     itv.it_interval.tv_sec = 0;
1592     /* for i386 kernel 2.6 to get 1 ms */
1593     itv.it_interval.tv_usec = 999;
1594     itv.it_value.tv_sec = 0;
1595     itv.it_value.tv_usec = 10 * 1000;
1596
1597     err = setitimer(ITIMER_REAL, &itv, NULL);
1598     if (err)
1599         return -1;
1600
1601     return 0;
1602 }
1603
1604 static void unix_stop_timer(struct qemu_alarm_timer *t)
1605 {
1606     struct itimerval itv;
1607
1608     memset(&itv, 0, sizeof(itv));
1609     setitimer(ITIMER_REAL, &itv, NULL);
1610 }
1611
1612 #endif /* !defined(_WIN32) */
1613
1614 static void try_to_rearm_timer(void *opaque)
1615 {
1616     struct qemu_alarm_timer *t = opaque;
1617 #ifndef _WIN32
1618     ssize_t len;
1619
1620     /* Drain the notify pipe */
1621     do {
1622         char buffer[512];
1623         len = read(alarm_timer_rfd, buffer, sizeof(buffer));
1624     } while ((len == -1 && errno == EINTR) || len > 0);
1625 #endif
1626
1627     /* vm time timers */
1628     if (vm_running && likely(!(cur_cpu->singlestep_enabled & SSTEP_NOTIMER)))
1629         qemu_run_timers(&active_timers[QEMU_TIMER_VIRTUAL],
1630                         qemu_get_clock(vm_clock));
1631
1632     /* real time timers */
1633     qemu_run_timers(&active_timers[QEMU_TIMER_REALTIME],
1634                     qemu_get_clock(rt_clock));
1635
1636     if (t->flags & ALARM_FLAG_EXPIRED) {
1637         alarm_timer->flags &= ~ALARM_FLAG_EXPIRED;
1638         qemu_rearm_alarm_timer(alarm_timer);
1639     }
1640 }
1641
1642 #ifdef _WIN32
1643
1644 static int win32_start_timer(struct qemu_alarm_timer *t)
1645 {
1646     TIMECAPS tc;
1647     struct qemu_alarm_win32 *data = t->priv;
1648     UINT flags;
1649
1650     data->host_alarm = CreateEvent(NULL, FALSE, FALSE, NULL);
1651     if (!data->host_alarm) {
1652         perror("Failed CreateEvent");
1653         return -1;
1654     }
1655
1656     memset(&tc, 0, sizeof(tc));
1657     timeGetDevCaps(&tc, sizeof(tc));
1658
1659     if (data->period < tc.wPeriodMin)
1660         data->period = tc.wPeriodMin;
1661
1662     timeBeginPeriod(data->period);
1663
1664     flags = TIME_CALLBACK_FUNCTION;
1665     if (alarm_has_dynticks(t))
1666         flags |= TIME_ONESHOT;
1667     else
1668         flags |= TIME_PERIODIC;
1669
1670     data->timerId = timeSetEvent(1,         // interval (ms)
1671                         data->period,       // resolution
1672                         host_alarm_handler, // function
1673                         (DWORD)t,           // parameter
1674                         flags);
1675
1676     if (!data->timerId) {
1677         perror("Failed to initialize win32 alarm timer");
1678
1679         timeEndPeriod(data->period);
1680         CloseHandle(data->host_alarm);
1681         return -1;
1682     }
1683
1684     qemu_add_wait_object(data->host_alarm, try_to_rearm_timer, t);
1685
1686     return 0;
1687 }
1688
1689 static void win32_stop_timer(struct qemu_alarm_timer *t)
1690 {
1691     struct qemu_alarm_win32 *data = t->priv;
1692
1693     timeKillEvent(data->timerId);
1694     timeEndPeriod(data->period);
1695
1696     CloseHandle(data->host_alarm);
1697 }
1698
1699 static void win32_rearm_timer(struct qemu_alarm_timer *t)
1700 {
1701     struct qemu_alarm_win32 *data = t->priv;
1702     uint64_t nearest_delta_us;
1703
1704     if (!active_timers[QEMU_TIMER_REALTIME] &&
1705                 !active_timers[QEMU_TIMER_VIRTUAL])
1706         return;
1707
1708     nearest_delta_us = qemu_next_deadline_dyntick();
1709     nearest_delta_us /= 1000;
1710
1711     timeKillEvent(data->timerId);
1712
1713     data->timerId = timeSetEvent(1,
1714                         data->period,
1715                         host_alarm_handler,
1716                         (DWORD)t,
1717                         TIME_ONESHOT | TIME_PERIODIC);
1718
1719     if (!data->timerId) {
1720         perror("Failed to re-arm win32 alarm timer");
1721
1722         timeEndPeriod(data->period);
1723         CloseHandle(data->host_alarm);
1724         exit(1);
1725     }
1726 }
1727
1728 #endif /* _WIN32 */
1729
1730 static int init_timer_alarm(void)
1731 {
1732     struct qemu_alarm_timer *t = NULL;
1733     int i, err = -1;
1734
1735 #ifndef _WIN32
1736     int fds[2];
1737
1738     err = pipe(fds);
1739     if (err == -1)
1740         return -errno;
1741
1742     err = fcntl_setfl(fds[0], O_NONBLOCK);
1743     if (err < 0)
1744         goto fail;
1745
1746     err = fcntl_setfl(fds[1], O_NONBLOCK);
1747     if (err < 0)
1748         goto fail;
1749
1750     alarm_timer_rfd = fds[0];
1751     alarm_timer_wfd = fds[1];
1752 #endif
1753
1754     for (i = 0; alarm_timers[i].name; i++) {
1755         t = &alarm_timers[i];
1756
1757         err = t->start(t);
1758         if (!err)
1759             break;
1760     }
1761
1762     if (err) {
1763         err = -ENOENT;
1764         goto fail;
1765     }
1766
1767 #ifndef _WIN32
1768     qemu_set_fd_handler2(alarm_timer_rfd, NULL,
1769                          try_to_rearm_timer, NULL, t);
1770 #endif
1771
1772     alarm_timer = t;
1773
1774     return 0;
1775
1776 fail:
1777 #ifndef _WIN32
1778     close(fds[0]);
1779     close(fds[1]);
1780 #endif
1781     return err;
1782 }
1783
1784 static void quit_timers(void)
1785 {
1786     alarm_timer->stop(alarm_timer);
1787     alarm_timer = NULL;
1788 }
1789
1790 /***********************************************************/
1791 /* host time/date access */
1792 void qemu_get_timedate(struct tm *tm, int offset)
1793 {
1794     time_t ti;
1795     struct tm *ret;
1796
1797     time(&ti);
1798     ti += offset;
1799     if (rtc_date_offset == -1) {
1800         if (rtc_utc)
1801             ret = gmtime(&ti);
1802         else
1803             ret = localtime(&ti);
1804     } else {
1805         ti -= rtc_date_offset;
1806         ret = gmtime(&ti);
1807     }
1808
1809     memcpy(tm, ret, sizeof(struct tm));
1810 }
1811
1812 int qemu_timedate_diff(struct tm *tm)
1813 {
1814     time_t seconds;
1815
1816     if (rtc_date_offset == -1)
1817         if (rtc_utc)
1818             seconds = mktimegm(tm);
1819         else
1820             seconds = mktime(tm);
1821     else
1822         seconds = mktimegm(tm) + rtc_date_offset;
1823
1824     return seconds - time(NULL);
1825 }
1826
1827 #ifdef _WIN32
1828 static void socket_cleanup(void)
1829 {
1830     WSACleanup();
1831 }
1832
1833 static int socket_init(void)
1834 {
1835     WSADATA Data;
1836     int ret, err;
1837
1838     ret = WSAStartup(MAKEWORD(2,2), &Data);
1839     if (ret != 0) {
1840         err = WSAGetLastError();
1841         fprintf(stderr, "WSAStartup: %d\n", err);
1842         return -1;
1843     }
1844     atexit(socket_cleanup);
1845     return 0;
1846 }
1847 #endif
1848
1849 const char *get_opt_name(char *buf, int buf_size, const char *p)
1850 {
1851     char *q;
1852
1853     q = buf;
1854     while (*p != '\0' && *p != '=') {
1855         if (q && (q - buf) < buf_size - 1)
1856             *q++ = *p;
1857         p++;
1858     }
1859     if (q)
1860         *q = '\0';
1861
1862     return p;
1863 }
1864
1865 const char *get_opt_value(char *buf, int buf_size, const char *p)
1866 {
1867     char *q;
1868
1869     q = buf;
1870     while (*p != '\0') {
1871         if (*p == ',') {
1872             if (*(p + 1) != ',')
1873                 break;
1874             p++;
1875         }
1876         if (q && (q - buf) < buf_size - 1)
1877             *q++ = *p;
1878         p++;
1879     }
1880     if (q)
1881         *q = '\0';
1882
1883     return p;
1884 }
1885
1886 int get_param_value(char *buf, int buf_size,
1887                     const char *tag, const char *str)
1888 {
1889     const char *p;
1890     char option[128];
1891
1892     p = str;
1893     for(;;) {
1894         p = get_opt_name(option, sizeof(option), p);
1895         if (*p != '=')
1896             break;
1897         p++;
1898         if (!strcmp(tag, option)) {
1899             (void)get_opt_value(buf, buf_size, p);
1900             return strlen(buf);
1901         } else {
1902             p = get_opt_value(NULL, 0, p);
1903         }
1904         if (*p != ',')
1905             break;
1906         p++;
1907     }
1908     return 0;
1909 }
1910
1911 int check_params(char *buf, int buf_size,
1912                  const char * const *params, const char *str)
1913 {
1914     const char *p;
1915     int i;
1916
1917     p = str;
1918     for(;;) {
1919         p = get_opt_name(buf, buf_size, p);
1920         if (*p != '=')
1921             return -1;
1922         p++;
1923         for(i = 0; params[i] != NULL; i++)
1924             if (!strcmp(params[i], buf))
1925                 break;
1926         if (params[i] == NULL)
1927             return -1;
1928         p = get_opt_value(NULL, 0, p);
1929         if (*p != ',')
1930             break;
1931         p++;
1932     }
1933     return 0;
1934 }
1935
1936 /***********************************************************/
1937 /* Bluetooth support */
1938 static int nb_hcis;
1939 static int cur_hci;
1940 static struct HCIInfo *hci_table[MAX_NICS];
1941
1942 static struct bt_vlan_s {
1943     struct bt_scatternet_s net;
1944     int id;
1945     struct bt_vlan_s *next;
1946 } *first_bt_vlan;
1947
1948 /* find or alloc a new bluetooth "VLAN" */
1949 static struct bt_scatternet_s *qemu_find_bt_vlan(int id)
1950 {
1951     struct bt_vlan_s **pvlan, *vlan;
1952     for (vlan = first_bt_vlan; vlan != NULL; vlan = vlan->next) {
1953         if (vlan->id == id)
1954             return &vlan->net;
1955     }
1956     vlan = qemu_mallocz(sizeof(struct bt_vlan_s));
1957     vlan->id = id;
1958     pvlan = &first_bt_vlan;
1959     while (*pvlan != NULL)
1960         pvlan = &(*pvlan)->next;
1961     *pvlan = vlan;
1962     return &vlan->net;
1963 }
1964
1965 static void null_hci_send(struct HCIInfo *hci, const uint8_t *data, int len)
1966 {
1967 }
1968
1969 static int null_hci_addr_set(struct HCIInfo *hci, const uint8_t *bd_addr)
1970 {
1971     return -ENOTSUP;
1972 }
1973
1974 static struct HCIInfo null_hci = {
1975     .cmd_send = null_hci_send,
1976     .sco_send = null_hci_send,
1977     .acl_send = null_hci_send,
1978     .bdaddr_set = null_hci_addr_set,
1979 };
1980
1981 struct HCIInfo *qemu_next_hci(void)
1982 {
1983     if (cur_hci == nb_hcis)
1984         return &null_hci;
1985
1986     return hci_table[cur_hci++];
1987 }
1988
1989 static struct HCIInfo *hci_init(const char *str)
1990 {
1991     char *endp;
1992     struct bt_scatternet_s *vlan = 0;
1993
1994     if (!strcmp(str, "null"))
1995         /* null */
1996         return &null_hci;
1997     else if (!strncmp(str, "host", 4) && (str[4] == '\0' || str[4] == ':'))
1998         /* host[:hciN] */
1999         return bt_host_hci(str[4] ? str + 5 : "hci0");
2000     else if (!strncmp(str, "hci", 3)) {
2001         /* hci[,vlan=n] */
2002         if (str[3]) {
2003             if (!strncmp(str + 3, ",vlan=", 6)) {
2004                 vlan = qemu_find_bt_vlan(strtol(str + 9, &endp, 0));
2005                 if (*endp)
2006                     vlan = 0;
2007             }
2008         } else
2009             vlan = qemu_find_bt_vlan(0);
2010         if (vlan)
2011            return bt_new_hci(vlan);
2012     }
2013
2014     fprintf(stderr, "qemu: Unknown bluetooth HCI `%s'.\n", str);
2015
2016     return 0;
2017 }
2018
2019 static int bt_hci_parse(const char *str)
2020 {
2021     struct HCIInfo *hci;
2022     bdaddr_t bdaddr;
2023
2024     if (nb_hcis >= MAX_NICS) {
2025         fprintf(stderr, "qemu: Too many bluetooth HCIs (max %i).\n", MAX_NICS);
2026         return -1;
2027     }
2028
2029     hci = hci_init(str);
2030     if (!hci)
2031         return -1;
2032
2033     bdaddr.b[0] = 0x52;
2034     bdaddr.b[1] = 0x54;
2035     bdaddr.b[2] = 0x00;
2036     bdaddr.b[3] = 0x12;
2037     bdaddr.b[4] = 0x34;
2038     bdaddr.b[5] = 0x56 + nb_hcis;
2039     hci->bdaddr_set(hci, bdaddr.b);
2040
2041     hci_table[nb_hcis++] = hci;
2042
2043     return 0;
2044 }
2045
2046 static void bt_vhci_add(int vlan_id)
2047 {
2048     struct bt_scatternet_s *vlan = qemu_find_bt_vlan(vlan_id);
2049
2050     if (!vlan->slave)
2051         fprintf(stderr, "qemu: warning: adding a VHCI to "
2052                         "an empty scatternet %i\n", vlan_id);
2053
2054     bt_vhci_init(bt_new_hci(vlan));
2055 }
2056
2057 static struct bt_device_s *bt_device_add(const char *opt)
2058 {
2059     struct bt_scatternet_s *vlan;
2060     int vlan_id = 0;
2061     char *endp = strstr(opt, ",vlan=");
2062     int len = (endp ? endp - opt : strlen(opt)) + 1;
2063     char devname[10];
2064
2065     pstrcpy(devname, MIN(sizeof(devname), len), opt);
2066
2067     if (endp) {
2068         vlan_id = strtol(endp + 6, &endp, 0);
2069         if (*endp) {
2070             fprintf(stderr, "qemu: unrecognised bluetooth vlan Id\n");
2071             return 0;
2072         }
2073     }
2074
2075     vlan = qemu_find_bt_vlan(vlan_id);
2076
2077     if (!vlan->slave)
2078         fprintf(stderr, "qemu: warning: adding a slave device to "
2079                         "an empty scatternet %i\n", vlan_id);
2080
2081     if (!strcmp(devname, "keyboard"))
2082         return bt_keyboard_init(vlan);
2083
2084     fprintf(stderr, "qemu: unsupported bluetooth device `%s'\n", devname);
2085     return 0;
2086 }
2087
2088 static int bt_parse(const char *opt)
2089 {
2090     const char *endp, *p;
2091     int vlan;
2092
2093     if (strstart(opt, "hci", &endp)) {
2094         if (!*endp || *endp == ',') {
2095             if (*endp)
2096                 if (!strstart(endp, ",vlan=", 0))
2097                     opt = endp + 1;
2098
2099             return bt_hci_parse(opt);
2100        }
2101     } else if (strstart(opt, "vhci", &endp)) {
2102         if (!*endp || *endp == ',') {
2103             if (*endp) {
2104                 if (strstart(endp, ",vlan=", &p)) {
2105                     vlan = strtol(p, (char **) &endp, 0);
2106                     if (*endp) {
2107                         fprintf(stderr, "qemu: bad scatternet '%s'\n", p);
2108                         return 1;
2109                     }
2110                 } else {
2111                     fprintf(stderr, "qemu: bad parameter '%s'\n", endp + 1);
2112                     return 1;
2113                 }
2114             } else
2115                 vlan = 0;
2116
2117             bt_vhci_add(vlan);
2118             return 0;
2119         }
2120     } else if (strstart(opt, "device:", &endp))
2121         return !bt_device_add(endp);
2122
2123     fprintf(stderr, "qemu: bad bluetooth parameter '%s'\n", opt);
2124     return 1;
2125 }
2126
2127 /***********************************************************/
2128 /* QEMU Block devices */
2129
2130 #define HD_ALIAS "index=%d,media=disk"
2131 #ifdef TARGET_PPC
2132 #define CDROM_ALIAS "index=1,media=cdrom"
2133 #else
2134 #define CDROM_ALIAS "index=2,media=cdrom"
2135 #endif
2136 #define FD_ALIAS "index=%d,if=floppy"
2137 #define PFLASH_ALIAS "if=pflash"
2138 #define MTD_ALIAS "if=mtd"
2139 #define SD_ALIAS "index=0,if=sd"
2140
2141 static int drive_add(const char *file, const char *fmt, ...)
2142 {
2143     va_list ap;
2144
2145     if (nb_drives_opt >= MAX_DRIVES) {
2146         fprintf(stderr, "qemu: too many drives\n");
2147         exit(1);
2148     }
2149
2150     drives_opt[nb_drives_opt].file = file;
2151     va_start(ap, fmt);
2152     vsnprintf(drives_opt[nb_drives_opt].opt,
2153               sizeof(drives_opt[0].opt), fmt, ap);
2154     va_end(ap);
2155
2156     return nb_drives_opt++;
2157 }
2158
2159 int drive_get_index(BlockInterfaceType type, int bus, int unit)
2160 {
2161     int index;
2162
2163     /* seek interface, bus and unit */
2164
2165     for (index = 0; index < nb_drives; index++)
2166         if (drives_table[index].type == type &&
2167             drives_table[index].bus == bus &&
2168             drives_table[index].unit == unit)
2169         return index;
2170
2171     return -1;
2172 }
2173
2174 int drive_get_max_bus(BlockInterfaceType type)
2175 {
2176     int max_bus;
2177     int index;
2178
2179     max_bus = -1;
2180     for (index = 0; index < nb_drives; index++) {
2181         if(drives_table[index].type == type &&
2182            drives_table[index].bus > max_bus)
2183             max_bus = drives_table[index].bus;
2184     }
2185     return max_bus;
2186 }
2187
2188 static void bdrv_format_print(void *opaque, const char *name)
2189 {
2190     fprintf(stderr, " %s", name);
2191 }
2192
2193 static int drive_init(struct drive_opt *arg, int snapshot,
2194                       QEMUMachine *machine)
2195 {
2196     char buf[128];
2197     char file[1024];
2198     char devname[128];
2199     const char *mediastr = "";
2200     BlockInterfaceType type;
2201     enum { MEDIA_DISK, MEDIA_CDROM } media;
2202     int bus_id, unit_id;
2203     int cyls, heads, secs, translation;
2204     BlockDriverState *bdrv;
2205     BlockDriver *drv = NULL;
2206     int max_devs;
2207     int index;
2208     int cache;
2209     int bdrv_flags;
2210     char *str = arg->opt;
2211     static const char * const params[] = { "bus", "unit", "if", "index",
2212                                            "cyls", "heads", "secs", "trans",
2213                                            "media", "snapshot", "file",
2214                                            "cache", "format", NULL };
2215
2216     if (check_params(buf, sizeof(buf), params, str) < 0) {
2217          fprintf(stderr, "qemu: unknown parameter '%s' in '%s'\n",
2218                          buf, str);
2219          return -1;
2220     }
2221
2222     file[0] = 0;
2223     cyls = heads = secs = 0;
2224     bus_id = 0;
2225     unit_id = -1;
2226     translation = BIOS_ATA_TRANSLATION_AUTO;
2227     index = -1;
2228     cache = 1;
2229
2230     if (machine->use_scsi) {
2231         type = IF_SCSI;
2232         max_devs = MAX_SCSI_DEVS;
2233         pstrcpy(devname, sizeof(devname), "scsi");
2234     } else {
2235         type = IF_IDE;
2236         max_devs = MAX_IDE_DEVS;
2237         pstrcpy(devname, sizeof(devname), "ide");
2238     }
2239     media = MEDIA_DISK;
2240
2241     /* extract parameters */
2242
2243     if (get_param_value(buf, sizeof(buf), "bus", str)) {
2244         bus_id = strtol(buf, NULL, 0);
2245         if (bus_id < 0) {
2246             fprintf(stderr, "qemu: '%s' invalid bus id\n", str);
2247             return -1;
2248         }
2249     }
2250
2251     if (get_param_value(buf, sizeof(buf), "unit", str)) {
2252         unit_id = strtol(buf, NULL, 0);
2253         if (unit_id < 0) {
2254             fprintf(stderr, "qemu: '%s' invalid unit id\n", str);
2255             return -1;
2256         }
2257     }
2258
2259     if (get_param_value(buf, sizeof(buf), "if", str)) {
2260         pstrcpy(devname, sizeof(devname), buf);
2261         if (!strcmp(buf, "ide")) {
2262             type = IF_IDE;
2263             max_devs = MAX_IDE_DEVS;
2264         } else if (!strcmp(buf, "scsi")) {
2265             type = IF_SCSI;
2266             max_devs = MAX_SCSI_DEVS;
2267         } else if (!strcmp(buf, "floppy")) {
2268             type = IF_FLOPPY;
2269             max_devs = 0;
2270         } else if (!strcmp(buf, "pflash")) {
2271             type = IF_PFLASH;
2272             max_devs = 0;
2273         } else if (!strcmp(buf, "mtd")) {
2274             type = IF_MTD;
2275             max_devs = 0;
2276         } else if (!strcmp(buf, "sd")) {
2277             type = IF_SD;
2278             max_devs = 0;
2279         } else {
2280             fprintf(stderr, "qemu: '%s' unsupported bus type '%s'\n", str, buf);
2281             return -1;
2282         }
2283     }
2284
2285     if (get_param_value(buf, sizeof(buf), "index", str)) {
2286         index = strtol(buf, NULL, 0);
2287         if (index < 0) {
2288             fprintf(stderr, "qemu: '%s' invalid index\n", str);
2289             return -1;
2290         }
2291     }
2292
2293     if (get_param_value(buf, sizeof(buf), "cyls", str)) {
2294         cyls = strtol(buf, NULL, 0);
2295     }
2296
2297     if (get_param_value(buf, sizeof(buf), "heads", str)) {
2298         heads = strtol(buf, NULL, 0);
2299     }
2300
2301     if (get_param_value(buf, sizeof(buf), "secs", str)) {
2302         secs = strtol(buf, NULL, 0);
2303     }
2304
2305     if (cyls || heads || secs) {
2306         if (cyls < 1 || cyls > 16383) {
2307             fprintf(stderr, "qemu: '%s' invalid physical cyls number\n", str);
2308             return -1;
2309         }
2310         if (heads < 1 || heads > 16) {
2311             fprintf(stderr, "qemu: '%s' invalid physical heads number\n", str);
2312             return -1;
2313         }
2314         if (secs < 1 || secs > 63) {
2315             fprintf(stderr, "qemu: '%s' invalid physical secs number\n", str);
2316             return -1;
2317         }
2318     }
2319
2320     if (get_param_value(buf, sizeof(buf), "trans", str)) {
2321         if (!cyls) {
2322             fprintf(stderr,
2323                     "qemu: '%s' trans must be used with cyls,heads and secs\n",
2324                     str);
2325             return -1;
2326         }
2327         if (!strcmp(buf, "none"))
2328             translation = BIOS_ATA_TRANSLATION_NONE;
2329         else if (!strcmp(buf, "lba"))
2330             translation = BIOS_ATA_TRANSLATION_LBA;
2331         else if (!strcmp(buf, "auto"))
2332             translation = BIOS_ATA_TRANSLATION_AUTO;
2333         else {
2334             fprintf(stderr, "qemu: '%s' invalid translation type\n", str);
2335             return -1;
2336         }
2337     }
2338
2339     if (get_param_value(buf, sizeof(buf), "media", str)) {
2340         if (!strcmp(buf, "disk")) {
2341             media = MEDIA_DISK;
2342         } else if (!strcmp(buf, "cdrom")) {
2343             if (cyls || secs || heads) {
2344                 fprintf(stderr,
2345                         "qemu: '%s' invalid physical CHS format\n", str);
2346                 return -1;
2347             }
2348             media = MEDIA_CDROM;
2349         } else {
2350             fprintf(stderr, "qemu: '%s' invalid media\n", str);
2351             return -1;
2352         }
2353     }
2354
2355     if (get_param_value(buf, sizeof(buf), "snapshot", str)) {
2356         if (!strcmp(buf, "on"))
2357             snapshot = 1;
2358         else if (!strcmp(buf, "off"))
2359             snapshot = 0;
2360         else {
2361             fprintf(stderr, "qemu: '%s' invalid snapshot option\n", str);
2362             return -1;
2363         }
2364     }
2365
2366     if (get_param_value(buf, sizeof(buf), "cache", str)) {
2367         if (!strcmp(buf, "off") || !strcmp(buf, "none"))
2368             cache = 0;
2369         else if (!strcmp(buf, "writethrough"))
2370             cache = 1;
2371         else if (!strcmp(buf, "writeback"))
2372             cache = 2;
2373         else {
2374            fprintf(stderr, "qemu: invalid cache option\n");
2375            return -1;
2376         }
2377     }
2378
2379     if (get_param_value(buf, sizeof(buf), "format", str)) {
2380        if (strcmp(buf, "?") == 0) {
2381             fprintf(stderr, "qemu: Supported formats:");
2382             bdrv_iterate_format(bdrv_format_print, NULL);
2383             fprintf(stderr, "\n");
2384             return -1;
2385         }
2386         drv = bdrv_find_format(buf);
2387         if (!drv) {
2388             fprintf(stderr, "qemu: '%s' invalid format\n", buf);
2389             return -1;
2390         }
2391     }
2392
2393     if (arg->file == NULL)
2394         get_param_value(file, sizeof(file), "file", str);
2395     else
2396         pstrcpy(file, sizeof(file), arg->file);
2397
2398     /* compute bus and unit according index */
2399
2400     if (index != -1) {
2401         if (bus_id != 0 || unit_id != -1) {
2402             fprintf(stderr,
2403                     "qemu: '%s' index cannot be used with bus and unit\n", str);
2404             return -1;
2405         }
2406         if (max_devs == 0)
2407         {
2408             unit_id = index;
2409             bus_id = 0;
2410         } else {
2411             unit_id = index % max_devs;
2412             bus_id = index / max_devs;
2413         }
2414     }
2415
2416     /* if user doesn't specify a unit_id,
2417      * try to find the first free
2418      */
2419
2420     if (unit_id == -1) {
2421        unit_id = 0;
2422        while (drive_get_index(type, bus_id, unit_id) != -1) {
2423            unit_id++;
2424            if (max_devs && unit_id >= max_devs) {
2425                unit_id -= max_devs;
2426                bus_id++;
2427            }
2428        }
2429     }
2430
2431     /* check unit id */
2432
2433     if (max_devs && unit_id >= max_devs) {
2434         fprintf(stderr, "qemu: '%s' unit %d too big (max is %d)\n",
2435                         str, unit_id, max_devs - 1);
2436         return -1;
2437     }
2438
2439     /*
2440      * ignore multiple definitions
2441      */
2442
2443     if (drive_get_index(type, bus_id, unit_id) != -1)
2444         return 0;
2445
2446     /* init */
2447
2448     if (type == IF_IDE || type == IF_SCSI)
2449         mediastr = (media == MEDIA_CDROM) ? "-cd" : "-hd";
2450     if (max_devs)
2451         snprintf(buf, sizeof(buf), "%s%i%s%i",
2452                  devname, bus_id, mediastr, unit_id);
2453     else
2454         snprintf(buf, sizeof(buf), "%s%s%i",
2455                  devname, mediastr, unit_id);
2456     bdrv = bdrv_new(buf);
2457     drives_table[nb_drives].bdrv = bdrv;
2458     drives_table[nb_drives].type = type;
2459     drives_table[nb_drives].bus = bus_id;
2460     drives_table[nb_drives].unit = unit_id;
2461     nb_drives++;
2462
2463     switch(type) {
2464     case IF_IDE:
2465     case IF_SCSI:
2466         switch(media) {
2467         case MEDIA_DISK:
2468             if (cyls != 0) {
2469                 bdrv_set_geometry_hint(bdrv, cyls, heads, secs);
2470                 bdrv_set_translation_hint(bdrv, translation);
2471             }
2472             break;
2473         case MEDIA_CDROM:
2474             bdrv_set_type_hint(bdrv, BDRV_TYPE_CDROM);
2475             break;
2476         }
2477         break;
2478     case IF_SD:
2479         /* FIXME: This isn't really a floppy, but it's a reasonable
2480            approximation.  */
2481     case IF_FLOPPY:
2482         bdrv_set_type_hint(bdrv, BDRV_TYPE_FLOPPY);
2483         break;
2484     case IF_PFLASH:
2485     case IF_MTD:
2486         break;
2487     }
2488     if (!file[0])
2489         return 0;
2490     bdrv_flags = 0;
2491     if (snapshot) {
2492         bdrv_flags |= BDRV_O_SNAPSHOT;
2493         cache = 2; /* always use write-back with snapshot */
2494     }
2495     if (cache == 0) /* no caching */
2496         bdrv_flags |= BDRV_O_NOCACHE;
2497     else if (cache == 2) /* write-back */
2498         bdrv_flags |= BDRV_O_CACHE_WB;
2499     if (bdrv_open2(bdrv, file, bdrv_flags, drv) < 0 || qemu_key_check(bdrv, file)) {
2500         fprintf(stderr, "qemu: could not open disk image %s\n",
2501                         file);
2502         return -1;
2503     }
2504     return 0;
2505 }
2506
2507 /***********************************************************/
2508 /* USB devices */
2509
2510 static USBPort *used_usb_ports;
2511 static USBPort *free_usb_ports;
2512
2513 /* ??? Maybe change this to register a hub to keep track of the topology.  */
2514 void qemu_register_usb_port(USBPort *port, void *opaque, int index,
2515                             usb_attachfn attach)
2516 {
2517     port->opaque = opaque;
2518     port->index = index;
2519     port->attach = attach;
2520     port->next = free_usb_ports;
2521     free_usb_ports = port;
2522 }
2523
2524 int usb_device_add_dev(USBDevice *dev)
2525 {
2526     USBPort *port;
2527
2528     /* Find a USB port to add the device to.  */
2529     port = free_usb_ports;
2530     if (!port->next) {
2531         USBDevice *hub;
2532
2533         /* Create a new hub and chain it on.  */
2534         free_usb_ports = NULL;
2535         port->next = used_usb_ports;
2536         used_usb_ports = port;
2537
2538         hub = usb_hub_init(VM_USB_HUB_SIZE);
2539         usb_attach(port, hub);
2540         port = free_usb_ports;
2541     }
2542
2543     free_usb_ports = port->next;
2544     port->next = used_usb_ports;
2545     used_usb_ports = port;
2546     usb_attach(port, dev);
2547     return 0;
2548 }
2549
2550 static int usb_device_add(const char *devname)
2551 {
2552     const char *p;
2553     USBDevice *dev;
2554
2555     if (!free_usb_ports)
2556         return -1;
2557
2558     if (strstart(devname, "host:", &p)) {
2559         dev = usb_host_device_open(p);
2560     } else if (!strcmp(devname, "mouse")) {
2561         dev = usb_mouse_init();
2562     } else if (!strcmp(devname, "tablet")) {
2563         dev = usb_tablet_init();
2564     } else if (!strcmp(devname, "keyboard")) {
2565         dev = usb_keyboard_init();
2566     } else if (strstart(devname, "disk:", &p)) {
2567         dev = usb_msd_init(p);
2568     } else if (!strcmp(devname, "wacom-tablet")) {
2569         dev = usb_wacom_init();
2570     } else if (strstart(devname, "serial:", &p)) {
2571         dev = usb_serial_init(p);
2572 #ifdef CONFIG_BRLAPI
2573     } else if (!strcmp(devname, "braille")) {
2574         dev = usb_baum_init();
2575 #endif
2576     } else if (strstart(devname, "net:", &p)) {
2577         int nic = nb_nics;
2578
2579         if (net_client_init("nic", p) < 0)
2580             return -1;
2581         nd_table[nic].model = "usb";
2582         dev = usb_net_init(&nd_table[nic]);
2583     } else if (!strcmp(devname, "bt") || strstart(devname, "bt:", &p)) {
2584         dev = usb_bt_init(devname[2] ? hci_init(p) :
2585                         bt_new_hci(qemu_find_bt_vlan(0)));
2586     } else {
2587         return -1;
2588     }
2589     if (!dev)
2590         return -1;
2591
2592     return usb_device_add_dev(dev);
2593 }
2594
2595 int usb_device_del_addr(int bus_num, int addr)
2596 {
2597     USBPort *port;
2598     USBPort **lastp;
2599     USBDevice *dev;
2600
2601     if (!used_usb_ports)
2602         return -1;
2603
2604     if (bus_num != 0)
2605         return -1;
2606
2607     lastp = &used_usb_ports;
2608     port = used_usb_ports;
2609     while (port && port->dev->addr != addr) {
2610         lastp = &port->next;
2611         port = port->next;
2612     }
2613
2614     if (!port)
2615         return -1;
2616
2617     dev = port->dev;
2618     *lastp = port->next;
2619     usb_attach(port, NULL);
2620     dev->handle_destroy(dev);
2621     port->next = free_usb_ports;
2622     free_usb_ports = port;
2623     return 0;
2624 }
2625
2626 static int usb_device_del(const char *devname)
2627 {
2628     int bus_num, addr;
2629     const char *p;
2630
2631     if (strstart(devname, "host:", &p))
2632         return usb_host_device_close(p);
2633
2634     if (!used_usb_ports)
2635         return -1;
2636
2637     p = strchr(devname, '.');
2638     if (!p)
2639         return -1;
2640     bus_num = strtoul(devname, NULL, 0);
2641     addr = strtoul(p + 1, NULL, 0);
2642
2643     return usb_device_del_addr(bus_num, addr);
2644 }
2645
2646 void do_usb_add(const char *devname)
2647 {
2648     usb_device_add(devname);
2649 }
2650
2651 void do_usb_del(const char *devname)
2652 {
2653     usb_device_del(devname);
2654 }
2655
2656 void usb_info(void)
2657 {
2658     USBDevice *dev;
2659     USBPort *port;
2660     const char *speed_str;
2661
2662     if (!usb_enabled) {
2663         term_printf("USB support not enabled\n");
2664         return;
2665     }
2666
2667     for (port = used_usb_ports; port; port = port->next) {
2668         dev = port->dev;
2669         if (!dev)
2670             continue;
2671         switch(dev->speed) {
2672         case USB_SPEED_LOW:
2673             speed_str = "1.5";
2674             break;
2675         case USB_SPEED_FULL:
2676             speed_str = "12";
2677             break;
2678         case USB_SPEED_HIGH:
2679             speed_str = "480";
2680             break;
2681         default:
2682             speed_str = "?";
2683             break;
2684         }
2685         term_printf("  Device %d.%d, Speed %s Mb/s, Product %s\n",
2686                     0, dev->addr, speed_str, dev->devname);
2687     }
2688 }
2689
2690 /***********************************************************/
2691 /* PCMCIA/Cardbus */
2692
2693 static struct pcmcia_socket_entry_s {
2694     struct pcmcia_socket_s *socket;
2695     struct pcmcia_socket_entry_s *next;
2696 } *pcmcia_sockets = 0;
2697
2698 void pcmcia_socket_register(struct pcmcia_socket_s *socket)
2699 {
2700     struct pcmcia_socket_entry_s *entry;
2701
2702     entry = qemu_malloc(sizeof(struct pcmcia_socket_entry_s));
2703     entry->socket = socket;
2704     entry->next = pcmcia_sockets;
2705     pcmcia_sockets = entry;
2706 }
2707
2708 void pcmcia_socket_unregister(struct pcmcia_socket_s *socket)
2709 {
2710     struct pcmcia_socket_entry_s *entry, **ptr;
2711
2712     ptr = &pcmcia_sockets;
2713     for (entry = *ptr; entry; ptr = &entry->next, entry = *ptr)
2714         if (entry->socket == socket) {
2715             *ptr = entry->next;
2716             qemu_free(entry);
2717         }
2718 }
2719
2720 void pcmcia_info(void)
2721 {
2722     struct pcmcia_socket_entry_s *iter;
2723     if (!pcmcia_sockets)
2724         term_printf("No PCMCIA sockets\n");
2725
2726     for (iter = pcmcia_sockets; iter; iter = iter->next)
2727         term_printf("%s: %s\n", iter->socket->slot_string,
2728                     iter->socket->attached ? iter->socket->card_string :
2729                     "Empty");
2730 }
2731
2732 /***********************************************************/
2733 /* dumb display */
2734
2735 static void dumb_update(DisplayState *ds, int x, int y, int w, int h)
2736 {
2737 }
2738
2739 static void dumb_resize(DisplayState *ds, int w, int h)
2740 {
2741 }
2742
2743 static void dumb_display_init(DisplayState *ds)
2744 {
2745     ds->data = NULL;
2746     ds->linesize = 0;
2747     ds->depth = 0;
2748     ds->dpy_update = dumb_update;
2749     ds->dpy_resize = dumb_resize;
2750     ds->dpy_refresh = NULL;
2751     ds->gui_timer_interval = 0;
2752     ds->idle = 1;
2753 }
2754
2755 /***********************************************************/
2756 /* I/O handling */
2757
2758 #define MAX_IO_HANDLERS 64
2759
2760 typedef struct IOHandlerRecord {
2761     int fd;
2762     IOCanRWHandler *fd_read_poll;
2763     IOHandler *fd_read;
2764     IOHandler *fd_write;
2765     int deleted;
2766     void *opaque;
2767     /* temporary data */
2768     struct pollfd *ufd;
2769     struct IOHandlerRecord *next;
2770 } IOHandlerRecord;
2771
2772 static IOHandlerRecord *first_io_handler;
2773
2774 /* XXX: fd_read_poll should be suppressed, but an API change is
2775    necessary in the character devices to suppress fd_can_read(). */
2776 int qemu_set_fd_handler2(int fd,
2777                          IOCanRWHandler *fd_read_poll,
2778                          IOHandler *fd_read,
2779                          IOHandler *fd_write,
2780                          void *opaque)
2781 {
2782     IOHandlerRecord **pioh, *ioh;
2783
2784     if (!fd_read && !fd_write) {
2785         pioh = &first_io_handler;
2786         for(;;) {
2787             ioh = *pioh;
2788             if (ioh == NULL)
2789                 break;
2790             if (ioh->fd == fd) {
2791                 ioh->deleted = 1;
2792                 break;
2793             }
2794             pioh = &ioh->next;
2795         }
2796     } else {
2797         for(ioh = first_io_handler; ioh != NULL; ioh = ioh->next) {
2798             if (ioh->fd == fd)
2799                 goto found;
2800         }
2801         ioh = qemu_mallocz(sizeof(IOHandlerRecord));
2802         if (!ioh)
2803             return -1;
2804         ioh->next = first_io_handler;
2805         first_io_handler = ioh;
2806     found:
2807         ioh->fd = fd;
2808         ioh->fd_read_poll = fd_read_poll;
2809         ioh->fd_read = fd_read;
2810         ioh->fd_write = fd_write;
2811         ioh->opaque = opaque;
2812         ioh->deleted = 0;
2813     }
2814     return 0;
2815 }
2816
2817 int qemu_set_fd_handler(int fd,
2818                         IOHandler *fd_read,
2819                         IOHandler *fd_write,
2820                         void *opaque)
2821 {
2822     return qemu_set_fd_handler2(fd, NULL, fd_read, fd_write, opaque);
2823 }
2824
2825 #ifdef _WIN32
2826 /***********************************************************/
2827 /* Polling handling */
2828
2829 typedef struct PollingEntry {
2830     PollingFunc *func;
2831     void *opaque;
2832     struct PollingEntry *next;
2833 } PollingEntry;
2834
2835 static PollingEntry *first_polling_entry;
2836
2837 int qemu_add_polling_cb(PollingFunc *func, void *opaque)
2838 {
2839     PollingEntry **ppe, *pe;
2840     pe = qemu_mallocz(sizeof(PollingEntry));
2841     if (!pe)
2842         return -1;
2843     pe->func = func;
2844     pe->opaque = opaque;
2845     for(ppe = &first_polling_entry; *ppe != NULL; ppe = &(*ppe)->next);
2846     *ppe = pe;
2847     return 0;
2848 }
2849
2850 void qemu_del_polling_cb(PollingFunc *func, void *opaque)
2851 {
2852     PollingEntry **ppe, *pe;
2853     for(ppe = &first_polling_entry; *ppe != NULL; ppe = &(*ppe)->next) {
2854         pe = *ppe;
2855         if (pe->func == func && pe->opaque == opaque) {
2856             *ppe = pe->next;
2857             qemu_free(pe);
2858             break;
2859         }
2860     }
2861 }
2862
2863 /***********************************************************/
2864 /* Wait objects support */
2865 typedef struct WaitObjects {
2866     int num;
2867     HANDLE events[MAXIMUM_WAIT_OBJECTS + 1];
2868     WaitObjectFunc *func[MAXIMUM_WAIT_OBJECTS + 1];
2869     void *opaque[MAXIMUM_WAIT_OBJECTS + 1];
2870 } WaitObjects;
2871
2872 static WaitObjects wait_objects = {0};
2873
2874 int qemu_add_wait_object(HANDLE handle, WaitObjectFunc *func, void *opaque)
2875 {
2876     WaitObjects *w = &wait_objects;
2877
2878     if (w->num >= MAXIMUM_WAIT_OBJECTS)
2879         return -1;
2880     w->events[w->num] = handle;
2881     w->func[w->num] = func;
2882     w->opaque[w->num] = opaque;
2883     w->num++;
2884     return 0;
2885 }
2886
2887 void qemu_del_wait_object(HANDLE handle, WaitObjectFunc *func, void *opaque)
2888 {
2889     int i, found;
2890     WaitObjects *w = &wait_objects;
2891
2892     found = 0;
2893     for (i = 0; i < w->num; i++) {
2894         if (w->events[i] == handle)
2895             found = 1;
2896         if (found) {
2897             w->events[i] = w->events[i + 1];
2898             w->func[i] = w->func[i + 1];
2899             w->opaque[i] = w->opaque[i + 1];
2900         }
2901     }
2902     if (found)
2903         w->num--;
2904 }
2905 #endif
2906
2907 #define SELF_ANNOUNCE_ROUNDS 5
2908 #define ETH_P_EXPERIMENTAL 0x01F1 /* just a number */
2909 //#define ETH_P_EXPERIMENTAL 0x0012 /* make it the size of the packet */
2910 #define EXPERIMENTAL_MAGIC 0xf1f23f4f
2911
2912 static int announce_self_create(uint8_t *buf,
2913                                 uint8_t *mac_addr)
2914 {
2915     uint32_t magic = EXPERIMENTAL_MAGIC;
2916     uint16_t proto = htons(ETH_P_EXPERIMENTAL);
2917
2918     /* FIXME: should we send a different packet (arp/rarp/ping)? */
2919
2920     memset(buf, 0xff, 6);         /* h_dst */
2921     memcpy(buf + 6, mac_addr, 6); /* h_src */
2922     memcpy(buf + 12, &proto, 2);  /* h_proto */
2923     memcpy(buf + 14, &magic, 4);  /* magic */
2924
2925     return 18; /* len */
2926 }
2927
2928 void qemu_announce_self(void)
2929 {
2930     int i, j, len;
2931     VLANState *vlan;
2932     VLANClientState *vc;
2933     uint8_t buf[256];
2934
2935     for (i = 0; i < nb_nics; i++) {
2936         len = announce_self_create(buf, nd_table[i].macaddr);
2937         vlan = nd_table[i].vlan;
2938         for(vc = vlan->first_client; vc != NULL; vc = vc->next) {
2939             for (j=0; j < SELF_ANNOUNCE_ROUNDS; j++)
2940                 vc->fd_read(vc->opaque, buf, len);
2941         }
2942     }
2943 }
2944
2945 /***********************************************************/
2946 /* savevm/loadvm support */
2947
2948 #define IO_BUF_SIZE 32768
2949
2950 struct QEMUFile {
2951     QEMUFilePutBufferFunc *put_buffer;
2952     QEMUFileGetBufferFunc *get_buffer;
2953     QEMUFileCloseFunc *close;
2954     QEMUFileRateLimit *rate_limit;
2955     void *opaque;
2956     int is_write;
2957
2958     int64_t buf_offset; /* start of buffer when writing, end of buffer
2959                            when reading */
2960     int buf_index;
2961     int buf_size; /* 0 when writing */
2962     uint8_t buf[IO_BUF_SIZE];
2963
2964     int has_error;
2965 };
2966
2967 typedef struct QEMUFilePopen
2968 {
2969     FILE *popen_file;
2970     QEMUFile *file;
2971 } QEMUFilePopen;
2972
2973 typedef struct QEMUFileSocket
2974 {
2975     int fd;
2976     QEMUFile *file;
2977 } QEMUFileSocket;
2978
2979 static int socket_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
2980 {
2981     QEMUFileSocket *s = opaque;
2982     ssize_t len;
2983
2984     do {
2985         len = recv(s->fd, buf, size, 0);
2986     } while (len == -1 && socket_error() == EINTR);
2987
2988     if (len == -1)
2989         len = -socket_error();
2990
2991     return len;
2992 }
2993
2994 static int socket_close(void *opaque)
2995 {
2996     QEMUFileSocket *s = opaque;
2997     qemu_free(s);
2998     return 0;
2999 }
3000
3001 static int popen_put_buffer(void *opaque, const uint8_t *buf, int64_t pos, int size)
3002 {
3003     QEMUFilePopen *s = opaque;
3004     return fwrite(buf, 1, size, s->popen_file);
3005 }
3006
3007 static int popen_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
3008 {
3009     QEMUFilePopen *s = opaque;
3010     return fread(buf, 1, size, s->popen_file);
3011 }
3012
3013 static int popen_close(void *opaque)
3014 {
3015     QEMUFilePopen *s = opaque;
3016     pclose(s->popen_file);
3017     qemu_free(s);
3018     return 0;
3019 }
3020
3021 QEMUFile *qemu_popen(FILE *popen_file, const char *mode)
3022 {
3023     QEMUFilePopen *s;
3024
3025     if (popen_file == NULL || mode == NULL || (mode[0] != 'r' && mode[0] != 'w') || mode[1] != 0) {
3026         fprintf(stderr, "qemu_popen: Argument validity check failed\n");
3027         return NULL;
3028     }
3029
3030     s = qemu_mallocz(sizeof(QEMUFilePopen));
3031     if (!s) {
3032         fprintf(stderr, "qemu_popen: malloc failed\n");
3033         return NULL;
3034     }
3035
3036     s->popen_file = popen_file;
3037
3038     if(mode[0] == 'r') {
3039         s->file = qemu_fopen_ops(s, NULL, popen_get_buffer, popen_close, NULL);
3040     } else {
3041         s->file = qemu_fopen_ops(s, popen_put_buffer, NULL, popen_close, NULL);
3042     }
3043     fprintf(stderr, "qemu_popen: returning result of qemu_fopen_ops\n");
3044     return s->file;
3045 }
3046
3047 QEMUFile *qemu_popen_cmd(const char *command, const char *mode)
3048 {
3049     FILE *popen_file;
3050
3051     popen_file = popen(command, mode);
3052     if(popen_file == NULL) {
3053         return NULL;
3054     }
3055
3056     return qemu_popen(popen_file, mode);
3057 }
3058
3059 QEMUFile *qemu_fopen_socket(int fd)
3060 {
3061     QEMUFileSocket *s = qemu_mallocz(sizeof(QEMUFileSocket));
3062
3063     if (s == NULL)
3064         return NULL;
3065
3066     s->fd = fd;
3067     s->file = qemu_fopen_ops(s, NULL, socket_get_buffer, socket_close, NULL);
3068     return s->file;
3069 }
3070
3071 typedef struct QEMUFileStdio
3072 {
3073     FILE *outfile;
3074 } QEMUFileStdio;
3075
3076 static int file_put_buffer(void *opaque, const uint8_t *buf,
3077                             int64_t pos, int size)
3078 {
3079     QEMUFileStdio *s = opaque;
3080     fseek(s->outfile, pos, SEEK_SET);
3081     fwrite(buf, 1, size, s->outfile);
3082     return size;
3083 }
3084
3085 static int file_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
3086 {
3087     QEMUFileStdio *s = opaque;
3088     fseek(s->outfile, pos, SEEK_SET);
3089     return fread(buf, 1, size, s->outfile);
3090 }
3091
3092 static int file_close(void *opaque)
3093 {
3094     QEMUFileStdio *s = opaque;
3095     fclose(s->outfile);
3096     qemu_free(s);
3097     return 0;
3098 }
3099
3100 QEMUFile *qemu_fopen(const char *filename, const char *mode)
3101 {
3102     QEMUFileStdio *s;
3103
3104     s = qemu_mallocz(sizeof(QEMUFileStdio));
3105     if (!s)
3106         return NULL;
3107
3108     s->outfile = fopen(filename, mode);
3109     if (!s->outfile)
3110         goto fail;
3111
3112     if (!strcmp(mode, "wb"))
3113         return qemu_fopen_ops(s, file_put_buffer, NULL, file_close, NULL);
3114     else if (!strcmp(mode, "rb"))
3115         return qemu_fopen_ops(s, NULL, file_get_buffer, file_close, NULL);
3116
3117 fail:
3118     if (s->outfile)
3119         fclose(s->outfile);
3120     qemu_free(s);
3121     return NULL;
3122 }
3123
3124 typedef struct QEMUFileBdrv
3125 {
3126     BlockDriverState *bs;
3127     int64_t base_offset;
3128 } QEMUFileBdrv;
3129
3130 static int bdrv_put_buffer(void *opaque, const uint8_t *buf,
3131                            int64_t pos, int size)
3132 {
3133     QEMUFileBdrv *s = opaque;
3134     bdrv_pwrite(s->bs, s->base_offset + pos, buf, size);
3135     return size;
3136 }
3137
3138 static int bdrv_get_buffer(void *opaque, uint8_t *buf, int64_t pos, int size)
3139 {
3140     QEMUFileBdrv *s = opaque;
3141     return bdrv_pread(s->bs, s->base_offset + pos, buf, size);
3142 }
3143
3144 static int bdrv_fclose(void *opaque)
3145 {
3146     QEMUFileBdrv *s = opaque;
3147     qemu_free(s);
3148     return 0;
3149 }
3150
3151 static QEMUFile *qemu_fopen_bdrv(BlockDriverState *bs, int64_t offset, int is_writable)
3152 {
3153     QEMUFileBdrv *s;
3154
3155     s = qemu_mallocz(sizeof(QEMUFileBdrv));
3156     if (!s)
3157         return NULL;
3158
3159     s->bs = bs;
3160     s->base_offset = offset;
3161
3162     if (is_writable)
3163         return qemu_fopen_ops(s, bdrv_put_buffer, NULL, bdrv_fclose, NULL);
3164
3165     return qemu_fopen_ops(s, NULL, bdrv_get_buffer, bdrv_fclose, NULL);
3166 }
3167
3168 QEMUFile *qemu_fopen_ops(void *opaque, QEMUFilePutBufferFunc *put_buffer,
3169                          QEMUFileGetBufferFunc *get_buffer,
3170                          QEMUFileCloseFunc *close,
3171                          QEMUFileRateLimit *rate_limit)
3172 {
3173     QEMUFile *f;
3174
3175     f = qemu_mallocz(sizeof(QEMUFile));
3176     if (!f)
3177         return NULL;
3178
3179     f->opaque = opaque;
3180     f->put_buffer = put_buffer;
3181     f->get_buffer = get_buffer;
3182     f->close = close;
3183     f->rate_limit = rate_limit;
3184     f->is_write = 0;
3185
3186     return f;
3187 }
3188
3189 int qemu_file_has_error(QEMUFile *f)
3190 {
3191     return f->has_error;
3192 }
3193
3194 void qemu_fflush(QEMUFile *f)
3195 {
3196     if (!f->put_buffer)
3197         return;
3198
3199     if (f->is_write && f->buf_index > 0) {
3200         int len;
3201
3202         len = f->put_buffer(f->opaque, f->buf, f->buf_offset, f->buf_index);
3203         if (len > 0)
3204             f->buf_offset += f->buf_index;
3205         else
3206             f->has_error = 1;
3207         f->buf_index = 0;
3208     }
3209 }
3210
3211 static void qemu_fill_buffer(QEMUFile *f)
3212 {
3213     int len;
3214
3215     if (!f->get_buffer)
3216         return;
3217
3218     if (f->is_write)
3219         abort();
3220
3221     len = f->get_buffer(f->opaque, f->buf, f->buf_offset, IO_BUF_SIZE);
3222     if (len > 0) {
3223         f->buf_index = 0;
3224         f->buf_size = len;
3225         f->buf_offset += len;
3226     } else if (len != -EAGAIN)
3227         f->has_error = 1;
3228 }
3229
3230 int qemu_fclose(QEMUFile *f)
3231 {
3232     int ret = 0;
3233     qemu_fflush(f);
3234     if (f->close)
3235         ret = f->close(f->opaque);
3236     qemu_free(f);
3237     return ret;
3238 }
3239
3240 void qemu_file_put_notify(QEMUFile *f)
3241 {
3242     f->put_buffer(f->opaque, NULL, 0, 0);
3243 }
3244
3245 void qemu_put_buffer(QEMUFile *f, const uint8_t *buf, int size)
3246 {
3247     int l;
3248
3249     if (!f->has_error && f->is_write == 0 && f->buf_index > 0) {
3250         fprintf(stderr,
3251                 "Attempted to write to buffer while read buffer is not empty\n");
3252         abort();
3253     }
3254
3255     while (!f->has_error && size > 0) {
3256         l = IO_BUF_SIZE - f->buf_index;
3257         if (l > size)
3258             l = size;
3259         memcpy(f->buf + f->buf_index, buf, l);
3260         f->is_write = 1;
3261         f->buf_index += l;
3262         buf += l;
3263         size -= l;
3264         if (f->buf_index >= IO_BUF_SIZE)
3265             qemu_fflush(f);
3266     }
3267 }
3268
3269 void qemu_put_byte(QEMUFile *f, int v)
3270 {
3271     if (!f->has_error && f->is_write == 0 && f->buf_index > 0) {
3272         fprintf(stderr,
3273                 "Attempted to write to buffer while read buffer is not empty\n");
3274         abort();
3275     }
3276
3277     f->buf[f->buf_index++] = v;
3278     f->is_write = 1;
3279     if (f->buf_index >= IO_BUF_SIZE)
3280         qemu_fflush(f);
3281 }
3282
3283 int qemu_get_buffer(QEMUFile *f, uint8_t *buf, int size1)
3284 {
3285     int size, l;
3286
3287     if (f->is_write)
3288         abort();
3289
3290     size = size1;
3291     while (size > 0) {
3292         l = f->buf_size - f->buf_index;
3293         if (l == 0) {
3294             qemu_fill_buffer(f);
3295             l = f->buf_size - f->buf_index;
3296             if (l == 0)
3297                 break;
3298         }
3299         if (l > size)
3300             l = size;
3301         memcpy(buf, f->buf + f->buf_index, l);
3302         f->buf_index += l;
3303         buf += l;
3304         size -= l;
3305     }
3306     return size1 - size;
3307 }
3308
3309 int qemu_get_byte(QEMUFile *f)
3310 {
3311     if (f->is_write)
3312         abort();
3313
3314     if (f->buf_index >= f->buf_size) {
3315         qemu_fill_buffer(f);
3316         if (f->buf_index >= f->buf_size)
3317             return 0;
3318     }
3319     return f->buf[f->buf_index++];
3320 }
3321
3322 int64_t qemu_ftell(QEMUFile *f)
3323 {
3324     return f->buf_offset - f->buf_size + f->buf_index;
3325 }
3326
3327 int64_t qemu_fseek(QEMUFile *f, int64_t pos, int whence)
3328 {
3329     if (whence == SEEK_SET) {
3330         /* nothing to do */
3331     } else if (whence == SEEK_CUR) {
3332         pos += qemu_ftell(f);
3333     } else {
3334         /* SEEK_END not supported */
3335         return -1;
3336     }
3337     if (f->put_buffer) {
3338         qemu_fflush(f);
3339         f->buf_offset = pos;
3340     } else {
3341         f->buf_offset = pos;
3342         f->buf_index = 0;
3343         f->buf_size = 0;
3344     }
3345     return pos;
3346 }
3347
3348 int qemu_file_rate_limit(QEMUFile *f)
3349 {
3350     if (f->rate_limit)
3351         return f->rate_limit(f->opaque);
3352
3353     return 0;
3354 }
3355
3356 void qemu_put_be16(QEMUFile *f, unsigned int v)
3357 {
3358     qemu_put_byte(f, v >> 8);
3359     qemu_put_byte(f, v);
3360 }
3361
3362 void qemu_put_be32(QEMUFile *f, unsigned int v)
3363 {
3364     qemu_put_byte(f, v >> 24);
3365     qemu_put_byte(f, v >> 16);
3366     qemu_put_byte(f, v >> 8);
3367     qemu_put_byte(f, v);
3368 }
3369
3370 void qemu_put_be64(QEMUFile *f, uint64_t v)
3371 {
3372     qemu_put_be32(f, v >> 32);
3373     qemu_put_be32(f, v);
3374 }
3375
3376 unsigned int qemu_get_be16(QEMUFile *f)
3377 {
3378     unsigned int v;
3379     v = qemu_get_byte(f) << 8;
3380     v |= qemu_get_byte(f);
3381     return v;
3382 }
3383
3384 unsigned int qemu_get_be32(QEMUFile *f)
3385 {
3386     unsigned int v;
3387     v = qemu_get_byte(f) << 24;
3388     v |= qemu_get_byte(f) << 16;
3389     v |= qemu_get_byte(f) << 8;
3390     v |= qemu_get_byte(f);
3391     return v;
3392 }
3393
3394 uint64_t qemu_get_be64(QEMUFile *f)
3395 {
3396     uint64_t v;
3397     v = (uint64_t)qemu_get_be32(f) << 32;
3398     v |= qemu_get_be32(f);
3399     return v;
3400 }
3401
3402 typedef struct SaveStateEntry {
3403     char idstr[256];
3404     int instance_id;
3405     int version_id;
3406     int section_id;
3407     SaveLiveStateHandler *save_live_state;
3408     SaveStateHandler *save_state;
3409     LoadStateHandler *load_state;
3410     void *opaque;
3411     struct SaveStateEntry *next;
3412 } SaveStateEntry;
3413
3414 static SaveStateEntry *first_se;
3415
3416 /* TODO: Individual devices generally have very little idea about the rest
3417    of the system, so instance_id should be removed/replaced.
3418    Meanwhile pass -1 as instance_id if you do not already have a clearly
3419    distinguishing id for all instances of your device class. */
3420 int register_savevm_live(const char *idstr,
3421                          int instance_id,
3422                          int version_id,
3423                          SaveLiveStateHandler *save_live_state,
3424                          SaveStateHandler *save_state,
3425                          LoadStateHandler *load_state,
3426                          void *opaque)
3427 {
3428     SaveStateEntry *se, **pse;
3429     static int global_section_id;
3430
3431     se = qemu_malloc(sizeof(SaveStateEntry));
3432     if (!se)
3433         return -1;
3434     pstrcpy(se->idstr, sizeof(se->idstr), idstr);
3435     se->instance_id = (instance_id == -1) ? 0 : instance_id;
3436     se->version_id = version_id;
3437     se->section_id = global_section_id++;
3438     se->save_live_state = save_live_state;
3439     se->save_state = save_state;
3440     se->load_state = load_state;
3441     se->opaque = opaque;
3442     se->next = NULL;
3443
3444     /* add at the end of list */
3445     pse = &first_se;
3446     while (*pse != NULL) {
3447         if (instance_id == -1
3448                 && strcmp(se->idstr, (*pse)->idstr) == 0
3449                 && se->instance_id <= (*pse)->instance_id)
3450             se->instance_id = (*pse)->instance_id + 1;
3451         pse = &(*pse)->next;
3452     }
3453     *pse = se;
3454     return 0;
3455 }
3456
3457 int register_savevm(const char *idstr,
3458                     int instance_id,
3459                     int version_id,
3460                     SaveStateHandler *save_state,
3461                     LoadStateHandler *load_state,
3462                     void *opaque)
3463 {
3464     return register_savevm_live(idstr, instance_id, version_id,
3465                                 NULL, save_state, load_state, opaque);
3466 }
3467
3468 #define QEMU_VM_FILE_MAGIC           0x5145564d
3469 #define QEMU_VM_FILE_VERSION_COMPAT  0x00000002
3470 #define QEMU_VM_FILE_VERSION         0x00000003
3471
3472 #define QEMU_VM_EOF                  0x00
3473 #define QEMU_VM_SECTION_START        0x01
3474 #define QEMU_VM_SECTION_PART         0x02
3475 #define QEMU_VM_SECTION_END          0x03
3476 #define QEMU_VM_SECTION_FULL         0x04
3477
3478 int qemu_savevm_state_begin(QEMUFile *f)
3479 {
3480     SaveStateEntry *se;
3481
3482     qemu_put_be32(f, QEMU_VM_FILE_MAGIC);
3483     qemu_put_be32(f, QEMU_VM_FILE_VERSION);
3484
3485     for (se = first_se; se != NULL; se = se->next) {
3486         int len;
3487
3488         if (se->save_live_state == NULL)
3489             continue;
3490
3491         /* Section type */
3492         qemu_put_byte(f, QEMU_VM_SECTION_START);
3493         qemu_put_be32(f, se->section_id);
3494
3495         /* ID string */
3496         len = strlen(se->idstr);
3497         qemu_put_byte(f, len);
3498         qemu_put_buffer(f, (uint8_t *)se->idstr, len);
3499
3500         qemu_put_be32(f, se->instance_id);
3501         qemu_put_be32(f, se->version_id);
3502
3503         se->save_live_state(f, QEMU_VM_SECTION_START, se->opaque);
3504     }
3505
3506     if (qemu_file_has_error(f))
3507         return -EIO;
3508
3509     return 0;
3510 }
3511
3512 int qemu_savevm_state_iterate(QEMUFile *f)
3513 {
3514     SaveStateEntry *se;
3515     int ret = 1;
3516
3517     for (se = first_se; se != NULL; se = se->next) {
3518         if (se->save_live_state == NULL)
3519             continue;
3520
3521         /* Section type */
3522         qemu_put_byte(f, QEMU_VM_SECTION_PART);
3523         qemu_put_be32(f, se->section_id);
3524
3525         ret &= !!se->save_live_state(f, QEMU_VM_SECTION_PART, se->opaque);
3526     }
3527
3528     if (ret)
3529         return 1;
3530
3531     if (qemu_file_has_error(f))
3532         return -EIO;
3533
3534     return 0;
3535 }
3536
3537 int qemu_savevm_state_complete(QEMUFile *f)
3538 {
3539     SaveStateEntry *se;
3540
3541     for (se = first_se; se != NULL; se = se->next) {
3542         if (se->save_live_state == NULL)
3543             continue;
3544
3545         /* Section type */
3546         qemu_put_byte(f, QEMU_VM_SECTION_END);
3547         qemu_put_be32(f, se->section_id);
3548
3549         se->save_live_state(f, QEMU_VM_SECTION_END, se->opaque);
3550     }
3551
3552     for(se = first_se; se != NULL; se = se->next) {
3553         int len;
3554
3555         if (se->save_state == NULL)
3556             continue;
3557
3558         /* Section type */
3559         qemu_put_byte(f, QEMU_VM_SECTION_FULL);
3560         qemu_put_be32(f, se->section_id);
3561
3562         /* ID string */
3563         len = strlen(se->idstr);
3564         qemu_put_byte(f, len);
3565         qemu_put_buffer(f, (uint8_t *)se->idstr, len);
3566
3567         qemu_put_be32(f, se->instance_id);
3568         qemu_put_be32(f, se->version_id);
3569
3570         se->save_state(f, se->opaque);
3571     }
3572
3573     qemu_put_byte(f, QEMU_VM_EOF);
3574
3575     if (qemu_file_has_error(f))
3576         return -EIO;
3577
3578     return 0;
3579 }
3580
3581 int qemu_savevm_state(QEMUFile *f)
3582 {
3583     int saved_vm_running;
3584     int ret;
3585
3586     saved_vm_running = vm_running;
3587     vm_stop(0);
3588
3589     bdrv_flush_all();
3590
3591     ret = qemu_savevm_state_begin(f);
3592     if (ret < 0)
3593         goto out;
3594
3595     do {
3596         ret = qemu_savevm_state_iterate(f);
3597         if (ret < 0)
3598             goto out;
3599     } while (ret == 0);
3600
3601     ret = qemu_savevm_state_complete(f);
3602
3603 out:
3604     if (qemu_file_has_error(f))
3605         ret = -EIO;
3606
3607     if (!ret && saved_vm_running)
3608         vm_start();
3609
3610     return ret;
3611 }
3612
3613 static SaveStateEntry *find_se(const char *idstr, int instance_id)
3614 {
3615     SaveStateEntry *se;
3616
3617     for(se = first_se; se != NULL; se = se->next) {
3618         if (!strcmp(se->idstr, idstr) &&
3619             instance_id == se->instance_id)
3620             return se;
3621     }
3622     return NULL;
3623 }
3624
3625 typedef struct LoadStateEntry {
3626     SaveStateEntry *se;
3627     int section_id;
3628     int version_id;
3629     struct LoadStateEntry *next;
3630 } LoadStateEntry;
3631
3632 static int qemu_loadvm_state_v2(QEMUFile *f)
3633 {
3634     SaveStateEntry *se;
3635     int len, ret, instance_id, record_len, version_id;
3636     int64_t total_len, end_pos, cur_pos;
3637     char idstr[256];
3638
3639     total_len = qemu_get_be64(f);
3640     end_pos = total_len + qemu_ftell(f);
3641     for(;;) {
3642         if (qemu_ftell(f) >= end_pos)
3643             break;
3644         len = qemu_get_byte(f);
3645         qemu_get_buffer(f, (uint8_t *)idstr, len);
3646         idstr[len] = '\0';
3647         instance_id = qemu_get_be32(f);
3648         version_id = qemu_get_be32(f);
3649         record_len = qemu_get_be32(f);
3650         cur_pos = qemu_ftell(f);
3651         se = find_se(idstr, instance_id);
3652         if (!se) {
3653             fprintf(stderr, "qemu: warning: instance 0x%x of device '%s' not present in current VM\n",
3654                     instance_id, idstr);
3655         } else {
3656             ret = se->load_state(f, se->opaque, version_id);
3657             if (ret < 0) {
3658                 fprintf(stderr, "qemu: warning: error while loading state for instance 0x%x of device '%s'\n",
3659                         instance_id, idstr);
3660             }
3661         }
3662         /* always seek to exact end of record */
3663         qemu_fseek(f, cur_pos + record_len, SEEK_SET);
3664     }
3665
3666     if (qemu_file_has_error(f))
3667         return -EIO;
3668
3669     return 0;
3670 }
3671
3672 int qemu_loadvm_state(QEMUFile *f)
3673 {
3674     LoadStateEntry *first_le = NULL;
3675     uint8_t section_type;
3676     unsigned int v;
3677     int ret;
3678
3679     v = qemu_get_be32(f);
3680     if (v != QEMU_VM_FILE_MAGIC)
3681         return -EINVAL;
3682
3683     v = qemu_get_be32(f);
3684     if (v == QEMU_VM_FILE_VERSION_COMPAT)
3685         return qemu_loadvm_state_v2(f);
3686     if (v != QEMU_VM_FILE_VERSION)
3687         return -ENOTSUP;
3688
3689     while ((section_type = qemu_get_byte(f)) != QEMU_VM_EOF) {
3690         uint32_t instance_id, version_id, section_id;
3691         LoadStateEntry *le;
3692         SaveStateEntry *se;
3693         char idstr[257];
3694         int len;
3695
3696         switch (section_type) {
3697         case QEMU_VM_SECTION_START:
3698         case QEMU_VM_SECTION_FULL:
3699             /* Read section start */
3700             section_id = qemu_get_be32(f);
3701             len = qemu_get_byte(f);
3702             qemu_get_buffer(f, (uint8_t *)idstr, len);
3703             idstr[len] = 0;
3704             instance_id = qemu_get_be32(f);
3705             version_id = qemu_get_be32(f);
3706
3707             /* Find savevm section */
3708             se = find_se(idstr, instance_id);
3709             if (se == NULL) {
3710                 fprintf(stderr, "Unknown savevm section or instance '%s' %d\n", idstr, instance_id);
3711                 ret = -EINVAL;
3712                 goto out;
3713             }
3714
3715             /* Validate version */
3716             if (version_id > se->version_id) {
3717                 fprintf(stderr, "savevm: unsupported version %d for '%s' v%d\n",
3718                         version_id, idstr, se->version_id);
3719                 ret = -EINVAL;
3720                 goto out;
3721             }
3722
3723             /* Add entry */
3724             le = qemu_mallocz(sizeof(*le));
3725             if (le == NULL) {
3726                 ret = -ENOMEM;
3727                 goto out;
3728             }
3729
3730             le->se = se;
3731             le->section_id = section_id;
3732             le->version_id = version_id;
3733             le->next = first_le;
3734             first_le = le;
3735
3736             le->se->load_state(f, le->se->opaque, le->version_id);
3737             break;
3738         case QEMU_VM_SECTION_PART:
3739         case QEMU_VM_SECTION_END:
3740             section_id = qemu_get_be32(f);
3741
3742             for (le = first_le; le && le->section_id != section_id; le = le->next);
3743             if (le == NULL) {
3744                 fprintf(stderr, "Unknown savevm section %d\n", section_id);
3745                 ret = -EINVAL;
3746                 goto out;
3747             }
3748
3749             le->se->load_state(f, le->se->opaque, le->version_id);
3750             break;
3751         default:
3752             fprintf(stderr, "Unknown savevm section type %d\n", section_type);
3753             ret = -EINVAL;
3754             goto out;
3755         }
3756     }
3757
3758     ret = 0;
3759
3760 out:
3761     while (first_le) {
3762         LoadStateEntry *le = first_le;
3763         first_le = first_le->next;
3764         qemu_free(le);
3765     }
3766
3767     if (qemu_file_has_error(f))
3768         ret = -EIO;
3769
3770     return ret;
3771 }
3772
3773 /* device can contain snapshots */
3774 static int bdrv_can_snapshot(BlockDriverState *bs)
3775 {
3776     return (bs &&
3777             !bdrv_is_removable(bs) &&
3778             !bdrv_is_read_only(bs));
3779 }
3780
3781 /* device must be snapshots in order to have a reliable snapshot */
3782 static int bdrv_has_snapshot(BlockDriverState *bs)
3783 {
3784     return (bs &&
3785             !bdrv_is_removable(bs) &&
3786             !bdrv_is_read_only(bs));
3787 }
3788
3789 static BlockDriverState *get_bs_snapshots(void)
3790 {
3791     BlockDriverState *bs;
3792     int i;
3793
3794     if (bs_snapshots)
3795         return bs_snapshots;
3796     for(i = 0; i <= nb_drives; i++) {
3797         bs = drives_table[i].bdrv;
3798         if (bdrv_can_snapshot(bs))
3799             goto ok;
3800     }
3801     return NULL;
3802  ok:
3803     bs_snapshots = bs;
3804     return bs;
3805 }
3806
3807 static int bdrv_snapshot_find(BlockDriverState *bs, QEMUSnapshotInfo *sn_info,
3808                               const char *name)
3809 {
3810     QEMUSnapshotInfo *sn_tab, *sn;
3811     int nb_sns, i, ret;
3812
3813     ret = -ENOENT;
3814     nb_sns = bdrv_snapshot_list(bs, &sn_tab);
3815     if (nb_sns < 0)
3816         return ret;
3817     for(i = 0; i < nb_sns; i++) {
3818         sn = &sn_tab[i];
3819         if (!strcmp(sn->id_str, name) || !strcmp(sn->name, name)) {
3820             *sn_info = *sn;
3821             ret = 0;
3822             break;
3823         }
3824     }
3825     qemu_free(sn_tab);
3826     return ret;
3827 }
3828
3829 void do_savevm(const char *name)
3830 {
3831     BlockDriverState *bs, *bs1;
3832     QEMUSnapshotInfo sn1, *sn = &sn1, old_sn1, *old_sn = &old_sn1;
3833     int must_delete, ret, i;
3834     BlockDriverInfo bdi1, *bdi = &bdi1;
3835     QEMUFile *f;
3836     int saved_vm_running;
3837 #ifdef _WIN32
3838     struct _timeb tb;
3839 #else
3840     struct timeval tv;
3841 #endif
3842
3843     bs = get_bs_snapshots();
3844     if (!bs) {
3845         term_printf("No block device can accept snapshots\n");
3846         return;
3847     }
3848
3849     /* ??? Should this occur after vm_stop?  */
3850     qemu_aio_flush();
3851
3852     saved_vm_running = vm_running;
3853     vm_stop(0);
3854
3855     must_delete = 0;
3856     if (name) {
3857         ret = bdrv_snapshot_find(bs, old_sn, name);
3858         if (ret >= 0) {
3859             must_delete = 1;
3860         }
3861     }
3862     memset(sn, 0, sizeof(*sn));
3863     if (must_delete) {
3864         pstrcpy(sn->name, sizeof(sn->name), old_sn->name);
3865         pstrcpy(sn->id_str, sizeof(sn->id_str), old_sn->id_str);
3866     } else {
3867         if (name)
3868             pstrcpy(sn->name, sizeof(sn->name), name);
3869     }
3870
3871     /* fill auxiliary fields */
3872 #ifdef _WIN32
3873     _ftime(&tb);
3874     sn->date_sec = tb.time;
3875     sn->date_nsec = tb.millitm * 1000000;
3876 #else
3877     gettimeofday(&tv, NULL);
3878     sn->date_sec = tv.tv_sec;
3879     sn->date_nsec = tv.tv_usec * 1000;
3880 #endif
3881     sn->vm_clock_nsec = qemu_get_clock(vm_clock);
3882
3883     if (bdrv_get_info(bs, bdi) < 0 || bdi->vm_state_offset <= 0) {
3884         term_printf("Device %s does not support VM state snapshots\n",
3885                     bdrv_get_device_name(bs));
3886         goto the_end;
3887     }
3888
3889     /* save the VM state */
3890     f = qemu_fopen_bdrv(bs, bdi->vm_state_offset, 1);
3891     if (!f) {
3892         term_printf("Could not open VM state file\n");
3893         goto the_end;
3894     }
3895     ret = qemu_savevm_state(f);
3896     sn->vm_state_size = qemu_ftell(f);
3897     qemu_fclose(f);
3898     if (ret < 0) {
3899         term_printf("Error %d while writing VM\n", ret);
3900         goto the_end;
3901     }
3902
3903     /* create the snapshots */
3904
3905     for(i = 0; i < nb_drives; i++) {
3906         bs1 = drives_table[i].bdrv;
3907         if (bdrv_has_snapshot(bs1)) {
3908             if (must_delete) {
3909                 ret = bdrv_snapshot_delete(bs1, old_sn->id_str);
3910                 if (ret < 0) {
3911                     term_printf("Error while deleting snapshot on '%s'\n",
3912                                 bdrv_get_device_name(bs1));
3913                 }
3914             }
3915             ret = bdrv_snapshot_create(bs1, sn);
3916             if (ret < 0) {
3917                 term_printf("Error while creating snapshot on '%s'\n",
3918                             bdrv_get_device_name(bs1));
3919             }
3920         }
3921     }
3922
3923  the_end:
3924     if (saved_vm_running)
3925         vm_start();
3926 }
3927
3928 void do_loadvm(const char *name)
3929 {
3930     BlockDriverState *bs, *bs1;
3931     BlockDriverInfo bdi1, *bdi = &bdi1;
3932     QEMUFile *f;
3933     int i, ret;
3934     int saved_vm_running;
3935
3936     bs = get_bs_snapshots();
3937     if (!bs) {
3938         term_printf("No block device supports snapshots\n");
3939         return;
3940     }
3941
3942     /* Flush all IO requests so they don't interfere with the new state.  */
3943     qemu_aio_flush();
3944
3945     saved_vm_running = vm_running;
3946     vm_stop(0);
3947
3948     for(i = 0; i <= nb_drives; i++) {
3949         bs1 = drives_table[i].bdrv;
3950         if (bdrv_has_snapshot(bs1)) {
3951             ret = bdrv_snapshot_goto(bs1, name);
3952             if (ret < 0) {
3953                 if (bs != bs1)
3954                     term_printf("Warning: ");
3955                 switch(ret) {
3956                 case -ENOTSUP:
3957                     term_printf("Snapshots not supported on device '%s'\n",
3958                                 bdrv_get_device_name(bs1));
3959                     break;
3960                 case -ENOENT:
3961                     term_printf("Could not find snapshot '%s' on device '%s'\n",
3962                                 name, bdrv_get_device_name(bs1));
3963                     break;
3964                 default:
3965                     term_printf("Error %d while activating snapshot on '%s'\n",
3966                                 ret, bdrv_get_device_name(bs1));
3967                     break;
3968                 }
3969                 /* fatal on snapshot block device */
3970                 if (bs == bs1)
3971                     goto the_end;
3972             }
3973         }
3974     }
3975
3976     if (bdrv_get_info(bs, bdi) < 0 || bdi->vm_state_offset <= 0) {
3977         term_printf("Device %s does not support VM state snapshots\n",
3978                     bdrv_get_device_name(bs));
3979         return;
3980     }
3981
3982     /* restore the VM state */
3983     f = qemu_fopen_bdrv(bs, bdi->vm_state_offset, 0);
3984     if (!f) {
3985         term_printf("Could not open VM state file\n");
3986         goto the_end;
3987     }
3988     ret = qemu_loadvm_state(f);
3989     qemu_fclose(f);
3990     if (ret < 0) {
3991         term_printf("Error %d while loading VM state\n", ret);
3992     }
3993  the_end:
3994     if (saved_vm_running)
3995         vm_start();
3996 }
3997
3998 void do_delvm(const char *name)
3999 {
4000     BlockDriverState *bs, *bs1;
4001     int i, ret;
4002
4003     bs = get_bs_snapshots();
4004     if (!bs) {
4005         term_printf("No block device supports snapshots\n");
4006         return;
4007     }
4008
4009     for(i = 0; i <= nb_drives; i++) {
4010         bs1 = drives_table[i].bdrv;
4011         if (bdrv_has_snapshot(bs1)) {
4012             ret = bdrv_snapshot_delete(bs1, name);
4013             if (ret < 0) {
4014                 if (ret == -ENOTSUP)
4015                     term_printf("Snapshots not supported on device '%s'\n",
4016                                 bdrv_get_device_name(bs1));
4017                 else
4018                     term_printf("Error %d while deleting snapshot on '%s'\n",
4019                                 ret, bdrv_get_device_name(bs1));
4020             }
4021         }
4022     }
4023 }
4024
4025 void do_info_snapshots(void)
4026 {
4027     BlockDriverState *bs, *bs1;
4028     QEMUSnapshotInfo *sn_tab, *sn;
4029     int nb_sns, i;
4030     char buf[256];
4031
4032     bs = get_bs_snapshots();
4033     if (!bs) {
4034         term_printf("No available block device supports snapshots\n");
4035         return;
4036     }
4037     term_printf("Snapshot devices:");
4038     for(i = 0; i <= nb_drives; i++) {
4039         bs1 = drives_table[i].bdrv;
4040         if (bdrv_has_snapshot(bs1)) {
4041             if (bs == bs1)
4042                 term_printf(" %s", bdrv_get_device_name(bs1));
4043         }
4044     }
4045     term_printf("\n");
4046
4047     nb_sns = bdrv_snapshot_list(bs, &sn_tab);
4048     if (nb_sns < 0) {
4049         term_printf("bdrv_snapshot_list: error %d\n", nb_sns);
4050         return;
4051     }
4052     term_printf("Snapshot list (from %s):\n", bdrv_get_device_name(bs));
4053     term_printf("%s\n", bdrv_snapshot_dump(buf, sizeof(buf), NULL));
4054     for(i = 0; i < nb_sns; i++) {
4055         sn = &sn_tab[i];
4056         term_printf("%s\n", bdrv_snapshot_dump(buf, sizeof(buf), sn));
4057     }
4058     qemu_free(sn_tab);
4059 }
4060
4061 /***********************************************************/
4062 /* ram save/restore */
4063
4064 static int ram_get_page(QEMUFile *f, uint8_t *buf, int len)
4065 {
4066     int v;
4067
4068     v = qemu_get_byte(f);
4069     switch(v) {
4070     case 0:
4071         if (qemu_get_buffer(f, buf, len) != len)
4072             return -EIO;
4073         break;
4074     case 1:
4075         v = qemu_get_byte(f);
4076         memset(buf, v, len);
4077         break;
4078     default:
4079         return -EINVAL;
4080     }
4081
4082     if (qemu_file_has_error(f))
4083         return -EIO;
4084
4085     return 0;
4086 }
4087
4088 static int ram_load_v1(QEMUFile *f, void *opaque)
4089 {
4090     int ret;
4091     ram_addr_t i;
4092
4093     if (qemu_get_be32(f) != phys_ram_size)
4094         return -EINVAL;
4095     for(i = 0; i < phys_ram_size; i+= TARGET_PAGE_SIZE) {
4096         ret = ram_get_page(f, phys_ram_base + i, TARGET_PAGE_SIZE);
4097         if (ret)
4098             return ret;
4099     }
4100     return 0;
4101 }
4102
4103 #define BDRV_HASH_BLOCK_SIZE 1024
4104 #define IOBUF_SIZE 4096
4105 #define RAM_CBLOCK_MAGIC 0xfabe
4106
4107 typedef struct RamDecompressState {
4108     z_stream zstream;
4109     QEMUFile *f;
4110     uint8_t buf[IOBUF_SIZE];
4111 } RamDecompressState;
4112
4113 static int ram_decompress_open(RamDecompressState *s, QEMUFile *f)
4114 {
4115     int ret;
4116     memset(s, 0, sizeof(*s));
4117     s->f = f;
4118     ret = inflateInit(&s->zstream);
4119     if (ret != Z_OK)
4120         return -1;
4121     return 0;
4122 }
4123
4124 static int ram_decompress_buf(RamDecompressState *s, uint8_t *buf, int len)
4125 {
4126     int ret, clen;
4127
4128     s->zstream.avail_out = len;
4129     s->zstream.next_out = buf;
4130     while (s->zstream.avail_out > 0) {
4131         if (s->zstream.avail_in == 0) {
4132             if (qemu_get_be16(s->f) != RAM_CBLOCK_MAGIC)
4133                 return -1;
4134             clen = qemu_get_be16(s->f);
4135             if (clen > IOBUF_SIZE)
4136                 return -1;
4137             qemu_get_buffer(s->f, s->buf, clen);
4138             s->zstream.avail_in = clen;
4139             s->zstream.next_in = s->buf;
4140         }
4141         ret = inflate(&s->zstream, Z_PARTIAL_FLUSH);
4142         if (ret != Z_OK && ret != Z_STREAM_END) {
4143             return -1;
4144         }
4145     }
4146     return 0;
4147 }
4148
4149 static void ram_decompress_close(RamDecompressState *s)
4150 {
4151     inflateEnd(&s->zstream);
4152 }
4153
4154 #define RAM_SAVE_FLAG_FULL      0x01
4155 #define RAM_SAVE_FLAG_COMPRESS  0x02
4156 #define RAM_SAVE_FLAG_MEM_SIZE  0x04
4157 #define RAM_SAVE_FLAG_PAGE      0x08
4158 #define RAM_SAVE_FLAG_EOS       0x10
4159
4160 static int is_dup_page(uint8_t *page, uint8_t ch)
4161 {
4162     uint32_t val = ch << 24 | ch << 16 | ch << 8 | ch;
4163     uint32_t *array = (uint32_t *)page;
4164     int i;
4165
4166     for (i = 0; i < (TARGET_PAGE_SIZE / 4); i++) {
4167         if (array[i] != val)
4168             return 0;
4169     }
4170
4171     return 1;
4172 }
4173
4174 static int ram_save_block(QEMUFile *f)
4175 {
4176     static ram_addr_t current_addr = 0;
4177     ram_addr_t saved_addr = current_addr;
4178     ram_addr_t addr = 0;
4179     int found = 0;
4180
4181     while (addr < phys_ram_size) {
4182         if (cpu_physical_memory_get_dirty(current_addr, MIGRATION_DIRTY_FLAG)) {
4183             uint8_t ch;
4184
4185             cpu_physical_memory_reset_dirty(current_addr,
4186                                             current_addr + TARGET_PAGE_SIZE,
4187                                             MIGRATION_DIRTY_FLAG);
4188
4189             ch = *(phys_ram_base + current_addr);
4190
4191             if (is_dup_page(phys_ram_base + current_addr, ch)) {
4192                 qemu_put_be64(f, current_addr | RAM_SAVE_FLAG_COMPRESS);
4193                 qemu_put_byte(f, ch);
4194             } else {
4195                 qemu_put_be64(f, current_addr | RAM_SAVE_FLAG_PAGE);
4196                 qemu_put_buffer(f, phys_ram_base + current_addr, TARGET_PAGE_SIZE);
4197             }
4198
4199             found = 1;
4200             break;
4201         }
4202         addr += TARGET_PAGE_SIZE;
4203         current_addr = (saved_addr + addr) % phys_ram_size;
4204     }
4205
4206     return found;
4207 }
4208
4209 static ram_addr_t ram_save_threshold = 10;
4210
4211 static ram_addr_t ram_save_remaining(void)
4212 {
4213     ram_addr_t addr;
4214     ram_addr_t count = 0;
4215
4216     for (addr = 0; addr < phys_ram_size; addr += TARGET_PAGE_SIZE) {
4217         if (cpu_physical_memory_get_dirty(addr, MIGRATION_DIRTY_FLAG))
4218             count++;
4219     }
4220
4221     return count;
4222 }
4223
4224 static int ram_save_live(QEMUFile *f, int stage, void *opaque)
4225 {
4226     ram_addr_t addr;
4227
4228     if (stage == 1) {
4229         /* Make sure all dirty bits are set */
4230         for (addr = 0; addr < phys_ram_size; addr += TARGET_PAGE_SIZE) {
4231             if (!cpu_physical_memory_get_dirty(addr, MIGRATION_DIRTY_FLAG))
4232                 cpu_physical_memory_set_dirty(addr);
4233         }
4234
4235         /* Enable dirty memory tracking */
4236         cpu_physical_memory_set_dirty_tracking(1);
4237
4238         qemu_put_be64(f, phys_ram_size | RAM_SAVE_FLAG_MEM_SIZE);
4239     }
4240
4241     while (!qemu_file_rate_limit(f)) {
4242         int ret;
4243
4244         ret = ram_save_block(f);
4245         if (ret == 0) /* no more blocks */
4246             break;
4247     }
4248
4249     /* try transferring iterative blocks of memory */
4250
4251     if (stage == 3) {
4252         cpu_physical_memory_set_dirty_tracking(0);
4253
4254         /* flush all remaining blocks regardless of rate limiting */
4255         while (ram_save_block(f) != 0);
4256     }
4257
4258     qemu_put_be64(f, RAM_SAVE_FLAG_EOS);
4259
4260     return (stage == 2) && (ram_save_remaining() < ram_save_threshold);
4261 }
4262
4263 static int ram_load_dead(QEMUFile *f, void *opaque)
4264 {
4265     RamDecompressState s1, *s = &s1;
4266     uint8_t buf[10];
4267     ram_addr_t i;
4268
4269     if (ram_decompress_open(s, f) < 0)
4270         return -EINVAL;
4271     for(i = 0; i < phys_ram_size; i+= BDRV_HASH_BLOCK_SIZE) {
4272         if (ram_decompress_buf(s, buf, 1) < 0) {
4273             fprintf(stderr, "Error while reading ram block header\n");
4274             goto error;
4275         }
4276         if (buf[0] == 0) {
4277             if (ram_decompress_buf(s, phys_ram_base + i, BDRV_HASH_BLOCK_SIZE) < 0) {
4278                 fprintf(stderr, "Error while reading ram block address=0x%08" PRIx64, (uint64_t)i);
4279                 goto error;
4280             }
4281         } else {
4282         error:
4283             printf("Error block header\n");
4284             return -EINVAL;
4285         }
4286     }
4287     ram_decompress_close(s);
4288
4289     return 0;
4290 }
4291
4292 static int ram_load(QEMUFile *f, void *opaque, int version_id)
4293 {
4294     ram_addr_t addr;
4295     int flags;
4296
4297     if (version_id == 1)
4298         return ram_load_v1(f, opaque);
4299
4300     if (version_id == 2) {
4301         if (qemu_get_be32(f) != phys_ram_size)
4302             return -EINVAL;
4303         return ram_load_dead(f, opaque);
4304     }
4305
4306     if (version_id != 3)
4307         return -EINVAL;
4308
4309     do {
4310         addr = qemu_get_be64(f);
4311
4312         flags = addr & ~TARGET_PAGE_MASK;
4313         addr &= TARGET_PAGE_MASK;
4314
4315         if (flags & RAM_SAVE_FLAG_MEM_SIZE) {
4316             if (addr != phys_ram_size)
4317                 return -EINVAL;
4318         }
4319
4320         if (flags & RAM_SAVE_FLAG_FULL) {
4321             if (ram_load_dead(f, opaque) < 0)
4322                 return -EINVAL;
4323         }
4324
4325         if (flags & RAM_SAVE_FLAG_COMPRESS) {
4326             uint8_t ch = qemu_get_byte(f);
4327             memset(phys_ram_base + addr, ch, TARGET_PAGE_SIZE);
4328         } else if (flags & RAM_SAVE_FLAG_PAGE)
4329             qemu_get_buffer(f, phys_ram_base + addr, TARGET_PAGE_SIZE);
4330     } while (!(flags & RAM_SAVE_FLAG_EOS));
4331
4332     return 0;
4333 }
4334
4335 void qemu_service_io(void)
4336 {
4337     CPUState *env = cpu_single_env;
4338     if (env) {
4339         cpu_interrupt(env, CPU_INTERRUPT_EXIT);
4340 #ifdef USE_KQEMU
4341         if (env->kqemu_enabled) {
4342             kqemu_cpu_interrupt(env);
4343         }
4344 #endif
4345     }
4346 }
4347
4348 /***********************************************************/
4349 /* bottom halves (can be seen as timers which expire ASAP) */
4350
4351 struct QEMUBH {
4352     QEMUBHFunc *cb;
4353     void *opaque;
4354     int scheduled;
4355     int idle;
4356     int deleted;
4357     QEMUBH *next;
4358 };
4359
4360 static QEMUBH *first_bh = NULL;
4361
4362 QEMUBH *qemu_bh_new(QEMUBHFunc *cb, void *opaque)
4363 {
4364     QEMUBH *bh;
4365     bh = qemu_mallocz(sizeof(QEMUBH));
4366     if (!bh)
4367         return NULL;
4368     bh->cb = cb;
4369     bh->opaque = opaque;
4370     bh->next = first_bh;
4371     first_bh = bh;
4372     return bh;
4373 }
4374
4375 int qemu_bh_poll(void)
4376 {
4377     QEMUBH *bh, **bhp;
4378     int ret;
4379
4380     ret = 0;
4381     for (bh = first_bh; bh; bh = bh->next) {
4382         if (!bh->deleted && bh->scheduled) {
4383             bh->scheduled = 0;
4384             if (!bh->idle)
4385                 ret = 1;
4386             bh->idle = 0;
4387             bh->cb(bh->opaque);
4388         }
4389     }
4390
4391     /* remove deleted bhs */
4392     bhp = &first_bh;
4393     while (*bhp) {
4394         bh = *bhp;
4395         if (bh->deleted) {
4396             *bhp = bh->next;
4397             qemu_free(bh);
4398         } else
4399             bhp = &bh->next;
4400     }
4401
4402     return ret;
4403 }
4404
4405 void qemu_bh_schedule_idle(QEMUBH *bh)
4406 {
4407     if (bh->scheduled)
4408         return;
4409     bh->scheduled = 1;
4410     bh->idle = 1;
4411 }
4412
4413 void qemu_bh_schedule(QEMUBH *bh)
4414 {
4415     CPUState *env = cpu_single_env;
4416     if (bh->scheduled)
4417         return;
4418     bh->scheduled = 1;
4419     bh->idle = 0;
4420     /* stop the currently executing CPU to execute the BH ASAP */
4421     if (env) {
4422         cpu_interrupt(env, CPU_INTERRUPT_EXIT);
4423     }
4424 }
4425
4426 void qemu_bh_cancel(QEMUBH *bh)
4427 {
4428     bh->scheduled = 0;
4429 }
4430
4431 void qemu_bh_delete(QEMUBH *bh)
4432 {
4433     bh->scheduled = 0;
4434     bh->deleted = 1;
4435 }
4436
4437 static void qemu_bh_update_timeout(int *timeout)
4438 {
4439     QEMUBH *bh;
4440
4441     for (bh = first_bh; bh; bh = bh->next) {
4442         if (!bh->deleted && bh->scheduled) {
4443             if (bh->idle) {
4444                 /* idle bottom halves will be polled at least
4445                  * every 10ms */
4446                 *timeout = MIN(10, *timeout);
4447             } else {
4448                 /* non-idle bottom halves will be executed
4449                  * immediately */
4450                 *timeout = 0;
4451                 break;
4452             }
4453         }
4454     }
4455 }
4456
4457 /***********************************************************/
4458 /* machine registration */
4459
4460 static QEMUMachine *first_machine = NULL;
4461
4462 int qemu_register_machine(QEMUMachine *m)
4463 {
4464     QEMUMachine **pm;
4465     pm = &first_machine;
4466     while (*pm != NULL)
4467         pm = &(*pm)->next;
4468     m->next = NULL;
4469     *pm = m;
4470     return 0;
4471 }
4472
4473 static QEMUMachine *find_machine(const char *name)
4474 {
4475     QEMUMachine *m;
4476
4477     for(m = first_machine; m != NULL; m = m->next) {
4478         if (!strcmp(m->name, name))
4479             return m;
4480     }
4481     return NULL;
4482 }
4483
4484 /***********************************************************/
4485 /* main execution loop */
4486
4487 static void gui_update(void *opaque)
4488 {
4489     DisplayState *ds = opaque;
4490     ds->dpy_refresh(ds);
4491     qemu_mod_timer(ds->gui_timer,
4492         (ds->gui_timer_interval ?
4493             ds->gui_timer_interval :
4494             GUI_REFRESH_INTERVAL)
4495         + qemu_get_clock(rt_clock));
4496 }
4497
4498 struct vm_change_state_entry {
4499     VMChangeStateHandler *cb;
4500     void *opaque;
4501     LIST_ENTRY (vm_change_state_entry) entries;
4502 };
4503
4504 static LIST_HEAD(vm_change_state_head, vm_change_state_entry) vm_change_state_head;
4505
4506 VMChangeStateEntry *qemu_add_vm_change_state_handler(VMChangeStateHandler *cb,
4507                                                      void *opaque)
4508 {
4509     VMChangeStateEntry *e;
4510
4511     e = qemu_mallocz(sizeof (*e));
4512     if (!e)
4513         return NULL;
4514
4515     e->cb = cb;
4516     e->opaque = opaque;
4517     LIST_INSERT_HEAD(&vm_change_state_head, e, entries);
4518     return e;
4519 }
4520
4521 void qemu_del_vm_change_state_handler(VMChangeStateEntry *e)
4522 {
4523     LIST_REMOVE (e, entries);
4524     qemu_free (e);
4525 }
4526
4527 static void vm_state_notify(int running)
4528 {
4529     VMChangeStateEntry *e;
4530
4531     for (e = vm_change_state_head.lh_first; e; e = e->entries.le_next) {
4532         e->cb(e->opaque, running);
4533     }
4534 }
4535
4536 /* XXX: support several handlers */
4537 static VMStopHandler *vm_stop_cb;
4538 static void *vm_stop_opaque;
4539
4540 int qemu_add_vm_stop_handler(VMStopHandler *cb, void *opaque)
4541 {
4542     vm_stop_cb = cb;
4543     vm_stop_opaque = opaque;
4544     return 0;
4545 }
4546
4547 void qemu_del_vm_stop_handler(VMStopHandler *cb, void *opaque)
4548 {
4549     vm_stop_cb = NULL;
4550 }
4551
4552 void vm_start(void)
4553 {
4554     if (!vm_running) {
4555         cpu_enable_ticks();
4556         vm_running = 1;
4557         vm_state_notify(1);
4558         qemu_rearm_alarm_timer(alarm_timer);
4559     }
4560 }
4561
4562 void vm_stop(int reason)
4563 {
4564     if (vm_running) {
4565         cpu_disable_ticks();
4566         vm_running = 0;
4567         if (reason != 0) {
4568             if (vm_stop_cb) {
4569                 vm_stop_cb(vm_stop_opaque, reason);
4570             }
4571         }
4572         vm_state_notify(0);
4573     }
4574 }
4575
4576 /* reset/shutdown handler */
4577
4578 typedef struct QEMUResetEntry {
4579     QEMUResetHandler *func;
4580     void *opaque;
4581     struct QEMUResetEntry *next;
4582 } QEMUResetEntry;
4583
4584 static QEMUResetEntry *first_reset_entry;
4585 static int reset_requested;
4586 static int shutdown_requested;
4587 static int powerdown_requested;
4588
4589 int qemu_shutdown_requested(void)
4590 {
4591     int r = shutdown_requested;
4592     shutdown_requested = 0;
4593     return r;
4594 }
4595
4596 int qemu_reset_requested(void)
4597 {
4598     int r = reset_requested;
4599     reset_requested = 0;
4600     return r;
4601 }
4602
4603 int qemu_powerdown_requested(void)
4604 {
4605     int r = powerdown_requested;
4606     powerdown_requested = 0;
4607     return r;
4608 }
4609
4610 void qemu_register_reset(QEMUResetHandler *func, void *opaque)
4611 {
4612     QEMUResetEntry **pre, *re;
4613
4614     pre = &first_reset_entry;
4615     while (*pre != NULL)
4616         pre = &(*pre)->next;
4617     re = qemu_mallocz(sizeof(QEMUResetEntry));
4618     re->func = func;
4619     re->opaque = opaque;
4620     re->next = NULL;
4621     *pre = re;
4622 }
4623
4624 void qemu_system_reset(void)
4625 {
4626     QEMUResetEntry *re;
4627
4628     /* reset all devices */
4629     for(re = first_reset_entry; re != NULL; re = re->next) {
4630         re->func(re->opaque);
4631     }
4632 }
4633
4634 void qemu_system_reset_request(void)
4635 {
4636     if (no_reboot) {
4637         shutdown_requested = 1;
4638     } else {
4639         reset_requested = 1;
4640     }
4641     if (cpu_single_env)
4642         cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
4643 }
4644
4645 void qemu_system_shutdown_request(void)
4646 {
4647     shutdown_requested = 1;
4648     if (cpu_single_env)
4649         cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
4650 }
4651
4652 void qemu_system_powerdown_request(void)
4653 {
4654     powerdown_requested = 1;
4655     if (cpu_single_env)
4656         cpu_interrupt(cpu_single_env, CPU_INTERRUPT_EXIT);
4657 }
4658
4659 #ifdef _WIN32
4660 void host_main_loop_wait(int *timeout)
4661 {
4662     int ret, ret2, i;
4663     PollingEntry *pe;
4664
4665
4666     /* XXX: need to suppress polling by better using win32 events */
4667     ret = 0;
4668     for(pe = first_polling_entry; pe != NULL; pe = pe->next) {
4669         ret |= pe->func(pe->opaque);
4670     }
4671     if (ret == 0) {
4672         int err;
4673         WaitObjects *w = &wait_objects;
4674
4675         ret = WaitForMultipleObjects(w->num, w->events, FALSE, *timeout);
4676         if (WAIT_OBJECT_0 + 0 <= ret && ret <= WAIT_OBJECT_0 + w->num - 1) {
4677             if (w->func[ret - WAIT_OBJECT_0])
4678                 w->func[ret - WAIT_OBJECT_0](w->opaque[ret - WAIT_OBJECT_0]);
4679
4680             /* Check for additional signaled events */
4681             for(i = (ret - WAIT_OBJECT_0 + 1); i < w->num; i++) {
4682
4683                 /* Check if event is signaled */
4684                 ret2 = WaitForSingleObject(w->events[i], 0);
4685                 if(ret2 == WAIT_OBJECT_0) {
4686                     if (w->func[i])
4687                         w->func[i](w->opaque[i]);
4688                 } else if (ret2 == WAIT_TIMEOUT) {
4689                 } else {
4690                     err = GetLastError();
4691                     fprintf(stderr, "WaitForSingleObject error %d %d\n", i, err);
4692                 }
4693             }
4694         } else if (ret == WAIT_TIMEOUT) {
4695         } else {
4696             err = GetLastError();
4697             fprintf(stderr, "WaitForMultipleObjects error %d %d\n", ret, err);
4698         }
4699     }
4700
4701     *timeout = 0;
4702 }
4703 #else
4704 void host_main_loop_wait(int *timeout)
4705 {
4706 }
4707 #endif
4708
4709 void main_loop_wait(int timeout)
4710 {
4711     IOHandlerRecord *ioh;
4712     fd_set rfds, wfds, xfds;
4713     int ret, nfds;
4714     struct timeval tv;
4715
4716     qemu_bh_update_timeout(&timeout);
4717
4718     host_main_loop_wait(&timeout);
4719
4720     /* poll any events */
4721     /* XXX: separate device handlers from system ones */
4722     nfds = -1;
4723     FD_ZERO(&rfds);
4724     FD_ZERO(&wfds);
4725     FD_ZERO(&xfds);
4726     for(ioh = first_io_handler; ioh != NULL; ioh = ioh->next) {
4727         if (ioh->deleted)
4728             continue;
4729         if (ioh->fd_read &&
4730             (!ioh->fd_read_poll ||
4731              ioh->fd_read_poll(ioh->opaque) != 0)) {
4732             FD_SET(ioh->fd, &rfds);
4733             if (ioh->fd > nfds)
4734                 nfds = ioh->fd;
4735         }
4736         if (ioh->fd_write) {
4737             FD_SET(ioh->fd, &wfds);
4738             if (ioh->fd > nfds)
4739                 nfds = ioh->fd;
4740         }
4741     }
4742
4743     tv.tv_sec = timeout / 1000;
4744     tv.tv_usec = (timeout % 1000) * 1000;
4745
4746 #if defined(CONFIG_SLIRP)
4747     if (slirp_is_inited()) {
4748         slirp_select_fill(&nfds, &rfds, &wfds, &xfds);
4749     }
4750 #endif
4751     ret = select(nfds + 1, &rfds, &wfds, &xfds, &tv);
4752     if (ret > 0) {
4753         IOHandlerRecord **pioh;
4754
4755         for(ioh = first_io_handler; ioh != NULL; ioh = ioh->next) {
4756             if (!ioh->deleted && ioh->fd_read && FD_ISSET(ioh->fd, &rfds)) {
4757                 ioh->fd_read(ioh->opaque);
4758             }
4759             if (!ioh->deleted && ioh->fd_write && FD_ISSET(ioh->fd, &wfds)) {
4760                 ioh->fd_write(ioh->opaque);
4761             }
4762         }
4763
4764         /* remove deleted IO handlers */
4765         pioh = &first_io_handler;
4766         while (*pioh) {
4767             ioh = *pioh;
4768             if (ioh->deleted) {
4769                 *pioh = ioh->next;
4770                 qemu_free(ioh);
4771             } else
4772                 pioh = &ioh->next;
4773         }
4774     }
4775 #if defined(CONFIG_SLIRP)
4776     if (slirp_is_inited()) {
4777         if (ret < 0) {
4778             FD_ZERO(&rfds);
4779             FD_ZERO(&wfds);
4780             FD_ZERO(&xfds);
4781         }
4782         slirp_select_poll(&rfds, &wfds, &xfds);
4783     }
4784 #endif
4785
4786     /* Check bottom-halves last in case any of the earlier events triggered
4787        them.  */
4788     qemu_bh_poll();
4789
4790 }
4791
4792 static int main_loop(void)
4793 {
4794     int ret, timeout;
4795 #ifdef CONFIG_PROFILER
4796     int64_t ti;
4797 #endif
4798     CPUState *env;
4799
4800     cur_cpu = first_cpu;
4801     next_cpu = cur_cpu->next_cpu ?: first_cpu;
4802     for(;;) {
4803         if (vm_running) {
4804
4805             for(;;) {
4806                 /* get next cpu */
4807                 env = next_cpu;
4808 #ifdef CONFIG_PROFILER
4809                 ti = profile_getclock();
4810 #endif
4811                 if (use_icount) {
4812                     int64_t count;
4813                     int decr;
4814                     qemu_icount -= (env->icount_decr.u16.low + env->icount_extra);
4815                     env->icount_decr.u16.low = 0;
4816                     env->icount_extra = 0;
4817                     count = qemu_next_deadline();
4818                     count = (count + (1 << icount_time_shift) - 1)
4819                             >> icount_time_shift;
4820                     qemu_icount += count;
4821                     decr = (count > 0xffff) ? 0xffff : count;
4822                     count -= decr;
4823                     env->icount_decr.u16.low = decr;
4824                     env->icount_extra = count;
4825                 }
4826                 ret = cpu_exec(env);
4827 #ifdef CONFIG_PROFILER
4828                 qemu_time += profile_getclock() - ti;
4829 #endif
4830                 if (use_icount) {
4831                     /* Fold pending instructions back into the
4832                        instruction counter, and clear the interrupt flag.  */
4833                     qemu_icount -= (env->icount_decr.u16.low
4834                                     + env->icount_extra);
4835                     env->icount_decr.u32 = 0;
4836                     env->icount_extra = 0;
4837                 }
4838                 next_cpu = env->next_cpu ?: first_cpu;
4839                 if (event_pending && likely(ret != EXCP_DEBUG)) {
4840                     ret = EXCP_INTERRUPT;
4841                     event_pending = 0;
4842                     break;
4843                 }
4844                 if (ret == EXCP_HLT) {
4845                     /* Give the next CPU a chance to run.  */
4846                     cur_cpu = env;
4847                     continue;
4848                 }
4849                 if (ret != EXCP_HALTED)
4850                     break;
4851                 /* all CPUs are halted ? */
4852                 if (env == cur_cpu)
4853                     break;
4854             }
4855             cur_cpu = env;
4856
4857             if (shutdown_requested) {
4858                 ret = EXCP_INTERRUPT;
4859                 if (no_shutdown) {
4860                     vm_stop(0);
4861                     no_shutdown = 0;
4862                 }
4863                 else
4864                     break;
4865             }
4866             if (reset_requested) {
4867                 reset_requested = 0;
4868                 qemu_system_reset();
4869                 ret = EXCP_INTERRUPT;
4870             }
4871             if (powerdown_requested) {
4872                 powerdown_requested = 0;
4873                 qemu_system_powerdown();
4874                 ret = EXCP_INTERRUPT;
4875             }
4876             if (unlikely(ret == EXCP_DEBUG)) {
4877                 vm_stop(EXCP_DEBUG);
4878             }
4879             /* If all cpus are halted then wait until the next IRQ */
4880             /* XXX: use timeout computed from timers */
4881             if (ret == EXCP_HALTED) {
4882                 if (use_icount) {
4883                     int64_t add;
4884                     int64_t delta;
4885                     /* Advance virtual time to the next event.  */
4886                     if (use_icount == 1) {
4887                         /* When not using an adaptive execution frequency
4888                            we tend to get badly out of sync with real time,
4889                            so just delay for a reasonable amount of time.  */
4890                         delta = 0;
4891                     } else {
4892                         delta = cpu_get_icount() - cpu_get_clock();
4893                     }
4894                     if (delta > 0) {
4895                         /* If virtual time is ahead of real time then just
4896                            wait for IO.  */
4897                         timeout = (delta / 1000000) + 1;
4898                     } else {
4899                         /* Wait for either IO to occur or the next
4900                            timer event.  */
4901                         add = qemu_next_deadline();
4902                         /* We advance the timer before checking for IO.
4903                            Limit the amount we advance so that early IO
4904                            activity won't get the guest too far ahead.  */
4905                         if (add > 10000000)
4906                             add = 10000000;
4907                         delta += add;
4908                         add = (add + (1 << icount_time_shift) - 1)
4909                               >> icount_time_shift;
4910                         qemu_icount += add;
4911                         timeout = delta / 1000000;
4912                         if (timeout < 0)
4913                             timeout = 0;
4914                     }
4915                 } else {
4916                     timeout = 5000;
4917                 }
4918             } else {
4919                 timeout = 0;
4920             }
4921         } else {
4922             if (shutdown_requested) {
4923                 ret = EXCP_INTERRUPT;
4924                 break;
4925             }
4926             timeout = 5000;
4927         }
4928 #ifdef CONFIG_PROFILER
4929         ti = profile_getclock();
4930 #endif
4931         main_loop_wait(timeout);
4932 #ifdef CONFIG_PROFILER
4933         dev_time += profile_getclock() - ti;
4934 #endif
4935     }
4936     cpu_disable_ticks();
4937     return ret;
4938 }
4939
4940 static void help(int exitcode)
4941 {
4942     printf("QEMU PC emulator version " QEMU_VERSION ", Copyright (c) 2003-2008 Fabrice Bellard\n"
4943            "usage: %s [options] [disk_image]\n"
4944            "\n"
4945            "'disk_image' is a raw hard image image for IDE hard disk 0\n"
4946            "\n"
4947            "Standard options:\n"
4948            "-M machine      select emulated machine (-M ? for list)\n"
4949            "-cpu cpu        select CPU (-cpu ? for list)\n"
4950            "-fda/-fdb file  use 'file' as floppy disk 0/1 image\n"
4951            "-hda/-hdb file  use 'file' as IDE hard disk 0/1 image\n"
4952            "-hdc/-hdd file  use 'file' as IDE hard disk 2/3 image\n"
4953            "-cdrom file     use 'file' as IDE cdrom image (cdrom is ide1 master)\n"
4954            "-drive [file=file][,if=type][,bus=n][,unit=m][,media=d][,index=i]\n"
4955            "       [,cyls=c,heads=h,secs=s[,trans=t]][,snapshot=on|off]\n"
4956            "       [,cache=writethrough|writeback|none][,format=f]\n"
4957            "                use 'file' as a drive image\n"
4958            "-mtdblock file  use 'file' as on-board Flash memory image\n"
4959            "-sd file        use 'file' as SecureDigital card image\n"
4960            "-pflash file    use 'file' as a parallel flash image\n"
4961            "-boot [a|c|d|n] boot on floppy (a), hard disk (c), CD-ROM (d), or network (n)\n"
4962            "-snapshot       write to temporary files instead of disk image files\n"
4963 #ifdef CONFIG_SDL
4964            "-no-frame       open SDL window without a frame and window decorations\n"
4965            "-alt-grab       use Ctrl-Alt-Shift to grab mouse (instead of Ctrl-Alt)\n"
4966            "-no-quit        disable SDL window close capability\n"
4967 #endif
4968 #ifdef TARGET_I386
4969            "-no-fd-bootchk  disable boot signature checking for floppy disks\n"
4970 #endif
4971            "-m megs         set virtual RAM size to megs MB [default=%d]\n"
4972            "-smp n          set the number of CPUs to 'n' [default=1]\n"
4973            "-nographic      disable graphical output and redirect serial I/Os to console\n"
4974            "-portrait       rotate graphical output 90 deg left (only PXA LCD)\n"
4975 #ifndef _WIN32
4976            "-k language     use keyboard layout (for example \"fr\" for French)\n"
4977 #endif
4978 #ifdef HAS_AUDIO
4979            "-audio-help     print list of audio drivers and their options\n"
4980            "-soundhw c1,... enable audio support\n"
4981            "                and only specified sound cards (comma separated list)\n"
4982            "                use -soundhw ? to get the list of supported cards\n"
4983            "                use -soundhw all to enable all of them\n"
4984 #endif
4985            "-vga [std|cirrus|vmware]\n"
4986            "                select video card type\n"
4987            "-localtime      set the real time clock to local time [default=utc]\n"
4988            "-full-screen    start in full screen\n"
4989 #ifdef TARGET_I386
4990            "-win2k-hack     use it when installing Windows 2000 to avoid a disk full bug\n"
4991 #endif
4992            "-usb            enable the USB driver (will be the default soon)\n"
4993            "-usbdevice name add the host or guest USB device 'name'\n"
4994 #if defined(TARGET_PPC) || defined(TARGET_SPARC)
4995            "-g WxH[xDEPTH]  Set the initial graphical resolution and depth\n"
4996 #endif
4997            "-name string    set the name of the guest\n"
4998            "-uuid %%08x-%%04x-%%04x-%%04x-%%012x specify machine UUID\n"
4999            "\n"
5000            "Network options:\n"
5001            "-net nic[,vlan=n][,macaddr=addr][,model=type]\n"
5002            "                create a new Network Interface Card and connect it to VLAN 'n'\n"
5003 #ifdef CONFIG_SLIRP
5004            "-net user[,vlan=n][,hostname=host]\n"
5005            "                connect the user mode network stack to VLAN 'n' and send\n"
5006            "                hostname 'host' to DHCP clients\n"
5007 #endif
5008 #ifdef _WIN32
5009            "-net tap[,vlan=n],ifname=name\n"
5010            "                connect the host TAP network interface to VLAN 'n'\n"
5011 #else
5012            "-net tap[,vlan=n][,fd=h][,ifname=name][,script=file][,downscript=dfile]\n"
5013            "                connect the host TAP network interface to VLAN 'n' and use the\n"
5014            "                network scripts 'file' (default=%s)\n"
5015            "                and 'dfile' (default=%s);\n"
5016            "                use '[down]script=no' to disable script execution;\n"
5017            "                use 'fd=h' to connect to an already opened TAP interface\n"
5018 #endif
5019            "-net socket[,vlan=n][,fd=h][,listen=[host]:port][,connect=host:port]\n"
5020            "                connect the vlan 'n' to another VLAN using a socket connection\n"
5021            "-net socket[,vlan=n][,fd=h][,mcast=maddr:port]\n"
5022            "                connect the vlan 'n' to multicast maddr and port\n"
5023 #ifdef CONFIG_VDE
5024            "-net vde[,vlan=n][,sock=socketpath][,port=n][,group=groupname][,mode=octalmode]\n"
5025            "                connect the vlan 'n' to port 'n' of a vde switch running\n"
5026            "                on host and listening for incoming connections on 'socketpath'.\n"
5027            "                Use group 'groupname' and mode 'octalmode' to change default\n"
5028            "                ownership and permissions for communication port.\n"
5029 #endif
5030            "-net none       use it alone to have zero network devices; if no -net option\n"
5031            "                is provided, the default is '-net nic -net user'\n"
5032            "\n"
5033            "-bt hci,null    Dumb bluetooth HCI - doesn't respond to commands\n"
5034            "-bt hci,host[:id]\n"
5035            "                Use host's HCI with the given name\n"
5036            "-bt hci[,vlan=n]\n"
5037            "                Emulate a standard HCI in virtual scatternet 'n'\n"
5038            "-bt vhci[,vlan=n]\n"
5039            "                Add host computer to virtual scatternet 'n' using VHCI\n"
5040            "-bt device:dev[,vlan=n]\n"
5041            "                Emulate a bluetooth device 'dev' in scatternet 'n'\n"
5042            "\n"
5043 #ifdef CONFIG_SLIRP
5044            "-tftp dir       allow tftp access to files in dir [-net user]\n"
5045            "-bootp file     advertise file in BOOTP replies\n"
5046 #ifndef _WIN32
5047            "-smb dir        allow SMB access to files in 'dir' [-net user]\n"
5048 #endif
5049            "-redir [tcp|udp]:host-port:[guest-host]:guest-port\n"
5050            "                redirect TCP or UDP connections from host to guest [-net user]\n"
5051 #endif
5052            "\n"
5053            "Linux boot specific:\n"
5054            "-kernel bzImage use 'bzImage' as kernel image\n"
5055            "-append cmdline use 'cmdline' as kernel command line\n"
5056            "-initrd file    use 'file' as initial ram disk\n"
5057            "\n"
5058            "Debug/Expert options:\n"
5059            "-monitor dev    redirect the monitor to char device 'dev'\n"
5060            "-serial dev     redirect the serial port to char device 'dev'\n"
5061            "-parallel dev   redirect the parallel port to char device 'dev'\n"
5062            "-pidfile file   Write PID to 'file'\n"
5063            "-S              freeze CPU at startup (use 'c' to start execution)\n"
5064            "-s              wait gdb connection to port\n"
5065            "-p port         set gdb connection port [default=%s]\n"
5066            "-d item1,...    output log to %s (use -d ? for a list of log items)\n"
5067            "-hdachs c,h,s[,t]  force hard disk 0 physical geometry and the optional BIOS\n"
5068            "                translation (t=none or lba) (usually qemu can guess them)\n"
5069            "-L path         set the directory for the BIOS, VGA BIOS and keymaps\n"
5070 #ifdef USE_KQEMU
5071            "-kernel-kqemu   enable KQEMU full virtualization (default is user mode only)\n"
5072            "-no-kqemu       disable KQEMU kernel module usage\n"
5073 #endif
5074 #ifdef CONFIG_KVM
5075            "-enable-kvm     enable KVM full virtualization support\n"
5076 #endif
5077 #ifdef TARGET_I386
5078            "-no-acpi        disable ACPI\n"
5079 #endif
5080 #ifdef CONFIG_CURSES
5081            "-curses         use a curses/ncurses interface instead of SDL\n"
5082 #endif
5083            "-no-reboot      exit instead of rebooting\n"
5084            "-no-shutdown    stop before shutdown\n"
5085            "-loadvm [tag|id]  start right away with a saved state (loadvm in monitor)\n"
5086            "-vnc display    start a VNC server on display\n"
5087 #ifndef _WIN32
5088            "-daemonize      daemonize QEMU after initializing\n"
5089 #endif
5090            "-option-rom rom load a file, rom, into the option ROM space\n"
5091 #ifdef TARGET_SPARC
5092            "-prom-env variable=value  set OpenBIOS nvram variables\n"
5093 #endif
5094            "-clock          force the use of the given methods for timer alarm.\n"
5095            "                To see what timers are available use -clock ?\n"
5096            "-startdate      select initial date of the clock\n"
5097            "-icount [N|auto]\n"
5098            "                Enable virtual instruction counter with 2^N clock ticks per instruction\n"
5099            "\n"
5100            "During emulation, the following keys are useful:\n"
5101            "ctrl-alt-f      toggle full screen\n"
5102            "ctrl-alt-n      switch to virtual console 'n'\n"
5103            "ctrl-alt        toggle mouse and keyboard grab\n"
5104            "\n"
5105            "When using -nographic, press 'ctrl-a h' to get some help.\n"
5106            ,
5107            "qemu",
5108            DEFAULT_RAM_SIZE,
5109 #ifndef _WIN32
5110            DEFAULT_NETWORK_SCRIPT,
5111            DEFAULT_NETWORK_DOWN_SCRIPT,
5112 #endif
5113            DEFAULT_GDBSTUB_PORT,
5114            "/tmp/qemu.log");
5115     exit(exitcode);
5116 }
5117
5118 #define HAS_ARG 0x0001
5119
5120 enum {
5121     QEMU_OPTION_h,
5122
5123     QEMU_OPTION_M,
5124     QEMU_OPTION_cpu,
5125     QEMU_OPTION_fda,
5126     QEMU_OPTION_fdb,
5127     QEMU_OPTION_hda,
5128     QEMU_OPTION_hdb,
5129     QEMU_OPTION_hdc,
5130     QEMU_OPTION_hdd,
5131     QEMU_OPTION_drive,
5132     QEMU_OPTION_cdrom,
5133     QEMU_OPTION_mtdblock,
5134     QEMU_OPTION_sd,
5135     QEMU_OPTION_pflash,
5136     QEMU_OPTION_boot,
5137     QEMU_OPTION_snapshot,
5138 #ifdef TARGET_I386
5139     QEMU_OPTION_no_fd_bootchk,
5140 #endif
5141     QEMU_OPTION_m,
5142     QEMU_OPTION_nographic,
5143     QEMU_OPTION_portrait,
5144 #ifdef HAS_AUDIO
5145     QEMU_OPTION_audio_help,
5146     QEMU_OPTION_soundhw,
5147 #endif
5148
5149     QEMU_OPTION_net,
5150     QEMU_OPTION_tftp,
5151     QEMU_OPTION_bootp,
5152     QEMU_OPTION_smb,
5153     QEMU_OPTION_redir,
5154     QEMU_OPTION_bt,
5155
5156     QEMU_OPTION_kernel,
5157     QEMU_OPTION_append,
5158     QEMU_OPTION_initrd,
5159
5160     QEMU_OPTION_S,
5161     QEMU_OPTION_s,
5162     QEMU_OPTION_p,
5163     QEMU_OPTION_d,
5164     QEMU_OPTION_hdachs,
5165     QEMU_OPTION_L,
5166     QEMU_OPTION_bios,
5167     QEMU_OPTION_k,
5168     QEMU_OPTION_localtime,
5169     QEMU_OPTION_g,
5170     QEMU_OPTION_vga,
5171     QEMU_OPTION_echr,
5172     QEMU_OPTION_monitor,
5173     QEMU_OPTION_serial,
5174     QEMU_OPTION_parallel,
5175     QEMU_OPTION_loadvm,
5176     QEMU_OPTION_full_screen,
5177     QEMU_OPTION_no_frame,
5178     QEMU_OPTION_alt_grab,
5179     QEMU_OPTION_no_quit,
5180     QEMU_OPTION_pidfile,
5181     QEMU_OPTION_no_kqemu,
5182     QEMU_OPTION_kernel_kqemu,
5183     QEMU_OPTION_enable_kvm,
5184     QEMU_OPTION_win2k_hack,
5185     QEMU_OPTION_usb,
5186     QEMU_OPTION_usbdevice,
5187     QEMU_OPTION_smp,
5188     QEMU_OPTION_vnc,
5189     QEMU_OPTION_no_acpi,
5190     QEMU_OPTION_curses,
5191     QEMU_OPTION_no_reboot,
5192     QEMU_OPTION_no_shutdown,
5193     QEMU_OPTION_show_cursor,
5194     QEMU_OPTION_daemonize,
5195     QEMU_OPTION_option_rom,
5196     QEMU_OPTION_semihosting,
5197     QEMU_OPTION_name,
5198     QEMU_OPTION_prom_env,
5199     QEMU_OPTION_old_param,
5200     QEMU_OPTION_clock,
5201     QEMU_OPTION_startdate,
5202     QEMU_OPTION_tb_size,
5203     QEMU_OPTION_icount,
5204     QEMU_OPTION_uuid,
5205     QEMU_OPTION_incoming,
5206 };
5207
5208 typedef struct QEMUOption {
5209     const char *name;
5210     int flags;
5211     int index;
5212 } QEMUOption;
5213
5214 static const QEMUOption qemu_options[] = {
5215     { "h", 0, QEMU_OPTION_h },
5216     { "help", 0, QEMU_OPTION_h },
5217
5218     { "M", HAS_ARG, QEMU_OPTION_M },
5219     { "cpu", HAS_ARG, QEMU_OPTION_cpu },
5220     { "fda", HAS_ARG, QEMU_OPTION_fda },
5221     { "fdb", HAS_ARG, QEMU_OPTION_fdb },
5222     { "hda", HAS_ARG, QEMU_OPTION_hda },
5223     { "hdb", HAS_ARG, QEMU_OPTION_hdb },
5224     { "hdc", HAS_ARG, QEMU_OPTION_hdc },
5225     { "hdd", HAS_ARG, QEMU_OPTION_hdd },
5226     { "drive", HAS_ARG, QEMU_OPTION_drive },
5227     { "cdrom", HAS_ARG, QEMU_OPTION_cdrom },
5228     { "mtdblock", HAS_ARG, QEMU_OPTION_mtdblock },
5229     { "sd", HAS_ARG, QEMU_OPTION_sd },
5230     { "pflash", HAS_ARG, QEMU_OPTION_pflash },
5231     { "boot", HAS_ARG, QEMU_OPTION_boot },
5232     { "snapshot", 0, QEMU_OPTION_snapshot },
5233 #ifdef TARGET_I386
5234     { "no-fd-bootchk", 0, QEMU_OPTION_no_fd_bootchk },
5235 #endif
5236     { "m", HAS_ARG, QEMU_OPTION_m },
5237     { "nographic", 0, QEMU_OPTION_nographic },
5238     { "portrait", 0, QEMU_OPTION_portrait },
5239     { "k", HAS_ARG, QEMU_OPTION_k },
5240 #ifdef HAS_AUDIO
5241     { "audio-help", 0, QEMU_OPTION_audio_help },
5242     { "soundhw", HAS_ARG, QEMU_OPTION_soundhw },
5243 #endif
5244
5245     { "net", HAS_ARG, QEMU_OPTION_net},
5246 #ifdef CONFIG_SLIRP
5247     { "tftp", HAS_ARG, QEMU_OPTION_tftp },
5248     { "bootp", HAS_ARG, QEMU_OPTION_bootp },
5249 #ifndef _WIN32
5250     { "smb", HAS_ARG, QEMU_OPTION_smb },
5251 #endif
5252     { "redir", HAS_ARG, QEMU_OPTION_redir },
5253 #endif
5254     { "bt", HAS_ARG, QEMU_OPTION_bt },
5255
5256     { "kernel", HAS_ARG, QEMU_OPTION_kernel },
5257     { "append", HAS_ARG, QEMU_OPTION_append },
5258     { "initrd", HAS_ARG, QEMU_OPTION_initrd },
5259
5260     { "S", 0, QEMU_OPTION_S },
5261     { "s", 0, QEMU_OPTION_s },
5262     { "p", HAS_ARG, QEMU_OPTION_p },
5263     { "d", HAS_ARG, QEMU_OPTION_d },
5264     { "hdachs", HAS_ARG, QEMU_OPTION_hdachs },
5265     { "L", HAS_ARG, QEMU_OPTION_L },
5266     { "bios", HAS_ARG, QEMU_OPTION_bios },
5267 #ifdef USE_KQEMU
5268     { "no-kqemu", 0, QEMU_OPTION_no_kqemu },
5269     { "kernel-kqemu", 0, QEMU_OPTION_kernel_kqemu },
5270 #endif
5271 #ifdef CONFIG_KVM
5272     { "enable-kvm", 0, QEMU_OPTION_enable_kvm },
5273 #endif
5274 #if defined(TARGET_PPC) || defined(TARGET_SPARC)
5275     { "g", 1, QEMU_OPTION_g },
5276 #endif
5277     { "localtime", 0, QEMU_OPTION_localtime },
5278     { "vga", HAS_ARG, QEMU_OPTION_vga },
5279     { "echr", HAS_ARG, QEMU_OPTION_echr },
5280     { "monitor", HAS_ARG, QEMU_OPTION_monitor },
5281     { "serial", HAS_ARG, QEMU_OPTION_serial },
5282     { "parallel", HAS_ARG, QEMU_OPTION_parallel },
5283     { "loadvm", HAS_ARG, QEMU_OPTION_loadvm },
5284     { "full-screen", 0, QEMU_OPTION_full_screen },
5285 #ifdef CONFIG_SDL
5286     { "no-frame", 0, QEMU_OPTION_no_frame },
5287     { "alt-grab", 0, QEMU_OPTION_alt_grab },
5288     { "no-quit", 0, QEMU_OPTION_no_quit },
5289 #endif
5290     { "pidfile", HAS_ARG, QEMU_OPTION_pidfile },
5291     { "win2k-hack", 0, QEMU_OPTION_win2k_hack },
5292     { "usbdevice", HAS_ARG, QEMU_OPTION_usbdevice },
5293     { "smp", HAS_ARG, QEMU_OPTION_smp },
5294     { "vnc", HAS_ARG, QEMU_OPTION_vnc },
5295 #ifdef CONFIG_CURSES
5296     { "curses", 0, QEMU_OPTION_curses },
5297 #endif
5298     { "uuid", HAS_ARG, QEMU_OPTION_uuid },
5299
5300     /* temporary options */
5301     { "usb", 0, QEMU_OPTION_usb },
5302     { "no-acpi", 0, QEMU_OPTION_no_acpi },
5303     { "no-reboot", 0, QEMU_OPTION_no_reboot },
5304     { "no-shutdown", 0, QEMU_OPTION_no_shutdown },
5305     { "show-cursor", 0, QEMU_OPTION_show_cursor },
5306     { "daemonize", 0, QEMU_OPTION_daemonize },
5307     { "option-rom", HAS_ARG, QEMU_OPTION_option_rom },
5308 #if defined(TARGET_ARM) || defined(TARGET_M68K)
5309     { "semihosting", 0, QEMU_OPTION_semihosting },
5310 #endif
5311     { "name", HAS_ARG, QEMU_OPTION_name },
5312 #if defined(TARGET_SPARC)
5313     { "prom-env", HAS_ARG, QEMU_OPTION_prom_env },
5314 #endif
5315 #if defined(TARGET_ARM)
5316     { "old-param", 0, QEMU_OPTION_old_param },
5317 #endif
5318     { "clock", HAS_ARG, QEMU_OPTION_clock },
5319     { "startdate", HAS_ARG, QEMU_OPTION_startdate },
5320     { "tb-size", HAS_ARG, QEMU_OPTION_tb_size },
5321     { "icount", HAS_ARG, QEMU_OPTION_icount },
5322     { "incoming", HAS_ARG, QEMU_OPTION_incoming },
5323     { NULL },
5324 };
5325
5326 /* password input */
5327
5328 int qemu_key_check(BlockDriverState *bs, const char *name)
5329 {
5330     char password[256];
5331     int i;
5332
5333     if (!bdrv_is_encrypted(bs))
5334         return 0;
5335
5336     term_printf("%s is encrypted.\n", name);
5337     for(i = 0; i < 3; i++) {
5338         monitor_readline("Password: ", 1, password, sizeof(password));
5339         if (bdrv_set_key(bs, password) == 0)
5340             return 0;
5341         term_printf("invalid password\n");
5342     }
5343     return -EPERM;
5344 }
5345
5346 static BlockDriverState *get_bdrv(int index)
5347 {
5348     if (index > nb_drives)
5349         return NULL;
5350     return drives_table[index].bdrv;
5351 }
5352
5353 static void read_passwords(void)
5354 {
5355     BlockDriverState *bs;
5356     int i;
5357
5358     for(i = 0; i < 6; i++) {
5359         bs = get_bdrv(i);
5360         if (bs)
5361             qemu_key_check(bs, bdrv_get_device_name(bs));
5362     }
5363 }
5364
5365 #ifdef HAS_AUDIO
5366 struct soundhw soundhw[] = {
5367 #ifdef HAS_AUDIO_CHOICE
5368 #if defined(TARGET_I386) || defined(TARGET_MIPS)
5369     {
5370         "pcspk",
5371         "PC speaker",
5372         0,
5373         1,
5374         { .init_isa = pcspk_audio_init }
5375     },
5376 #endif
5377     {
5378         "sb16",
5379         "Creative Sound Blaster 16",
5380         0,
5381         1,
5382         { .init_isa = SB16_init }
5383     },
5384
5385 #ifdef CONFIG_CS4231A
5386     {
5387         "cs4231a",
5388         "CS4231A",
5389         0,
5390         1,
5391         { .init_isa = cs4231a_init }
5392     },
5393 #endif
5394
5395 #ifdef CONFIG_ADLIB
5396     {
5397         "adlib",
5398 #ifdef HAS_YMF262
5399         "Yamaha YMF262 (OPL3)",
5400 #else
5401         "Yamaha YM3812 (OPL2)",
5402 #endif
5403         0,
5404         1,
5405         { .init_isa = Adlib_init }
5406     },
5407 #endif
5408
5409 #ifdef CONFIG_GUS
5410     {
5411         "gus",
5412         "Gravis Ultrasound GF1",
5413         0,
5414         1,
5415         { .init_isa = GUS_init }
5416     },
5417 #endif
5418
5419 #ifdef CONFIG_AC97
5420     {
5421         "ac97",
5422         "Intel 82801AA AC97 Audio",
5423         0,
5424         0,
5425         { .init_pci = ac97_init }
5426     },
5427 #endif
5428
5429     {
5430         "es1370",
5431         "ENSONIQ AudioPCI ES1370",
5432         0,
5433         0,
5434         { .init_pci = es1370_init }
5435     },
5436 #endif
5437
5438     { NULL, NULL, 0, 0, { NULL } }
5439 };
5440
5441 static void select_soundhw (const char *optarg)
5442 {
5443     struct soundhw *c;
5444
5445     if (*optarg == '?') {
5446     show_valid_cards:
5447
5448         printf ("Valid sound card names (comma separated):\n");
5449         for (c = soundhw; c->name; ++c) {
5450             printf ("%-11s %s\n", c->name, c->descr);
5451         }
5452         printf ("\n-soundhw all will enable all of the above\n");
5453         exit (*optarg != '?');
5454     }
5455     else {
5456         size_t l;
5457         const char *p;
5458         char *e;
5459         int bad_card = 0;
5460
5461         if (!strcmp (optarg, "all")) {
5462             for (c = soundhw; c->name; ++c) {
5463                 c->enabled = 1;
5464             }
5465             return;
5466         }
5467
5468         p = optarg;
5469         while (*p) {
5470             e = strchr (p, ',');
5471             l = !e ? strlen (p) : (size_t) (e - p);
5472
5473             for (c = soundhw; c->name; ++c) {
5474                 if (!strncmp (c->name, p, l)) {
5475                     c->enabled = 1;
5476                     break;
5477                 }
5478             }
5479
5480             if (!c->name) {
5481                 if (l > 80) {
5482                     fprintf (stderr,
5483                              "Unknown sound card name (too big to show)\n");
5484                 }
5485                 else {
5486                     fprintf (stderr, "Unknown sound card name `%.*s'\n",
5487                              (int) l, p);
5488                 }
5489                 bad_card = 1;
5490             }
5491             p += l + (e != NULL);
5492         }
5493
5494         if (bad_card)
5495             goto show_valid_cards;
5496     }
5497 }
5498 #endif
5499
5500 static void select_vgahw (const char *p)
5501 {
5502     const char *opts;
5503
5504     if (strstart(p, "std", &opts)) {
5505         cirrus_vga_enabled = 0;
5506         vmsvga_enabled = 0;
5507     } else if (strstart(p, "cirrus", &opts)) {
5508         cirrus_vga_enabled = 1;
5509         vmsvga_enabled = 0;
5510     } else if (strstart(p, "vmware", &opts)) {
5511         cirrus_vga_enabled = 0;
5512         vmsvga_enabled = 1;
5513     } else {
5514     invalid_vga:
5515         fprintf(stderr, "Unknown vga type: %s\n", p);
5516         exit(1);
5517     }
5518     while (*opts) {
5519         const char *nextopt;
5520
5521         if (strstart(opts, ",retrace=", &nextopt)) {
5522             opts = nextopt;
5523             if (strstart(opts, "dumb", &nextopt))
5524                 vga_retrace_method = VGA_RETRACE_DUMB;
5525             else if (strstart(opts, "precise", &nextopt))
5526                 vga_retrace_method = VGA_RETRACE_PRECISE;
5527             else goto invalid_vga;
5528         } else goto invalid_vga;
5529         opts = nextopt;
5530     }
5531 }
5532
5533 #ifdef _WIN32
5534 static BOOL WINAPI qemu_ctrl_handler(DWORD type)
5535 {
5536     exit(STATUS_CONTROL_C_EXIT);
5537     return TRUE;
5538 }
5539 #endif
5540
5541 static int qemu_uuid_parse(const char *str, uint8_t *uuid)
5542 {
5543     int ret;
5544
5545     if(strlen(str) != 36)
5546         return -1;
5547
5548     ret = sscanf(str, UUID_FMT, &uuid[0], &uuid[1], &uuid[2], &uuid[3],
5549             &uuid[4], &uuid[5], &uuid[6], &uuid[7], &uuid[8], &uuid[9],
5550             &uuid[10], &uuid[11], &uuid[12], &uuid[13], &uuid[14], &uuid[15]);
5551
5552     if(ret != 16)
5553         return -1;
5554
5555     return 0;
5556 }
5557
5558 #define MAX_NET_CLIENTS 32
5559
5560 #ifndef _WIN32
5561
5562 static void termsig_handler(int signal)
5563 {
5564     qemu_system_shutdown_request();
5565 }
5566
5567 static void termsig_setup(void)
5568 {
5569     struct sigaction act;
5570
5571     memset(&act, 0, sizeof(act));
5572     act.sa_handler = termsig_handler;
5573     sigaction(SIGINT,  &act, NULL);
5574     sigaction(SIGHUP,  &act, NULL);
5575     sigaction(SIGTERM, &act, NULL);
5576 }
5577
5578 #endif
5579
5580 int main(int argc, char **argv)
5581 {
5582 #ifdef CONFIG_GDBSTUB
5583     int use_gdbstub;
5584     const char *gdbstub_port;
5585 #endif
5586     uint32_t boot_devices_bitmap = 0;
5587     int i;
5588     int snapshot, linux_boot, net_boot;
5589     const char *initrd_filename;
5590     const char *kernel_filename, *kernel_cmdline;
5591     const char *boot_devices = "";
5592     DisplayState *ds = &display_state;
5593     int cyls, heads, secs, translation;
5594     const char *net_clients[MAX_NET_CLIENTS];
5595     int nb_net_clients;
5596     const char *bt_opts[MAX_BT_CMDLINE];
5597     int nb_bt_opts;
5598     int hda_index;
5599     int optind;
5600     const char *r, *optarg;
5601     CharDriverState *monitor_hd;
5602     const char *monitor_device;
5603     const char *serial_devices[MAX_SERIAL_PORTS];
5604     int serial_device_index;
5605     const char *parallel_devices[MAX_PARALLEL_PORTS];
5606     int parallel_device_index;
5607     const char *loadvm = NULL;
5608     QEMUMachine *machine;
5609     const char *cpu_model;
5610     const char *usb_devices[MAX_USB_CMDLINE];
5611     int usb_devices_index;
5612     int fds[2];
5613     int tb_size;
5614     const char *pid_file = NULL;
5615     int autostart;
5616     const char *incoming = NULL;
5617
5618     LIST_INIT (&vm_change_state_head);
5619 #ifndef _WIN32
5620     {
5621         struct sigaction act;
5622         sigfillset(&act.sa_mask);
5623         act.sa_flags = 0;
5624         act.sa_handler = SIG_IGN;
5625         sigaction(SIGPIPE, &act, NULL);
5626     }
5627 #else
5628     SetConsoleCtrlHandler(qemu_ctrl_handler, TRUE);
5629     /* Note: cpu_interrupt() is currently not SMP safe, so we force
5630        QEMU to run on a single CPU */
5631     {
5632         HANDLE h;
5633         DWORD mask, smask;
5634         int i;
5635         h = GetCurrentProcess();
5636         if (GetProcessAffinityMask(h, &mask, &smask)) {
5637             for(i = 0; i < 32; i++) {
5638                 if (mask & (1 << i))
5639                     break;
5640             }
5641             if (i != 32) {
5642                 mask = 1 << i;
5643                 SetProcessAffinityMask(h, mask);
5644             }
5645         }
5646     }
5647 #endif
5648
5649     register_machines();
5650     machine = first_machine;
5651     cpu_model = NULL;
5652     initrd_filename = NULL;
5653     ram_size = 0;
5654     vga_ram_size = VGA_RAM_SIZE;
5655 #ifdef CONFIG_GDBSTUB
5656     use_gdbstub = 0;
5657     gdbstub_port = DEFAULT_GDBSTUB_PORT;
5658 #endif
5659     snapshot = 0;
5660     nographic = 0;
5661     curses = 0;
5662     kernel_filename = NULL;
5663     kernel_cmdline = "";
5664     cyls = heads = secs = 0;
5665     translation = BIOS_ATA_TRANSLATION_AUTO;
5666     monitor_device = "vc";
5667
5668     serial_devices[0] = "vc:80Cx24C";
5669     for(i = 1; i < MAX_SERIAL_PORTS; i++)
5670         serial_devices[i] = NULL;
5671     serial_device_index = 0;
5672
5673     parallel_devices[0] = "vc:640x480";
5674     for(i = 1; i < MAX_PARALLEL_PORTS; i++)
5675         parallel_devices[i] = NULL;
5676     parallel_device_index = 0;
5677
5678     usb_devices_index = 0;
5679
5680     nb_net_clients = 0;
5681     nb_bt_opts = 0;
5682     nb_drives = 0;
5683     nb_drives_opt = 0;
5684     hda_index = -1;
5685
5686     nb_nics = 0;
5687
5688     tb_size = 0;
5689     autostart= 1;
5690
5691     optind = 1;
5692     for(;;) {
5693         if (optind >= argc)
5694             break;
5695         r = argv[optind];
5696         if (r[0] != '-') {
5697             hda_index = drive_add(argv[optind++], HD_ALIAS, 0);
5698         } else {
5699             const QEMUOption *popt;
5700
5701             optind++;
5702             /* Treat --foo the same as -foo.  */
5703             if (r[1] == '-')
5704                 r++;
5705             popt = qemu_options;
5706             for(;;) {
5707                 if (!popt->name) {
5708                     fprintf(stderr, "%s: invalid option -- '%s'\n",
5709                             argv[0], r);
5710                     exit(1);
5711                 }
5712                 if (!strcmp(popt->name, r + 1))
5713                     break;
5714                 popt++;
5715             }
5716             if (popt->flags & HAS_ARG) {
5717                 if (optind >= argc) {
5718                     fprintf(stderr, "%s: option '%s' requires an argument\n",
5719                             argv[0], r);
5720                     exit(1);
5721                 }
5722                 optarg = argv[optind++];
5723             } else {
5724                 optarg = NULL;
5725             }
5726
5727             switch(popt->index) {
5728             case QEMU_OPTION_M:
5729                 machine = find_machine(optarg);
5730                 if (!machine) {
5731                     QEMUMachine *m;
5732                     printf("Supported machines are:\n");
5733                     for(m = first_machine; m != NULL; m = m->next) {
5734                         printf("%-10s %s%s\n",
5735                                m->name, m->desc,
5736                                m == first_machine ? " (default)" : "");
5737                     }
5738                     exit(*optarg != '?');
5739                 }
5740                 break;
5741             case QEMU_OPTION_cpu:
5742                 /* hw initialization will check this */
5743                 if (*optarg == '?') {
5744 /* XXX: implement xxx_cpu_list for targets that still miss it */
5745 #if defined(cpu_list)
5746                     cpu_list(stdout, &fprintf);
5747 #endif
5748                     exit(0);
5749                 } else {
5750                     cpu_model = optarg;
5751                 }
5752                 break;
5753             case QEMU_OPTION_initrd:
5754                 initrd_filename = optarg;
5755                 break;
5756             case QEMU_OPTION_hda:
5757                 if (cyls == 0)
5758                     hda_index = drive_add(optarg, HD_ALIAS, 0);
5759                 else
5760                     hda_index = drive_add(optarg, HD_ALIAS
5761                              ",cyls=%d,heads=%d,secs=%d%s",
5762                              0, cyls, heads, secs,
5763                              translation == BIOS_ATA_TRANSLATION_LBA ?
5764                                  ",trans=lba" :
5765                              translation == BIOS_ATA_TRANSLATION_NONE ?
5766                                  ",trans=none" : "");
5767                  break;
5768             case QEMU_OPTION_hdb:
5769             case QEMU_OPTION_hdc:
5770             case QEMU_OPTION_hdd:
5771                 drive_add(optarg, HD_ALIAS, popt->index - QEMU_OPTION_hda);
5772                 break;
5773             case QEMU_OPTION_drive:
5774                 drive_add(NULL, "%s", optarg);
5775                 break;
5776             case QEMU_OPTION_mtdblock:
5777                 drive_add(optarg, MTD_ALIAS);
5778                 break;
5779             case QEMU_OPTION_sd:
5780                 drive_add(optarg, SD_ALIAS);
5781                 break;
5782             case QEMU_OPTION_pflash:
5783                 drive_add(optarg, PFLASH_ALIAS);
5784                 break;
5785             case QEMU_OPTION_snapshot:
5786                 snapshot = 1;
5787                 break;
5788             case QEMU_OPTION_hdachs:
5789                 {
5790                     const char *p;
5791                     p = optarg;
5792                     cyls = strtol(p, (char **)&p, 0);
5793                     if (cyls < 1 || cyls > 16383)
5794                         goto chs_fail;
5795                     if (*p != ',')
5796                         goto chs_fail;
5797                     p++;
5798                     heads = strtol(p, (char **)&p, 0);
5799                     if (heads < 1 || heads > 16)
5800                         goto chs_fail;
5801                     if (*p != ',')
5802                         goto chs_fail;
5803                     p++;
5804                     secs = strtol(p, (char **)&p, 0);
5805                     if (secs < 1 || secs > 63)
5806                         goto chs_fail;
5807                     if (*p == ',') {
5808                         p++;
5809                         if (!strcmp(p, "none"))
5810                             translation = BIOS_ATA_TRANSLATION_NONE;
5811                         else if (!strcmp(p, "lba"))
5812                             translation = BIOS_ATA_TRANSLATION_LBA;
5813                         else if (!strcmp(p, "auto"))
5814                             translation = BIOS_ATA_TRANSLATION_AUTO;
5815                         else
5816                             goto chs_fail;
5817                     } else if (*p != '\0') {
5818                     chs_fail:
5819                         fprintf(stderr, "qemu: invalid physical CHS format\n");
5820                         exit(1);
5821                     }
5822                     if (hda_index != -1)
5823                         snprintf(drives_opt[hda_index].opt,
5824                                  sizeof(drives_opt[hda_index].opt),
5825                                  HD_ALIAS ",cyls=%d,heads=%d,secs=%d%s",
5826                                  0, cyls, heads, secs,
5827                                  translation == BIOS_ATA_TRANSLATION_LBA ?
5828                                     ",trans=lba" :
5829                                  translation == BIOS_ATA_TRANSLATION_NONE ?
5830                                      ",trans=none" : "");
5831                 }
5832                 break;
5833             case QEMU_OPTION_nographic:
5834                 nographic = 1;
5835                 break;
5836 #ifdef CONFIG_CURSES
5837             case QEMU_OPTION_curses:
5838                 curses = 1;
5839                 break;
5840 #endif
5841             case QEMU_OPTION_portrait:
5842                 graphic_rotate = 1;
5843                 break;
5844             case QEMU_OPTION_kernel:
5845                 kernel_filename = optarg;
5846                 break;
5847             case QEMU_OPTION_append:
5848                 kernel_cmdline = optarg;
5849                 break;
5850             case QEMU_OPTION_cdrom:
5851                 drive_add(optarg, CDROM_ALIAS);
5852                 break;
5853             case QEMU_OPTION_boot:
5854                 boot_devices = optarg;
5855                 /* We just do some generic consistency checks */
5856                 {
5857                     /* Could easily be extended to 64 devices if needed */
5858                     const char *p;
5859
5860                     boot_devices_bitmap = 0;
5861                     for (p = boot_devices; *p != '\0'; p++) {
5862                         /* Allowed boot devices are:
5863                          * a b     : floppy disk drives
5864                          * c ... f : IDE disk drives
5865                          * g ... m : machine implementation dependant drives
5866                          * n ... p : network devices
5867                          * It's up to each machine implementation to check
5868                          * if the given boot devices match the actual hardware
5869                          * implementation and firmware features.
5870                          */
5871                         if (*p < 'a' || *p > 'q') {
5872                             fprintf(stderr, "Invalid boot device '%c'\n", *p);
5873                             exit(1);
5874                         }
5875                         if (boot_devices_bitmap & (1 << (*p - 'a'))) {
5876                             fprintf(stderr,
5877                                     "Boot device '%c' was given twice\n",*p);
5878                             exit(1);
5879                         }
5880                         boot_devices_bitmap |= 1 << (*p - 'a');
5881                     }
5882                 }
5883                 break;
5884             case QEMU_OPTION_fda:
5885             case QEMU_OPTION_fdb:
5886                 drive_add(optarg, FD_ALIAS, popt->index - QEMU_OPTION_fda);
5887                 break;
5888 #ifdef TARGET_I386
5889             case QEMU_OPTION_no_fd_bootchk:
5890                 fd_bootchk = 0;
5891                 break;
5892 #endif
5893             case QEMU_OPTION_net:
5894                 if (nb_net_clients >= MAX_NET_CLIENTS) {
5895                     fprintf(stderr, "qemu: too many network clients\n");
5896                     exit(1);
5897                 }
5898                 net_clients[nb_net_clients] = optarg;
5899                 nb_net_clients++;
5900                 break;
5901 #ifdef CONFIG_SLIRP
5902             case QEMU_OPTION_tftp:
5903                 tftp_prefix = optarg;
5904                 break;
5905             case QEMU_OPTION_bootp:
5906                 bootp_filename = optarg;
5907                 break;
5908 #ifndef _WIN32
5909             case QEMU_OPTION_smb:
5910                 net_slirp_smb(optarg);
5911                 break;
5912 #endif
5913             case QEMU_OPTION_redir:
5914                 net_slirp_redir(optarg);
5915                 break;
5916 #endif
5917             case QEMU_OPTION_bt:
5918                 if (nb_bt_opts >= MAX_BT_CMDLINE) {
5919                     fprintf(stderr, "qemu: too many bluetooth options\n");
5920                     exit(1);
5921                 }
5922                 bt_opts[nb_bt_opts++] = optarg;
5923                 break;
5924 #ifdef HAS_AUDIO
5925             case QEMU_OPTION_audio_help:
5926                 AUD_help ();
5927                 exit (0);
5928                 break;
5929             case QEMU_OPTION_soundhw:
5930                 select_soundhw (optarg);
5931                 break;
5932 #endif
5933             case QEMU_OPTION_h:
5934                 help(0);
5935                 break;
5936             case QEMU_OPTION_m: {
5937                 uint64_t value;
5938                 char *ptr;
5939
5940                 value = strtoul(optarg, &ptr, 10);
5941                 switch (*ptr) {
5942                 case 0: case 'M': case 'm':
5943                     value <<= 20;
5944                     break;
5945                 case 'G': case 'g':
5946                     value <<= 30;
5947                     break;
5948                 default:
5949                     fprintf(stderr, "qemu: invalid ram size: %s\n", optarg);
5950                     exit(1);
5951                 }
5952
5953                 /* On 32-bit hosts, QEMU is limited by virtual address space */
5954                 if (value > (2047 << 20)
5955 #ifndef USE_KQEMU
5956                     && HOST_LONG_BITS == 32
5957 #endif
5958                     ) {
5959                     fprintf(stderr, "qemu: at most 2047 MB RAM can be simulated\n");
5960                     exit(1);
5961                 }
5962                 if (value != (uint64_t)(ram_addr_t)value) {
5963                     fprintf(stderr, "qemu: ram size too large\n");
5964                     exit(1);
5965                 }
5966                 ram_size = value;
5967                 break;
5968             }
5969             case QEMU_OPTION_d:
5970                 {
5971                     int mask;
5972                     const CPULogItem *item;
5973
5974                     mask = cpu_str_to_log_mask(optarg);
5975                     if (!mask) {
5976                         printf("Log items (comma separated):\n");
5977                     for(item = cpu_log_items; item->mask != 0; item++) {
5978                         printf("%-10s %s\n", item->name, item->help);
5979                     }
5980                     exit(1);
5981                     }
5982                     cpu_set_log(mask);
5983                 }
5984                 break;
5985 #ifdef CONFIG_GDBSTUB
5986             case QEMU_OPTION_s:
5987                 use_gdbstub = 1;
5988                 break;
5989             case QEMU_OPTION_p:
5990                 gdbstub_port = optarg;
5991                 break;
5992 #endif
5993             case QEMU_OPTION_L:
5994                 bios_dir = optarg;
5995                 break;
5996             case QEMU_OPTION_bios:
5997                 bios_name = optarg;
5998                 break;
5999             case QEMU_OPTION_S:
6000                 autostart = 0;
6001                 break;
6002             case QEMU_OPTION_k:
6003                 keyboard_layout = optarg;
6004                 break;
6005             case QEMU_OPTION_localtime:
6006                 rtc_utc = 0;
6007                 break;
6008             case QEMU_OPTION_vga:
6009                 select_vgahw (optarg);
6010                 break;
6011             case QEMU_OPTION_g:
6012                 {
6013                     const char *p;
6014                     int w, h, depth;
6015                     p = optarg;
6016                     w = strtol(p, (char **)&p, 10);
6017                     if (w <= 0) {
6018                     graphic_error:
6019                         fprintf(stderr, "qemu: invalid resolution or depth\n");
6020                         exit(1);
6021                     }
6022                     if (*p != 'x')
6023                         goto graphic_error;
6024                     p++;
6025                     h = strtol(p, (char **)&p, 10);
6026                     if (h <= 0)
6027                         goto graphic_error;
6028                     if (*p == 'x') {
6029                         p++;
6030                         depth = strtol(p, (char **)&p, 10);
6031                         if (depth != 8 && depth != 15 && depth != 16 &&
6032                             depth != 24 && depth != 32)
6033                             goto graphic_error;
6034                     } else if (*p == '\0') {
6035                         depth = graphic_depth;
6036                     } else {
6037                         goto graphic_error;
6038                     }
6039
6040                     graphic_width = w;
6041                     graphic_height = h;
6042                     graphic_depth = depth;
6043                 }
6044                 break;
6045             case QEMU_OPTION_echr:
6046                 {
6047                     char *r;
6048                     term_escape_char = strtol(optarg, &r, 0);
6049                     if (r == optarg)
6050                         printf("Bad argument to echr\n");
6051                     break;
6052                 }
6053             case QEMU_OPTION_monitor:
6054                 monitor_device = optarg;
6055                 break;
6056             case QEMU_OPTION_serial:
6057                 if (serial_device_index >= MAX_SERIAL_PORTS) {
6058                     fprintf(stderr, "qemu: too many serial ports\n");
6059                     exit(1);
6060                 }
6061                 serial_devices[serial_device_index] = optarg;
6062                 serial_device_index++;
6063                 break;
6064             case QEMU_OPTION_parallel:
6065                 if (parallel_device_index >= MAX_PARALLEL_PORTS) {
6066                     fprintf(stderr, "qemu: too many parallel ports\n");
6067                     exit(1);
6068                 }
6069                 parallel_devices[parallel_device_index] = optarg;
6070                 parallel_device_index++;
6071                 break;
6072             case QEMU_OPTION_loadvm:
6073                 loadvm = optarg;
6074                 break;
6075             case QEMU_OPTION_full_screen:
6076                 full_screen = 1;
6077                 break;
6078 #ifdef CONFIG_SDL
6079             case QEMU_OPTION_no_frame:
6080                 no_frame = 1;
6081                 break;
6082             case QEMU_OPTION_alt_grab:
6083                 alt_grab = 1;
6084                 break;
6085             case QEMU_OPTION_no_quit:
6086                 no_quit = 1;
6087                 break;
6088 #endif
6089             case QEMU_OPTION_pidfile:
6090                 pid_file = optarg;
6091                 break;
6092 #ifdef TARGET_I386
6093             case QEMU_OPTION_win2k_hack:
6094                 win2k_install_hack = 1;
6095                 break;
6096 #endif
6097 #ifdef USE_KQEMU
6098             case QEMU_OPTION_no_kqemu:
6099                 kqemu_allowed = 0;
6100                 break;
6101             case QEMU_OPTION_kernel_kqemu:
6102                 kqemu_allowed = 2;
6103                 break;
6104 #endif
6105 #ifdef CONFIG_KVM
6106             case QEMU_OPTION_enable_kvm:
6107                 kvm_allowed = 1;
6108 #ifdef USE_KQEMU
6109                 kqemu_allowed = 0;
6110 #endif
6111                 break;
6112 #endif
6113             case QEMU_OPTION_usb:
6114                 usb_enabled = 1;
6115                 break;
6116             case QEMU_OPTION_usbdevice:
6117                 usb_enabled = 1;
6118                 if (usb_devices_index >= MAX_USB_CMDLINE) {
6119                     fprintf(stderr, "Too many USB devices\n");
6120                     exit(1);
6121                 }
6122                 usb_devices[usb_devices_index] = optarg;
6123                 usb_devices_index++;
6124                 break;
6125             case QEMU_OPTION_smp:
6126                 smp_cpus = atoi(optarg);
6127                 if (smp_cpus < 1) {
6128                     fprintf(stderr, "Invalid number of CPUs\n");
6129                     exit(1);
6130                 }
6131                 break;
6132             case QEMU_OPTION_vnc:
6133                 vnc_display = optarg;
6134                 break;
6135             case QEMU_OPTION_no_acpi:
6136                 acpi_enabled = 0;
6137                 break;
6138             case QEMU_OPTION_no_reboot:
6139                 no_reboot = 1;
6140                 break;
6141             case QEMU_OPTION_no_shutdown:
6142                 no_shutdown = 1;
6143                 break;
6144             case QEMU_OPTION_show_cursor:
6145                 cursor_hide = 0;
6146                 break;
6147             case QEMU_OPTION_uuid:
6148                 if(qemu_uuid_parse(optarg, qemu_uuid) < 0) {
6149                     fprintf(stderr, "Fail to parse UUID string."
6150                             " Wrong format.\n");
6151                     exit(1);
6152                 }
6153                 break;
6154             case QEMU_OPTION_daemonize:
6155                 daemonize = 1;
6156                 break;
6157             case QEMU_OPTION_option_rom:
6158                 if (nb_option_roms >= MAX_OPTION_ROMS) {
6159                     fprintf(stderr, "Too many option ROMs\n");
6160                     exit(1);
6161                 }
6162                 option_rom[nb_option_roms] = optarg;
6163                 nb_option_roms++;
6164                 break;
6165             case QEMU_OPTION_semihosting:
6166                 semihosting_enabled = 1;
6167                 break;
6168             case QEMU_OPTION_name:
6169                 qemu_name = optarg;
6170                 break;
6171 #ifdef TARGET_SPARC
6172             case QEMU_OPTION_prom_env:
6173                 if (nb_prom_envs >= MAX_PROM_ENVS) {
6174                     fprintf(stderr, "Too many prom variables\n");
6175                     exit(1);
6176                 }
6177                 prom_envs[nb_prom_envs] = optarg;
6178                 nb_prom_envs++;
6179                 break;
6180 #endif
6181 #ifdef TARGET_ARM
6182             case QEMU_OPTION_old_param:
6183                 old_param = 1;
6184                 break;
6185 #endif
6186             case QEMU_OPTION_clock:
6187                 configure_alarms(optarg);
6188                 break;
6189             case QEMU_OPTION_startdate:
6190                 {
6191                     struct tm tm;
6192                     time_t rtc_start_date;
6193                     if (!strcmp(optarg, "now")) {
6194                         rtc_date_offset = -1;
6195                     } else {
6196                         if (sscanf(optarg, "%d-%d-%dT%d:%d:%d",
6197                                &tm.tm_year,
6198                                &tm.tm_mon,
6199                                &tm.tm_mday,
6200                                &tm.tm_hour,
6201                                &tm.tm_min,
6202                                &tm.tm_sec) == 6) {
6203                             /* OK */
6204                         } else if (sscanf(optarg, "%d-%d-%d",
6205                                           &tm.tm_year,
6206                                           &tm.tm_mon,
6207                                           &tm.tm_mday) == 3) {
6208                             tm.tm_hour = 0;
6209                             tm.tm_min = 0;
6210                             tm.tm_sec = 0;
6211                         } else {
6212                             goto date_fail;
6213                         }
6214                         tm.tm_year -= 1900;
6215                         tm.tm_mon--;
6216                         rtc_start_date = mktimegm(&tm);
6217                         if (rtc_start_date == -1) {
6218                         date_fail:
6219                             fprintf(stderr, "Invalid date format. Valid format are:\n"
6220                                     "'now' or '2006-06-17T16:01:21' or '2006-06-17'\n");
6221                             exit(1);
6222                         }
6223                         rtc_date_offset = time(NULL) - rtc_start_date;
6224                     }
6225                 }
6226                 break;
6227             case QEMU_OPTION_tb_size:
6228                 tb_size = strtol(optarg, NULL, 0);
6229                 if (tb_size < 0)
6230                     tb_size = 0;
6231                 break;
6232             case QEMU_OPTION_icount:
6233                 use_icount = 1;
6234                 if (strcmp(optarg, "auto") == 0) {
6235                     icount_time_shift = -1;
6236                 } else {
6237                     icount_time_shift = strtol(optarg, NULL, 0);
6238                 }
6239                 break;
6240             case QEMU_OPTION_incoming:
6241                 incoming = optarg;
6242                 break;
6243             }
6244         }
6245     }
6246
6247 #if defined(CONFIG_KVM) && defined(USE_KQEMU)
6248     if (kvm_allowed && kqemu_allowed) {
6249         fprintf(stderr,
6250                 "You can not enable both KVM and kqemu at the same time\n");
6251         exit(1);
6252     }
6253 #endif
6254
6255     machine->max_cpus = machine->max_cpus ?: 1; /* Default to UP */
6256     if (smp_cpus > machine->max_cpus) {
6257         fprintf(stderr, "Number of SMP cpus requested (%d), exceeds max cpus "
6258                 "supported by machine `%s' (%d)\n", smp_cpus,  machine->name,
6259                 machine->max_cpus);
6260         exit(1);
6261     }
6262
6263     if (nographic) {
6264        if (serial_device_index == 0)
6265            serial_devices[0] = "stdio";
6266        if (parallel_device_index == 0)
6267            parallel_devices[0] = "null";
6268        if (strncmp(monitor_device, "vc", 2) == 0)
6269            monitor_device = "stdio";
6270     }
6271
6272 #ifndef _WIN32
6273     if (daemonize) {
6274         pid_t pid;
6275
6276         if (pipe(fds) == -1)
6277             exit(1);
6278
6279         pid = fork();
6280         if (pid > 0) {
6281             uint8_t status;
6282             ssize_t len;
6283
6284             close(fds[1]);
6285
6286         again:
6287             len = read(fds[0], &status, 1);
6288             if (len == -1 && (errno == EINTR))
6289                 goto again;
6290
6291             if (len != 1)
6292                 exit(1);
6293             else if (status == 1) {
6294                 fprintf(stderr, "Could not acquire pidfile\n");
6295                 exit(1);
6296             } else
6297                 exit(0);
6298         } else if (pid < 0)
6299             exit(1);
6300
6301         setsid();
6302
6303         pid = fork();
6304         if (pid > 0)
6305             exit(0);
6306         else if (pid < 0)
6307             exit(1);
6308
6309         umask(027);
6310
6311         signal(SIGTSTP, SIG_IGN);
6312         signal(SIGTTOU, SIG_IGN);
6313         signal(SIGTTIN, SIG_IGN);
6314     }
6315 #endif
6316
6317     if (pid_file && qemu_create_pidfile(pid_file) != 0) {
6318         if (daemonize) {
6319             uint8_t status = 1;
6320             write(fds[1], &status, 1);
6321         } else
6322             fprintf(stderr, "Could not acquire pid file\n");
6323         exit(1);
6324     }
6325
6326 #ifdef USE_KQEMU
6327     if (smp_cpus > 1)
6328         kqemu_allowed = 0;
6329 #endif
6330     linux_boot = (kernel_filename != NULL);
6331     net_boot = (boot_devices_bitmap >> ('n' - 'a')) & 0xF;
6332
6333     if (!linux_boot && net_boot == 0 &&
6334         !machine->nodisk_ok && nb_drives_opt == 0)
6335         help(1);
6336
6337     if (!linux_boot && *kernel_cmdline != '\0') {
6338         fprintf(stderr, "-append only allowed with -kernel option\n");
6339         exit(1);
6340     }
6341
6342     if (!linux_boot && initrd_filename != NULL) {
6343         fprintf(stderr, "-initrd only allowed with -kernel option\n");
6344         exit(1);
6345     }
6346
6347     /* boot to floppy or the default cd if no hard disk defined yet */
6348     if (!boot_devices[0]) {
6349         boot_devices = "cad";
6350     }
6351     setvbuf(stdout, NULL, _IOLBF, 0);
6352
6353     init_timers();
6354     if (init_timer_alarm() < 0) {
6355         fprintf(stderr, "could not initialize alarm timer\n");
6356         exit(1);
6357     }
6358     if (use_icount && icount_time_shift < 0) {
6359         use_icount = 2;
6360         /* 125MIPS seems a reasonable initial guess at the guest speed.
6361            It will be corrected fairly quickly anyway.  */
6362         icount_time_shift = 3;
6363         init_icount_adjust();
6364     }
6365
6366 #ifdef _WIN32
6367     socket_init();
6368 #endif
6369
6370     /* init network clients */
6371     if (nb_net_clients == 0) {
6372         /* if no clients, we use a default config */
6373         net_clients[nb_net_clients++] = "nic";
6374 #ifdef CONFIG_SLIRP
6375         net_clients[nb_net_clients++] = "user";
6376 #endif
6377     }
6378
6379     for(i = 0;i < nb_net_clients; i++) {
6380         if (net_client_parse(net_clients[i]) < 0)
6381             exit(1);
6382     }
6383     net_client_check();
6384
6385 #ifdef TARGET_I386
6386     /* XXX: this should be moved in the PC machine instantiation code */
6387     if (net_boot != 0) {
6388         int netroms = 0;
6389         for (i = 0; i < nb_nics && i < 4; i++) {
6390             const char *model = nd_table[i].model;
6391             char buf[1024];
6392             if (net_boot & (1 << i)) {
6393                 if (model == NULL)
6394                     model = "ne2k_pci";
6395                 snprintf(buf, sizeof(buf), "%s/pxe-%s.bin", bios_dir, model);
6396                 if (get_image_size(buf) > 0) {
6397                     if (nb_option_roms >= MAX_OPTION_ROMS) {
6398                         fprintf(stderr, "Too many option ROMs\n");
6399                         exit(1);
6400                     }
6401                     option_rom[nb_option_roms] = strdup(buf);
6402                     nb_option_roms++;
6403                     netroms++;
6404                 }
6405             }
6406         }
6407         if (netroms == 0) {
6408             fprintf(stderr, "No valid PXE rom found for network device\n");
6409             exit(1);
6410         }
6411     }
6412 #endif
6413
6414     /* init the bluetooth world */
6415     for (i = 0; i < nb_bt_opts; i++)
6416         if (bt_parse(bt_opts[i]))
6417             exit(1);
6418
6419     /* init the memory */
6420     phys_ram_size = machine->ram_require & ~RAMSIZE_FIXED;
6421
6422     if (machine->ram_require & RAMSIZE_FIXED) {
6423         if (ram_size > 0) {
6424             if (ram_size < phys_ram_size) {
6425                 fprintf(stderr, "Machine `%s' requires %llu bytes of memory\n",
6426                                 machine->name, (unsigned long long) phys_ram_size);
6427                 exit(-1);
6428             }
6429
6430             phys_ram_size = ram_size;
6431         } else
6432             ram_size = phys_ram_size;
6433     } else {
6434         if (ram_size == 0)
6435             ram_size = DEFAULT_RAM_SIZE * 1024 * 1024;
6436
6437         phys_ram_size += ram_size;
6438     }
6439
6440     phys_ram_base = qemu_vmalloc(phys_ram_size);
6441     if (!phys_ram_base) {
6442         fprintf(stderr, "Could not allocate physical memory\n");
6443         exit(1);
6444     }
6445
6446     /* init the dynamic translator */
6447     cpu_exec_init_all(tb_size * 1024 * 1024);
6448
6449     bdrv_init();
6450
6451     /* we always create the cdrom drive, even if no disk is there */
6452
6453     if (nb_drives_opt < MAX_DRIVES)
6454         drive_add(NULL, CDROM_ALIAS);
6455
6456     /* we always create at least one floppy */
6457
6458     if (nb_drives_opt < MAX_DRIVES)
6459         drive_add(NULL, FD_ALIAS, 0);
6460
6461     /* we always create one sd slot, even if no card is in it */
6462
6463     if (nb_drives_opt < MAX_DRIVES)
6464         drive_add(NULL, SD_ALIAS);
6465
6466     /* open the virtual block devices */
6467
6468     for(i = 0; i < nb_drives_opt; i++)
6469         if (drive_init(&drives_opt[i], snapshot, machine) == -1)
6470             exit(1);
6471
6472     register_savevm("timer", 0, 2, timer_save, timer_load, NULL);
6473     register_savevm_live("ram", 0, 3, ram_save_live, NULL, ram_load, NULL);
6474
6475     /* terminal init */
6476     memset(&display_state, 0, sizeof(display_state));
6477     if (nographic) {
6478         if (curses) {
6479             fprintf(stderr, "fatal: -nographic can't be used with -curses\n");
6480             exit(1);
6481         }
6482         /* nearly nothing to do */
6483         dumb_display_init(ds);
6484     } else if (vnc_display != NULL) {
6485         vnc_display_init(ds);
6486         if (vnc_display_open(ds, vnc_display) < 0)
6487             exit(1);
6488     } else
6489 #if defined(CONFIG_CURSES)
6490     if (curses) {
6491         curses_display_init(ds, full_screen);
6492     } else
6493 #endif
6494     {
6495 #if defined(CONFIG_SDL)
6496         sdl_display_init(ds, full_screen, no_frame);
6497 #elif defined(CONFIG_COCOA)
6498         cocoa_display_init(ds, full_screen);
6499 #else
6500         dumb_display_init(ds);
6501 #endif
6502     }
6503
6504 #ifndef _WIN32
6505     /* must be after terminal init, SDL library changes signal handlers */
6506     termsig_setup();
6507 #endif
6508
6509     /* Maintain compatibility with multiple stdio monitors */
6510     if (!strcmp(monitor_device,"stdio")) {
6511         for (i = 0; i < MAX_SERIAL_PORTS; i++) {
6512             const char *devname = serial_devices[i];
6513             if (devname && !strcmp(devname,"mon:stdio")) {
6514                 monitor_device = NULL;
6515                 break;
6516             } else if (devname && !strcmp(devname,"stdio")) {
6517                 monitor_device = NULL;
6518                 serial_devices[i] = "mon:stdio";
6519                 break;
6520             }
6521         }
6522     }
6523     if (monitor_device) {
6524         monitor_hd = qemu_chr_open("monitor", monitor_device);
6525         if (!monitor_hd) {
6526             fprintf(stderr, "qemu: could not open monitor device '%s'\n", monitor_device);
6527             exit(1);
6528         }
6529         monitor_init(monitor_hd, !nographic);
6530     }
6531
6532     for(i = 0; i < MAX_SERIAL_PORTS; i++) {
6533         const char *devname = serial_devices[i];
6534         if (devname && strcmp(devname, "none")) {
6535             char label[32];
6536             snprintf(label, sizeof(label), "serial%d", i);
6537             serial_hds[i] = qemu_chr_open(label, devname);
6538             if (!serial_hds[i]) {
6539                 fprintf(stderr, "qemu: could not open serial device '%s'\n",
6540                         devname);
6541                 exit(1);
6542             }
6543             if (strstart(devname, "vc", 0))
6544                 qemu_chr_printf(serial_hds[i], "serial%d console\r\n", i);
6545         }
6546     }
6547
6548     for(i = 0; i < MAX_PARALLEL_PORTS; i++) {
6549         const char *devname = parallel_devices[i];
6550         if (devname && strcmp(devname, "none")) {
6551             char label[32];
6552             snprintf(label, sizeof(label), "parallel%d", i);
6553             parallel_hds[i] = qemu_chr_open(label, devname);
6554             if (!parallel_hds[i]) {
6555                 fprintf(stderr, "qemu: could not open parallel device '%s'\n",
6556                         devname);
6557                 exit(1);
6558             }
6559             if (strstart(devname, "vc", 0))
6560                 qemu_chr_printf(parallel_hds[i], "parallel%d console\r\n", i);
6561         }
6562     }
6563
6564     if (kvm_enabled()) {
6565         int ret;
6566
6567         ret = kvm_init(smp_cpus);
6568         if (ret < 0) {
6569             fprintf(stderr, "failed to initialize KVM\n");
6570             exit(1);
6571         }
6572     }
6573
6574     machine->init(ram_size, vga_ram_size, boot_devices, ds,
6575                   kernel_filename, kernel_cmdline, initrd_filename, cpu_model);
6576
6577     /* init USB devices */
6578     if (usb_enabled) {
6579         for(i = 0; i < usb_devices_index; i++) {
6580             if (usb_device_add(usb_devices[i]) < 0) {
6581                 fprintf(stderr, "Warning: could not add USB device %s\n",
6582                         usb_devices[i]);
6583             }
6584         }
6585     }
6586
6587     if (display_state.dpy_refresh) {
6588         display_state.gui_timer = qemu_new_timer(rt_clock, gui_update, &display_state);
6589         qemu_mod_timer(display_state.gui_timer, qemu_get_clock(rt_clock));
6590     }
6591
6592 #ifdef CONFIG_GDBSTUB
6593     if (use_gdbstub) {
6594         /* XXX: use standard host:port notation and modify options
6595            accordingly. */
6596         if (gdbserver_start(gdbstub_port) < 0) {
6597             fprintf(stderr, "qemu: could not open gdbstub device on port '%s'\n",
6598                     gdbstub_port);
6599             exit(1);
6600         }
6601     }
6602 #endif
6603
6604     if (loadvm)
6605         do_loadvm(loadvm);
6606
6607     if (incoming) {
6608         autostart = 0; /* fixme how to deal with -daemonize */
6609         qemu_start_incoming_migration(incoming);
6610     }
6611
6612     {
6613         /* XXX: simplify init */
6614         read_passwords();
6615         if (autostart) {
6616             vm_start();
6617         }
6618     }
6619
6620     if (daemonize) {
6621         uint8_t status = 0;
6622         ssize_t len;
6623         int fd;
6624
6625     again1:
6626         len = write(fds[1], &status, 1);
6627         if (len == -1 && (errno == EINTR))
6628             goto again1;
6629
6630         if (len != 1)
6631             exit(1);
6632
6633         chdir("/");
6634         TFR(fd = open("/dev/null", O_RDWR));
6635         if (fd == -1)
6636             exit(1);
6637
6638         dup2(fd, 0);
6639         dup2(fd, 1);
6640         dup2(fd, 2);
6641
6642         close(fd);
6643     }
6644
6645     main_loop();
6646     quit_timers();
6647     net_cleanup();
6648
6649     return 0;
6650 }