xdr_mem.c 4.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178
  1. /* @(#)xdr_mem.c 2.1 88/07/29 4.0 RPCSRC */
  2. /*
  3. * Sun RPC is a product of Sun Microsystems, Inc. and is provided for
  4. * unrestricted use provided that this legend is included on all tape
  5. * media and as a part of the software program in whole or part. Users
  6. * may copy or modify Sun RPC without charge, but are not authorized
  7. * to license or distribute it to anyone else except as part of a product or
  8. * program developed by the user.
  9. *
  10. * SUN RPC IS PROVIDED AS IS WITH NO WARRANTIES OF ANY KIND INCLUDING THE
  11. * WARRANTIES OF DESIGN, MERCHANTIBILITY AND FITNESS FOR A PARTICULAR
  12. * PURPOSE, OR ARISING FROM A COURSE OF DEALING, USAGE OR TRADE PRACTICE.
  13. *
  14. * Sun RPC is provided with no support and without any obligation on the
  15. * part of Sun Microsystems, Inc. to assist in its use, correction,
  16. * modification or enhancement.
  17. *
  18. * SUN MICROSYSTEMS, INC. SHALL HAVE NO LIABILITY WITH RESPECT TO THE
  19. * INFRINGEMENT OF COPYRIGHTS, TRADE SECRETS OR ANY PATENTS BY SUN RPC
  20. * OR ANY PART THEREOF.
  21. *
  22. * In no event will Sun Microsystems, Inc. be liable for any lost revenue
  23. * or profits or other special, indirect and consequential damages, even if
  24. * Sun has been advised of the possibility of such damages.
  25. *
  26. * Sun Microsystems, Inc.
  27. * 2550 Garcia Avenue
  28. * Mountain View, California 94043
  29. */
  30. #define __FORCE_GLIBC
  31. #include <features.h>
  32. /*
  33. * xdr_mem.h, XDR implementation using memory buffers.
  34. *
  35. * Copyright (C) 1984, Sun Microsystems, Inc.
  36. *
  37. * If you have some data to be interpreted as external data representation
  38. * or to be converted to external data representation in a memory buffer,
  39. * then this is the package for you.
  40. *
  41. */
  42. #include <string.h>
  43. #include <rpc/types.h>
  44. #include <rpc/xdr.h>
  45. #include <netinet/in.h>
  46. static bool_t xdrmem_getlong();
  47. static bool_t xdrmem_putlong();
  48. static bool_t xdrmem_getbytes();
  49. static bool_t xdrmem_putbytes();
  50. static u_int xdrmem_getpos();
  51. static bool_t xdrmem_setpos();
  52. static int32_t *xdrmem_inline();
  53. static void xdrmem_destroy();
  54. static struct xdr_ops xdrmem_ops = {
  55. xdrmem_getlong,
  56. xdrmem_putlong,
  57. xdrmem_getbytes,
  58. xdrmem_putbytes,
  59. xdrmem_getpos,
  60. xdrmem_setpos,
  61. xdrmem_inline,
  62. xdrmem_destroy
  63. };
  64. /*
  65. * The procedure xdrmem_create initializes a stream descriptor for a
  66. * memory buffer.
  67. */
  68. void xdrmem_create(xdrs, addr, size, op)
  69. register XDR *xdrs;
  70. caddr_t addr;
  71. u_int size;
  72. enum xdr_op op;
  73. {
  74. xdrs->x_op = op;
  75. xdrs->x_ops = &xdrmem_ops;
  76. xdrs->x_private = xdrs->x_base = addr;
  77. xdrs->x_handy = size;
  78. }
  79. static void xdrmem_destroy( /*xdrs */ )
  80. /*XDR *xdrs; */
  81. {
  82. }
  83. static bool_t xdrmem_getlong(xdrs, lp)
  84. register XDR *xdrs;
  85. long *lp;
  86. {
  87. if ((xdrs->x_handy -= sizeof(long)) < 0)
  88. return (FALSE);
  89. *lp = (long) ntohl((u_long) (*((long *) (xdrs->x_private))));
  90. xdrs->x_private += sizeof(long);
  91. return (TRUE);
  92. }
  93. static bool_t xdrmem_putlong(xdrs, lp)
  94. register XDR *xdrs;
  95. long *lp;
  96. {
  97. if ((xdrs->x_handy -= sizeof(long)) < 0)
  98. return (FALSE);
  99. *(long *) xdrs->x_private = (long) htonl((u_long) (*lp));
  100. xdrs->x_private += sizeof(long);
  101. return (TRUE);
  102. }
  103. static bool_t xdrmem_getbytes(xdrs, addr, len)
  104. register XDR *xdrs;
  105. caddr_t addr;
  106. register u_int len;
  107. {
  108. if ((xdrs->x_handy -= len) < 0)
  109. return (FALSE);
  110. bcopy(xdrs->x_private, addr, len);
  111. xdrs->x_private += len;
  112. return (TRUE);
  113. }
  114. static bool_t xdrmem_putbytes(xdrs, addr, len)
  115. register XDR *xdrs;
  116. caddr_t addr;
  117. register u_int len;
  118. {
  119. if ((xdrs->x_handy -= len) < 0)
  120. return (FALSE);
  121. bcopy(addr, xdrs->x_private, len);
  122. xdrs->x_private += len;
  123. return (TRUE);
  124. }
  125. static u_int xdrmem_getpos(xdrs)
  126. register XDR *xdrs;
  127. {
  128. return ((u_int) xdrs->x_private - (u_int) xdrs->x_base);
  129. }
  130. static bool_t xdrmem_setpos(xdrs, pos)
  131. register XDR *xdrs;
  132. u_int pos;
  133. {
  134. register caddr_t newaddr = xdrs->x_base + pos;
  135. register caddr_t lastaddr = xdrs->x_private + xdrs->x_handy;
  136. if ((long) newaddr > (long) lastaddr)
  137. return (FALSE);
  138. xdrs->x_private = newaddr;
  139. xdrs->x_handy = (int) lastaddr - (int) newaddr;
  140. return (TRUE);
  141. }
  142. static int32_t *xdrmem_inline(xdrs, len)
  143. register XDR *xdrs;
  144. int len;
  145. {
  146. int32_t *buf = 0;
  147. if (xdrs->x_handy >= len) {
  148. xdrs->x_handy -= len;
  149. buf = (int32_t *) xdrs->x_private;
  150. xdrs->x_private += len;
  151. }
  152. return (buf);
  153. }