* sim/ucsim/cmd.src/newcmdposix.cc, sim/ucsim/cmd.src/newcmdposixcl.h,
[fw/sdcc] / sim / ucsim / cmd.src / newcmd.cc
index 453540ef88c3301d02341944e28368b18ad25173..a603324d12b46ee43c937e6c0fae38b7202a6d50 100644 (file)
@@ -2,7 +2,8 @@
  * Simulator of microcontrollers (cmd.src/newcmd.cc)
  *
  * Copyright (C) 1999,99 Drotos Daniel, Talker Bt.
- * 
+ * Copyright (C) 2006, Borut Razem - borut.razem@siol.net
+ *
  * To contact author send email to drdani@mazsola.iit.uni-miskolc.hu
  *
  */
@@ -31,23 +32,6 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include <errno.h>
 #include <stdarg.h>
 #include <stdlib.h>
-#include <sys/types.h>
-#ifdef _WIN32
-# include <winsock2.h>
-# define SOCKET_AVAIL
-#elif defined HAVE_SYS_SOCKET_H
-# include <sys/socket.h>
-# include <netinet/in.h>
-# include <arpa/inet.h>
-# include <netdb.h>
-#endif
-#include <sys/time.h>
-#if FD_HEADER_OK
-# include HEADER_FD
-#endif
-#ifdef HAVE_UNISTD_H
-# include <unistd.h>
-#endif
 #include "i_string.h"
 
 #include "cmdlexcl.h"
@@ -67,15 +51,11 @@ Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include "cmdutil.h"
 
 
-extern "C" int vasprintf(char **strp, const  char *format, va_list ap);
-extern "C" int vsnprintf(char *str, size_t size,const char *format,va_list ap);
-
-
 /*
  * Options of console
  */
 
-cl_prompt_option::cl_prompt_option(class cl_console *console):
+cl_prompt_option::cl_prompt_option(class cl_console_base *console):
   cl_optref(console)
 {
   con= console;
@@ -105,7 +85,7 @@ cl_prompt_option::option_changed(void)
 }
 
 
-cl_debug_option::cl_debug_option(class cl_console *console):
+cl_debug_option::cl_debug_option(class cl_console_base *console):
   cl_prompt_option(console)
 {}
 
@@ -139,112 +119,8 @@ cl_debug_option::option_changed(void)
  *____________________________________________________________________________
  */
 
-cl_console::cl_console(char *fin, char *fout, class cl_app *the_app):
-  cl_base()
-{
-  FILE *f;
-
-  app= the_app;
-  in= 0;
-  if (fin)
-    if (f= fopen(fin, "r"), in= f, !f)
-      fprintf(stderr, "Can't open `%s': %s\n", fin, strerror(errno));
-  out= 0;
-  if (fout)
-    if (f= fopen(fout, "w"), out= f, !f)
-      fprintf(stderr, "Can't open `%s': %s\n", fout, strerror(errno));
-  prompt= 0;
-  flags= CONS_NONE;
-  if (in &&
-      isatty(fileno(in)))
-    flags|= CONS_INTERACTIVE;
-  else
-    ;//fprintf(stderr, "Warning: non-interactive console\n");
-  rout= 0;
-  id= 0;
-  lines_printed= new cl_ustrings(100, 100, "console_cache");
-}
-
-cl_console::cl_console(FILE *fin, FILE *fout, class cl_app *the_app):
-  cl_base()
-{
-  app= the_app;
-  in = fin;
-  out= fout;
-  prompt= 0;
-  flags= CONS_NONE;
-  if (in &&
-      isatty(fileno(in)))
-    flags|= CONS_INTERACTIVE;
-  else
-    ;//fprintf(stderr, "Warning: non-interactive console\n");
-  rout= 0;
-  id= 0;
-  lines_printed= new cl_ustrings(100, 100, "console_cache");
-}
-
-/*
- * use the port number supplied to connect to localhost for 
- * (by Sandeep)
- */
-
-#ifdef SOCKET_AVAIL
-static int
-connect_to_port(int portnum)
-{
-  int sock= socket(AF_INET,SOCK_STREAM,0);
-  struct sockaddr_in sin;
-
-  sin.sin_family = AF_INET;
-  sin.sin_port = htons(portnum);
-  sin.sin_addr.s_addr = inet_addr("127.0.0.1");
-
-  if (connect(sock, (struct sockaddr *)&sin, sizeof(sin))) {
-    fprintf(stderr, "Connect to port %d: %s\n", portnum, strerror(errno));
-    return -1;
-  }
-  return sock;
-}
-
-cl_console::cl_console(int portnumber, class cl_app *the_app)
-{
-  int sock= connect_to_port(portnumber);
-
-  app= the_app;
-  if (!(in= fdopen(sock, "r")))
-    fprintf(stderr, "cannot open port for input\n");
-  if (!(out= fdopen(sock, "w")))
-    fprintf(stderr, "cannot open port for output\n");
-  //fprintf(stderr, "init socket done\n");
-  id= 0;
-  lines_printed= new cl_ustrings(1, 1, "console_cache");
-}
-#endif
-
-class cl_console *
-cl_console::clone_for_exec(char *fin)
-{
-  FILE *fi= 0, *fo= 0;
-
-  if (!fin)
-    return(0);
-  if (fi= fopen(fin, "r"), !fi)
-    {
-      fprintf(stderr, "Can't open `%s': %s\n", fin, strerror(errno));
-      return(0);
-    }
-  if ((fo= fdopen(dup(fileno(out)), "a")) == 0)
-    {
-      fclose(fi);
-      fprintf(stderr, "Can't re-open output file: %s\n", strerror(errno));
-      return(0);
-    }
-  class cl_console *con= new cl_sub_console(this, fi, fo, app);
-  return(con);
-}
-
 int
