xdr_stdio.c 5.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200
  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_stdio.c, XDR implementation on standard i/o file.
  31. *
  32. * Copyright (C) 1984, Sun Microsystems, Inc.
  33. *
  34. * This set of routines implements a XDR on a stdio stream.
  35. * XDR_ENCODE serializes onto the stream, XDR_DECODE de-serializes
  36. * from the stream.
  37. */
  38. #include <rpc/types.h>
  39. #include <stdio.h>
  40. #include <rpc/xdr.h>
  41. #ifdef USE_IN_LIBIO
  42. # include <libio/iolibio.h>
  43. # define fflush(s) _IO_fflush (s)
  44. # define fread(p, m, n, s) _IO_fread (p, m, n, s)
  45. # define ftell(s) _IO_ftell (s)
  46. # define fwrite(p, m, n, s) _IO_fwrite (p, m, n, s)
  47. #endif
  48. /* libc_hidden_proto(fread) */
  49. /* libc_hidden_proto(fwrite) */
  50. /* libc_hidden_proto(fseek) */
  51. /* libc_hidden_proto(fflush) */
  52. /* libc_hidden_proto(ftell) */
  53. static bool_t xdrstdio_getlong (XDR *, long *);
  54. static bool_t xdrstdio_putlong (XDR *, const long *);
  55. static bool_t xdrstdio_getbytes (XDR *, caddr_t, u_int);
  56. static bool_t xdrstdio_putbytes (XDR *, const char *, u_int);
  57. static u_int xdrstdio_getpos (const XDR *);
  58. static bool_t xdrstdio_setpos (XDR *, u_int);
  59. static int32_t *xdrstdio_inline (XDR *, u_int);
  60. static void xdrstdio_destroy (XDR *);
  61. static bool_t xdrstdio_getint32 (XDR *, int32_t *);
  62. static bool_t xdrstdio_putint32 (XDR *, const int32_t *);
  63. /*
  64. * Ops vector for stdio type XDR
  65. */
  66. static const struct xdr_ops xdrstdio_ops =
  67. {
  68. xdrstdio_getlong, /* deserialize a long int */
  69. xdrstdio_putlong, /* serialize a long int */
  70. xdrstdio_getbytes, /* deserialize counted bytes */
  71. xdrstdio_putbytes, /* serialize counted bytes */
  72. xdrstdio_getpos, /* get offset in the stream */
  73. xdrstdio_setpos, /* set offset in the stream */
  74. xdrstdio_inline, /* prime stream for inline macros */
  75. xdrstdio_destroy, /* destroy stream */
  76. xdrstdio_getint32, /* deserialize a int */
  77. xdrstdio_putint32 /* serialize a int */
  78. };
  79. /*
  80. * Initialize a stdio xdr stream.
  81. * Sets the xdr stream handle xdrs for use on the stream file.
  82. * Operation flag is set to op.
  83. */
  84. void
  85. xdrstdio_create (XDR *xdrs, FILE *file, enum xdr_op op)
  86. {
  87. xdrs->x_op = op;
  88. /* We have to add the const since the `struct xdr_ops' in `struct XDR'
  89. is not `const'. */
  90. xdrs->x_ops = (struct xdr_ops *) &xdrstdio_ops;
  91. xdrs->x_private = (caddr_t) file;
  92. xdrs->x_handy = 0;
  93. xdrs->x_base = 0;
  94. }
  95. /*
  96. * Destroy a stdio xdr stream.
  97. * Cleans up the xdr stream handle xdrs previously set up by xdrstdio_create.
  98. */
  99. static void
  100. xdrstdio_destroy (XDR *xdrs)
  101. {
  102. (void) fflush ((FILE *) xdrs->x_private);
  103. /* xx should we close the file ?? */
  104. };
  105. static bool_t
  106. xdrstdio_getlong (XDR *xdrs, long *lp)
  107. {
  108. u_int32_t mycopy;
  109. if (fread ((caddr_t) &mycopy, 4, 1, (FILE *) xdrs->x_private) != 1)
  110. return FALSE;
  111. *lp = (long) ntohl (mycopy);
  112. return TRUE;
  113. }
  114. static bool_t
  115. xdrstdio_putlong (XDR *xdrs, const long *lp)
  116. {
  117. int32_t mycopy = htonl ((u_int32_t) *lp);
  118. if (fwrite ((caddr_t) &mycopy, 4, 1, (FILE *) xdrs->x_private) != 1)
  119. return FALSE;
  120. return TRUE;
  121. }
  122. static bool_t
  123. xdrstdio_getbytes (XDR *xdrs, const caddr_t addr, u_int len)
  124. {
  125. if ((len != 0) && (fread (addr, (int) len, 1,
  126. (FILE *) xdrs->x_private) != 1))
  127. return FALSE;
  128. return TRUE;
  129. }
  130. static bool_t
  131. xdrstdio_putbytes (XDR *xdrs, const char *addr, u_int len)
  132. {
  133. if ((len != 0) && (fwrite (addr, (int) len, 1,
  134. (FILE *) xdrs->x_private) != 1))
  135. return FALSE;
  136. return TRUE;
  137. }
  138. static u_int
  139. xdrstdio_getpos (const XDR *xdrs)
  140. {
  141. return (u_int) ftell ((FILE *) xdrs->x_private);
  142. }
  143. static bool_t
  144. xdrstdio_setpos (XDR *xdrs, u_int pos)
  145. {
  146. return fseek ((FILE *) xdrs->x_private, (long) pos, 0) < 0 ? FALSE : TRUE;
  147. }
  148. static int32_t *
  149. xdrstdio_inline (XDR *xdrs attribute_unused, u_int len attribute_unused)
  150. {
  151. /*
  152. * Must do some work to implement this: must insure
  153. * enough data in the underlying stdio buffer,
  154. * that the buffer is aligned so that we can indirect through a
  155. * long *, and stuff this pointer in xdrs->x_buf. Doing
  156. * a fread or fwrite to a scratch buffer would defeat
  157. * most of the gains to be had here and require storage
  158. * management on this buffer, so we don't do this.
  159. */
  160. return NULL;
  161. }
  162. static bool_t
  163. xdrstdio_getint32 (XDR *xdrs, int32_t *ip)
  164. {
  165. int32_t mycopy;
  166. if (fread ((caddr_t) &mycopy, 4, 1, (FILE *) xdrs->x_private) != 1)
  167. return FALSE;
  168. *ip = ntohl (mycopy);
  169. return TRUE;
  170. }
  171. static bool_t
  172. xdrstdio_putint32 (XDR *xdrs, const int32_t *ip)
  173. {
  174. int32_t mycopy = htonl (*ip);
  175. ip = &mycopy;
  176. if (fwrite ((caddr_t) ip, 4, 1, (FILE *) xdrs->x_private) != 1)
  177. return FALSE;
  178. return TRUE;
  179. }