Add femode_t functions: ia64.
[glibc.git] / nis / nis_table.c
blob1d607a49c4e9136d9ed9d12a5bed84ae513cb968
1 /* Copyright (c) 1997-2016 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Thorsten Kukuk <kukuk@suse.de>, 1997.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, see
17 <http://www.gnu.org/licenses/>. */
19 #include <assert.h>
20 #include <string.h>
21 #include <rpcsvc/nis.h>
22 #include <libc-internal.h>
24 #include "nis_xdr.h"
25 #include "nis_intern.h"
26 #include "libnsl.h"
29 struct ib_request *
30 __create_ib_request (const_nis_name name, unsigned int flags)
32 struct ib_request *ibreq = calloc (1, sizeof (struct ib_request));
33 nis_attr *search_val = NULL;
34 size_t search_len = 0;
35 size_t size = 0;
37 if (ibreq == NULL)
38 return NULL;
40 ibreq->ibr_flags = flags;
42 char *cptr = strdupa (name);
44 /* Not of "[key=value,key=value,...],foo.." format? */
45 if (cptr[0] != '[')
47 ibreq->ibr_name = strdup (cptr);
48 if (ibreq->ibr_name == NULL)
50 free (ibreq);
51 return NULL;
53 return ibreq;
56 /* "[key=value,...],foo" format */
57 ibreq->ibr_name = strchr (cptr, ']');
58 if (ibreq->ibr_name == NULL || ibreq->ibr_name[1] != ',')
60 /* The object has not really been built yet so we use free. */
61 free (ibreq);
62 return NULL;
65 /* Check if we have an entry of "[key=value,],bar". If, remove the "," */
66 if (ibreq->ibr_name[-1] == ',')
67 ibreq->ibr_name[-1] = '\0';
68 else
69 ibreq->ibr_name[0] = '\0';
70 ibreq->ibr_name += 2;
71 ibreq->ibr_name = strdup (ibreq->ibr_name);
72 if (ibreq->ibr_name == NULL)
74 free_null:
75 while (search_len-- > 0)
77 free (search_val[search_len].zattr_ndx);
78 free (search_val[search_len].zattr_val.zattr_val_val);
80 free (search_val);
81 nis_free_request (ibreq);
82 return NULL;
85 ++cptr; /* Remove "[" */
87 while (cptr != NULL && cptr[0] != '\0')
89 char *key = cptr;
90 char *val = strchr (cptr, '=');
92 cptr = strchr (key, ',');
93 if (cptr != NULL)
94 *cptr++ = '\0';
96 if (__glibc_unlikely (val == NULL))
98 nis_free_request (ibreq);
99 return NULL;
101 *val++ = '\0';
102 if (search_len + 1 >= size)
104 size += 1;
105 nis_attr *newp = realloc (search_val, size * sizeof (nis_attr));
106 if (newp == NULL)
107 goto free_null;
108 search_val = newp;
110 search_val[search_len].zattr_ndx = strdup (key);
111 if (search_val[search_len].zattr_ndx == NULL)
112 goto free_null;
114 search_val[search_len].zattr_val.zattr_val_len = strlen (val) + 1;
115 search_val[search_len].zattr_val.zattr_val_val = strdup (val);
116 if (search_val[search_len].zattr_val.zattr_val_val == NULL)
118 free (search_val[search_len].zattr_ndx);
119 goto free_null;
122 ++search_len;
125 ibreq->ibr_srch.ibr_srch_val = search_val;
126 ibreq->ibr_srch.ibr_srch_len = search_len;
128 return ibreq;
130 libnsl_hidden_def (__create_ib_request)
132 static const struct timeval RPCTIMEOUT = {10, 0};
134 static char *
135 get_tablepath (char *name, dir_binding *bptr)
137 enum clnt_stat result;
138 nis_result res;
139 struct ns_request req;
141 memset (&res, '\0', sizeof (res));
143 req.ns_name = name;
144 req.ns_object.ns_object_len = 0;
145 req.ns_object.ns_object_val = NULL;
147 result = clnt_call (bptr->clnt, NIS_LOOKUP, (xdrproc_t) _xdr_ns_request,
148 (caddr_t) &req, (xdrproc_t) _xdr_nis_result,
149 (caddr_t) &res, RPCTIMEOUT);
151 const char *cptr;
152 if (result == RPC_SUCCESS && NIS_RES_STATUS (&res) == NIS_SUCCESS
153 && __type_of (NIS_RES_OBJECT (&res)) == NIS_TABLE_OBJ)
154 cptr = NIS_RES_OBJECT (&res)->TA_data.ta_path;
155 else
156 cptr = "";
158 char *str = strdup (cptr);
160 if (result == RPC_SUCCESS)
161 xdr_free ((xdrproc_t) _xdr_nis_result, (char *) &res);
163 return str;
167 nis_error
168 __follow_path (char **tablepath, char **tableptr, struct ib_request *ibreq,
169 dir_binding *bptr)
171 if (*tablepath == NULL)
173 *tablepath = get_tablepath (ibreq->ibr_name, bptr);
174 if (*tablepath == NULL)
175 return NIS_NOMEMORY;
177 *tableptr = *tablepath;
180 /* Since tableptr is only set here, and it's set when tablepath is NULL,
181 which it is initially defined as, we know it will always be set here. */
182 DIAG_PUSH_NEEDS_COMMENT;
183 DIAG_IGNORE_NEEDS_COMMENT (4.7, "-Wmaybe-uninitialized");
185 if (*tableptr == NULL)
186 return NIS_NOTFOUND;
188 char *newname = strsep (tableptr, ":");
189 if (newname[0] == '\0')
190 return NIS_NOTFOUND;
192 DIAG_POP_NEEDS_COMMENT;
194 newname = strdup (newname);
195 if (newname == NULL)
196 return NIS_NOMEMORY;
198 free (ibreq->ibr_name);
199 ibreq->ibr_name = newname;
201 return NIS_SUCCESS;
203 libnsl_hidden_def (__follow_path)
206 nis_result *
207 nis_list (const_nis_name name, unsigned int flags,
208 int (*callback) (const_nis_name name,
209 const nis_object *object,
210 const void *userdata),
211 const void *userdata)
213 nis_result *res = malloc (sizeof (nis_result));
214 ib_request *ibreq;
215 int status;
216 enum clnt_stat clnt_status;
217 int count_links = 0; /* We will only follow NIS_MAXLINKS links! */
218 int done = 0;
219 nis_name *names;
220 nis_name namebuf[2] = {NULL, NULL};
221 int name_nr = 0;
222 nis_cb *cb = NULL;
223 char *tableptr;
224 char *tablepath = NULL;
225 int first_try = 0; /* Do we try the old binding at first ? */
226 nis_result *allres = NULL;
228 if (res == NULL)
229 return NULL;
231 if (name == NULL)
233 status = NIS_BADNAME;
234 err_out:
235 nis_freeresult (allres);
236 memset (res, '\0', sizeof (nis_result));
237 NIS_RES_STATUS (res) = status;
238 return res;
241 ibreq = __create_ib_request (name, flags);
242 if (ibreq == NULL)
244 status = NIS_BADNAME;
245 goto err_out;
248 if ((flags & EXPAND_NAME)
249 && ibreq->ibr_name[strlen (ibreq->ibr_name) - 1] != '.')
251 names = nis_getnames (ibreq->ibr_name);
252 free (ibreq->ibr_name);
253 ibreq->ibr_name = NULL;
254 if (names == NULL)
256 nis_free_request (ibreq);
257 status = NIS_BADNAME;
258 goto err_out;
260 ibreq->ibr_name = strdup (names[name_nr]);
261 if (ibreq->ibr_name == NULL)
263 nis_freenames (names);
264 nis_free_request (ibreq);
265 status = NIS_NOMEMORY;
266 goto err_out;
269 else
271 names = namebuf;
272 names[name_nr] = ibreq->ibr_name;
275 cb = NULL;
277 while (!done)
279 dir_binding bptr;
280 directory_obj *dir = NULL;
282 memset (res, '\0', sizeof (nis_result));
284 status = __nisfind_server (ibreq->ibr_name,
285 ibreq->ibr_srch.ibr_srch_val != NULL,
286 &dir, &bptr, flags & ~MASTER_ONLY);
287 if (status != NIS_SUCCESS)
289 NIS_RES_STATUS (res) = status;
290 goto fail3;
293 while (__nisbind_connect (&bptr) != NIS_SUCCESS)
294 if (__glibc_unlikely (__nisbind_next (&bptr) != NIS_SUCCESS))
296 NIS_RES_STATUS (res) = NIS_NAMEUNREACHABLE;
297 goto fail;
300 if (callback != NULL)
302 assert (cb == NULL);
303 cb = __nis_create_callback (callback, userdata, flags);
304 ibreq->ibr_cbhost.ibr_cbhost_len = 1;
305 ibreq->ibr_cbhost.ibr_cbhost_val = cb->serv;
308 again:
309 clnt_status = clnt_call (bptr.clnt, NIS_IBLIST,
310 (xdrproc_t) _xdr_ib_request, (caddr_t) ibreq,
311 (xdrproc_t) _xdr_nis_result,
312 (caddr_t) res, RPCTIMEOUT);
314 if (__glibc_unlikely (clnt_status != RPC_SUCCESS))
315 NIS_RES_STATUS (res) = NIS_RPCERROR;
316 else
317 switch (NIS_RES_STATUS (res))
318 { /* start switch */
319 case NIS_PARTIAL:
320 case NIS_SUCCESS:
321 case NIS_S_SUCCESS:
322 if (__type_of (NIS_RES_OBJECT (res)) == NIS_LINK_OBJ
323 && (flags & FOLLOW_LINKS)) /* We are following links. */
325 free (ibreq->ibr_name);
326 ibreq->ibr_name = NULL;
327 /* If we hit the link limit, bail. */
328 if (__glibc_unlikely (count_links > NIS_MAXLINKS))
330 NIS_RES_STATUS (res) = NIS_LINKNAMEERROR;
331 ++done;
332 break;
334 ++count_links;
335 ibreq->ibr_name =
336 strdup (NIS_RES_OBJECT (res)->LI_data.li_name);
337 if (ibreq->ibr_name == NULL)
339 NIS_RES_STATUS (res) = NIS_NOMEMORY;
340 fail:
341 __nisbind_destroy (&bptr);
342 nis_free_directory (dir);
343 fail3:
344 free (tablepath);
345 if (cb)
347 __nis_destroy_callback (cb);
348 ibreq->ibr_cbhost.ibr_cbhost_len = 0;
349 ibreq->ibr_cbhost.ibr_cbhost_val = NULL;
351 if (names != namebuf)
352 nis_freenames (names);
353 nis_free_request (ibreq);
354 nis_freeresult (allres);
355 return res;
357 if (NIS_RES_OBJECT (res)->LI_data.li_attrs.li_attrs_len)
358 if (ibreq->ibr_srch.ibr_srch_len == 0)
360 ibreq->ibr_srch.ibr_srch_len =
361 NIS_RES_OBJECT (res)->LI_data.li_attrs.li_attrs_len;
362 ibreq->ibr_srch.ibr_srch_val =
363 NIS_RES_OBJECT (res)->LI_data.li_attrs.li_attrs_val;
365 /* The following is a non-obvious optimization. A
366 nis_freeresult call would call xdr_free as the
367 following code. But it also would unnecessarily
368 free the result structure. We avoid this here
369 along with the necessary tests. */
370 xdr_free ((xdrproc_t) _xdr_nis_result, (char *)res);
371 memset (res, '\0', sizeof (*res));
372 first_try = 1; /* Try at first the old binding */
373 goto again;
375 else if ((flags & FOLLOW_PATH)
376 && NIS_RES_STATUS (res) == NIS_PARTIAL)
378 enum nis_error err = __follow_path (&tablepath, &tableptr,
379 ibreq, &bptr);
380 if (err != NIS_SUCCESS)
382 if (err == NIS_NOMEMORY)
383 NIS_RES_STATUS (res) = err;
384 ++done;
386 else
388 /* The following is a non-obvious optimization. A
389 nis_freeresult call would call xdr_free as the
390 following code. But it also would unnecessarily
391 free the result structure. We avoid this here
392 along with the necessary tests. */
393 xdr_free ((xdrproc_t) _xdr_nis_result, (char *) res);
394 memset (res, '\0', sizeof (*res));
395 first_try = 1;
396 goto again;
399 else if ((flags & (FOLLOW_PATH | ALL_RESULTS))
400 == (FOLLOW_PATH | ALL_RESULTS))
402 if (allres == NULL)
404 allres = res;
405 res = malloc (sizeof (nis_result));
406 if (res == NULL)
408 res = allres;
409 allres = NULL;
410 NIS_RES_STATUS (res) = NIS_NOMEMORY;
411 goto fail;
413 NIS_RES_STATUS (res) = NIS_RES_STATUS (allres);
415 else
417 nis_object *objects_val
418 = realloc (NIS_RES_OBJECT (allres),
419 (NIS_RES_NUMOBJ (allres)
420 + NIS_RES_NUMOBJ (res))
421 * sizeof (nis_object));
422 if (objects_val == NULL)
424 NIS_RES_STATUS (res) = NIS_NOMEMORY;
425 goto fail;
427 NIS_RES_OBJECT (allres) = objects_val;
428 memcpy (NIS_RES_OBJECT (allres) + NIS_RES_NUMOBJ (allres),
429 NIS_RES_OBJECT (res),
430 NIS_RES_NUMOBJ (res) * sizeof (nis_object));
431 NIS_RES_NUMOBJ (allres) += NIS_RES_NUMOBJ (res);
432 NIS_RES_NUMOBJ (res) = 0;
433 free (NIS_RES_OBJECT (res));
434 NIS_RES_OBJECT (res) = NULL;
435 NIS_RES_STATUS (allres) = NIS_RES_STATUS (res);
436 xdr_free ((xdrproc_t) _xdr_nis_result, (char *) res);
438 enum nis_error err = __follow_path (&tablepath, &tableptr,
439 ibreq, &bptr);
440 if (err != NIS_SUCCESS)
442 /* Prepare for the nis_freeresult call. */
443 memset (res, '\0', sizeof (*res));
445 if (err == NIS_NOMEMORY)
446 NIS_RES_STATUS (allres) = err;
447 ++done;
450 else
451 ++done;
452 break;
453 case NIS_CBRESULTS:
454 if (cb != NULL)
456 __nis_do_callback (&bptr, &res->cookie, cb);
457 NIS_RES_STATUS (res) = cb->result;
459 if (!(flags & ALL_RESULTS))
460 ++done;
461 else
463 enum nis_error err
464 = __follow_path (&tablepath, &tableptr, ibreq, &bptr);
465 if (err != NIS_SUCCESS)
467 if (err == NIS_NOMEMORY)
468 NIS_RES_STATUS (res) = err;
469 ++done;
473 break;
474 case NIS_SYSTEMERROR:
475 case NIS_NOSUCHNAME:
476 case NIS_NOT_ME:
477 /* If we had first tried the old binding, do nothing, but
478 get a new binding */
479 if (!first_try)
481 if (__nisbind_next (&bptr) != NIS_SUCCESS)
483 ++done;
484 break; /* No more servers to search */
486 while (__nisbind_connect (&bptr) != NIS_SUCCESS)
488 if (__nisbind_next (&bptr) != NIS_SUCCESS)
490 ++done;
491 break; /* No more servers to search */
494 goto again;
496 break;
497 default:
498 if (!first_try)
500 /* Try the next domainname if we don't follow a link. */
501 free (ibreq->ibr_name);
502 ibreq->ibr_name = NULL;
503 if (__glibc_unlikely (count_links))
505 NIS_RES_STATUS (res) = NIS_LINKNAMEERROR;
506 ++done;
507 break;
509 ++name_nr;
510 if (names[name_nr] == NULL)
512 ++done;
513 break;
515 ibreq->ibr_name = strdup (names[name_nr]);
516 if (ibreq->ibr_name == NULL)
518 NIS_RES_STATUS (res) = NIS_NOMEMORY;
519 goto fail;
521 first_try = 1; /* Try old binding at first */
522 goto again;
524 break;
526 first_try = 0;
528 if (cb)
530 __nis_destroy_callback (cb);
531 ibreq->ibr_cbhost.ibr_cbhost_len = 0;
532 ibreq->ibr_cbhost.ibr_cbhost_val = NULL;
533 cb = NULL;
536 __nisbind_destroy (&bptr);
537 nis_free_directory (dir);
540 free (tablepath);
542 if (names != namebuf)
543 nis_freenames (names);
545 nis_free_request (ibreq);
547 if (allres)
549 nis_freeresult (res);
550 return allres;
553 return res;
555 libnsl_hidden_def (nis_list)
557 nis_result *
558 nis_add_entry (const_nis_name name, const nis_object *obj2, unsigned int flags)
560 nis_result *res = calloc (1, sizeof (nis_result));
561 if (res == NULL)
562 return NULL;
564 if (name == NULL)
566 NIS_RES_STATUS (res) = NIS_BADNAME;
567 return res;
570 ib_request *ibreq = __create_ib_request (name, flags);
571 if (ibreq == NULL)
573 NIS_RES_STATUS (res) = NIS_BADNAME;
574 return res;
577 nis_object obj;
578 memcpy (&obj, obj2, sizeof (nis_object));
580 size_t namelen = strlen (name);
581 char buf1[namelen + 20];
582 char buf4[namelen + 20];
584 if (obj.zo_name == NULL || strlen (obj.zo_name) == 0)
585 obj.zo_name = nis_leaf_of_r (name, buf1, sizeof (buf1));
587 if (obj.zo_owner == NULL || strlen (obj.zo_owner) == 0)
588 obj.zo_owner = nis_local_principal ();
590 if (obj.zo_group == NULL || strlen (obj.zo_group) == 0)
591 obj.zo_group = nis_local_group ();
593 obj.zo_domain = nis_domain_of_r (name, buf4, sizeof (buf4));
595 ibreq->ibr_obj.ibr_obj_val = nis_clone_object (&obj, NULL);
596 if (ibreq->ibr_obj.ibr_obj_val == NULL)
598 nis_free_request (ibreq);
599 NIS_RES_STATUS (res) = NIS_NOMEMORY;
600 return res;
602 ibreq->ibr_obj.ibr_obj_len = 1;
604 nis_error status = __do_niscall (ibreq->ibr_name, NIS_IBADD,
605 (xdrproc_t) _xdr_ib_request,
606 (caddr_t) ibreq,
607 (xdrproc_t) _xdr_nis_result,
608 (caddr_t) res, 0, NULL);
609 if (__glibc_unlikely (status != NIS_SUCCESS))
610 NIS_RES_STATUS (res) = status;
612 nis_free_request (ibreq);
614 return res;
617 nis_result *
618 nis_modify_entry (const_nis_name name, const nis_object *obj2,
619 unsigned int flags)
621 nis_object obj;
622 nis_result *res;
623 nis_error status;
624 ib_request *ibreq;
625 size_t namelen = strlen (name);
626 char buf1[namelen + 20];
627 char buf4[namelen + 20];
629 res = calloc (1, sizeof (nis_result));
630 if (res == NULL)
631 return NULL;
633 ibreq = __create_ib_request (name, flags);
634 if (ibreq == NULL)
636 NIS_RES_STATUS (res) = NIS_BADNAME;
637 return res;
640 memcpy (&obj, obj2, sizeof (nis_object));
642 if (obj.zo_name == NULL || strlen (obj.zo_name) == 0)
643 obj.zo_name = nis_leaf_of_r (name, buf1, sizeof (buf1));
645 if (obj.zo_owner == NULL || strlen (obj.zo_owner) == 0)
646 obj.zo_owner = nis_local_principal ();
648 if (obj.zo_group == NULL || strlen (obj.zo_group) == 0)
649 obj.zo_group = nis_local_group ();
651 obj.zo_domain = nis_domain_of_r (name, buf4, sizeof (buf4));
653 ibreq->ibr_obj.ibr_obj_val = nis_clone_object (&obj, NULL);
654 if (ibreq->ibr_obj.ibr_obj_val == NULL)
656 nis_free_request (ibreq);
657 NIS_RES_STATUS (res) = NIS_NOMEMORY;
658 return res;
660 ibreq->ibr_obj.ibr_obj_len = 1;
662 status = __do_niscall (ibreq->ibr_name, NIS_IBMODIFY,
663 (xdrproc_t) _xdr_ib_request,
664 (caddr_t) ibreq, (xdrproc_t) _xdr_nis_result,
665 (caddr_t) res, 0, NULL);
666 if (__glibc_unlikely (status != NIS_SUCCESS))
667 NIS_RES_STATUS (res) = status;
669 nis_free_request (ibreq);
671 return res;
674 nis_result *
675 nis_remove_entry (const_nis_name name, const nis_object *obj,
676 unsigned int flags)
678 nis_result *res;
679 ib_request *ibreq;
680 nis_error status;
682 res = calloc (1, sizeof (nis_result));
683 if (res == NULL)
684 return NULL;
686 if (name == NULL)
688 NIS_RES_STATUS (res) = NIS_BADNAME;
689 return res;
692 ibreq = __create_ib_request (name, flags);
693 if (ibreq == NULL)
695 NIS_RES_STATUS (res) = NIS_BADNAME;
696 return res;
699 if (obj != NULL)
701 ibreq->ibr_obj.ibr_obj_val = nis_clone_object (obj, NULL);
702 if (ibreq->ibr_obj.ibr_obj_val == NULL)
704 nis_free_request (ibreq);
705 NIS_RES_STATUS (res) = NIS_NOMEMORY;
706 return res;
708 ibreq->ibr_obj.ibr_obj_len = 1;
711 if ((status = __do_niscall (ibreq->ibr_name, NIS_IBREMOVE,
712 (xdrproc_t) _xdr_ib_request,
713 (caddr_t) ibreq, (xdrproc_t) _xdr_nis_result,
714 (caddr_t) res, 0, NULL)) != NIS_SUCCESS)
715 NIS_RES_STATUS (res) = status;
717 nis_free_request (ibreq);
719 return res;
722 nis_result *
723 nis_first_entry (const_nis_name name)
725 nis_result *res;
726 ib_request *ibreq;
727 nis_error status;
729 res = calloc (1, sizeof (nis_result));
730 if (res == NULL)
731 return NULL;
733 if (name == NULL)
735 NIS_RES_STATUS (res) = NIS_BADNAME;
736 return res;
739 ibreq = __create_ib_request (name, 0);
740 if (ibreq == NULL)
742 NIS_RES_STATUS (res) = NIS_BADNAME;
743 return res;
746 status = __do_niscall (ibreq->ibr_name, NIS_IBFIRST,
747 (xdrproc_t) _xdr_ib_request,
748 (caddr_t) ibreq, (xdrproc_t) _xdr_nis_result,
749 (caddr_t) res, 0, NULL);
751 if (__glibc_unlikely (status != NIS_SUCCESS))
752 NIS_RES_STATUS (res) = status;
754 nis_free_request (ibreq);
756 return res;
759 nis_result *
760 nis_next_entry (const_nis_name name, const netobj *cookie)
762 nis_result *res;
763 ib_request *ibreq;
764 nis_error status;
766 res = calloc (1, sizeof (nis_result));
767 if (res == NULL)
768 return NULL;
770 if (name == NULL)
772 NIS_RES_STATUS (res) = NIS_BADNAME;
773 return res;
776 ibreq = __create_ib_request (name, 0);
777 if (ibreq == NULL)
779 NIS_RES_STATUS (res) = NIS_BADNAME;
780 return res;
783 if (cookie != NULL)
785 ibreq->ibr_cookie.n_bytes = cookie->n_bytes;
786 ibreq->ibr_cookie.n_len = cookie->n_len;
789 status = __do_niscall (ibreq->ibr_name, NIS_IBNEXT,
790 (xdrproc_t) _xdr_ib_request,
791 (caddr_t) ibreq, (xdrproc_t) _xdr_nis_result,
792 (caddr_t) res, 0, NULL);
794 if (__glibc_unlikely (status != NIS_SUCCESS))
795 NIS_RES_STATUS (res) = status;
797 if (cookie != NULL)
799 /* Don't give cookie free, it is not from us */
800 ibreq->ibr_cookie.n_bytes = NULL;
801 ibreq->ibr_cookie.n_len = 0;
804 nis_free_request (ibreq);
806 return res;