xdr_mem.c 6.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233
  1. /*
  2. * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
  3. * unrestricted use provided that this legend is included on all tape
  4. * media and as a part of the software program in whole or part. Users
  5. * may copy or modify Sun RPC without charge, but are not authorized
  6. * to license or distribute it to anyone else except as part of a product or
  7. * program developed by the user.
  8. *
  9. * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  10. * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  11. * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  12. *
  13. * Sun RPC is provided with no support and without any obligation on the
  14. * part of Sun Microsystems, Inc. to assist in its use, correction,
  15. * modification or enhancement.
  16. *
  17. * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  18. * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  19. * OR ANY PART THEREOF.
  20. *
  21. * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  22. * or profits or other special, indirect and consequential damages, even if
  23. * Sun has been advised of the possibility of such damages.
  24. *
  25. * Sun Microsystems, Inc.
  26. * 2550 Garcia Avenue
  27. * Mountain View, California 94043
  28. */
  29. /*
  30. * xdr_mem.h, XDR implementation using memory buffers.
  31. *
  32. * Copyright (C) 1984, Sun Microsystems, Inc.
  33. *
  34. * If you have some data to be interpreted as external data representation
  35. * or to be converted to external data representation in a memory buffer,
  36. * then this is the package for you.
  37. *
  38. */
  39. #define __FORCE_GLIBC
  40. #define _GNU_SOURCE
  41. #include <features.h>
  42. #include <string.h>
  43. #include <rpc/rpc.h>
  44. static bool_t xdrmem_getlong (XDR *, long *);
  45. static bool_t xdrmem_putlong (XDR *, const long *);
  46. static bool_t xdrmem_getbytes (XDR *, caddr_t, u_int);
  47. static bool_t xdrmem_putbytes (XDR *, const char *, u_int);
  48. static u_int xdrmem_getpos (const XDR *);
  49. static bool_t xdrmem_setpos (XDR *, u_int);
  50. static int32_t *xdrmem_inline (XDR *, int);
  51. static void xdrmem_destroy (XDR *);
  52. static bool_t xdrmem_getint32 (XDR *, int32_t *);
  53. static bool_t xdrmem_putint32 (XDR *, const int32_t *);
  54. static const struct xdr_ops xdrmem_ops =
  55. {
  56. xdrmem_getlong,
  57. xdrmem_putlong,
  58. xdrmem_getbytes,
  59. xdrmem_putbytes,
  60. xdrmem_getpos,
  61. xdrmem_setpos,
  62. xdrmem_inline,
  63. xdrmem_destroy,
  64. xdrmem_getint32,
  65. xdrmem_putint32
  66. };
  67. /*
  68. * The procedure xdrmem_create initializes a stream descriptor for a
  69. * memory buffer.
  70. */
  71. void attribute_hidden
  72. __xdrmem_create (XDR *xdrs, const caddr_t addr, u_int size, enum xdr_op op)
  73. {
  74. xdrs->x_op = op;
  75. /* We have to add the const since the `struct xdr_ops' in `struct XDR'
  76. is not `const'. */
  77. xdrs->x_ops = (struct xdr_ops *) &xdrmem_ops;
  78. xdrs->x_private = xdrs->x_base = addr;
  79. xdrs->x_handy = size;
  80. }
  81. strong_alias(__xdrmem_create,xdrmem_create)
  82. /*
  83. * Nothing needs to be done for the memory case. The argument is clearly
  84. * const.
  85. */
  86. static void
  87. xdrmem_destroy (XDR *xdrs)
  88. {
  89. }
  90. /*
  91. * Gets the next word from the memory referenced by xdrs and places it
  92. * in the long pointed to by lp. It then increments the private word to
  93. * point at the next element. Neither object pointed to is const
  94. */
  95. static bool_t
  96. xdrmem_getlong (XDR *xdrs, long *lp)
  97. {
  98. if ((xdrs->x_handy -= 4) < 0)
  99. return FALSE;
  100. *lp = (int32_t) ntohl ((*((int32_t *) (xdrs->x_private))));
  101. xdrs->x_private += 4;
  102. return TRUE;
  103. }
  104. /*
  105. * Puts the long pointed to by lp in the memory referenced by xdrs. It
  106. * then increments the private word to point at the next element. The
  107. * long pointed at is const
  108. */
  109. static bool_t
  110. xdrmem_putlong (XDR *xdrs, const long *lp)
  111. {
  112. if ((xdrs->x_handy -= 4) < 0)
  113. return FALSE;
  114. *(int32_t *) xdrs->x_private = htonl (*lp);
  115. xdrs->x_private += 4;
  116. return TRUE;
  117. }
  118. /*
  119. * Gets an unaligned number of bytes from the xdrs structure and writes them
  120. * to the address passed in addr. Be very careful when calling this routine
  121. * as it could leave the xdrs pointing to an unaligned structure which is not
  122. * a good idea. None of the things pointed to are const.
  123. */
  124. static bool_t
  125. xdrmem_getbytes (XDR *xdrs, caddr_t addr, u_int len)
  126. {
  127. if ((xdrs->x_handy -= len) < 0)
  128. return FALSE;
  129. __memcpy (addr, xdrs->x_private, len);
  130. xdrs->x_private += len;
  131. return TRUE;
  132. }
  133. /*
  134. * The complementary function to the above. The same warnings apply about
  135. * unaligned data. The source address is const.
  136. */
  137. static bool_t
  138. xdrmem_putbytes (XDR *xdrs, const char *addr, u_int len)
  139. {
  140. if ((xdrs->x_handy -= len) < 0)
  141. return FALSE;
  142. __memcpy (xdrs->x_private, addr, len);
  143. xdrs->x_private += len;
  144. return TRUE;
  145. }
  146. /*
  147. * Not sure what this one does. But it clearly doesn't modify the contents
  148. * of xdrs. **FIXME** does this not assume u_int == u_long?
  149. */
  150. static u_int
  151. xdrmem_getpos (const XDR *xdrs)
  152. {
  153. return (u_long) xdrs->x_private - (u_long) xdrs->x_base;
  154. }
  155. /*
  156. * xdrs modified
  157. */
  158. static bool_t
  159. xdrmem_setpos (xdrs, pos)
  160. XDR *xdrs;
  161. u_int pos;
  162. {
  163. caddr_t newaddr = xdrs->x_base + pos;
  164. caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
  165. if ((long) newaddr > (long) lastaddr)
  166. return FALSE;
  167. xdrs->x_private = newaddr;
  168. xdrs->x_handy = (long) lastaddr - (long) newaddr;
  169. return TRUE;
  170. }
  171. /*
  172. * xdrs modified
  173. */
  174. static int32_t *
  175. xdrmem_inline (XDR *xdrs, int len)
  176. {
  177. int32_t *buf = 0;
  178. if (xdrs->x_handy >= len)
  179. {
  180. xdrs->x_handy -= len;
  181. buf = (int32_t *) xdrs->x_private;
  182. xdrs->x_private += len;
  183. }
  184. return buf;
  185. }
  186. /*
  187. * Gets the next word from the memory referenced by xdrs and places it
  188. * in the int pointed to by ip. It then increments the private word to
  189. * point at the next element. Neither object pointed to is const
  190. */
  191. static bool_t
  192. xdrmem_getint32 (XDR *xdrs, int32_t *ip)
  193. {
  194. if ((xdrs->x_handy -= 4) < 0)
  195. return FALSE;
  196. *ip = ntohl ((*((int32_t *) (xdrs->x_private))));
  197. xdrs->x_private += 4;
  198. return TRUE;
  199. }
  200. /*
  201. * Puts the long pointed to by lp in the memory referenced by xdrs. It
  202. * then increments the private word to point at the next element. The
  203. * long pointed at is const
  204. */
  205. static bool_t
  206. xdrmem_putint32 (XDR *xdrs, const int32_t *ip)
  207. {
  208. if ((xdrs->x_handy -= 4) < 0)
  209. return FALSE;
  210. *(int32_t *) xdrs->x_private = htonl (*ip);
  211. xdrs->x_private += 4;
  212. return TRUE;
  213. }