1 /* 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     }
213