Subversion Repositories openrisc_2011-10-31

#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;

}