source: rtems/c/src/librdbg/src/i386/any/remdeb_svc.c @ 40cf43ea

#include <rpc/types.h>
#include <rpc/rpc.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <bsp.h>
#include <rdbg/servrpc.h>
#include <rdbg/remdeb.h>
#define fprintf(a,b) printf(b)
/*HEADER_START*/
#define RTEMS_PORT 2071
#define RTEMS_BACK_PORT 2073
/*
 * Sun request values for the remote ptrace system call
 */

  /*
   * Memory data for read/write text or data. The size is in data. The target
   * addr is in the addr field.
   * Be careful before modifying because this value goes into internal
   * pipes and is allocated on stack too. Pipes and/or the stack could
   * become too small if this value gets incremented.
   */
#ifndef XRY_MAX_CMD_STR
#endif /* REMDEB_H */
  /*
   * now open_connex() routine which establishes a connection to server 
   */
#define DEBUGGER_IS_GDB 0x2     /* */
  /*
   * now close_connex() routine which detaches from server 
   */
  /*
   * now send_signal() routine which sends signals to processes like kill(2) 
   */
  /*
   * now wait_info() routine which returns results of polling the wait status
   * of a process/actor. It may return 0 if running, else pid or -1 
   */
  /*
   * now ptrace() routine. This matches the Sun UNIX ptrace as well as
   * some additions 
   */
  /*
   * now define the actual calls we support 
   */
const char *names[] = {
  "NULLPROC", "OPEN_CONNEX", "SEND_SIGNAL", "name3",
  "name4", "name5", "name6", "name7",
  "name8", "name9", "CLOSE_CONNEX", "PTRACE",
  "name12", "WAIT_INFO", "name14", "name15",
  "name16", "GET_SIGNAL_NAMES", "name18"
};

void
remotedeb_2 (struct svc_req *rqstp, register SVCXPRT * transp)
{
  union {
    open_in open_connex_2_arg;
    signal_in send_signal_2_arg;
    close_in close_connex_2_arg;
    ptrace_in ptrace_2_arg;
    wait_in wait_info_2_arg;
  } argument;
  char *result;
  xdrproc_t _xdr_argument, _xdr_result;
  char *(*local) (char *, struct svc_req *);

  DPRINTF (("remotedeb_2: %s (%d)\n",
            (unsigned) rqstp->rq_proc <
            (unsigned) (sizeof names / sizeof names[0]) ?
            names[rqstp->rq_proc] : "???", (int) rqstp->rq_proc));

  switch (rqstp->rq_proc) {
  case NULLPROC:
    (void) svc_sendreply (transp, (xdrproc_t) xdr_void, (char *) NULL);
    return;

  case OPEN_CONNEX:
    _xdr_argument = (xdrproc_t) xdr_open_in;
    _xdr_result = (xdrproc_t) xdr_open_out;
    local = (char *(*)(char *, struct svc_req *)) open_connex_2_svc;
    break;

  case SEND_SIGNAL:
    _xdr_argument = (xdrproc_t) xdr_signal_in;
    _xdr_result = (xdrproc_t) xdr_signal_out;
    local = (char *(*)(char *, struct svc_req *)) send_signal_2_svc;
    break;

  case CLOSE_CONNEX:
    _xdr_argument = (xdrproc_t) xdr_close_in;
    _xdr_result = (xdrproc_t) xdr_void;
    local = (char *(*)(char *, struct svc_req *)) close_connex_2_svc;
    break;

  case PTRACE:
    _xdr_argument = (xdrproc_t) xdr_ptrace_in;
    _xdr_result = (xdrproc_t) xdr_ptrace_out;
    local = (char *(*)(char *, struct svc_req *)) ptrace_2_svc;
    break;

  case WAIT_INFO:
    _xdr_argument = (xdrproc_t) xdr_wait_in;
    _xdr_result = (xdrproc_t) xdr_wait_out;
    local = (char *(*)(char *, struct svc_req *)) wait_info_2_svc;
    break;

  case GET_SIGNAL_NAMES:
    _xdr_argument = (xdrproc_t) xdr_void;
    _xdr_result = (xdrproc_t) xdr_get_signal_names_out;
    local = (char *(*)(char *, struct svc_req *)) get_signal_names_2_svc;
    break;

  default:
    svcerr_noproc (transp);
    return;
  }
  memset ((char *) &argument, 0, sizeof (argument));
  if (!svc_getargs (transp, _xdr_argument, (caddr_t) & argument)) {
    svcerr_decode (transp);
    return;
  }
  result = (*local) ((char *) &argument, rqstp);
  if (result != NULL && !svc_sendreply (transp, _xdr_result, result)) {
    svcerr_systemerr (transp);
  }
  if (!svc_freeargs (transp, _xdr_argument, (caddr_t) & argument)) {
    fprintf (stderr, "unable to free arguments");
    exit (1);
  }
  return;
}