Redesigned option handling, start of libtool introduction

[fw/sdcc] / sim / ucsim / cmd.src / show.cc

diff --git a/sim/ucsim/cmd.src/show.cc b/sim/ucsim/cmd.src/show.cc
index 99ba73a488275fb26f3062778ac2a53364e07913..9833d2b8e4a2eb3284f03b30d7cca3d201ca3ed1 100644 (file)
--- a/sim/ucsim/cmd.src/show.cc
+++ b/sim/ucsim/cmd.src/show.cc
@@ -26,9 +26,11 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 /*@1@*/
 
 #include "ddconfig.h"
+#include "i_string.h"
 
 // prj
 #include "globals.h"
+#include "utils.h"
 
 // sim
 #include "simcl.h"
@@ -67,4 +69,58 @@ COMMAND_DO_WORK(cl_show_warranty_cmd)
 }
 
 
+/*
+ * Command: show option
+ *----------------------------------------------------------------------------
+ */
+COMMAND_DO_WORK_APP(cl_show_option_cmd)
+{
+  class cl_cmd_arg *parm= cmdline->param(0);
+  char *s= 0;
+
+  if (!parm)
+    ;
+  else if (cmdline->syntax_match(0/*app->get_uc()*/, STRING)) {
+    s= parm->value.string.string;
+  }
+  else
+    con->dd_printf("%s\n", short_help?short_help:"Error: wrong syntax\n");
+
+  int i;
+  for (i= 0; i < app->options->count; i++)
+    {
+      class cl_option *o= (class cl_option *)(/*uc*/app->options->at(i));
+      if (!s ||
+         !strcmp(s, o->get_name()))
+       {
+         con->dd_printf("%d. %s: ", i, object_name(o));
+         o->print(con);
+         con->dd_printf(" - %s\n", o->help);
+         union option_value *val= o->get_value();
+         con->dd_printf("  Value: \"");
+         unsigned int uj;
+         int j;
+         TYPE_UBYTE *d= (TYPE_UBYTE*)val;
+         for (uj= 0; uj < sizeof(*val); uj++)
+           con->print_char_octal(d[uj]);
+         con->dd_printf("\"\n  Creator: \"%s\"\n  %d Users:\n",
+                        object_name(o->get_creator()),
+                        o->users->count);
+         con->dd_printf("  Hidden: %s\n", (o->hidden)?"True":"False");
+         for (j= 0; j < o->users->count; j++)
+           {
+             class cl_optref *r= (class cl_optref *)(o->users->at(j));
+             con->dd_printf("    %2d. owner(s)=\"%s\"\n", j,
+                            object_name(r->get_owner()));
+           }
+         if (i >= 0 &&
+             i < app->options->count-1)
+           con->dd_printf("\n");
+       }
+    }
+  
+  return(DD_FALSE);;
+}
+
+
 /* End of cmd.src/show.cc */