usr/src/lib/efcode/engine/resource.c

   1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License, Version 1.0 only
   6  * (the "License").  You may not use this file except in compliance
   7  * with the License.
   8  *
   9  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
  10  * or http://www.opensolaris.org/os/licensing.
  11  * See the License for the specific language governing permissions
  12  * and limitations under the License.
  13  *
  14  * When distributing Covered Code, include this CDDL HEADER in each
  15  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  16  * If applicable, add the following below this CDDL HEADER, with the
  17  * fields enclosed by brackets "[]" replaced with your own identifying
  18  * information: Portions Copyright [yyyy] [name of copyright owner]
  19  *
  20  * CDDL HEADER END
  21  */
  22 /*
  23  * Copyright (c) 1999 by Sun Microsystems, Inc.
  24  * All rights reserved.
  25  */
  26
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"
  28
  29 #include <stdio.h>
  30 #include <stdlib.h>
  31 #include <string.h>
  32
  33 #include <fcode/private.h>
  34 #include <fcode/log.h>
  35
  36 fc_resource_t *
  37 find_resource(fc_resource_t **head, void *ptr, int (cmp)(void *, void *))
  38 {
  39         fc_resource_t *f, *prev, *r = *head;
  40
  41         f = NULL;
  42         prev = NULL;
  43         while (r) {
  44                 if (r->data == NULL) {
  45                         fc_resource_t *dead;
  46
  47                         if (prev)
  48                                 prev->next = r->next;
  49                         else {
  50                                 *head = r->next;
  51                         }
  52                         dead = r;
  53                         r = r->next;
  54                         FREE(dead);
  55                 } else {
  56                         if (cmp(ptr, r->data)) {
  57                                 f = r;
  58                                 break;
  59                         }
  60                         prev = r;
  61                         r = r->next;
  62                 }
  63         }
  64         return (f);
  65 }
  66
  67 void *
  68 add_resource(fc_resource_t **head, void *ptr, int (cmp)(void *, void *))
  69 {
  70         fc_resource_t *r;
  71
  72         r = find_resource(head, ptr, cmp);
  73         if (r == NULL) {
  74                 r = MALLOC(sizeof (fc_resource_t));
  75                 r->data = ptr;
  76                 r->next = *head;
  77                 *head = r;
  78                 return (r->data);
  79         }
  80         log_message(MSG_ERROR, "add_resource: Duplicate entry: %p\n", ptr);
  81         return (NULL);
  82 }
  83
  84 void
  85 free_resource(fc_resource_t **head, void *ptr,  int (cmp)(void *, void *))
  86 {
  87         fc_resource_t *r;
  88
  89         if ((r = find_resource(head, ptr, cmp)) != NULL)
  90                 r->data = NULL;
  91         else
  92                 log_message(MSG_ERROR, "free_resource: No such Entry: %p\n",
  93                     ptr);
  94 }
  95
  96 #ifdef DEBUG
  97
  98 static int
  99 dump_print(void *s, void *d)
 100 {
 101         log_message(MSG_DEBUG, "Buffer: %p\n", d);
 102         return (0);
 103 }
 104
 105 void
 106 dump_resources(fcode_env_t *env)
 107 {
 108         fc_resource_t **head;
 109
 110         head = (fc_resource_t **) POP(DS);
 111         (void) find_resource(head, NULL, dump_print);
 112 }
 113
 114 void
 115 propbufs(fcode_env_t *env)
 116 {
 117         PUSH(DS, (fstack_t) &env->propbufs);
 118 }
 119
 120 #pragma init(_init)
 121
 122 static void
 123 _init(void)
 124 {
 125         fcode_env_t *env = initial_env;
 126
 127         NOTICE;
 128         ASSERT(env);
 129
 130         FORTH(0,                "propbufs",             propbufs);
 131         FORTH(0,                "dump-resource",        dump_resources);
 132 }
 133
 134 #endif