/* Store arbritary data in the FIFO buffer */
int vtty_store_data(vtty_t *vtty,char *data, int len)
{
int bytes;
if (!vtty || !data || len < 0)
return(-1); // invalid argument
for (bytes = 0; bytes < len; bytes++) {
if (vtty_store(vtty,data[bytes]) == -1)
break;
}
vtty->input_pending = TRUE;
return(bytes);
}
/* Store a string in the FIFO buffer */
int vtty_store_str(vtty_t *vtty,char *str)
{
if (!vtty)
return(0);
while(*str != 0) {
if (vtty_store(vtty,*str) == -1)
return(-1);
str++;
}
vtty->input_pending = TRUE;
return(0);
}
/* Read a character (until one is available) and store it in buffer */
static void vtty_read_and_store(vtty_t *vtty,int *fd_slot)
{
int c;
/* wait until we get a character input */
c = vtty_read(vtty,fd_slot);
/* if read error, do nothing */
if (c < 0) return;
/* If something was read, make sure the handler is informed */
vtty->input_pending = TRUE;
if (!vtty->terminal_support) {
vtty_store(vtty,c);
return;
}
switch(vtty->input_state) {
case VTTY_INPUT_TEXT :
switch(c) {
case 0x1b:
vtty->input_state = VTTY_INPUT_VT1;
return;
/* Ctrl + ']' (0x1d, 29), or Alt-Gr + '*' (0xb3, 179) */
case 0x1d:
case 0xb3:
if (ctrl_code_ok == 1) {
vtty->input_state = VTTY_INPUT_REMOTE;
} else {
vtty_store(vtty,c);
}
return;
case IAC :
vtty->input_state = VTTY_INPUT_TELNET;
return;
case 0: /* NULL - Must be ignored - generated by Linux telnet */
case 10: /* LF (Line Feed) - Must be ignored on Windows platform */
return;
default:
/* Store a standard character */
vtty_store(vtty,c);
return;
}
case VTTY_INPUT_VT1 :
switch(c) {
case 0x5b:
vtty->input_state = VTTY_INPUT_VT2;
return;
default:
vtty_store(vtty,0x1b);
vtty_store(vtty,c);
}
vtty->input_state = VTTY_INPUT_TEXT;
return;
case VTTY_INPUT_VT2 :
switch(c) {
case 0x41: /* Up Arrow */
vtty_store(vtty,16);
break;
case 0x42: /* Down Arrow */
vtty_store(vtty,14);
break;
case 0x43: /* Right Arrow */
vtty_store(vtty,6);
break;
case 0x44: /* Left Arrow */
vtty_store(vtty,2);
break;
default:
vtty_store(vtty,0x5b);
vtty_store(vtty,0x1b);
vtty_store(vtty,c);
break;
}
vtty->input_state = VTTY_INPUT_TEXT;
return;
case VTTY_INPUT_REMOTE :
remote_control(vtty, c);
vtty->input_state = VTTY_INPUT_TEXT;
return;
case VTTY_INPUT_TELNET :
vtty->telnet_cmd = c;
switch(c) {
case WILL:
case WONT:
case DO:
case DONT:
vtty->input_state = VTTY_INPUT_TELNET_IYOU;
return;
case SB :
vtty->telnet_cmd = c;
vtty->input_state = VTTY_INPUT_TELNET_SB1;
return;
case SE:
break;
case IAC :
vtty_store(vtty, IAC);
break;
}
vtty->input_state = VTTY_INPUT_TEXT;
return;
case VTTY_INPUT_TELNET_IYOU :
vtty->telnet_opt = c;
/* if telnet client can support ttype, ask it to send ttype string */
if ((vtty->telnet_cmd == WILL) &&
(vtty->telnet_opt == TELOPT_TTYPE))
{
vtty_put_char(vtty, IAC);
vtty_put_char(vtty, SB);
vtty_put_char(vtty, TELOPT_TTYPE);
vtty_put_char(vtty, TELQUAL_SEND);
vtty_put_char(vtty, IAC);
vtty_put_char(vtty, SE);
}
vtty->input_state = VTTY_INPUT_TEXT;
return;
case VTTY_INPUT_TELNET_SB1 :
vtty->telnet_opt = c;
vtty->input_state = VTTY_INPUT_TELNET_SB2;
return;
case VTTY_INPUT_TELNET_SB2 :
vtty->telnet_qual = c;
if ((vtty->telnet_opt == TELOPT_TTYPE) &&
(vtty->telnet_qual == TELQUAL_IS))
vtty->input_state = VTTY_INPUT_TELNET_SB_TTYPE;
else
vtty->input_state = VTTY_INPUT_TELNET_NEXT;
return;
case VTTY_INPUT_TELNET_SB_TTYPE :
/* parse ttype string: first char is sufficient */
/* if client is xterm or vt, set the title bar */
if ((c == 'x') || (c == 'X') || (c == 'v') || (c == 'V')) {
fd_printf(*fd_slot,0,"\033]0;%s\07", vtty->vm->name);
}
vtty->input_state = VTTY_INPUT_TELNET_NEXT;
return;
case VTTY_INPUT_TELNET_NEXT :
/* ignore all chars until next IAC */
if (c == IAC)
vtty->input_state = VTTY_INPUT_TELNET;
return;
}
}
/* Process remote control char */
static void remote_control(vtty_t *vtty,u_char c)
{
vm_instance_t *vm = vtty->vm;
cpu_gen_t *cpu0;
cpu0 = vm->boot_cpu;
/* Specific commands for the different CPU models */
if (cpu0) {
switch(cpu0->type) {
case CPU_TYPE_MIPS64:
if (remote_control_mips64(vtty,c,CPU_MIPS64(cpu0)))
return;
break;
case CPU_TYPE_PPC32:
if (remote_control_ppc32(vtty,c,CPU_PPC32(cpu0)))
return;
break;
}
}
switch(c) {
/* Show the object list */
case 'o':
vm_object_dump(vm);
break;
/* Stop the MIPS VM */
case 'q':
vm->status = VM_STATUS_SHUTDOWN;
break;
/* Reboot the C7200 */
case 'k':
#if 0
if (vm->type == VM_TYPE_C7200)
c7200_boot_ios(VM_C7200(vm));
#endif
break;
/* Show the device list */
case 'd':
dev_show_list(vm);
pci_dev_show_list(vm->pci_bus[0]);
pci_dev_show_list(vm->pci_bus[1]);
break;
/* Show info about Port Adapters or Network Modules */
case 'p':
vm_slot_show_all_info(vm);
break;
/* Dump the MIPS registers */
case 'r':
if (cpu0) cpu0->reg_dump(cpu0);
break;
/* Dump the latest memory accesses */
case 'm':
if (cpu0) memlog_dump(cpu0);
break;
/* Suspend CPU emulation */
case 's':
vm_suspend(vm);
break;
/* Resume CPU emulation */
case 'u':
vm_resume(vm);
break;
/* Dump the MMU information */
case 't':
if (cpu0) cpu0->mmu_dump(cpu0);
break;
/* Dump the MMU information (raw mode) */
case 'z':
if (cpu0) cpu0->mmu_raw_dump(cpu0);
break;
/* Memory translation cache statistics */
case 'l':
if (cpu0) cpu0->mts_show_stats(cpu0);
break;
/* Extract the configuration from the NVRAM */
case 'c':
vm_ios_save_config(vm);
break;
/* Determine an idle pointer counter */
case 'i':
if (cpu0)
cpu0->get_idling_pc(cpu0);
break;
/* Experimentations / Tests */
case 'x':
#if 0
if (cpu0) {
/* IRQ triggering */
vm_set_irq(vm,6);
//CPU_MIPS64(cpu0)->irq_disable = TRUE;
}
#endif
#ifdef USE_UNSTABLE
tsg_show_stats();
#endif
break;
case 'y':
if (cpu0) {
/* IRQ clearing */
vm_clear_irq(vm,6);
}
break;
/* Twice Ctrl + ']' (0x1d, 29), or Alt-Gr + '*' (0xb3, 179) */
case 0x1d:
case 0xb3:
vtty_store(vtty,c);
break;
default:
printf("\n\nInstance %s (ID %d)\n\n",vm->name,vm->instance_id);
printf("o - Show the VM object list\n"
"d - Show the device list\n"
"r - Dump CPU registers\n"
"t - Dump MMU information\n"
"z - Dump MMU information (raw mode)\n"
"m - Dump the latest memory accesses\n"
"s - Suspend CPU emulation\n"
"u - Resume CPU emulation\n"
"q - Quit the emulator\n"
"k - Reboot the virtual machine\n"
"b - Show info about JIT compiled pages\n"
"l - MTS cache statistics\n"
"c - Write IOS configuration to disk\n"
"j - Non-JIT mode statistics\n"
"i - Determine an idling pointer counter\n"
"x - Experimentations (can crash the box!)\n"
"^] - Send ^]\n"
"Other - This help\n");
}
}
/* Store CTRL+C in buffer */
int vtty_store_ctrlc(vtty_t *vtty)
{
if (vtty)
vtty_store(vtty,0x03);
return(0);
}