-cl_console::init(void)
+cl_console_base::init(void)
 {
   cl_base::init();
   prompt_option= new cl_prompt_option(this);
@@ -262,371 +138,114 @@ cl_console::init(void)
   return(0);
 }
 
-cl_console::~cl_console(void)
+void
+cl_console_base::welcome(void)
 {
-  if (in)
-    fclose(in);
-  un_redirect();
-  if (out)
+  if (!(flags & CONS_NOWELCOME))
     {
-      if (flags & CONS_PROMPT)
-       fprintf(out, "\n");
-      fflush(out);
-      fclose(out);
+      dd_printf("uCsim %s, Copyright (C) 1997 Daniel Drotos, Talker Bt.\n"
+        "uCsim comes with ABSOLUTELY NO WARRANTY; for details type "
+        "`show w'.\n"
+        "This is free software, and you are welcome to redistribute it\n"
+        "under certain conditions; type `show c' for details.\n",
+        VERSIONSTR);
     }
-  delete prompt_option;
-  delete null_prompt_option;
-  delete debug_option;
-#ifdef SOCKET_AVAIL
-  /*  if (sock)
-    {
-      shutdown(sock, 2);
-      close(sock);
-      }*/
-#endif
-}
-
-
-bool
-cl_console::accept_last(void)
-{
-  if (!in)
-    return(DD_FALSE);
-  if (isatty(fileno(in)))
-    return(DD_TRUE);
-  return(DD_FALSE);
-}
-
-
-/*
- * Output functions
- */
-
-void
-cl_console::welcome(void)
-{
-  FILE *Out= rout?rout:out;
-
-  if (!Out ||
-      (flags & CONS_NOWELCOME))
-    return;
-  fprintf(Out, "uCsim %s, Copyright (C) 1997 Daniel Drotos, Talker Bt.\n"
-         "uCsim comes with ABSOLUTELY NO WARRANTY; for details type "
-         "`show w'.\n"
-         "This is free software, and you are welcome to redistribute it\n"
-         "under certain conditions; type `show c' for details.\n",
-         VERSIONSTR);
-  fflush(Out);
-}
-
-void
-cl_console::redirect(char *fname, char *mode)
-{
-  if ((rout= fopen(fname, mode)) == NULL)
-    dd_printf("Unable to open file '%s' for %s: %s\n",
-             fname, (mode[0]=='w')?"write":"append", strerror(errno));
 }
 
 void
-cl_console::un_redirect(void)
+cl_console_base::print_prompt(void)
 {
-  if (!rout)
+  if (flags & (CONS_PROMPT | CONS_FROZEN | CONS_INACTIVE))
     return;
-  fclose(rout);
-  rout= NULL;
-}
-
-
-int
-cl_console::cmd_do_print(FILE *f, char *format, va_list ap)
-{
-  int ret;
-#ifdef HAVE_VASPRINTF
-  char *msg= NULL;
-  vasprintf(&msg, format, ap);
-  ret= fprintf(f, "%s", msg);
-  free(msg);
-#else
-#  ifdef HAVE_VSNPRINTF
-  char msg[80*25];
-  vsnprintf(msg, 80*25, format, ap);
-  ret= fprintf(f, "%s", msg);
-#  else
-#    ifdef HAVE_VPRINTF
-  char msg[80*25];
-  vsprintf(msg, format, ap); /* Dangerous */
-  ret= fprintf(f, "%s", msg);
-#    else
-#      ifdef HAVE_DOPRNT
-  /* ??? */
-  /*strcpy(msg, "Unimplemented printf has called.\n");*/
-#      else
-  /*strcpy(msg, "printf can not be implemented, upgrade your libc.\n");*/
-#      endif
-#    endif
-#  endif
-#endif
-  fflush(f);
-  return(ret);
-}
 
