Subversion Repositories or1k

/* xdr_rdb.c  - xdr routines for Remote Debug interface to VxWorks  */

/* Copyright 1992, 1993 Free Software Foundation, Inc.

   This code was donated by Wind River Systems, Inc. */

/*

modification history

--------------------

01a,21mar90,llk  created using modification 01d of xdr_dbx.c.

*/

/*

DESCRIPTION

This module contains the eXternal Data Representation (XDR) routines

for the RDB interface for VxWorks.

*/

#include "defs.h"

#include "vxWorks.h"

#include <rpc/rpc.h>

#include "xdr_rdb.h"

/* forward declarations */

bool_t

xdr_arg_type(xdrs, objp)

        XDR *xdrs;

        arg_type *objp;

{

        if (!xdr_enum(xdrs, (enum_t *)objp)) {

                return (FALSE);

        }

        return (TRUE);

}

bool_t

xdr_arg_value(xdrs, objp)

        XDR *xdrs;

        arg_value *objp;

{

        if (!xdr_arg_type(xdrs, &objp->type)) {

                return (FALSE);

        }

        switch (objp->type) {

        case T_BYTE:

                if (!xdr_char(xdrs, &objp->arg_value_u.v_byte)) {

                        return (FALSE);

                }

                break;

        case T_WORD:

                if (!xdr_short(xdrs, &objp->arg_value_u.v_word)) {

                        return (FALSE);

                }

                break;

        case T_INT:

                if (!xdr_int(xdrs, &objp->arg_value_u.v_int)) {

                        return (FALSE);

                }

                break;

        case T_FLOAT:

                if (!xdr_float(xdrs, &objp->arg_value_u.v_fp)) {

                        return (FALSE);

                }

                break;

        case T_DOUBLE:

                if (!xdr_double(xdrs, &objp->arg_value_u.v_dp)) {

                        return (FALSE);

                }

                break;

        case T_UNKNOWN:

                break;

        }

        return (TRUE);

}

bool_t

xdr_func_call(xdrs, objp)

        XDR *xdrs;

        func_call *objp;

{

        if (!xdr_int(xdrs, &objp->func_addr)) {

                return (FALSE);

        }

        if (!xdr_array(xdrs, (char **)&objp->args.args_val, (u_int *)&objp->args.args_len, MAX_FUNC_ARGS, sizeof(arg_value), xdr_arg_value)) {

                return (FALSE);

        }

        return (TRUE);

}

bool_t

xdr_arg_one(xdrs, objp)

        XDR *xdrs;

        arg_one *objp;

{

        if (!xdr_string(xdrs, objp, MAX_ARG_LEN)) {

                return (FALSE);

        }

        return (TRUE);

}

bool_t

xdr_arg_array(xdrs, objp)

        XDR *xdrs;

        arg_array *objp;

{

        if (!xdr_array(xdrs, (char **)&objp->arg_array_val, (u_int *)&objp->arg_array_len, MAX_ARG_CNT, sizeof(arg_one), xdr_arg_one)) {

                return (FALSE);

        }

        return (TRUE);

}

/*********************************************************************

*

* xdr_EVENT_TYPE -

*

*/

bool_t xdr_EVENT_TYPE(xdrs, objp)

    XDR *xdrs;

    EVENT_TYPE *objp;

    {

    if (!xdr_enum (xdrs, (enum_t *) objp))

        return (FALSE);

    return (TRUE);

    }

/*********************************************************************

*

* xdr_RDB_EVENT -

*

*/

bool_t xdr_RDB_EVENT (xdrs, objp)

    XDR *xdrs;

    RDB_EVENT *objp;

    {

    if (!xdr_int (xdrs, &objp->status))

        return (FALSE);

    if (!xdr_int (xdrs, &objp->taskId))

        return (FALSE);

    if (!xdr_EVENT_TYPE (xdrs, &objp->eventType))

        return (FALSE);

    if (!xdr_int (xdrs, &objp->sigType))

        return (FALSE);

    return (TRUE);

    }

/*********************************************************************

*

* xdr_TASK_START -

*

*/

bool_t

xdr_TASK_START (xdrs, objp)

    XDR *xdrs;

    TASK_START *objp;

    {

    if (!xdr_int (xdrs, &objp->status))

        return (FALSE);

    if (!xdr_int (xdrs, &objp->pid))

        return (FALSE);

    return (TRUE);

    }

/*********************************************************************

*

* xdr_SYMBOL_ADDR -

*

*/

bool_t

xdr_SYMBOL_ADDR (xdrs, objp)

    XDR *xdrs;

    SYMBOL_ADDR *objp;

    {

    if (!xdr_int (xdrs, &objp->status))

        return (FALSE);

    if (!xdr_u_int (xdrs, &objp->addr))

        return (FALSE);

    return (TRUE);

    }

/*********************************************************************

*

* xdr_SOURCE_STEP -

*

*/

bool_t

xdr_SOURCE_STEP (xdrs, objp)

    XDR *xdrs;

    SOURCE_STEP *objp;

    {

    if (!xdr_int (xdrs, &objp->taskId))

        return (FALSE);

    if (!xdr_u_int (xdrs, &objp->startAddr))

        return (FALSE);

    if (!xdr_u_int (xdrs, &objp->endAddr))

        return (FALSE);

    return (TRUE);

    }