xavi
/
sdcc-gas
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
sdcc-gas/sim/ucsim/app.cc

1135 lines
28 KiB
C++
Raw Permalink Blame History

/*
* Simulator of microcontrollers (app.cc)
*
* Copyright (C) 1997,16 Drotos Daniel, Talker Bt.
*
* To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
*
*/
/* This file is part of microcontroller simulator: ucsim.
UCSIM is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.
UCSIM is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with UCSIM; see the file COPYING. If not, write to the Free
Software Foundation, 59 Temple Place - Suite 330, Boston, MA
02111-1307, USA. */
/*@1@*/
#include "ddconfig.h"
#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#ifdef HAVE_GETOPT_H
# include <getopt.h>
#endif
#include <ctype.h>
#include <errno.h>
#include "i_string.h"
// prj
#include "utils.h"
#include "appcl.h"
#include "optioncl.h"
#include "globals.h"
// sim.src
#include "simcl.h"
// cmd.src
#include "cmd_execcl.h"
#include "cmdutil.h"
#include "cmd_confcl.h"
#include "cmd_showcl.h"
#include "cmd_getcl.h"
#include "cmd_setcl.h"
#include "newcmdposixcl.h"
#include "cmdlexcl.h"
bool jaj= false;
/*
* Application
****************************************************************************
*/
cl_app::cl_app(void)
{
sim= 0;
in_files= new cl_ustrings(2, 2, "input files");
options= new cl_options();
}
cl_app::~cl_app(void)
{
remove_simulator();
delete commander;
delete in_files;
delete options;
}
int
cl_app::init(int argc, char *argv[])
{
sigpipe_off();
cl_base::init();
set_name(cchars("application"));
mk_options();
proc_arguments(argc, argv);
class cl_cmdset *cmdset= new cl_cmdset();
cmdset->init();
build_cmdset(cmdset);
commander= new cl_commander(this, cmdset/*, sim*/);
commander->init();
return(0);
}
/* Main cycle */
enum run_states {
rs_config,
rs_read_files,
rs_start,
rs_run
};
int
cl_app::run(void)
{
int done= 0;
double input_last_checked= 0;
class cl_option *o= options->get_option("go");
bool g_opt= false;
unsigned int cyc= 0;
enum run_states rs= rs_config;
while (!done)
{
if ((rs == rs_config) &&
(commander->config_console == NULL))
{
rs= rs_read_files;
}
if (rs == rs_read_files)
{
if (sim && (sim->uc != NULL))
{
int i;
for (i= 0; i < in_files->count; i++)
{
char *fname= (char *)(in_files->at(i));
long l;
if ((l= sim->uc->read_file(fname, NULL)) >= 0)
{
///*commander->all_printf*/printf("%ld words read from %s\n", l, fname);
}
}
}
rs= rs_start;
}
if (rs == rs_start)
{
//if (startup_command.nempty())
//exec(startup_command);
if (o)
o->get_value(&g_opt);
if (sim && g_opt)
sim->start(0, 0);
rs= rs_run;
}
++cyc;
if (!sim)
{
commander->wait_input();
done= commander->proc_input();
}
else
{
if (sim->state & SIM_GO)
{
if (cyc - input_last_checked > 10000)
{
input_last_checked= cyc;
if (sim->uc)
sim->uc->touch();
if (commander->input_avail())
done= commander->proc_input();
}
sim->step();
if (jaj && commander->frozen_console)
{
sim->uc->print_regs(commander->frozen_console),
commander->frozen_console->dd_printf("\n");
}
}
else
{
if (commander->input_avail())
done = commander->proc_input();
else
loop_delay();
if (sim->uc)
sim->uc->touch();
}
if (sim->state & SIM_QUIT)
done= 1;
}
commander->check();
}
return(0);
}
void
cl_app::done(void)
{
}
/*
* Interpretation of parameters
*/
static void
print_help(char *name)
{
printf("%s: %s\n", name, VERSIONSTR);
printf("Usage: %s [-hHVvPgGwb] [-p prompt] [-t CPU] [-X freq[k|M]]\n"
" [-C cfg_file] [-c file] [-e command] [-s file] [-S optionlist]\n"
" [-I if_optionlist] [-o colorlist] [-a nr]\n"
#ifdef SOCKET_AVAIL
" [-Z portnum] [-k portnum]"
#endif
"\n"
" [files...]\n", name);
printf
(
"Options:\n"
" -t CPU Type of CPU: 51, C52, 251, etc.\n"
" -X freq[k|M] XTAL frequency\n"
" -C cfg_file Read initial commands from `cfg_file' and execute them\n"
" -e command Execute command on startup\n"
" -c file Open command console on `file' (use `-' for std in/out)\n"
" -Z portnum Use localhost:portnum for command console\n"
" -k portnum Use localhost:portnum for serial I/O\n"
" -s file Connect serial interface uart0 to `file'\n"
" -S options `options' is a comma separated list of options according to\n"
" serial interface. Know options are:\n"
" uart=nr number of uart (default=0)\n"
" in=file serial input will be read from file named `file'\n"
" out=file serial output will be written to `file'\n"
" port=nr Use localhost:nr as server for serial line\n"
" iport=nr Use localhost:nr as server for serial input\n"
" oport=nr Use localhost:nr as server for serial output\n"
" -I options `options' is a comma separated list of options according to\n"
" simulator interface. Known options are:\n"
" if=memory[address] turn on interface on given memory location\n"
" in=file specify input file for IO\n"
" out=file specify output file for IO\n"
" -p prompt Specify string for prompt\n"
" -P Prompt is a null ('\\0') character\n"
" -o colors List of color specification: what=colspec,...\n"
" where colspec is : separated list of color options\n"
" e.g.: prompt=b:white:black (bold white on black)\n"
" -b Black & white (non-color) console\n"
" -g Go, start simulation\n"
" -G Go, start simulation, quit on stop\n"
" -a nr Specify size of variable space (default=256)\n"
" -w Writable flash\n"
" -V Verbose mode\n"
" -v Print out version number and quit\n"
" -H Print out types of known CPUs and quit\n"
" -h Print out this help and quit\n"
);
}
enum {
SOPT_IN= 0,
SOPT_OUT,
SOPT_UART,
SOPT_USART,
SOPT_PORT,
SOPT_IPORT,
SOPT_OPORT
};
static const char *S_opts[]= {
/*[SOPT_IN]=*/ "in",
/*[SOPT_OUT]=*/ "out",
/*[SOPT_UART]=*/ "uart",
/*[SOPT_USART]=*/ "usart",
/*[SOPT_PORT]=*/ "port",
/*[SOPT_IPORT]=*/ "iport",
/*[SOPT_OPORT]=*/ "oport",
NULL
};
enum {
IOPT_IF= 0,
IOPT_IN,
IOPT_OUT
};
static const char *I_opts[]= {
/*IOPT_IF*/ "if",
/*IOPT_IN*/ "in",
/*IOPT_OUT*/ "out",
NULL
};
int
cl_app::proc_arguments(int argc, char *argv[])
{
int i, c;
char opts[100], *cp, *subopts, *value;
char *cpu_type= NULL;
bool /*s_done= DD_FALSE,*/ k_done= false;
//bool S_i_done= false, S_o_done= false;
strcpy(opts, "c:C:e:p:PX:vVt:s:S:I:a:whHgGJo:b_");
#ifdef SOCKET_AVAIL
strcat(opts, "Z:r:k:");
#endif
for (i= 0; i < argc; i++)
{
if ((strcmp(argv[i], "-fullname") == 0) ||
(strcmp(argv[i], "-quiet") == 0) ||
(strcmp(argv[i], "-args") == 0) ||
(strcmp(argv[i], "-nx") == 0))
strcpy(argv[i], "-_");
}
while((c= getopt(argc, argv, opts)) != -1)
switch (c)
{
case '_': break;
case 'J': jaj= true; break;
case 'g':
if (!options->set_value("go", this, true))
fprintf(stderr, "Warning: No \"go\" option found "
"to set by -g\n");
break;
case 'G':
if (!options->set_value("go", this, true))
fprintf(stderr, "Warning: No \"go\" option found "
"to set by -G\n");
if (!options->set_value("quit", this, true))
fprintf(stderr, "Warning: No \"quit\" option found "
"to set by -G\n");
break;
case 'c':
if (!options->set_value("console_on", this, optarg))
fprintf(stderr, "Warning: No \"console_on\" option found "
"to set by -c\n");
break;
case 'C':
if (!options->set_value("config_file", this, optarg))
fprintf(stderr, "Warning: No \"config_file\" option found to set "
"parameter of -C as config file\n");
break;
case 'e':
startup_command+= optarg;
startup_command+= chars("\n");
break;
#ifdef SOCKET_AVAIL
case 'Z': case 'r':
{
// By Sandeep
// Modified by DD
class cl_option *o;
options->new_option(o= new cl_number_option(this, cchars("port_number"),
"Listen on port (-Z)"));
o->init();
o->hide();
if (!options->set_value("port_number", this, strtol(optarg, NULL, 0)))
fprintf(stderr, "Warning: No \"port_number\" option found"
" to set parameter of -Z as pot number to listen on\n");
break;
}
#endif
case 'p':
{
if (!options->set_value("prompt", this, optarg))
fprintf(stderr, "Warning: No \"prompt\" option found to set "
"parameter of -p as default prompt\n");
break;
}
case 'b':
{
if (!options->set_value("black_and_white", this, bool(true)))
fprintf(stderr, "Warning: No \"black_and_white\" option found to set\n");
break;
}
case 'P':
if (!options->set_value("null_prompt", this, bool(true)))
fprintf(stderr, "Warning: No \"null_prompt\" option found\n");
break;
case 'X':
{
double XTAL;
for (cp= optarg; *cp; *cp= toupper(*cp), cp++);
XTAL= strtod(optarg, &cp);
if (*cp == 'K')
XTAL*= 1e3;
if (*cp == 'M')
XTAL*= 1e6;
if (XTAL == 0)
{
fprintf(stderr, "Xtal frequency must be greather than 0\n");
exit(1);
}
if (!options->set_value("xtal", this, XTAL))
fprintf(stderr, "Warning: No \"xtal\" option found to set "
"parameter of -X as XTAL frequency\n");
break;
}
case 'a':
if (!options->set_value("var_size", this, strtol(optarg, 0, 0)))
fprintf(stderr, "Warning: No \"var_size\" option found to set "
"by parameter of -a as variable space size\n");
break;
case 'w': {
if (!options->set_value("writable_flash", this, bool(true)))
fprintf(stderr, "Warning: No \"writable_flash\" option found to set\n");
break;
}
case 'v':
printf("%s: %s\n", argv[0], VERSIONSTR);
exit(0);
break;
case 'V':
if (!options->set_value("debug", this, (bool)true))
fprintf(stderr, "Warning: No \"debug\" option found to set "
"by -V parameter\n");
break;
case 't':
{
if (cpu_type)
free(cpu_type);
cpu_type= case_string(case_upper, optarg);
if (!options->set_value("cpu_type", this, /*optarg*/cpu_type))
fprintf(stderr, "Warning: No \"cpu_type\" option found to set "
"parameter of -t as type of controller\n");
break;
}
case 's':
{
if (!options->set_value("serial0_in_file", this, /*(void*)Ser_in*/optarg))
fprintf(stderr, "Warning: No \"serial0_in_file\" option found to set "
"parameter of -s as serial input file\n");
if (!options->set_value("serial0_out_file", this, /*Ser_out*/optarg))
fprintf(stderr, "Warning: No \"serial_out0_file\" option found "
"to set parameter of -s as serial output file\n");
break;
}
#ifdef SOCKET_AVAIL
// socket serial I/O by Alexandre Frey <Alexandre.Frey@trusted-logic.fr>
case 'k':
{
class cl_f *listener, *fin, *fout;
int serverport;
char *s;
if (k_done) {
fprintf(stderr, "Serial input specified more than once.\n");
}
k_done= true;
serverport = strtol(optarg, 0, 0);
listener= mk_srv(serverport);
fprintf(stderr, "Listening on port %d for a serial connection.\n",
serverport);
if (srv_accept(listener, &fin, &fout)!=0)
{
fprintf(stderr, "Error accepting connection on port %d\n", serverport);
return 4;
}
fprintf(stderr, "Serial connection established.\n");
s= format_string("\0010x%llx", (unsigned long long int)(fin));
if (!options->set_value("serial0_in_file", this, /*(void*)Ser_in*/s))
fprintf(stderr, "Warning: No \"serial0_in_file\" option found to "
"set parameter of -s as serial input file\n");
s= format_string("\0010x%llx", (unsigned long long int)(fout));
if (!options->set_value("serial0_out_file", this, /*Ser_out*/s))
fprintf(stderr, "Warning: No \"serial0_out_file\" option found "
"to set parameter of -s as serial output file\n");
break;
}
#endif
case 'S':
{
char *iname= NULL, *oname= NULL;
int uart=0, port=0, iport= 0, oport= 0;
subopts= optarg;
while (*subopts != '\0')
{
switch (get_sub_opt(&subopts, S_opts, &value))
{
case SOPT_IN:
if (value == NULL) {
fprintf(stderr, "No value for -S in\n");
exit(1);
}
iname= value;
break;
case SOPT_OUT:
if (value == NULL) {
fprintf(stderr, "No value for -S out\n");
exit(1);
}
oname= value;
break;
case SOPT_UART: case SOPT_USART:
uart= strtol(value, 0, 0);
break;
case SOPT_PORT:
port= strtol(value, 0, 0);
break;
case SOPT_IPORT:
iport= strtol(value, 0, 0);
break;
case SOPT_OPORT:
oport= strtol(value, 0, 0);
break;
default:
/* Unknown suboption. */
fprintf(stderr, "Unknown suboption `%s' for -S\n", value);
exit(1);
break;
}
}
if (!iname && !oname && (port<=0 && iport<=0 && oport<=0))
{
fprintf(stderr, "Suboption missing for -S\n");
}
else
{
char *s, *h;
class cl_option *o;
if (iname)
{
s= format_string("serial%d_in_file", uart);
if ((o= options->get_option(s)) == NULL)
{
h= format_string("Input file for serial line uart%d (-S)", uart);
o= new cl_pointer_option(this, s, h);
o->init();
o->hide();
options->add(o);
free(h);
}
options->set_value(s, this, /*(void*)Ser_in*/iname);
free(s);
}
if (oname)
{
s= format_string("serial%d_out_file", uart);
if ((o= options->get_option(s)) == NULL)
{
h= format_string("Output file for serial line uart%d (-S)", uart);
o= new cl_pointer_option(this, s, h);
o->init();
o->hide();
options->add(o);
free(h);
}
options->set_value(s, this, /*(void*)Ser_out*/oname);
free(s);
}
if (port > 0)
{
s= format_string("serial%d_port", uart);
if ((o= options->get_option(s)) == NULL)
{
h= format_string("Use localhost:port for serial line uart%d (-S)", uart);
o= new cl_number_option(this, s, h);
o->init();
o->hide();
options->add(o);
free(h);
}
options->set_value(s, this, (long)port);
free(s);
}
if (iport > 0)
{
s= format_string("serial%d_iport", uart);
if ((o= options->get_option(s)) == NULL)
{
h= format_string("Use localhost:port for serial line uart%d input (-S)", uart);
o= new cl_number_option(this, s, h);
o->init();
o->hide();
options->add(o);
free(h);
}
options->set_value(s, this, (long)iport);
free(s);
}
if (oport > 0)
{
s= format_string("serial%d_oport", uart);
if ((o= options->get_option(s)) == NULL)
{
h= format_string("Use localhost:port for serial line uart%d output (-S)", uart);
o= new cl_number_option(this, s, h);
o->init();
//o->hide();
options->add(o);
free(h);
}
options->set_value(s, this, (long)oport);
free(s);
}
}
break;
}
case 'I':
{
char *ifstr= NULL, *in= NULL, *out= NULL;
subopts= optarg;
while (*subopts != '\0')
{
switch (get_sub_opt(&subopts, I_opts, &value))
{
case IOPT_IF:
if (value == NULL) {
fprintf(stderr, "No value for -I if\n");
exit(1);
}
ifstr= value;
break;
case IOPT_IN:
if (value == NULL) {
fprintf(stderr, "No value for -I in\n");
exit(1);
}
in= value;
break;
case IOPT_OUT:
if (value == NULL) {
fprintf(stderr, "No value for -I out\n");
exit(1);
}
out= value;
break;
}
}
if (ifstr)
{
char *s= strtok(ifstr, "[]:.");
if (s)
{
options->set_value("simif_memory", this, s);
s= strtok(NULL, "[]:.");
if (s)
{
long l= strtol(s, 0, 0);
options->set_value("simif_address", this, l);
}
}
}
if (in)
{
options->set_value("simif_infile", this, in);
}
if (out)
{
options->set_value("simif_outfile", this, out);
}
break;
}
case 'o':
{
chars s= optarg;
chars opt= s.token(",");
while (opt.nempty())
{
printf("colspecopt=\"%s\"\n", (char*)opt);
chars col_name, col_value;
col_name= opt.token("=");
col_value=opt.token("=");
printf("name=\"%s\" value=\"%s\"\n", (char*)col_name,(char*)col_value);
class cl_option *o= options->get_option((char*)chars("","color_%s",(char*)col_name));
if (o)
o->set_value(col_value);
opt= s.token(",");
}
break;
}
case 'h':
print_help(cchars("s51"));
exit(0);
break;
case 'H':
{
if (!cpus)
{
fprintf(stderr, "CPU type is not selectable\n");
exit(0);
}
i= 0;
printf("%-20s%-30s%-30s\n", "Parameter", "Family", "Subtype");
while (cpus[i].type_str != NULL)
{
printf("%-20s%-30s%-30s\n",
cpus[i].type_str,
cpus[i].type_help,
cpus[i].sub_help);
i++;
}
exit(0);
break;
}
case '?':
if (isprint(optopt))
fprintf(stderr, "Unknown option `-%c'.\n", optopt);
else
fprintf(stderr, "Unknown option character `\\x%x'.\n", optopt);
return(1);
break;
default:
exit(c);
}
for (i= optind; i < argc; i++)
in_files->add(argv[i]);
return(0);
}
class cl_uc *
cl_app::get_uc(void)
{
if (!sim)
return(0);
return(sim->get_uc());
}
/* Command handling */
/*
class cl_cmd *
cl_app::get_cmd(class cl_cmdline *cmdline)
{
return(0);
}
*/
long
cl_app::eval(chars expr)
{
expr_result= 0;
uc_yy_set_string_to_parse((char*)expr);
yyparse();
uc_yy_free_string_to_parse();
return expr_result;
}
void
cl_app::exec(chars line)
{
class cl_console_base *c= commander->frozen_console;
if (c == NULL)
{
c= new cl_console_dummy();
c->init();
}
do
{
class cl_cmdline *cmdline= new cl_cmdline(this, (char*)line, c);
cmdline->init();
class cl_cmd *cm= commander->cmdset->get_cmd(cmdline, false/*c->is_interactive()*/);
if (cm)
{
cm->work(this, cmdline, c);
}
else if (cmdline->get_name() != 0)
{
char *e= cmdline->cmd;
if (strlen(e) > 0)
{
long l= eval(e);
c->dd_printf("%ld\n", l);
}
}
line= cmdline->rest;
delete cmdline;
}
while (!line.empty());
if (c != commander->frozen_console)
delete c;
}
/*
* Messages to broadcast
*/
/* Adding and removing components */
void
cl_app::set_simulator(class cl_sim *simulator)
{
if (sim)
remove_simulator();
sim= simulator;
}
void
cl_app::remove_simulator(void)
{
if (!sim)
return;
delete sim;
sim= 0;
}
void
cl_app::build_cmdset(class cl_cmdset *cmdset)
{
class cl_cmd *cmd;
class cl_super_cmd *super_cmd;
class cl_cmdset *cset;
{
cset= new cl_cmdset();
cset->init();
cset->add(cmd= new cl_conf_cmd("_no_parameters_", 0));
cmd->init();
cset->add(cmd= new cl_conf_objects_cmd("objects", 0));
cmd->init();
}
cmdset->add(cmd= new cl_super_cmd("conf", 0, cset));
cmd->init();
set_conf_help(cmd);
cmd= new cl_help_cmd("help", 0);
cmdset->add(cmd);
cmd->init();
cmd->add_name("?");
cmdset->add(cmd= new cl_quit_cmd("quit", 0));
cmd->init();
cmdset->add(cmd= new cl_kill_cmd("kill", 0));
cmd->init();
cmdset->add(cmd= new cl_exec_cmd("exec", 0));
cmd->init();
cmdset->add(cmd= new cl_expression_cmd("expression", 0));
cmd->init();
cmd->add_name("let");
cmdset->add(cmd= new cl_jaj_cmd("jaj", 0));
cmd->init();
{
super_cmd= (class cl_super_cmd *)(cmdset->get_cmd("show"));
if (super_cmd)
cset= super_cmd->commands;
else {
cset= new cl_cmdset();
cset->init();
}
cset->add(cmd= new cl_show_copying_cmd("copying", 0));
cmd->init();
cset->add(cmd= new cl_show_warranty_cmd("warranty", 0));
cmd->init();
cset->add(cmd= new cl_show_option_cmd("option", 0));
cmd->init();
cset->add(cmd= new cl_show_error_cmd("error", 0));
cmd->init();
cset->add(cmd= new cl_show_console("console", 0));
cmd->init();
}
if (!super_cmd)
{
cmdset->add(cmd= new cl_super_cmd("show", 0, cset));
cmd->init();
set_show_help(cmd);
}
{
super_cmd= (class cl_super_cmd *)(cmdset->get_cmd("get"));
if (super_cmd)
cset= super_cmd->commands;
else {
cset= new cl_cmdset();
cset->init();
}
cset->add(cmd= new cl_get_option_cmd("option", 0));
cmd->init();
/*cset->add(cmd= new cl_show_error_cmd("error", 0));
cmd->init();*/
}
if (!super_cmd)
{
cmdset->add(cmd= new cl_super_cmd("get", 0, cset));
cmd->init();
set_get_help(cmd);
}
{
super_cmd= (class cl_super_cmd *)(cmdset->get_cmd("set"));
if (super_cmd)
cset= super_cmd->commands;
else {
cset= new cl_cmdset();
cset->init();
}
cset->add(cmd= new cl_set_option_cmd("option", 0));
cmd->init();
cset->add(cmd= new cl_set_error_cmd("error", 0));
cmd->init();
cset->add(cmd= new cl_set_console_cmd("console", 0));
cmd->init();
}
if (!super_cmd)
{
cmdset->add(cmd= new cl_super_cmd("set", 0, cset));
cmd->init();
set_set_help(cmd);
}
}
void
cl_app::mk_options(void)
{
class cl_option *o;
options->new_option(o= new cl_bool_option(this, "writable_flash",
"Use writable flash chip (-w)"));
o->init();
o->set_value((bool)false);
options->new_option(o= new cl_bool_option(this, "black_and_white",
"Non-color console (-b)"));
o->init();
o->set_value((bool)false);
options->new_option(o= new cl_bool_option(this, "null_prompt",
"Use \\0 as prompt (-P)"));
o->init();
options->new_option(o= new cl_string_option(this, "serial0_in_file",
"Input file for serial line uart0 (-S)"));
o->init();
o->hide();
options->new_option(o= new cl_string_option(this, "serial0_out_file",
"Output file for serial line uart0 (-S)"));
o->init();
o->hide();
options->new_option(o= new cl_string_option(this, "prompt",
"String of prompt (-p)"));
o->init();
options->new_option(o= new cl_bool_option(this, "debug",
"Print debug messages (-V)"));
o->init();
options->new_option(o= new cl_string_option(this, "console_on",
"Open console on this file (-c)"));
o->init();
o->hide();
options->new_option(o= new cl_string_option(this, "config_file",
"Execute this file at startup (-C)"));
o->init();
o->hide();
options->new_option(o= new cl_float_option(this, "xtal",
"Frequency of XTAL in Hz"));
o->init();
o->set_value(11059200.0);
options->new_option(o= new cl_string_option(this, "cpu_type",
"Type of controller (-t)"));
o->init();
o->hide();
options->new_option(o= new cl_bool_option(this, "go",
"Go on start (-g)"));
o->init();
o->hide();
options->new_option(o= new cl_bool_option(this, "quit",
"Quit on stop (-G)"));
o->init();
o->hide();
options->new_option(o= new cl_number_option(this, "var_size",
"Size of variable space (-a)"));
o->init();
o->set_value((long)0x100);
o->hide();
options->new_option(o= new cl_string_option(this, "simif_memory",
"Memory for simulator interface (-I)"));
o->init();
o->hide();
options->new_option(o= new cl_number_option(this, "simif_address",
"Address for simulator interface (-I)"));
o->init();
o->hide();
options->new_option(o= new cl_string_option(this, "simif_infile",
"Name of input file for simulator interface (-I)"));
o->init();
o->hide();
options->new_option(o= new cl_string_option(this, "simif_outfile",
"Name of output file for simulator interface (-I)"));
o->init();
o->hide();
options->new_option(o= new cl_bool_option(this, "echo_script",
"Print breakpoint script before execute"));
o->init();
options->new_option(o= new cl_string_option(this, "color_prompt",
"Prompt color"));
o->init();
o->set_value((char*)"bwhite:black");
options->new_option(o= new cl_string_option(this, "color_prompt_console",
"Color of console number in prompt"));
o->init();
o->set_value((char*)"yellow:black");
options->new_option(o= new cl_string_option(this, "color_command",
"Color of entered command"));
o->init();
o->set_value((char*)"green:black");
options->new_option(o= new cl_string_option(this, "color_answer",
"Answer color"));
o->init();
o->set_value((char*)"bwhite:black");
options->new_option(o= new cl_string_option(this, "color_result",
"Result of expression"));
o->init();
o->set_value((char*)"byellow:black");
options->new_option(o= new cl_string_option(this, "color_dump_address",
"Address color in dump"));
o->init();
o->set_value((char*)"byellow:black");
options->new_option(o= new cl_string_option(this, "color_dump_number",
"Value color in dump"));
o->init();
o->set_value((char*)"white:black");
options->new_option(o= new cl_string_option(this, "color_dump_char",
"Text color in dump"));
o->init();
o->set_value((char*)"green:black");
options->new_option(o= new cl_string_option(this, "color_error",
"Text color in error messages"));
o->init();
o->set_value((char*)"red:black");
options->new_option(o= new cl_string_option(this, "color_debug",
"Color of debug messages"));
o->init();
o->set_value((char*)"magenta:black");
options->new_option(o= new cl_string_option(this, "color_ui_mkey",
"Menu-key color on UI display"));
o->init();
o->set_value((char*)"b:yellow:black");
options->new_option(o= new cl_string_option(this, "color_ui_mitem",
"Menu-item color on UI display"));
o->init();
o->set_value((char*)"bwhite:black");
options->new_option(o= new cl_string_option(this, "color_ui_label",
"Label color on UI display"));
o->init();
o->set_value((char*)"white:black");
options->new_option(o= new cl_string_option(this, "color_ui_time",
"Color of time-value on UI display"));
o->init();
o->set_value((char*)"bblue:black");
options->new_option(o= new cl_string_option(this, "color_ui_title",
"Title color on UI display"));
o->init();
o->set_value((char*)"bmagenta:black");
options->new_option(o= new cl_string_option(this, "color_ui_run",
"Run state color on UI display"));
o->init();
o->set_value((char*)"black:green");
options->new_option(o= new cl_string_option(this, "color_ui_stop",
"Stop state color on UI display"));
o->init();
o->set_value((char*)"white:red");
}
int
cl_app::dd_printf(const char *format, ...)
{
va_list ap;
if (!commander)
return(0);
va_start(ap, format);
int i= commander->dd_printf(format, ap);
va_end(ap);
return(i);
}
int
cl_app::dd_cprintf(const char *color_name, const char *format, ...)
{
va_list ap;
if (!commander)
return(0);
va_start(ap, format);
int i= commander->dd_cprintf(color_name, format, ap);
va_end(ap);
return(i);
}
int
cl_app::debug(const char *format, ...)
{
va_list ap;
if (!commander)
return(0);
va_start(ap, format);
int i= commander->debug(format, ap);
va_end(ap);
return(i);
}
/* End of app.cc */
Reference in New Issue View Git Blame Copy Permalink