-void
-cl_console::print_prompt(void)
-{
-  //char *p;
-  FILE *Out= rout?rout:out;
-
-  if (flags & (CONS_PROMPT|CONS_FROZEN|CONS_INACTIVE))
-    return;
-  flags|= CONS_PROMPT;
-  if (!Out)
-    return;
+  flags |= CONS_PROMPT;
   if (/*app->args->arg_avail('P')*/null_prompt_option->get_value(bool(0)))
-    putc('\0', Out);
+    {
+      dd_printf("%c", 0);
+    }
   else
     {
-      fprintf(Out, "%d", id);
-      fprintf(Out, "%s", (prompt && prompt[0])?prompt:"> ");
-      //             ((p= app->args->get_sarg(0, "prompt"))?p:"> "));
+      dd_printf("%d%s", id, (prompt && prompt[0]) ? prompt : "> ");
+      //              ((p= app->args->get_sarg(0, "prompt"))?p:"> "));
     }
-  fflush(Out);
 }
 
 int
-cl_console::dd_printf(char *format, ...)
+cl_console_base::dd_printf(char *format, ...)
 {
   va_list ap;
   int ret= 0;
-  FILE *Out= rout?rout:out;
 
-  if (Out)
-    {
-      va_start(ap, format);
-      ret= cmd_do_print(Out, format, ap);
-      va_end(ap);
-    }
+  va_start(ap, format);
+  ret= cmd_do_print(format, ap);
+  va_end(ap);
+
   return(ret);
 }
 
 int
-cl_console::debug(char *format, ...)
+cl_console_base::debug(char *format, ...)
 {
   if ((flags & CONS_DEBUG) == 0)
     return(0);
 
   va_list ap;
   int ret= 0;
-  FILE *Out= rout?rout:out;
 
-  if (Out)
-    {
-      va_start(ap, format);
-      ret= cmd_do_print(Out, format, ap);
-      va_end(ap);
-    }
+  va_start(ap, format);
+  ret= cmd_do_print(format, ap);
+  va_end(ap);
+
   return(ret);
 }
 
+/*
+ * Printing out an integer in binary format
+ */
+
 void
-cl_console::print_bin(long data, int bits)
+cl_console_base::print_bin(long data, int bits)
 {
   long mask= 1;
-  FILE *Out= rout?rout:out;
 
-  if (!Out)
-    return;
   mask= mask << ((bits >= 1)?(bits-1):0);
   while (bits--)
     {
-      fprintf(Out, "%c", (data&mask)?'1':'0');
+      dd_printf("%c", (data&mask)?'1':'0');
       mask>>= 1;
     }
 }
 
 void
