xdr_array.c 4.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150
  1. /* @(#)xdr_array.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_array.c, Generic XDR routines impelmentation.
  34. *
  35. * Copyright (C) 1984, Sun Microsystems, Inc.
  36. *
  37. * These are the "non-trivial" xdr primitives used to serialize and de-serialize
  38. * arrays. See xdr.h for more info on the interface to xdr.
  39. */
  40. #include <stdio.h>
  41. #include <string.h>
  42. #include <rpc/types.h>
  43. #include <rpc/xdr.h>
  44. #define LASTUNSIGNED ((u_int)0-1)
  45. /*
  46. * XDR an array of arbitrary elements
  47. * *addrp is a pointer to the array, *sizep is the number of elements.
  48. * If addrp is NULL (*sizep * elsize) bytes are allocated.
  49. * elsize is the size (in bytes) of each element, and elproc is the
  50. * xdr procedure to call to handle each element of the array.
  51. */
  52. bool_t xdr_array(xdrs, addrp, sizep, maxsize, elsize, elproc)
  53. register XDR *xdrs;
  54. caddr_t *addrp; /* array pointer */
  55. u_int *sizep; /* number of elements */
  56. u_int maxsize; /* max numberof elements */
  57. u_int elsize; /* size in bytes of each element */
  58. xdrproc_t elproc; /* xdr routine to handle each element */
  59. {
  60. register u_int i;
  61. register caddr_t target = *addrp;
  62. register u_int c; /* the actual element count */
  63. register bool_t stat = TRUE;
  64. register u_int nodesize;
  65. /* like strings, arrays are really counted arrays */
  66. if (!xdr_u_int(xdrs, sizep)) {
  67. return (FALSE);
  68. }
  69. c = *sizep;
  70. if ((c > maxsize) && (xdrs->x_op != XDR_FREE)) {
  71. return (FALSE);
  72. }
  73. nodesize = c * elsize;
  74. /*
  75. * if we are deserializing, we may need to allocate an array.
  76. * We also save time by checking for a null array if we are freeing.
  77. */
  78. if (target == NULL)
  79. switch (xdrs->x_op) {
  80. case XDR_DECODE:
  81. if (c == 0)
  82. return (TRUE);
  83. *addrp = target = mem_alloc(nodesize);
  84. if (target == NULL) {
  85. (void) fprintf(stderr, "xdr_array: out of memory\n");
  86. return (FALSE);
  87. }
  88. bzero(target, nodesize);
  89. break;
  90. case XDR_FREE:
  91. return (TRUE);
  92. default: /* silence the warnings */
  93. }
  94. /*
  95. * now we xdr each element of array
  96. */
  97. for (i = 0; (i < c) && stat; i++) {
  98. stat = (*elproc) (xdrs, target, LASTUNSIGNED);
  99. target += elsize;
  100. }
  101. /*
  102. * the array may need freeing
  103. */
  104. if (xdrs->x_op == XDR_FREE) {
  105. mem_free(*addrp, nodesize);
  106. *addrp = NULL;
  107. }
  108. return (stat);
  109. }
  110. /*
  111. * xdr_vector():
  112. *
  113. * XDR a fixed length array. Unlike variable-length arrays,
  114. * the storage of fixed length arrays is static and unfreeable.
  115. * > basep: base of the array
  116. * > size: size of the array
  117. * > elemsize: size of each element
  118. * > xdr_elem: routine to XDR each element
  119. */
  120. bool_t xdr_vector(xdrs, basep, nelem, elemsize, xdr_elem)
  121. register XDR *xdrs;
  122. register char *basep;
  123. register u_int nelem;
  124. register u_int elemsize;
  125. register xdrproc_t xdr_elem;
  126. {
  127. register u_int i;
  128. register char *elptr;
  129. elptr = basep;
  130. for (i = 0; i < nelem; i++) {
  131. if (!(*xdr_elem) (xdrs, elptr, LASTUNSIGNED)) {
  132. return (FALSE);
  133. }
  134. elptr += elemsize;
  135. }
  136. return (TRUE);
  137. }