URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [vx-share/] [xdr_rdb.c] - Blame information for rev 1767

Go to most recent revision | Details | Compare with Previous | View Log


/* 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);
    }

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [insight/] [gdb/] [vx-share/] [xdr_rdb.c] - Blame information for rev 1767

Line No.	Rev	Author	Line
1	578	markom	`/* xdr_rdb.c - xdr routines for Remote Debug interface to VxWorks */`
2
3			`/* Copyright 1992, 1993 Free Software Foundation, Inc.`
4
5			`This code was donated by Wind River Systems, Inc. */`
6
7			`/*`
8			`modification history`
9			`--------------------`
10			`01a,21mar90,llk created using modification 01d of xdr_dbx.c.`
11			`*/`
12
13			`/*`
14			`DESCRIPTION`
15			`This module contains the eXternal Data Representation (XDR) routines`
16			`for the RDB interface for VxWorks.`
17			`*/`
18
19			`#include "defs.h"`
20			`#include "vxWorks.h"`
21			`#include <rpc/rpc.h>`
22			`#include "xdr_rdb.h"`
23
24			`/* forward declarations */`
25
26			`bool_t`
27			`xdr_arg_type(xdrs, objp)`
28			`XDR *xdrs;`
29			`arg_type *objp;`
30			`{`
31			`if (!xdr_enum(xdrs, (enum_t *)objp)) {`
32			`return (FALSE);`
33			`}`
34			`return (TRUE);`
35			`}`
36
37			`bool_t`
38			`xdr_arg_value(xdrs, objp)`
39			`XDR *xdrs;`
40			`arg_value *objp;`
41			`{`
42			`if (!xdr_arg_type(xdrs, &objp->type)) {`
43			`return (FALSE);`
44			`}`
45			`switch (objp->type) {`
46			`case T_BYTE:`
47			`if (!xdr_char(xdrs, &objp->arg_value_u.v_byte)) {`
48			`return (FALSE);`
49			`}`
50			`break;`
51			`case T_WORD:`
52			`if (!xdr_short(xdrs, &objp->arg_value_u.v_word)) {`
53			`return (FALSE);`
54			`}`
55			`break;`
56			`case T_INT:`
57			`if (!xdr_int(xdrs, &objp->arg_value_u.v_int)) {`
58			`return (FALSE);`
59			`}`
60			`break;`
61			`case T_FLOAT:`
62			`if (!xdr_float(xdrs, &objp->arg_value_u.v_fp)) {`
63			`return (FALSE);`
64			`}`
65			`break;`
66			`case T_DOUBLE:`
67			`if (!xdr_double(xdrs, &objp->arg_value_u.v_dp)) {`
68			`return (FALSE);`
69			`}`
70			`break;`
71			`case T_UNKNOWN:`
72			`break;`
73			`}`
74			`return (TRUE);`
75			`}`
76
77			`bool_t`
78			`xdr_func_call(xdrs, objp)`
79			`XDR *xdrs;`
80			`func_call *objp;`
81			`{`
82			`if (!xdr_int(xdrs, &objp->func_addr)) {`
83			`return (FALSE);`
84			`}`
85			`if (!xdr_array(xdrs, (char *)&objp->args.args_val, (u_int )&objp->args.args_len, MAX_FUNC_ARGS, sizeof(arg_value), xdr_arg_value)) {`
86			`return (FALSE);`
87			`}`
88			`return (TRUE);`
89			`}`
90
91			`bool_t`
92			`xdr_arg_one(xdrs, objp)`
93			`XDR *xdrs;`
94			`arg_one *objp;`
95			`{`
96			`if (!xdr_string(xdrs, objp, MAX_ARG_LEN)) {`
97			`return (FALSE);`
98			`}`
99			`return (TRUE);`
100			`}`
101
102
103
104
105			`bool_t`
106			`xdr_arg_array(xdrs, objp)`
107			`XDR *xdrs;`
108			`arg_array *objp;`
109			`{`
110			`if (!xdr_array(xdrs, (char *)&objp->arg_array_val, (u_int )&objp->arg_array_len, MAX_ARG_CNT, sizeof(arg_one), xdr_arg_one)) {`
111			`return (FALSE);`
112			`}`
113			`return (TRUE);`
114			`}`
115
116			`/*********************************************************************`
117			`*`
118			`* xdr_EVENT_TYPE -`
119			`*`
120			`*/`
121
122			`bool_t xdr_EVENT_TYPE(xdrs, objp)`
123			`XDR *xdrs;`
124			`EVENT_TYPE *objp;`
125
126			`{`
127			`if (!xdr_enum (xdrs, (enum_t *) objp))`
128			`return (FALSE);`
129			`return (TRUE);`
130			`}`
131
132			`/*********************************************************************`
133			`*`
134			`* xdr_RDB_EVENT -`
135			`*`
136			`*/`
137
138			`bool_t xdr_RDB_EVENT (xdrs, objp)`
139			`XDR *xdrs;`
140			`RDB_EVENT *objp;`
141
142			`{`
143			`if (!xdr_int (xdrs, &objp->status))`
144			`return (FALSE);`
145			`if (!xdr_int (xdrs, &objp->taskId))`
146			`return (FALSE);`
147			`if (!xdr_EVENT_TYPE (xdrs, &objp->eventType))`
148			`return (FALSE);`
149			`if (!xdr_int (xdrs, &objp->sigType))`
150			`return (FALSE);`
151			`return (TRUE);`
152			`}`
153
154			`/*********************************************************************`
155			`*`
156			`* xdr_TASK_START -`
157			`*`
158			`*/`
159
160			`bool_t`
161			`xdr_TASK_START (xdrs, objp)`
162			`XDR *xdrs;`
163			`TASK_START *objp;`
164
165			`{`
166			`if (!xdr_int (xdrs, &objp->status))`
167			`return (FALSE);`
168			`if (!xdr_int (xdrs, &objp->pid))`
169			`return (FALSE);`
170			`return (TRUE);`
171			`}`
172
173
174			`/*********************************************************************`
175			`*`
176			`* xdr_SYMBOL_ADDR -`
177			`*`
178			`*/`
179
180			`bool_t`
181			`xdr_SYMBOL_ADDR (xdrs, objp)`
182			`XDR *xdrs;`
183			`SYMBOL_ADDR *objp;`
184
185			`{`
186			`if (!xdr_int (xdrs, &objp->status))`
187			`return (FALSE);`
188			`if (!xdr_u_int (xdrs, &objp->addr))`
189			`return (FALSE);`
190			`return (TRUE);`
191			`}`
192
193			`/*********************************************************************`
194			`*`
195			`* xdr_SOURCE_STEP -`
196			`*`
197			`*/`
198
199			`bool_t`
200			`xdr_SOURCE_STEP (xdrs, objp)`
201			`XDR *xdrs;`
202			`SOURCE_STEP *objp;`
203
204			`{`
205			`if (!xdr_int (xdrs, &objp->taskId))`
206			`return (FALSE);`
207			`if (!xdr_u_int (xdrs, &objp->startAddr))`
208			`return (FALSE);`
209			`if (!xdr_u_int (xdrs, &objp->endAddr))`
210			`return (FALSE);`
211			`return (TRUE);`
212			`}`