-cl_console::print_char_octal(char c)
+cl_console_base::print_char_octal(char c)
 {
-  FILE *Out= rout?rout:out;
-
-  if (Out)
-    ::print_char_octal(c, Out);
-}
-
-
-/*
- * Input functions
- */
-
-int
-cl_console::match(int fdnum)
-{
-  if (in &&
-      fileno(in) == fdnum)
-    return(1);
-  return(0);
-}
-
-int
-cl_console::get_in_fd(void)
-{
-  if (flags & CONS_INACTIVE)
-    return(-2);
-  return(in?fileno(in):-1);
-}
-
-int
-cl_console::input_avail(void)
-{
-  struct timeval tv;
-  int i;
-  
-  if ((i= get_in_fd()) < 0)
-    return(0);
-  fd_set s;
-  FD_ZERO(&s);
-  FD_SET(i, &s);
-  tv.tv_sec= tv.tv_usec= 0;
-  i= select(i+1, &s, NULL, NULL, &tv);
-  return(i);
-}
-
-char *
-cl_console::read_line(void)
-{
-  char *s= NULL;
-
-#ifdef HAVE_GETLINE
-  if (getline(&s, 0, in) < 0)
-    return(0);
-#else
-
-# ifdef HAVE_GETDELIM
-  size_t n= 30;
-  s= (char *)malloc(n);
-  if (getdelim(&s, &n, '\n', in) < 0)
-    {
-      free(s);
-      return(0);
-    }
-# else
-
-#  ifdef HAVE_FGETS
-  s= (char *)malloc(300);
-  if (fgets(s, 300, in) == NULL)
-    {
-      free(s);
-      return(0);
-    }
-#  endif
-# endif
-#endif
-  s[strlen(s)-1]= '\0';
-  if (s[strlen(s)-1] == '\r')
-    s[strlen(s)-1]= '\0';
-  flags&= ~CONS_PROMPT;
-  return(s);
-}
-
-int
-cl_console::proc_input(class cl_cmdset *cmdset)
-{
-  int retval= 0;
-
-  un_redirect();
-  if (feof(in))
-    {
-      fprintf(out, "End\n");
-      return(1);
-    }
-  char *cmdstr= read_line();
-  if (!cmdstr)
-    return(1);
-  if (flags & CONS_FROZEN)
-    {
-      app->get_sim()->stop(resUSER);
-      flags&= ~CONS_FROZEN;
-      retval= 0;
-    }
+  if (strchr("\a\b\f\n\r\t\v\"", c))
+    switch (c)
+      {
+      case '\a': dd_printf("\a"); break;
+      case '\b': dd_printf("\b"); break;
+      case '\f': dd_printf("\f"); break;
+      case '\n': dd_printf("\n"); break;
+      case '\r': dd_printf("\r"); break;
+      case '\t': dd_printf("\t"); break;
+      case '\v': dd_printf("\v"); break;
+      case '\"': dd_printf("\""); break;
+      }
+  else if (isprint(c))
+    dd_printf("%c", c);
   else
-    {
-      if (cmdstr &&
-         *cmdstr == '\004')
-       retval= 1;
-      else
-       {
-         class cl_cmdline *cmdline= 0;
-         class cl_cmd *cm= 0;
-         if (flags & CONS_ECHO)
-           dd_printf("%s\n", cmdstr);
-         cmdline= new cl_cmdline(app, cmdstr, this);
-         cmdline->init();
-         if (cmdline->repeat() &&
-             accept_last() &&
-             last_command)
-           {
-             cm= last_command;
-             delete cmdline;
-             cmdline= last_cmdline;
-           }
-         else
-           {
-             cm= cmdset->get_cmd(cmdline, accept_last());
-             if (last_cmdline)
-               {
-                 delete last_cmdline;
-                 last_cmdline= 0;
-               }
-             last_command= 0;
-           }
-         if (cm)
-           {
-             retval= cm->work(app, cmdline, this);
-             if (cm->can_repeat)
-               {
-                 last_command= cm;
-                 last_cmdline= cmdline;
-               }
-             else
-               delete cmdline;
-           }
-         else
-           {
-             class YY_cl_ucsim_parser_CLASS *pars;
-             class cl_ucsim_lexer *lexer;
-             lexer= new cl_ucsim_lexer(cmdstr);
-             pars= new YY_cl_ucsim_parser_CLASS(lexer);
-             pars->yyparse();
-             delete cmdline;
-             delete pars;
-           }
-         /*if (!cm)
-           retval= interpret(cmdstr);*/
-       }
-    }
-  //retval= sim->do_cmd(cmd, this);
-  un_redirect();
-  /*if (!retval)
-    print_prompt();*/
-  free(cmdstr);
-  return(retval);
+    dd_printf("\\%03hho", c);
 }
 
-/*
- * Old version, sim->do_cmd() falls into this if it doesn't find a new
- * command object which can handle entered command
- */
-
 int
-cl_console::interpret(char *cmd)
+cl_console_base::interpret(char *cmd)
 {
-  FILE *Out= rout?rout:out;
-
-  fprintf(Out, "Unknown command\n");
+  dd_printf("Unknown command\n");
   return(0);
 }
 
 void
-cl_console::set_id(int new_id)
+cl_console_base::set_id(int new_id)
 {
   char *s;
 
@@ -636,110 +255,110 @@ cl_console::set_id(int new_id)
 }
 
 void
-cl_console::set_prompt(char *p)
+cl_console_base::set_prompt(char *p)
 {
   if (prompt)
     free(prompt);
-  if (p &&
-      *p)
+  if (p && *p)
     prompt= strdup(p);
   else
     prompt= 0;
 }
 
