Subversion Repositories openrisc_2011-10-31

/*  main.c -- top level of ARMulator:  ARM6 Instruction Emulator.
    Copyright (C) 1994 Advanced RISC Machines Ltd.
 
    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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
 
/**********************************************************************/
/* Forks the ARMulator and hangs on a socket passing on RDP messages  */
/* down a pipe to the ARMulator which translates them into RDI calls. */
/**********************************************************************/
 
#include <stdio.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <signal.h>
#include <netdb.h>
#include <unistd.h>
 
#include "armdefs.h"
#include "dbg_rdi.h"
#include "dbg_conf.h"
 
#define MAXHOSTNAMELENGTH 64
 
/* Read and write routines down sockets and pipes */
 
void MYread_chars (int sock, void *p, int n);
unsigned char MYread_char (int sock);
ARMword MYread_word (int sock);
void MYread_FPword (int sock, char *putinhere);
 
void MYwrite_word (int sock, ARMword i);
void MYwrite_string (int sock, char *s);
void MYwrite_FPword (int sock, char *fromhere);
void MYwrite_char (int sock, unsigned char c);
 
void passon (int source, int dest, int n);
 
 
/* Mother and child processes */
void parent (void);
void kid (void);
 
/* The child process id. */
pid_t child;
 
/* The socket to the debugger */
int debugsock;
 
/* The pipes between the two processes */
int mumkid[2];
int kidmum[2];
 
/* A pipe for handling SWI return values that goes straight from the */
/* parent to the ARMulator host interface, bypassing the childs RDP */
/* to RDI interpreter */
int DebuggerARMul[2];
 
/* The maximum number of file descriptors */
int nfds;
 
/* The socket handle */
int sockethandle;
 
/* The machine name */
char localhost[MAXHOSTNAMELENGTH + 1];
 
/* The socket number */
unsigned int socketnumber;
 
/**************************************************************/
/* Takes one argument: the socket number.                     */
/* Opens a socket to the debugger, and once opened spawns the */
/* ARMulator and sets up a couple of pipes.                   */
/**************************************************************/
int
main (int argc, char *argv[])
{
  int i;
  struct sockaddr_in devil, isa;
  struct hostent *hp;
 
 
  if (argc == 1)
    {
      fprintf (stderr, "No socket number\n");
      return 1;
    }
 
  sscanf (argv[1], "%d", &socketnumber);
  if (!socketnumber || socketnumber > 0xffff)
    {
      fprintf (stderr, "Invalid socket number: %d\n", socketnumber);
      return 1;
    }
 
  gethostname (localhost, MAXHOSTNAMELENGTH);
  hp = gethostbyname (localhost);
  if (!hp)
    {
      fprintf (stderr, "Cannot get local host info\n");
      return 1;
    }
 
  /* Open a socket */
  sockethandle = socket (hp->h_addrtype, SOCK_STREAM, 0);
  if (sockethandle < 0)
    {
      perror ("socket");
      return 1;
    }
 
  devil.sin_family = hp->h_addrtype;
  devil.sin_port = htons (socketnumber);
  devil.sin_addr.s_addr = 0;
  for (i = 0; i < sizeof (devil.sin_zero); i++)
    devil.sin_zero[i] = '\000';
  memcpy (&devil.sin_addr, hp->h_addr_list[0], hp->h_length);
 
  if (bind (sockethandle, &devil, sizeof (devil)) < 0)
    {
      perror ("bind");
      return 1;
    }
 
  /* May only accept one debugger at once */
 
  if (listen (sockethandle, 0))
    {
      perror ("listen");
      return 1;
    }
 
  fprintf (stderr, "Waiting for connection from debugger...");
 
  debugsock = accept (sockethandle, &isa, &i);
  if (debugsock < 0)
    {
      perror ("accept");
      return 1;
    }
 
  fprintf (stderr, " done.\nConnection Established.\n");
 
  nfds = getdtablesize ();
 
  if (pipe (mumkid))
    {
      perror ("pipe");
      return 1;
    }
  if (pipe (kidmum))
    {
      perror ("pipe");
      return 1;
    }
 
  if (pipe (DebuggerARMul))
    {
      perror ("pipe");
      return 1;
    }
 
#ifdef DEBUG
  fprintf (stderr, "Created pipes ok\n");
#endif
 
  child = fork ();
 
#ifdef DEBUG
  fprintf (stderr, "fork() ok\n");
#endif
 
  if (child == 0)
    kid ();
  if (child != -1)
    parent ();
 
  perror ("fork");
  return 1;
}