xdr_mem.c 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241
  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. #include <features.h>
  40. #include <string.h>
  41. #include <limits.h>
  42. #include <rpc/rpc.h>
  43. libc_hidden_proto(memcpy)
  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 *, u_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. libc_hidden_proto(xdrmem_create)
  72. void
  73. xdrmem_create (XDR *xdrs, const caddr_t addr, u_int size, enum xdr_op op)
  74. {
  75. xdrs->x_op = op;
  76. /* We have to add the const since the `struct xdr_ops' in `struct XDR'
  77. is not `const'. */
  78. xdrs->x_ops = (struct xdr_ops *) &xdrmem_ops;
  79. xdrs->x_private = xdrs->x_base = addr;
  80. xdrs->x_handy = size;
  81. }
  82. libc_hidden_def(xdrmem_create)
  83. /*
  84. * Nothing needs to be done for the memory case. The argument is clearly
  85. * const.
  86. */
  87. static void
  88. xdrmem_destroy (XDR *xdrs attribute_unused)
  89. {
  90. }
  91. /*
  92. * Gets the next word from the memory referenced by xdrs and places it
  93. * in the long pointed to by lp. It then increments the private word to
  94. * point at the next element. Neither object pointed to is const
  95. */
  96. static bool_t
  97. xdrmem_getlong (XDR *xdrs, long *lp)
  98. {
  99. if (xdrs->x_handy < 4)
  100. return FALSE;
  101. xdrs->x_handy -= 4;
  102. *lp = (int32_t) ntohl ((*((int32_t *) (xdrs->x_private))));
  103. xdrs->x_private += 4;
  104. return TRUE;
  105. }
  106. /*
  107. * Puts the long pointed to by lp in the memory referenced by xdrs. It
  108. * then increments the private word to point at the next element. The
  109. * long pointed at is const
  110. */
  111. static bool_t
  112. xdrmem_putlong (XDR *xdrs, const long *lp)
  113. {
  114. if (xdrs->x_handy < 4)
  115. return FALSE;
  116. xdrs->x_handy -= 4;
  117. *(int32_t *) xdrs->x_private = htonl (*lp);
  118. xdrs->x_private += 4;
  119. return TRUE;
  120. }
  121. /*
  122. * Gets an unaligned number of bytes from the xdrs structure and writes them
  123. * to the address passed in addr. Be very careful when calling this routine
  124. * as it could leave the xdrs pointing to an unaligned structure which is not
  125. * a good idea. None of the things pointed to are const.
  126. */
  127. static bool_t
  128. xdrmem_getbytes (XDR *xdrs, caddr_t addr, u_int len)
  129. {
  130. if (xdrs->x_handy < len)
  131. return FALSE;
  132. xdrs->x_handy -= len;
  133. memcpy (addr, xdrs->x_private, len);
  134. xdrs->x_private += len;
  135. return TRUE;
  136. }
  137. /*
  138. * The complementary function to the above. The same warnings apply about
  139. * unaligned data. The source address is const.
  140. */
  141. static bool_t
  142. xdrmem_putbytes (XDR *xdrs, const char *addr, u_int len)
  143. {
  144. if (xdrs->x_handy < len)
  145. return FALSE;
  146. xdrs->x_handy -= len;
  147. memcpy (xdrs->x_private, addr, len);
  148. xdrs->x_private += len;
  149. return TRUE;
  150. }
  151. /*
  152. * Not sure what this one does. But it clearly doesn't modify the contents
  153. * of xdrs. **FIXME** does this not assume u_int == u_long?
  154. */
  155. static u_int
  156. xdrmem_getpos (const XDR *xdrs)
  157. {
  158. return (u_long) xdrs->x_private - (u_long) xdrs->x_base;
  159. }
  160. /*
  161. * xdrs modified
  162. */
  163. static bool_t
  164. xdrmem_setpos (xdrs, pos)
  165. XDR *xdrs;
  166. u_int pos;
  167. {
  168. caddr_t newaddr = xdrs->x_base + pos;
  169. caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
  170. if ((long) newaddr > (long) lastaddr
  171. || (UINT_MAX < LONG_MAX
  172. && (long) UINT_MAX < (long) lastaddr - (long) newaddr))
  173. return FALSE;
  174. xdrs->x_private = newaddr;
  175. xdrs->x_handy = (long) lastaddr - (long) newaddr;
  176. return TRUE;
  177. }
  178. /*
  179. * xdrs modified
  180. */
  181. static int32_t *
  182. xdrmem_inline (XDR *xdrs, u_int len)
  183. {
  184. int32_t *buf = 0;
  185. if (xdrs->x_handy >= len)
  186. {
  187. xdrs->x_handy -= len;
  188. buf = (int32_t *) xdrs->x_private;
  189. xdrs->x_private += len;
  190. }
  191. return buf;
  192. }
  193. /*
  194. * Gets the next word from the memory referenced by xdrs and places it
  195. * in the int pointed to by ip. It then increments the private word to
  196. * point at the next element. Neither object pointed to is const
  197. */
  198. static bool_t
  199. xdrmem_getint32 (XDR *xdrs, int32_t *ip)
  200. {
  201. if (xdrs->x_handy < 4)
  202. return FALSE;
  203. xdrs->x_handy -= 4;
  204. *ip = ntohl ((*((int32_t *) (xdrs->x_private))));
  205. xdrs->x_private += 4;
  206. return TRUE;
  207. }
  208. /*
  209. * Puts the long pointed to by lp in the memory referenced by xdrs. It
  210. * then increments the private word to point at the next element. The
  211. * long pointed at is const
  212. */
  213. static bool_t
  214. xdrmem_putint32 (XDR *xdrs, const int32_t *ip)
  215. {
  216. if (xdrs->x_handy < 4)
  217. return FALSE;
  218. xdrs->x_handy -= 4;
  219. *(int32_t *) xdrs->x_private = htonl (*ip);
  220. xdrs->x_private += 4;
  221. return TRUE;
  222. }