-
-/*
- * This console listen on a socket and can accept connection requests
- */
-#ifdef SOCKET_AVAIL
-
-cl_listen_console::cl_listen_console(int serverport, class cl_app *the_app)
+bool
+cl_console_base::input_active(void) const
 {
-  app= the_app;
-  if ((sock= make_server_socket(serverport)) >= 0)
+  if (((flags & CONS_FROZEN) == 0 ||
+    (flags & CONS_INTERACTIVE) != 0) &&
+    (flags & CONS_INACTIVE) == 0)
     {
-      if (listen(sock, 10) < 0)
-       fprintf(stderr, "Listen on port %d: %s\n",
-               serverport, strerror(errno));
+      return true;
     }
-  in= out= 0;
-}
-
-int
-cl_listen_console::match(int fdnum)
-{
-  return(sock == fdnum);
+  else
+    return false;
 }
 
 int
-cl_listen_console::get_in_fd(void)
+cl_console_base::proc_input(class cl_cmdset *cmdset)
 {
-  return(sock);
-}
+  int retval = 0;
 
-int
-cl_listen_console::proc_input(class cl_cmdset *cmdset)
-{
-  int newsock;
-  ACCEPT_SOCKLEN_T size;
-  struct sockaddr_in sock_addr;
-  class cl_commander *cmd;
-
-  cmd= app->get_commander();
-  size= sizeof(struct sockaddr); 
-  newsock= accept(sock, (struct sockaddr*)&sock_addr, &size);
-  if (newsock < 0)
+  un_redirect();
+  if (is_eof())
     {
-      perror("accept");
-      return(0);
+      dd_printf("End\n");
+      return 1;
     }
-  if (!(in= fdopen(newsock, "r+")))
-    fprintf(stderr, "cannot open port for input\n");
-  if (!(out= fdopen(newsock, "w+")))
-    fprintf(stderr, "cannot open port for output\n");
-  class cl_console *c= cmd->mk_console(in, out);
-  c->flags|= CONS_INTERACTIVE;
-  cmd->add_console(c);
-  in= out= 0;
-  return(0);
-}
-
-#endif /* SOCKET_AVAIL */
-
-
-/*
- * Sub-console
- */
-
-cl_sub_console::cl_sub_console(class cl_console *the_parent,
-                              FILE *fin, FILE *fout, class cl_app *the_app):
-  cl_console(fin, fout, the_app)
-{
-  parent= the_parent;
-}
-
-cl_sub_console::~cl_sub_console(void)
-{
-  class cl_commander *c= app->get_commander();
-
-  if (parent && c)
+  char *cmdstr = read_line();
+  if (!cmdstr)
+    return 1;
+  if (flags & CONS_FROZEN)
     {
-      c->activate_console(parent);
+      app->get_sim()->stop(resUSER);
+      flags&= ~CONS_FROZEN;
+      retval = 0;
     }
-}
-
-int
-cl_sub_console::init(void)
-{
-  class cl_commander *c= app->get_commander();
-
-  if (parent && c)
+  else
     {
-      c->deactivate_console(parent);
+      if (cmdstr && *cmdstr == '\004')
+        retval = 1;
+      else
+        {
+          class cl_cmdline *cmdline= 0;
+          class cl_cmd *cm = 0;
+          if (flags & CONS_ECHO)
+            dd_printf("%s\n", cmdstr);
+          cmdline= new cl_cmdline(app, cmdstr, this);
+          cmdline->init();
+          if (cmdline->repeat() &&
+              accept_last() &&
+              last_command)
+            {
+              cm = last_command;
+              delete cmdline;
+              cmdline = last_cmdline;
+            }
+          else
+            {
+              cm= cmdset->get_cmd(cmdline, accept_last());
+              if (last_cmdline)
+                {
+                  delete last_cmdline;
+                  last_cmdline = 0;
+                }
+              last_command = 0;
+            }
+          if (cm)
+            {
+              retval= cm->work(app, cmdline, this);
+              if (cm->can_repeat)
+                {
+                  last_command = cm;
+                  last_cmdline = cmdline;
+                }
+              else
+                delete cmdline;
+            }
+          else
+            {
+              class YY_cl_ucsim_parser_CLASS *pars;
+              class cl_ucsim_lexer *lexer;
+              lexer = new cl_ucsim_lexer(cmdstr);
+              pars = new YY_cl_ucsim_parser_CLASS(lexer);
+              pars->yyparse();
+              delete cmdline;
+              delete pars;
+            }
+          /*if (!cm)
+            retval= interpret(cmdstr);*/
+        }
     }
-  cl_console::init();
-  flags|= CONS_ECHO;
-  return(0);
+  //retval= sim->do_cmd(cmd, this);
+  un_redirect();
+  /*if (!retval)
+    print_prompt();*/
+  free(cmdstr);
+  return(retval);
 }
 
 
