/* Cadillac interface routines.
   Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992 Free Software Foundation, Inc.

This file is part of GDB.

This program 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.

This program 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 this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */

#include <stdio.h>
#include <sys/types.h>
#include <sys/time.h>
#include <sys/param.h>
#include <connection.h>
#include <genericreq.h>
#include <debuggerreq.h>
#include <debuggerconn.h>
#include <ttyconn.h>

/* Connection block for debugger<=>kernel communications. */
static Connection *conn = 0;

/* fd for our socket to the kernel. */
static int kerfd;

/* The kernel's ID for this instance of the program. */
static int program_id;


/* This routine redirects the output of fputs_filtered to the kernel so that
   the user can see what's going on in his debugger window. */

void
cadillac_fputs(ptr)
     char *ptr;
{
  CTtyRequest *req;

  if (conn)
    {
      req = CWriteTtyRequest (conn, TextIORType);
      CWriteVstring0 (conn, ptr);
      CWriteLength (conn);
/*      CWriteRequestBuffer (conn);	/* XXX - debugging only */
    }
  else
    fputs (ptr, stdout);
}

/* This wrapper routine is needed because execute_command modifies the command
   string that it's given.  It also echos the commands. */

static void
execute_command_1 (cmd, from_tty)
     char *cmd;
     int from_tty;
{
  char buf[100];

  printf_filtered("%s\n", cmd);
  strcpy(buf, cmd);
  execute_command(buf, from_tty);
}

/* Establish contact with the kernel. */

void
cadillac_initialize(cadillac_id, execarg)
     char *cadillac_id;
     char *execarg;
{
  CTtyRequest *req;
  char *ctmp;
  extern long strtol(char *str, char **ptr, int base);
  char pathname[MAXPATHLEN];

  if (!execarg) execarg = "";

  printf("gdb-debugger pid=%d\n", getpid()); /* XXX - debugging only */
  
  /* First establish the connection with the kernel. */

  kerfd = COpenClientSocket(NULL);
  if (kerfd < 0) {
    printf("COpenClientSocket() failed\n");
    exit(1);
  }

  /* Setup connection buffering. */

  CSetSocketBufferSize (kerfd, 12000);

  /* Generate a new connection control block. */

  conn = NewConnection (0, kerfd, kerfd);
  if (!conn) {
    printf("NewConnection() failed\n");
    exit(1);
  }

  /* Tell the kernel that we are the "debugger". */

  req = CWriteTtyRequest (conn, QueryConnectionRType);
  req->generic.queryconnection.major = 0;
  req->generic.queryconnection.minor = 0;
  req->generic.queryconnection.cadillacId1=strtol(cadillac_id, &ctmp, 16);
  req->generic.queryconnection.cadillacId2 = strtol(++ctmp, NULL, 16);
  req->generic.queryconnection.nProtocols = 1;
  CWriteProtocol (conn, 0, 0, "debugger");
  CWriteLength (conn);

  /* Tell the kernel that we are actually running. */

  /* KROCK ALERT!!!  The kernel doesn't really care about the arguments to
     the program at all!  It only cares that argument 7 be the name of the
     target program.  So, we just fill in the rest of the slots with
     padding.  I hope the kernel never cares about this! */

  req = CWriteTtyRequest (conn, RunningProgramRType);
  req->runningprogram.argc = 8;
  getwd (pathname);
  CWriteVstring0 (conn, pathname);

  CWriteVstring0 (conn, "0");
  CWriteVstring0 (conn, "1");
  CWriteVstring0 (conn, "2");
  CWriteVstring0 (conn, "3");
  CWriteVstring0 (conn, "4");
  CWriteVstring0 (conn, "5");
  CWriteVstring0 (conn, "6");
  CWriteVstring0 (conn, execarg);
  CWriteLength (conn);
}

/* All requests from the Cadillac kernel eventually end up here. */

void
cadillac_main_loop(pprompt)
     char **pprompt;
{
  CTtyRequest *req;
  extern int cadillac;

  /* The actual event loop! */

  while (1)
    {
      register CHeader *head;
      fd_set readfds;
      int numfds;

      fputs_filtered(*pprompt, stdout); /* Output the prompt */

      /* Output all pending requests. */
      CWriteRequestBuffer (conn);

      /* Wait till there's some activity from the kernel. */
      while (1)
	{
	  FD_ZERO (&readfds);
	  FD_SET (kerfd, &readfds);
	  numfds = select (sizeof(readfds)*8, &readfds, 0, 0, 0);
	  if (numfds > 0) break;
	}

      head = (CHeader *)CPeekNextRequest (conn);
      if (head == NULL)
	{
	  fprintf (stderr, "EOF on kernel read!\n");
	  exit (1);
	}

      if (head->reqType < LastTtyRequestRType)
	{
	  CTtyRequest* req = CReadTtyRequest (conn);
	  switch (req->head.reqType)
	    {
	    case AcceptConnectionRType:
	      CSkipRequest (conn);
	      /* Tell the rest of the world that cadillac is now set up */
	      cadillac = 1;
	      break;

	    case RefuseConnectionRType:
	      fprintf (stderr, "Debugger connection refused\n");
	      exit (1);

	    case KillProgramRType:
	      exit (0);

	    default:
	      fprintf_filtered(stderr, "Unknown request type = %d\n",
		      req->head.reqType);
	      CSkipRequest (conn);
	      break;
	    }
	}
      else
	{
	  CVDebuggerRequest *req = CVReadDebuggerRequest (conn);
	  if (!req)
	    {
	      fprintf (stderr, "CVReadDebuggerRequest returned NULL, type = %d\n",
		       head->reqType);
	      return;
	    }

	  switch (req->head.request->reqType)
	    {
	    case OpenProgramInstanceRType:
	      {
		char *arglist, buf[100]; /* XXX - Make buf dynamic! */
		int arglen;
		/* XXX - should notice when program_id changes */
		program_id = req->openProgramInstance.request->programId;
		arglist = req->openProgramInstance.progArglist.text;
		arglen = req->openProgramInstance.progArglist.byteLen;

		execute_command_1("break main", 1);
		if (arglist)
		  {
		    sprintf(buf, "set args %.*s", arglen, arglist);
		    fputs_filtered(*pprompt, stdout); /* Output the prompt */
		    execute_command_1(buf, 1);
		  }
		fputs_filtered(*pprompt, stdout); /* Output the prompt */
		execute_command_1("run", 1);
	      }
	      break;
	    case QuitDebuggerRType:
	      exit (0);
	    case RunRType:
	      execute_command_1("run", 1);
	      break;
	    case ContinueRType:
	      execute_command_1("continue", 1);
	      break;
	    case StepRType:
	      execute_command_1("step", 1);
	      break;
	    case NextRType:
	      execute_command_1("next", 1);
	      break;
	    case ChangeStackFrameRType:
	      printf_filtered("Got to ChangeStackFrame\n");
	      break;
	    case BackTraceRType:
	      execute_command_1("backtrace", 1);
	      break;
	    case FinishRType:
	      execute_command_1("finish", 1);
	      break;
	    case TerminateProgramRType:
	      execute_command_1("quit", 1);
	      break;
	    case UserInputRType:
	      {
		char *text;
		long len;

		text = req->userInput.userInput.text;
		len = req->userInput.userInput.byteLen;

		if (text[len-1] == '\n') text[len-1] = '\000';
		execute_command (text, 1);
		break;
	      }
	    default:
	      fprintf_filtered(stderr, "Unknown request type = %d\n",
		      req->head.request->reqType);
	      break;
	    }
	  CVFreeDebuggerRequest (req);
	}
    }
}