workbench/network/stacks/AROSTCP/dhcp/omapip/support.c

   1 /* support.c
   2
   3    Subroutines providing general support for objects. */
   4
   5 /*
   6  * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
   7  * Copyright (c) 1999-2003 by Internet Software Consortium
   8  *
   9  * Permission to use, copy, modify, and distribute this software for any
  10  * purpose with or without fee is hereby granted, provided that the above
  11  * copyright notice and this permission notice appear in all copies.
  12  *
  13  * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
  14  * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
  15  * MERCHANTABILITY AND FITNESS.  IN NO EVENT SHALL ISC BE LIABLE FOR
  16  * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  17  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
  18  * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
  19  * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  20  *
  21  *   Internet Systems Consortium, Inc.
  22  *   950 Charter Street
  23  *   Redwood City, CA 94063
  24  *   <info@isc.org>
  25  *   http://www.isc.org/
  26  *
  27  * This software has been written for Internet Systems Consortium
  28  * by Ted Lemon in cooperation with Vixie Enterprises and Nominum, Inc.
  29  * To learn more about Internet Systems Consortium, see
  30  * ``http://www.isc.org/''.  To learn more about Vixie Enterprises,
  31  * see ``http://www.vix.com''.   To learn more about Nominum, Inc., see
  32  * ``http://www.nominum.com''.
  33  */
  34
  35 #include <omapip/omapip_p.h>
  36
  37 omapi_object_type_t *omapi_type_connection;
  38 omapi_object_type_t *omapi_type_listener;
  39 omapi_object_type_t *omapi_type_io_object;
  40 omapi_object_type_t *omapi_type_datagram;
  41 omapi_object_type_t *omapi_type_generic;
  42 omapi_object_type_t *omapi_type_protocol;
  43 omapi_object_type_t *omapi_type_protocol_listener;
  44 omapi_object_type_t *omapi_type_waiter;
  45 omapi_object_type_t *omapi_type_remote;
  46 omapi_object_type_t *omapi_type_message;
  47 omapi_object_type_t *omapi_type_auth_key;
  48
  49 omapi_object_type_t *omapi_object_types;
  50 int omapi_object_type_count;
  51 // static int ot_max;
  52
  53 #if defined (DEBUG_MEMORY_LEAKAGE_ON_EXIT)
  54 void omapi_type_relinquish ()
  55 {
  56         omapi_object_type_t *t, *n;
  57
  58         for (t = omapi_object_types; t; t = n) {
  59                 n = t -> next;
  60                 dfree (t, MDL);
  61         }
  62         omapi_object_types = (omapi_object_type_t *)0;
  63 }
  64 #endif
  65
  66 isc_result_t omapi_init (void)
  67 {
  68         isc_result_t status;
  69
  70         dst_init();
  71
  72         /* Register all the standard object types... */
  73         status = omapi_object_type_register (&omapi_type_connection,
  74                                              "connection",
  75                                              omapi_connection_set_value,
  76                                              omapi_connection_get_value,
  77                                              omapi_connection_destroy,
  78                                              omapi_connection_signal_handler,
  79                                              omapi_connection_stuff_values,
  80                                              0, 0, 0, 0, 0, 0,
  81                                              sizeof
  82                                              (omapi_connection_object_t), 0,
  83                                              RC_MISC);
  84         if (status != ISC_R_SUCCESS)
  85                 return status;
  86
  87         status = omapi_object_type_register (&omapi_type_listener,
  88                                              "listener",
  89                                              omapi_listener_set_value,
  90                                              omapi_listener_get_value,
  91                                              omapi_listener_destroy,
  92                                              omapi_listener_signal_handler,
  93                                              omapi_listener_stuff_values,
  94                                              0, 0, 0, 0, 0, 0,
  95                                              sizeof (omapi_listener_object_t),
  96                                              0, RC_MISC);
  97         if (status != ISC_R_SUCCESS)
  98                 return status;
  99
 100         status = omapi_object_type_register (&omapi_type_io_object,
 101                                              "io",
 102                                              omapi_io_set_value,
 103                                              omapi_io_get_value,
 104                                              omapi_io_destroy,
 105                                              omapi_io_signal_handler,
 106                                              omapi_io_stuff_values,
 107                                              0, 0, 0, 0, 0, 0,
 108                                              sizeof (omapi_io_object_t),
 109                                              0, RC_MISC);
 110         if (status != ISC_R_SUCCESS)
 111                 return status;
 112
 113         status = omapi_object_type_register (&omapi_type_generic,
 114                                              "generic",
 115                                              omapi_generic_set_value,
 116                                              omapi_generic_get_value,
 117                                              omapi_generic_destroy,
 118                                              omapi_generic_signal_handler,
 119                                              omapi_generic_stuff_values,
 120                                              0, 0, 0, 0, 0, 0,
 121                                              sizeof (omapi_generic_object_t),
 122                                              0, RC_MISC);
 123         if (status != ISC_R_SUCCESS)
 124                 return status;
 125
 126         status = omapi_object_type_register (&omapi_type_protocol,
 127                                              "protocol",
 128                                              omapi_protocol_set_value,
 129                                              omapi_protocol_get_value,
 130                                              omapi_protocol_destroy,
 131                                              omapi_protocol_signal_handler,
 132                                              omapi_protocol_stuff_values,
 133                                              0, 0, 0, 0, 0, 0,
 134                                              sizeof (omapi_protocol_object_t),
 135                                              0, RC_MISC);
 136         if (status != ISC_R_SUCCESS)
 137                 return status;
 138
 139         status = (omapi_object_type_register
 140                   (&omapi_type_protocol_listener, "protocol-listener",
 141                    omapi_protocol_listener_set_value,
 142                    omapi_protocol_listener_get_value,
 143                    omapi_protocol_listener_destroy,
 144                    omapi_protocol_listener_signal,
 145                    omapi_protocol_listener_stuff,
 146                    0, 0, 0, 0, 0, 0,
 147                    sizeof (omapi_protocol_listener_object_t), 0, RC_MISC));
 148         if (status != ISC_R_SUCCESS)
 149                 return status;
 150
 151         status = omapi_object_type_register (&omapi_type_message,
 152                                              "message",
 153                                              omapi_message_set_value,
 154                                              omapi_message_get_value,
 155                                              omapi_message_destroy,
 156                                              omapi_message_signal_handler,
 157                                              omapi_message_stuff_values,
 158                                              0, 0, 0, 0, 0, 0,
 159                                              sizeof (omapi_message_object_t),
 160                                              0, RC_MISC);
 161         if (status != ISC_R_SUCCESS)
 162                 return status;
 163
 164         status = omapi_object_type_register (&omapi_type_waiter,
 165                                              "waiter",
 166                                              0,
 167                                              0,
 168                                              0,
 169                                              omapi_waiter_signal_handler, 0,
 170                                              0, 0, 0, 0, 0, 0,
 171                                              sizeof (omapi_waiter_object_t),
 172                                              0, RC_MISC);
 173         if (status != ISC_R_SUCCESS)
 174                 return status;
 175
 176         status = omapi_object_type_register (&omapi_type_auth_key,
 177                                              "authenticator",
 178                                              0,
 179                                              omapi_auth_key_get_value,
 180                                              omapi_auth_key_destroy,
 181                                              0,
 182                                              omapi_auth_key_stuff_values,
 183                                              omapi_auth_key_lookup,
 184                                              0, 0, 0, 0, 0,
 185                                              sizeof (omapi_auth_key_t), 0,
 186                                              RC_MISC);
 187         if (status != ISC_R_SUCCESS)
 188                 return status;
 189
 190 #if defined (TRACING)
 191         omapi_listener_trace_setup ();
 192         omapi_connection_trace_setup ();
 193         omapi_buffer_trace_setup ();
 194         trace_mr_init ();
 195 #endif
 196
 197         /* This seems silly, but leave it. */
 198         return ISC_R_SUCCESS;
 199 }
 200
 201 isc_result_t omapi_object_type_register (omapi_object_type_t **type,
 202                                          const char *name,
 203                                          isc_result_t (*set_value)
 204                                                  (omapi_object_t *,
 205                                                   omapi_object_t *,
 206                                                   omapi_data_string_t *,
 207                                                   omapi_typed_data_t *),
 208                                          isc_result_t (*get_value)
 209                                                 (omapi_object_t *,
 210                                                  omapi_object_t *,
 211                                                  omapi_data_string_t *,
 212                                                  omapi_value_t **),
 213                                          isc_result_t (*destroy)
 214                                                 (omapi_object_t *,
 215                                                  const char *, int),
 216                                          isc_result_t (*signal_handler)
 217                                                  (omapi_object_t *,
 218                                                   const char *, va_list),
 219                                          isc_result_t (*stuff_values)
 220                                                 (omapi_object_t *,
 221                                                  omapi_object_t *,
 222                                                  omapi_object_t *),
 223                                          isc_result_t (*lookup)
 224                                                 (omapi_object_t **,
 225                                                  omapi_object_t *,
 226                                                  omapi_object_t *),
 227                                          isc_result_t (*create)
 228                                                 (omapi_object_t **,
 229                                                  omapi_object_t *),
 230                                          isc_result_t (*remove)
 231                                                 (omapi_object_t *,
 232                                                  omapi_object_t *),
 233                                          isc_result_t (*freer)
 234                                                 (omapi_object_t *,
 235                                                  const char *, int),
 236                                          isc_result_t (*allocator)
 237                                                 (omapi_object_t **,
 238                                                  const char *, int),
 239                                          isc_result_t (*sizer) (size_t),
 240                                          size_t size,
 241                                          isc_result_t (*initialize)
 242                                                 (omapi_object_t *,
 243                                                  const char *, int),
 244                                          int rc_flag)
 245 {
 246         omapi_object_type_t *t;
 247
 248         t = dmalloc (sizeof *t, MDL);
 249         if (!t)
 250                 return ISC_R_NOMEMORY;
 251         memset (t, 0, sizeof *t);
 252
 253         t -> name = name;
 254         t -> set_value = set_value;
 255         t -> get_value = get_value;
 256         t -> destroy = destroy;
 257         t -> signal_handler = signal_handler;
 258         t -> stuff_values = stuff_values;
 259         t -> lookup = lookup;
 260         t -> create = create;
 261         t -> remove = remove;
 262         t -> next = omapi_object_types;
 263         t -> sizer = sizer;
 264         t -> size = size;
 265         t -> freer = freer;
 266         t -> allocator = allocator;
 267         t -> initialize = initialize;
 268         t -> rc_flag = rc_flag;
 269         omapi_object_types = t;
 270         if (type)
 271                 *type = t;
 272         return ISC_R_SUCCESS;
 273 }
 274
 275 isc_result_t omapi_signal (omapi_object_t *handle, const char *name, ...)
 276 {
 277         va_list ap;
 278         omapi_object_t *outer;
 279         isc_result_t status;
 280
 281         va_start (ap, name);
 282         for (outer = handle; outer -> outer; outer = outer -> outer)
 283                 ;
 284         if (outer -> type -> signal_handler)
 285                 status = (*(outer -> type -> signal_handler)) (outer,
 286                                                                name, ap);
 287         else
 288                 status = ISC_R_NOTFOUND;
 289         va_end (ap);
 290         return status;
 291 }
 292
 293 isc_result_t omapi_signal_in (omapi_object_t *handle, const char *name, ...)
 294 {
 295         va_list ap;
 296         // omapi_object_t *outer;
 297         isc_result_t status;
 298
 299         if (!handle)
 300                 return ISC_R_NOTFOUND;
 301         va_start (ap, name);
 302
 303         if (handle -> type -> signal_handler)
 304                 status = (*(handle -> type -> signal_handler)) (handle,
 305                                                                 name, ap);
 306         else
 307                 status = ISC_R_NOTFOUND;
 308         va_end (ap);
 309         return status;
 310 }
 311
 312 isc_result_t omapi_set_value (omapi_object_t *h,
 313                               omapi_object_t *id,
 314                               omapi_data_string_t *name,
 315                               omapi_typed_data_t *value)
 316 {
 317         omapi_object_t *outer;
 318         isc_result_t status;
 319
 320 #if defined (DEBUG)
 321         if (!value) {
 322                 log_info ("omapi_set_value (%.*s, NULL)",
 323                           (int)name -> len, name -> value);
 324         } else if (value -> type == omapi_datatype_int) {
 325                 log_info ("omapi_set_value (%.*s, %ld)",
 326                           (int)name -> len, name -> value,
 327                           (long)value -> u.integer);
 328         } else if (value -> type == omapi_datatype_string) {
 329                 log_info ("omapi_set_value (%.*s, %.*s)",
 330                           (int)name -> len, name -> value,
 331                           (int)value -> u.buffer.len, value -> u.buffer.value);
 332         } else if (value -> type == omapi_datatype_data) {
 333                 log_info ("omapi_set_value (%.*s, %ld %lx)",
 334                           (int)name -> len, name -> value,
 335                           (long)value -> u.buffer.len,
 336                           (unsigned long)value -> u.buffer.value);
 337         } else if (value -> type == omapi_datatype_object) {
 338                 log_info ("omapi_set_value (%.*s, %s)",
 339                           (int)name -> len, name -> value,
 340                           value -> u.object
 341                           ? (value -> u.object -> type
 342                              ? value -> u.object -> type -> name
 343                              : "(unknown object)")
 344                           : "(unknown object)");
 345         }
 346 #endif
 347
 348         for (outer = h; outer -> outer; outer = outer -> outer)
 349                 ;
 350         if (outer -> type -> set_value)
 351                 status = (*(outer -> type -> set_value)) (outer,
 352                                                           id, name, value);
 353         else
 354                 status = ISC_R_NOTFOUND;
 355 #if defined (DEBUG)
 356         log_info (" ==> %s", isc_result_totext (status));
 357 #endif
 358         return status;
 359 }
 360
 361 isc_result_t omapi_set_value_str (omapi_object_t *h,
 362                                   omapi_object_t *id,
 363                                   const char *name,
 364                                   omapi_typed_data_t *value)
 365 {
 366         // omapi_object_t *outer;
 367         omapi_data_string_t *nds;
 368         isc_result_t status;
 369
 370         nds = (omapi_data_string_t *)0;
 371         status = omapi_data_string_new (&nds, strlen (name), MDL);
 372         if (status != ISC_R_SUCCESS)
 373                 return status;
 374         memcpy (nds -> value, name, strlen (name));
 375
 376         status = omapi_set_value (h, id, nds, value);
 377         omapi_data_string_dereference (&nds, MDL);
 378         return status;
 379 }
 380
 381 isc_result_t omapi_set_boolean_value (omapi_object_t *h, omapi_object_t *id,
 382                                       const char *name, int value)
 383 {
 384         isc_result_t status;
 385         omapi_typed_data_t *tv = (omapi_typed_data_t *)0;
 386         omapi_data_string_t *n = (omapi_data_string_t *)0;
 387         // int len;
 388         // int ip;
 389
 390         status = omapi_data_string_new (&n, strlen (name), MDL);
 391         if (status != ISC_R_SUCCESS)
 392                 return status;
 393         memcpy (n -> value, name, strlen (name));
 394
 395         status = omapi_typed_data_new (MDL, &tv, omapi_datatype_int, value);
 396         if (status != ISC_R_SUCCESS) {
 397                 omapi_data_string_dereference (&n, MDL);
 398                 return status;
 399         }
 400
 401         status = omapi_set_value (h, id, n, tv);
 402         omapi_data_string_dereference (&n, MDL);
 403         omapi_typed_data_dereference (&tv, MDL);
 404         return status;
 405 }
 406
 407 isc_result_t omapi_set_int_value (omapi_object_t *h, omapi_object_t *id,
 408                                   const char *name, int value)
 409 {
 410         isc_result_t status;
 411         omapi_typed_data_t *tv = (omapi_typed_data_t *)0;
 412         omapi_data_string_t *n = (omapi_data_string_t *)0;
 413         // int len;
 414         // int ip;
 415
 416         status = omapi_data_string_new (&n, strlen (name), MDL);
 417         if (status != ISC_R_SUCCESS)
 418                 return status;
 419         memcpy (n -> value, name, strlen (name));
 420
 421         status = omapi_typed_data_new (MDL, &tv, omapi_datatype_int, value);
 422         if (status != ISC_R_SUCCESS) {
 423                 omapi_data_string_dereference (&n, MDL);
 424                 return status;
 425         }
 426
 427         status = omapi_set_value (h, id, n, tv);
 428         omapi_data_string_dereference (&n, MDL);
 429         omapi_typed_data_dereference (&tv, MDL);
 430         return status;
 431 }
 432
 433 isc_result_t omapi_set_object_value (omapi_object_t *h, omapi_object_t *id,
 434                                      const char *name, omapi_object_t *value)
 435 {
 436         isc_result_t status;
 437         omapi_typed_data_t *tv = (omapi_typed_data_t *)0;
 438         omapi_data_string_t *n = (omapi_data_string_t *)0;
 439         // int len;
 440         // int ip;
 441
 442         status = omapi_data_string_new (&n, strlen (name), MDL);
 443         if (status != ISC_R_SUCCESS)
 444                 return status;
 445         memcpy (n -> value, name, strlen (name));
 446
 447         status = omapi_typed_data_new (MDL, &tv, omapi_datatype_object, value);
 448         if (status != ISC_R_SUCCESS) {
 449                 omapi_data_string_dereference (&n, MDL);
 450                 return status;
 451         }
 452
 453         status = omapi_set_value (h, id, n, tv);
 454         omapi_data_string_dereference (&n, MDL);
 455         omapi_typed_data_dereference (&tv, MDL);
 456         return status;
 457 }
 458
 459 isc_result_t omapi_set_string_value (omapi_object_t *h, omapi_object_t *id,
 460                                      const char *name, const char *value)
 461 {
 462         isc_result_t status;
 463         omapi_typed_data_t *tv = (omapi_typed_data_t *)0;
 464         omapi_data_string_t *n = (omapi_data_string_t *)0;
 465         // int len;
 466         // int ip;
 467
 468         status = omapi_data_string_new (&n, strlen (name), MDL);
 469         if (status != ISC_R_SUCCESS)
 470                 return status;
 471         memcpy (n -> value, name, strlen (name));
 472
 473         status = omapi_typed_data_new (MDL, &tv, omapi_datatype_string, value);
 474         if (status != ISC_R_SUCCESS) {
 475                 omapi_data_string_dereference (&n, MDL);
 476                 return status;
 477         }
 478
 479         status = omapi_set_value (h, id, n, tv);
 480         omapi_data_string_dereference (&n, MDL);
 481         omapi_typed_data_dereference (&tv, MDL);
 482         return status;
 483 }
 484
 485 isc_result_t omapi_get_value (omapi_object_t *h,
 486                               omapi_object_t *id,
 487                               omapi_data_string_t *name,
 488                               omapi_value_t **value)
 489 {
 490         omapi_object_t *outer;
 491
 492         for (outer = h; outer -> outer; outer = outer -> outer)
 493                 ;
 494         if (outer -> type -> get_value)
 495                 return (*(outer -> type -> get_value)) (outer,
 496                                                         id, name, value);
 497         return ISC_R_NOTFOUND;
 498 }
 499
 500 isc_result_t omapi_get_value_str (omapi_object_t *h,
 501                                   omapi_object_t *id,
 502                                   const char *name,
 503                                   omapi_value_t **value)
 504 {
 505         omapi_object_t *outer;
 506         omapi_data_string_t *nds;
 507         isc_result_t status;
 508
 509         nds = (omapi_data_string_t *)0;
 510         status = omapi_data_string_new (&nds, strlen (name), MDL);
 511         if (status != ISC_R_SUCCESS)
 512                 return status;
 513         memcpy (nds -> value, name, strlen (name));
 514
 515         for (outer = h; outer -> outer; outer = outer -> outer)
 516                 ;
 517         if (outer -> type -> get_value)
 518                 status = (*(outer -> type -> get_value)) (outer,
 519                                                           id, nds, value);
 520         else
 521                 status = ISC_R_NOTFOUND;
 522         omapi_data_string_dereference (&nds, MDL);
 523         return status;
 524 }
 525
 526 isc_result_t omapi_stuff_values (omapi_object_t *c,
 527                                  omapi_object_t *id,
 528                                  omapi_object_t *o)
 529 {
 530         omapi_object_t *outer;
 531
 532         for (outer = o; outer -> outer; outer = outer -> outer)
 533                 ;
 534         if (outer -> type -> stuff_values)
 535                 return (*(outer -> type -> stuff_values)) (c, id, outer);
 536         return ISC_R_NOTFOUND;
 537 }
 538
 539 isc_result_t omapi_object_create (omapi_object_t **obj, omapi_object_t *id,
 540                                   omapi_object_type_t *type)
 541 {
 542         if (!type -> create)
 543                 return ISC_R_NOTIMPLEMENTED;
 544         return (*(type -> create)) (obj, id);
 545 }
 546
 547 isc_result_t omapi_object_update (omapi_object_t *obj, omapi_object_t *id,
 548                                   omapi_object_t *src, omapi_handle_t handle)
 549 {
 550         omapi_generic_object_t *gsrc;
 551         isc_result_t status;
 552         int i;
 553
 554         if (!src)
 555                 return ISC_R_INVALIDARG;
 556         if (src -> type != omapi_type_generic)
 557                 return ISC_R_NOTIMPLEMENTED;
 558         gsrc = (omapi_generic_object_t *)src;
 559         for (i = 0; i < gsrc -> nvalues; i++) {
 560                 status = omapi_set_value (obj, id,
 561                                           gsrc -> values [i] -> name,
 562                                           gsrc -> values [i] -> value);
 563                 if (status != ISC_R_SUCCESS && status != ISC_R_UNCHANGED)
 564                         return status;
 565         }
 566         if (handle)
 567                 omapi_set_int_value (obj, id, "remote-handle", (int)handle);
 568         status = omapi_signal (obj, "updated");
 569         if (status != ISC_R_NOTFOUND)
 570                 return status;
 571         return ISC_R_SUCCESS;
 572 }
 573
 574 int omapi_data_string_cmp (omapi_data_string_t *s1, omapi_data_string_t *s2)
 575 {
 576         unsigned len;
 577         int rv;
 578
 579         if (s1 -> len > s2 -> len)
 580                 len = s2 -> len;
 581         else
 582                 len = s1 -> len;
 583         rv = memcmp (s1 -> value, s2 -> value, len);
 584         if (rv)
 585                 return rv;
 586         if (s1 -> len > s2 -> len)
 587                 return 1;
 588         else if (s1 -> len < s2 -> len)
 589                 return -1;
 590         return 0;
 591 }
 592
 593 int omapi_ds_strcmp (omapi_data_string_t *s1, const char *s2)
 594 {
 595         unsigned len, slen;
 596         int rv;
 597
 598         slen = strlen (s2);
 599         if (slen > s1 -> len)
 600                 len = s1 -> len;
 601         else
 602                 len = slen;
 603         rv = memcmp (s1 -> value, s2, len);
 604         if (rv)
 605                 return rv;
 606         if (s1 -> len > slen)
 607                 return 1;
 608         else if (s1 -> len < slen)
 609                 return -1;
 610         return 0;
 611 }
 612
 613 int omapi_td_strcmp (omapi_typed_data_t *s1, const char *s2)
 614 {
 615         unsigned len, slen;
 616         int rv;
 617
 618         /* If the data type is not compatible, never equal. */
 619         if (s1 -> type != omapi_datatype_data &&
 620             s1 -> type != omapi_datatype_string)
 621                 return -1;
 622
 623         slen = strlen (s2);
 624         if (slen > s1 -> u.buffer.len)
 625                 len = s1 -> u.buffer.len;
 626         else
 627                 len = slen;
 628         rv = memcmp (s1 -> u.buffer.value, s2, len);
 629         if (rv)
 630                 return rv;
 631         if (s1 -> u.buffer.len > slen)
 632                 return 1;
 633         else if (s1 -> u.buffer.len < slen)
 634                 return -1;
 635         return 0;
 636 }
 637
 638 int omapi_td_strcasecmp (omapi_typed_data_t *s1, const char *s2)
 639 {
 640         unsigned len, slen;
 641         int rv;
 642
 643         /* If the data type is not compatible, never equal. */
 644         if (s1 -> type != omapi_datatype_data &&
 645             s1 -> type != omapi_datatype_string)
 646                 return -1;
 647
 648         slen = strlen (s2);
 649         if (slen > s1 -> u.buffer.len)
 650                 len = s1 -> u.buffer.len;
 651         else
 652                 len = slen;
 653         rv = casecmp (s1 -> u.buffer.value, s2, len);
 654         if (rv)
 655                 return rv;
 656         if (s1 -> u.buffer.len > slen)
 657                 return 1;
 658         else if (s1 -> u.buffer.len < slen)
 659                 return -1;
 660         return 0;
 661 }
 662
 663 isc_result_t omapi_make_value (omapi_value_t **vp,
 664                                omapi_data_string_t *name,
 665                                omapi_typed_data_t *value,
 666                                const char *file, int line)
 667 {
 668         isc_result_t status;
 669
 670         status = omapi_value_new (vp, file, line);
 671         if (status != ISC_R_SUCCESS)
 672                 return status;
 673
 674         status = omapi_data_string_reference (&(*vp) -> name,
 675                                               name, file, line);
 676         if (status != ISC_R_SUCCESS) {
 677                 omapi_value_dereference (vp, file, line);
 678                 return status;
 679         }
 680         if (value) {
 681                 status = omapi_typed_data_reference (&(*vp) -> value,
 682                                                      value, file, line);
 683                 if (status != ISC_R_SUCCESS) {
 684                         omapi_value_dereference (vp, file, line);
 685                         return status;
 686                 }
 687         }
 688         return ISC_R_SUCCESS;
 689 }
 690
 691 isc_result_t omapi_make_const_value (omapi_value_t **vp,
 692                                      omapi_data_string_t *name,
 693                                      const unsigned char *value,
 694                                      unsigned len,
 695                                      const char *file, int line)
 696 {
 697         isc_result_t status;
 698
 699         status = omapi_value_new (vp, file, line);
 700         if (status != ISC_R_SUCCESS)
 701                 return status;
 702
 703         status = omapi_data_string_reference (&(*vp) -> name,
 704                                               name, file, line);
 705         if (status != ISC_R_SUCCESS) {
 706                 omapi_value_dereference (vp, file, line);
 707                 return status;
 708         }
 709         if (value) {
 710                 status = omapi_typed_data_new (file, line, &(*vp) -> value,
 711                                                omapi_datatype_data, len);
 712                 if (status != ISC_R_SUCCESS) {
 713                         omapi_value_dereference (vp, file, line);
 714                         return status;
 715                 }
 716                 memcpy ((*vp) -> value -> u.buffer.value, value, len);
 717         }
 718         return ISC_R_SUCCESS;
 719 }
 720
 721 isc_result_t omapi_make_int_value (omapi_value_t **vp,
 722                                    omapi_data_string_t *name,
 723                                    int value, const char *file, int line)
 724 {
 725         isc_result_t status;
 726
 727         status = omapi_value_new (vp, file, line);
 728         if (status != ISC_R_SUCCESS)
 729                 return status;
 730
 731         status = omapi_data_string_reference (&(*vp) -> name,
 732                                               name, file, line);
 733         if (status != ISC_R_SUCCESS) {
 734                 omapi_value_dereference (vp, file, line);
 735                 return status;
 736         }
 737         status = omapi_typed_data_new (file, line, &(*vp) -> value,
 738                                        omapi_datatype_int, value);
 739         if (status != ISC_R_SUCCESS) {
 740                 omapi_value_dereference (vp, file, line);
 741                 return status;
 742         }
 743         return ISC_R_SUCCESS;
 744 }
 745
 746 isc_result_t omapi_make_uint_value (omapi_value_t **vp,
 747                                     omapi_data_string_t *name,
 748                                     unsigned int value,
 749                                     const char *file, int line)
 750 {
 751         return omapi_make_int_value (vp, name, (int)value, file, line);
 752 }
 753
 754 isc_result_t omapi_make_object_value (omapi_value_t **vp,
 755                                       omapi_data_string_t *name,
 756                                       omapi_object_t *value,
 757                                       const char *file, int line)
 758 {
 759         isc_result_t status;
 760
 761         status = omapi_value_new (vp, file, line);
 762         if (status != ISC_R_SUCCESS)
 763                 return status;
 764
 765         status = omapi_data_string_reference (&(*vp) -> name,
 766                                               name, file, line);
 767         if (status != ISC_R_SUCCESS) {
 768                 omapi_value_dereference (vp, file, line);
 769                 return status;
 770         }
 771
 772         if (value) {
 773                 status = omapi_typed_data_new (file, line, &(*vp) -> value,
 774                                                omapi_datatype_object, value);
 775                 if (status != ISC_R_SUCCESS) {
 776                         omapi_value_dereference (vp, file, line);
 777                         return status;
 778                 }
 779         }
 780
 781         return ISC_R_SUCCESS;
 782 }
 783
 784 isc_result_t omapi_make_handle_value (omapi_value_t **vp,
 785                                       omapi_data_string_t *name,
 786                                       omapi_object_t *value,
 787                                       const char *file, int line)
 788 {
 789         isc_result_t status;
 790
 791         status = omapi_value_new (vp, file, line);
 792         if (status != ISC_R_SUCCESS)
 793                 return status;
 794
 795         status = omapi_data_string_reference (&(*vp) -> name,
 796                                               name, file, line);
 797         if (status != ISC_R_SUCCESS) {
 798                 omapi_value_dereference (vp, file, line);
 799                 return status;
 800         }
 801         if (value) {
 802                 status = omapi_typed_data_new (file, line, &(*vp) -> value,
 803                                                omapi_datatype_int);
 804                 if (status != ISC_R_SUCCESS) {
 805                         omapi_value_dereference (vp, file, line);
 806                         return status;
 807                 }
 808                 status = (omapi_object_handle
 809                           ((omapi_handle_t *)&(*vp) -> value -> u.integer,
 810                            value));
 811                 if (status != ISC_R_SUCCESS) {
 812                         omapi_value_dereference (vp, file, line);
 813                         return status;
 814                 }
 815         }
 816         return ISC_R_SUCCESS;
 817 }
 818
 819 isc_result_t omapi_make_string_value (omapi_value_t **vp,
 820                                       omapi_data_string_t *name,
 821                                       const char *value,
 822                                       const char *file, int line)
 823 {
 824         isc_result_t status;
 825
 826         status = omapi_value_new (vp, file, line);
 827         if (status != ISC_R_SUCCESS)
 828                 return status;
 829
 830         status = omapi_data_string_reference (&(*vp) -> name,
 831                                               name, file, line);
 832         if (status != ISC_R_SUCCESS) {
 833                 omapi_value_dereference (vp, file, line);
 834                 return status;
 835         }
 836         if (value) {
 837                 status = omapi_typed_data_new (file, line, &(*vp) -> value,
 838                                                omapi_datatype_string, value);
 839                 if (status != ISC_R_SUCCESS) {
 840                         omapi_value_dereference (vp, file, line);
 841                         return status;
 842                 }
 843         }
 844         return ISC_R_SUCCESS;
 845 }
 846
 847 isc_result_t omapi_get_int_value (unsigned long *v, omapi_typed_data_t *t)
 848 {
 849         u_int32_t rv;
 850
 851         if (t -> type == omapi_datatype_int) {
 852                 *v = t -> u.integer;
 853                 return ISC_R_SUCCESS;
 854         } else if (t -> type == omapi_datatype_string ||
 855                    t -> type == omapi_datatype_data) {
 856                 if (t -> u.buffer.len != sizeof (rv))
 857                         return ISC_R_INVALIDARG;
 858                 memcpy (&rv, t -> u.buffer.value, sizeof rv);
 859                 *v = ntohl (rv);
 860                 return ISC_R_SUCCESS;
 861         }
 862         return ISC_R_INVALIDARG;
 863 }