@@ -748,110 +367,23 @@ cl_sub_console::init(void)
  *____________________________________________________________________________
  */
 
-cl_commander::cl_commander(class cl_app *the_app, class cl_cmdset *acmdset
-                          /*, class cl_sim *asim*/):
+cl_commander_base::cl_commander_base(class cl_app *the_app, class cl_cmdset *acmdset):
   cl_base()
 {
   app= the_app;
-  cons= new cl_list(1, 1, "consoles"); 
+  cons= new cl_list(1, 1, "consoles");
   actual_console= frozen_console= 0;
   cmdset= acmdset;
 }
 
-int
-cl_commander::init(void)
-{
-  class cl_optref console_on_option(this);
-  class cl_optref config_file_option(this);
-  class cl_optref port_number_option(this);
-  class cl_console *con;
-
-  console_on_option.init();
-  console_on_option.use("console_on");
-  config_file_option.init();
-  config_file_option.use("config_file");
-  port_number_option.init();
-
-  cl_base::init();
-  set_name("Commander");
-  
-  bool need_config= DD_TRUE;
-
-#ifdef SOCKET_AVAIL
-  if (port_number_option.use("port_number"))
-    add_console(mk_console(port_number_option.get_value((long)0)));
-#endif
-
-  /* The following code is commented out because it produces gcc warnings
-   * newcmd.cc: In member function `virtual int cl_commander::init()':
-   * newcmd.cc:785: warning: 'Config' might be used uninitialized in this function
-   * newcmd.cc:786: warning: 'cn' might be used uninitialized in this function
-   */
-  /*
-  char *Config= config_file_option.get_value(Config);
-  char *cn= console_on_option.get_value(cn);
-   */
-  /* Here shoud probably be something else, but is still better then the former code... */
-  char *Config= config_file_option.get_value("");
-  char *cn= console_on_option.get_value("");
-
-  if (cn)
-    {
-      add_console(con= mk_console(cn, cn));
-      exec_on(con, Config);
-      need_config= DD_FALSE;
-    }
-  if (cons->get_count() == 0)
-    {
-      add_console(con= mk_console(stdin, stdout));
-      exec_on(con, Config);
-      need_config= DD_FALSE;
-    }
-  if (need_config &&
-      Config &&
-      *Config)
-    {
-      FILE *fc= fopen(Config, "r");
-      if (!fc)
-       fprintf(stderr, "Can't open `%s': %s\n", Config, strerror(errno));
-      else
-       {
-         con= mk_console(fc, stderr);
-         con->flags|= CONS_NOWELCOME|CONS_ECHO;
-         add_console(con);
-       }
-    }
-  return(0);
-}
-
-cl_commander::~cl_commander(void)
+cl_commander_base::~cl_commander_base(void)
 {
   delete cons;
   delete cmdset;
 }
 
-class cl_console *
-cl_commander::mk_console(char *fin, char *fout)
-{
-  return(new cl_console(fin, fout, app));
-}
-
-class cl_console *
-cl_commander::mk_console(FILE *fin, FILE *fout)
-{
-  return(new cl_console(fin, fout, app));
-}
-
-#ifdef SOCKET_AVAIL
-class cl_console *
-cl_commander::mk_console(int portnumber)
-{
-  return(new cl_listen_console(portnumber, app));
-}
-#endif
-
 void
-cl_commander::add_console(class cl_console *console)
+cl_commander_base::add_console(class cl_console_base *console)
 {
   if (!console)
     return;
@@ -862,14 +394,14 @@ cl_commander::add_console(class cl_console *console)
 }
 
 void
-cl_commander::del_console(class cl_console *console)
+cl_commander_base::del_console(class cl_console_base *console)
 {
   cons->disconn(console);
   set_fd_set();
 }
 
 void
-cl_commander::activate_console(class cl_console *console)
+cl_commander_base::activate_console(class cl_console_base *console)
 {
   console->flags&= ~CONS_INACTIVE;
   //console->print_prompt();
@@ -877,171 +409,84 @@ cl_commander::activate_console(class cl_console *console)
 }
 
 void
