sdcc/sim/ucsim/src/core/cmd.src/cmd_info.cc

   1 /*
   2  * Simulator of microcontrollers (cmd.src/info.cc)
   3  *
   4  * Copyright (C) 1999 Drotos Daniel
   5  *
   6  * To contact author send email to dr.dkdb@gmail.com
   7  *
   8  */
   9
  10 /* This file is part of microcontroller simulator: ucsim.
  11
  12 UCSIM is free software; you can redistribute it and/or modify
  13 it under the terms of the GNU General Public License as published by
  14 the Free Software Foundation; either version 2 of the License, or
  15 (at your option) any later version.
  16
  17 UCSIM is distributed in the hope that it will be useful,
  18 but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 GNU General Public License for more details.
  21
  22 You should have received a copy of the GNU General Public License
  23 along with UCSIM; see the file COPYING.  If not, write to the Free
  24 Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  25 02111-1307, USA. */
  26 /*@1@*/
  27
  28 #include <stdlib.h>
  29 #include <string.h>
  30
  31 //#include "i_string.h"
  32
  33 // sim.src
  34 #include "simcl.h"
  35
  36 // local
  37 #include "cmd_infocl.h"
  38
  39 void
  40 set_info_help(class cl_cmd *cmd)
  41 {
  42   cmd->set_help("info subcommand",
  43                 "Information about simulator objects",
  44                 "Long of info");
  45 }
  46
  47 /*
  48  * INFO BREAKPOINTS command
  49  */
  50
  51 COMMAND_DO_WORK_UC(cl_info_bp_cmd)
  52 {
  53   int i;
  54   bool extra;
  55   chars sa;
  56   class cl_memory_cell *c;
  57   class cl_var *v;
  58
  59   con->dd_printf("Num Type       Disp Hit   Cnt   Address  Cond\n");
  60   for (i= 0; i < uc->fbrk->count; i++)
  61     {
  62       class cl_brk *fb= (class cl_brk *)(uc->fbrk->at(i));
  63       class cl_memory *mem= fb->get_mem();
  64       if (mem)
  65           sa.format("0x%06x", fb->addr);
  66       else
  67         {
  68           c= fb->get_cell();
  69           v= uc->vars->by_cell(c);
  70           if (v)
  71             sa= v->get_name();
  72           else
  73             sa= "cell";
  74           sa.substr(0,8);
  75         }
  76       con->dd_printf("%-3d %-10s %s %-5d %-5d %8s %-5s ", fb->nr,
  77                      "fetch", (fb->perm==brkFIX)?"keep":"del ",
  78                      fb->hit, fb->cnt, sa.c_str(),
  79                      fb->condition()?"true":"false");
  80       //uc->print_disass(fb->addr, con);
  81       extra= false;
  82       if (!(fb->cond.empty()))
  83         con->dd_printf("     cond=\"%s\"", fb->cond.c_str()), extra= true;
  84       if (!(fb->commands.empty()))
  85         con->dd_printf("     cmd=\"%s\"", fb->commands.c_str()), extra= true;
  86       /*if (extra)*/ con->dd_printf("\n");
  87     }
  88   for (i= 0; i < uc->ebrk->count; i++)
  89     {
  90       class cl_ev_brk *eb= (class cl_ev_brk *)(uc->ebrk->at(i));
  91       class cl_memory *mem= eb->get_mem();
  92       if (mem)
  93         sa.format("0x%06x", eb->addr);
  94       else
  95         {
  96           c= eb->get_cell();
  97           v= uc->vars->by_cell(c);
  98           if (v)
  99             sa= v->get_name();
 100           else
 101             sa= "cell";
 102           sa.substr(0,8);
 103         }
 104       con->dd_printf("%-3d %-10s %s %-5d %-5d %8s %s\n", eb->nr,
 105                      "event", (eb->perm==brkFIX)?"keep":"del ",
 106                      eb->hit, eb->cnt,
 107                      sa.c_str(), eb->id);
 108       extra= false;
 109       if (!(eb->cond.empty()))
 110         con->dd_printf("     cond=\"%s\"", eb->cond.c_str()), extra= true;
 111       if (!(eb->commands.empty()))
 112         con->dd_printf("     cmd=\"%s\"", eb->commands.c_str()), extra= true;
 113       if (extra) con->dd_printf("\n");
 114     }
 115   return(0);
 116 }
 117
 118 CMDHELP(cl_info_bp_cmd,
 119         "info breakpoints",
 120         "Status of user-settable breakpoints",
 121         "")
 122
 123 /*
 124  * INFO REGISTERS command
 125  */
 126
 127 COMMAND_DO_WORK_UC(cl_info_reg_cmd)
 128 {
 129   uc->print_regs(con);
 130   return(0);
 131 }
 132
 133 CMDHELP(cl_info_reg_cmd,
 134         "info registers",
 135         "List of integer registers and their contents",
 136         "")
 137
 138 /*
 139  * INFO HW command
 140  */
 141
 142 //int
 143 //cl_info_hw_cmd::do_work(class cl_sim *sim,
 144 //                      class cl_cmdline *cmdline, class cl_console *con)
 145 COMMAND_DO_WORK_UC(cl_info_hw_cmd)
 146 {
 147   class cl_hw *hw;
 148   class cl_cmd_arg *params[4]= { cmdline->param(0),
 149                                  cmdline->param(1),
 150                                  cmdline->param(2),
 151                                  cmdline->param(3) };
 152
 153   if (cmdline->syntax_match(uc, HW)) {
 154     hw= params[0]->value.hw;
 155     con->dd_color("answer");
 156     hw->print_info(con);
 157     hw->print_cfg_info(con);
 158   }
 159   /*else if (cmdline->syntax_match(uc, STRING))
 160     {
 161       char *s= params[0]->get_svalue();
 162       if (s && *s && (strcmp("cpu", s)==0))
 163         {
 164           if (uc->cpu)
 165             uc->cpu->print_info(con);
 166         }
 167         }*/
 168   else
 169     syntax_error(con);
 170
 171   return(false);
 172 }
 173
 174 CMDHELP(cl_info_hw_cmd,
 175         "info hardware category",
 176         "Status of hardware elements of the CPU",
 177         "")
 178
 179 /*
 180  * INFO STACK command
 181  */
 182 /*
 183 COMMAND_DO_WORK_UC(cl_info_stack_cmd)
 184 {
 185   int i;
 186
 187   cl_stack_op::info_head(con);
 188   for (i= uc->stack_ops->count-1; i >= 0; i--)
 189     {
 190       class cl_stack_op *so= (class cl_stack_op *)(uc->stack_ops->at(i));
 191       so->info(con, uc);
 192     }
 193   return(false);
 194 }
 195 */
 196
 197 /*CMDHELP(cl_info_stack_cmd,
 198         "info stack",
 199         "Status of stack of the CPU",
 200         "")*/
 201
 202 /*
 203  * INFO MEMORY command
 204  *----------------------------------------------------------------------------
 205  */
 206
 207 COMMAND_DO_WORK_UC(cl_info_memory_cmd)
 208 {
 209   int i;
 210   class cl_memory *mem= NULL;
 211   class cl_cmd_arg *params[4]= { cmdline->param(0),
 212                                  cmdline->param(1),
 213                                  cmdline->param(2),
 214                                  cmdline->param(3) };
 215
 216   if (cmdline->syntax_match(uc, MEMORY))
 217     {
 218       mem= params[0]->value.memory.memory;
 219       if (mem)
 220         {
 221           mem->print_info("", con);
 222         }
 223       return false;
 224     }
 225   con->dd_printf("Memory chips:\n");
 226   for (i= 0; i < uc->memchips->count; i++)
 227     {
 228       class cl_memory_chip *m= (class cl_memory_chip *)(uc->memchips->at(i));
 229       m->print_info("  ", con);
 230     }
 231   con->dd_printf("Address spaces:\n");
 232   for (i= 0; i < uc->address_spaces->count; i++)
 233     {
 234       class cl_address_space *m=
 235         (class cl_address_space *)(uc->address_spaces->at(i));
 236       m->print_info("  ", con);
 237     }
 238   con->dd_printf("Address decoders:\n");
 239   for (i= 0; i < uc->address_spaces->count; i++)
 240     {
 241       class cl_address_space *m=
 242         (class cl_address_space *)(uc->address_spaces->at(i));
 243       int j;
 244       for (j= 0; j < m->decoders->count; j++)
 245         {
 246           class cl_address_decoder *d=
 247             (class cl_address_decoder *)(m->decoders->at(j));
 248           d->print_info(chars("  "), con);
 249         }
 250     }
 251   return(0);
 252 }
 253
 254 CMDHELP(cl_info_memory_cmd,
 255         "info memory",
 256         "Information about memory system",
 257         "")
 258
 259 /*
 260  * INFO VARIABLES command
 261  *----------------------------------------------------------------------------
 262  */
 263
 264 COMMAND_DO_WORK_UC(cl_info_var_cmd)
 265 {
 266   class cl_cvar *v;
 267   int i;
 268   //class cl_cmd_arg *params[2]= { cmdline->param(0), cmdline->param(1) };
 269   chars src;
 270   chars filter_by;
 271
 272   i= 0;
 273   class cl_cmd_arg *a= cmdline->param(i);
 274   while (a != NULL)
 275     {
 276       char *ps= a->get_svalue();
 277       if (ps && *ps)
 278         {
 279           if (ps[0] == '/')
 280             filter_by= &ps[1];
 281           else
 282             src= ps;
 283         }
 284       i++;
 285       a= cmdline->param(i);
 286     }
 287
 288   for (i= 0; i < uc->vars->by_name.count; i++)
 289     {
 290       v= uc->vars->by_name.at(i);
 291       if ((src.empty() && *(v->get_name()) != '.') ||
 292           (src.nempty() && strstr(v->get_name(), src.c_str()) != NULL))
 293         {
 294           if (filter_by.nempty())
 295             {
 296               if (strchr(filter_by.c_str(), (char)(v->defined_by)) == NULL)
 297                 continue;
 298             }
 299           v->print_info(con);
 300         }
 301     }
 302   return 0;
 303 }
 304
 305 CMDHELP(cl_info_var_cmd,
 306         "info variables [[/filter] search]",
 307         "Information about variables",
 308         "This command prints info about all or selected variables.\n"
 309         "To select some variables, \"search\" string can be used,\n"
 310         "in this case those variables will be printed which name\n"
 311         "contains the specified search string.\n"
 312         "Filter option can be used to select variables according to\n"
 313         "place where the variable is defined.\n"
 314         " /p list predefined variables,\n"
 315         " /u list user defined variables (by var command),\n"
 316         " /d list variables read from debug info (cdb) file.\n"
 317         )
 318
 319
 320 /* End of cmd.src/cmd_info.cc */