-cl_commander::deactivate_console(class cl_console *console)
+cl_commander_base::deactivate_console(class cl_console_base *console)
 {
   console->flags|= CONS_INACTIVE;
   set_fd_set();
 }
 
-void
-cl_commander::set_fd_set(void)
-{
-  int i;
-
-  //fprintf(stderr, "** Setting fd set\n");  
-  FD_ZERO(&read_set);
-  fd_num= 0;
-  for (i= 0; i < cons->count; i++)
-    {
-      int fd;
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      if ((fd= c->get_in_fd()) >= 0)
-       {
-         if ((c->flags & CONS_FROZEN) == 0 ||
-             (c->flags & CONS_INTERACTIVE) != 0)
-           {
-             FD_SET(fd, &read_set);
-             if (fd > fd_num)
-               fd_num= fd;
-           }
-       }
-      else
-       ;//fprintf(stderr, "** Skipping console %p\n",c);
-    }
-  fd_num++;
-}
-
-
 /*
  * Printing to all consoles
  */
 
 int
-cl_commander::all_printf(char *format, ...)
+cl_commander_base::all_printf(char *format, ...)
 {
   va_list ap;
   int i, ret= 0;
-  
+
   for (i= 0; i < cons->count; i++)
     {
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      FILE *Out= c->get_out();
-      if (Out)
-       {
-         va_start(ap, format);
-         ret= c->cmd_do_print(Out, format, ap);
-         va_end(ap);
-       }
+      class cl_console_base *c= (class cl_console_base*)(cons->at(i));
+
+      va_start(ap, format);
+      ret= c->cmd_do_print(format, ap);
+      va_end(ap);
     }
   return(ret);
 }
 
 void
-cl_commander::prompt(void)
+cl_commander_base::prompt(void)
 {
   int i;
-  
-  for (i= 0; i < cons->count; i++)
-    {
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      c->print_prompt();
-    }
-}
 
-int
-cl_commander::all_print(char *string, int length)
-{
-  int i;
-  
   for (i= 0; i < cons->count; i++)
     {
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      FILE *Out= c->get_out();
-      if (Out)
-       {
-         for (int j= 0; j < length; j++)
-           putc(string[j], Out);
-       }
+      class cl_console_base *c= (class cl_console_base*)(cons->at(i));
+      c->print_prompt();
     }
-  return(0);
 }
 
 /*
  * Printing to actual_console
  */
 
-FILE *
-cl_commander::get_out(void)
-{
-  if (actual_console)
-    return(actual_console->get_out());
-  else if (frozen_console)
-    return(frozen_console->get_out());
-  return(0);
-}
-
 int
-cl_commander::dd_printf(char *format, ...)
+cl_commander_base::dd_printf(char *format, va_list ap)
 {
-  va_list ap;
   int ret= 0;
-  FILE *f;
-  class cl_console *con;
+  class cl_console_base *con;
 
   if (actual_console)
     {
-      f= actual_console->get_out();
       con= actual_console;
     }
   else if (frozen_console)
     {
-      f= frozen_console->get_out();
       con= frozen_console;
     }
   else
     {
-      f= 0;
       con= 0;
     }
-  if (/*actual_console &&
-       actual_console->out*/f &&
-                            con)
+  if (con)
     {
-      va_start(ap, format);
-      ret= con->cmd_do_print(f/*actual_console->out*/, format, ap);
-      va_end(ap);
+      ret= con->cmd_do_print(format, ap);
     }
   return(ret);
 }
 
 int
-cl_commander::dd_printf(char *format, va_list ap)
+cl_commander_base::dd_printf(char *format, ...)
 {
+  va_list ap;
   int ret= 0;
-  FILE *f;
-  class cl_console *con;
 
-  if (actual_console)
-    {
-      f= actual_console->get_out();
-      con= actual_console;
-    }
-  else if (frozen_console)
-    {
-      f= frozen_console->get_out();
-      con= frozen_console;
-    }
-  else
-    {
-      f= 0;
-      con= 0;
-    }
-  if (/*actual_console &&
-       actual_console->out*/f &&
-                            con)
-    {
-      ret= con->cmd_do_print(f/*actual_console->out*/, format, ap);
-    }
+  va_start(ap, format);
+  ret= dd_printf(format, ap);
+  va_end(ap);
+
   return(ret);
 }
 
@@ -1050,141 +495,75 @@ cl_commander::dd_printf(char *format, va_list ap)
  */
 
 int
-cl_commander::debug(char *format, ...)
+cl_commander_base::debug(char *format, ...)
 {
   va_list ap;
   int i, ret= 0;
 
   for (i= 0; i < cons->count; i++)
     {
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      FILE *Out= c->get_out();
-      if (Out &&
-         c->flags & CONS_DEBUG)
-       {
-         va_start(ap, format);
-         ret= c->cmd_do_print(Out, format, ap);
-         va_end(ap);
-       }
+      class cl_console_base *c= (class cl_console_base*)(cons->at(i));
+      if (c->flags & CONS_DEBUG)
+        {
+          va_start(ap, format);
+          ret= c->cmd_do_print(format, ap);
+          va_end(ap);
+        }
     }
   return(ret);
 }
 
 int
-cl_commander::debug(char *format, va_list ap)
+cl_commander_base::debug(char *format, va_list ap)
 {
   int i, ret= 0;
 
   for (i= 0; i < cons->count; i++)
     {
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      FILE *Out= c->get_out();
-      if (Out &&
-         c->flags & CONS_DEBUG)
-       {
-         ret= c->cmd_do_print(Out, format, ap);
-       }
+      class cl_console_base *c= (class cl_console_base*)(cons->at(i));
+      if (c->flags & CONS_DEBUG)
+        {
+          ret= c->cmd_do_print(format, ap);
+        }
     }
   return(ret);
 }
 
 int
-cl_commander::flag_printf(int iflags, char *format, ...)
+cl_commander_base::flag_printf(int iflags, char *format, ...)
 {
   va_list ap;
   int i, ret= 0;
 
   for (i= 0; i < cons->count; i++)
     {
-      class cl_console *c= (class cl_console*)(cons->at(i));
-      FILE *Out= c->get_out();
-      if (Out &&
-         (c->flags & iflags) == iflags)
-       {
-         va_start(ap, format);
-         ret= c->cmd_do_print(Out, format, ap);
-         va_end(ap);
-       }
+      class cl_console_base *c= (class cl_console_base*)(cons->at(i));
+      if ((c->flags & iflags) == iflags)
+        {
+          va_start(ap, format);
+          ret= c->cmd_do_print(format, ap);
+          va_end(ap);
+        }
     }
   return(ret);
 }
 
 int
-cl_commander::input_avail(void)
+cl_commander_base::input_avail_on_frozen(void)
 {
-  struct timeval tv;
-  int i;
-
-  tv.tv_sec= tv.tv_usec= 0;
-  active_set= read_set;
-  i= select(fd_num, &active_set, NULL, NULL, &tv);
-  return(i);
-}
-
-int
-cl_commander::input_avail_on_frozen(void)
-{
-  int fd;
-
-  if (!frozen_console)
-    return(0);
-  if ((fd= frozen_console->get_in_fd()) >= 0 &&
-      !isatty(fd))
+  if (!frozen_console || frozen_console->is_tty())
     return(0);
   return(frozen_console->input_avail());
 }
 
-int
-cl_commander::wait_input(void)
-{
-  int i;
-
-  active_set= read_set;
-  prompt();
-  i= select(fd_num, &active_set, NULL, NULL, NULL);
-  return(i);
-}
-
-int
-cl_commander::proc_input(void)
-{
-  int i;
-
-  for (i= 0; i < fd_num; i++)
-    if (FD_ISSET(i, &active_set))
-      {
-       class cl_console *c;
-       int j;
-       for (j= 0; j < cons->count; j++)
-         {
-           c= (class cl_console*)(cons->at(j));
-           if (c->match(i))
-             {
-               actual_console= c;
-               int retval= c->proc_input(cmdset);
-               if (retval)
-                 {
-                   del_console(c);
-                   delete c;
-                 }
-               actual_console= 0;
-               return(cons->count == 0);
-             }
-         }
-      }
-  return(0);
-}
-
 void
-cl_commander::exec_on(class cl_console *cons, char *file_name)
+cl_commander_base::exec_on(class cl_console_base *cons, char *file_name)
 {
-  FILE *fi= fopen(file_name, "r");
-
-  if (!cons ||
-      !fi)
+  if (!cons || !file_name || !fopen(file_name, "r"))
     return;
-  class cl_console *subcon= cons->clone_for_exec(file_name);
-  subcon->flags|= CONS_NOWELCOME;
+
+  class cl_console_base *subcon = cons->clone_for_exec(file_name);
+  subcon->flags |= CONS_NOWELCOME;
   add_console(subcon);
 }