Commit | Line | Data |
---|---|---|
c906108c SS |
1 | /* This file is part of the program psim. |
2 | ||
3 | Copyright (C) 1994-1995,1997, Andrew Cagney <cagney@highland.com.au> | |
4 | ||
5 | This program is free software; you can redistribute it and/or modify | |
6 | it under the terms of the GNU General Public License as published by | |
7 | the Free Software Foundation; either version 2 of the License, or | |
8 | (at your option) any later version. | |
9 | ||
10 | This program 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 | |
13 | GNU General Public License for more details. | |
14 | ||
15 | You should have received a copy of the GNU General Public License | |
16 | along with this program; if not, write to the Free Software | |
17 | Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. | |
18 | ||
19 | */ | |
20 | ||
21 | ||
22 | #ifndef _CAP_C_ | |
23 | #define _CAP_C_ | |
24 | ||
25 | #include "cap.h" | |
26 | ||
27 | typedef struct _cap_mapping cap_mapping; | |
28 | struct _cap_mapping { | |
29 | unsigned_cell external; | |
30 | void *internal; | |
31 | cap_mapping *next; | |
32 | }; | |
33 | ||
34 | struct _cap { | |
35 | int nr_mappings; | |
36 | cap_mapping *mappings; | |
37 | }; | |
38 | ||
39 | INLINE_CAP\ | |
40 | (cap *) | |
41 | cap_create(const char *key) | |
42 | { | |
43 | return ZALLOC(cap); | |
44 | } | |
45 | ||
46 | INLINE_CAP\ | |
47 | (void) | |
48 | cap_init(cap *db) | |
49 | { | |
50 | cap_mapping *current_map = db->mappings; | |
51 | if (current_map != NULL) { | |
52 | db->nr_mappings = db->mappings->external; | |
53 | /* verify that the mappings that were not removed are in sequence | |
54 | down to nr 1 */ | |
55 | while (current_map->next != NULL) { | |
56 | if (current_map->external != current_map->next->external + 1) | |
57 | error("cap: cap database possibly corrupt"); | |
58 | current_map = current_map->next; | |
59 | } | |
60 | ASSERT(current_map->next == NULL); | |
61 | if (current_map->external != 1) | |
62 | error("cap: cap database possibly currupt"); | |
63 | } | |
64 | else { | |
65 | db->nr_mappings = 0; | |
66 | } | |
67 | } | |
68 | ||
69 | INLINE_CAP\ | |
70 | (void *) | |
71 | cap_internal(cap *db, | |
72 | signed_cell external) | |
73 | { | |
74 | cap_mapping *current_map = db->mappings; | |
75 | while (current_map != NULL) { | |
76 | if (current_map->external == external) | |
77 | return current_map->internal; | |
78 | current_map = current_map->next; | |
79 | } | |
80 | return (void*)0; | |
81 | } | |
82 | ||
83 | INLINE_CAP\ | |
84 | (signed_cell) | |
85 | cap_external(cap *db, | |
86 | void *internal) | |
87 | { | |
88 | cap_mapping *current_map = db->mappings; | |
89 | while (current_map != NULL) { | |
90 | if (current_map->internal == internal) | |
91 | return current_map->external; | |
92 | current_map = current_map->next; | |
93 | } | |
94 | return 0; | |
95 | } | |
96 | ||
97 | INLINE_CAP\ | |
98 | (void) | |
99 | cap_add(cap *db, | |
100 | void *internal) | |
101 | { | |
102 | if (cap_external(db, internal) != 0) { | |
103 | error("cap: attempting to add an object already in the data base"); | |
104 | } | |
105 | else { | |
106 | /* insert at the front making things in decending order */ | |
107 | cap_mapping *new_map = ZALLOC(cap_mapping); | |
108 | new_map->next = db->mappings; | |
109 | new_map->internal = internal; | |
110 | db->nr_mappings += 1; | |
111 | new_map->external = db->nr_mappings; | |
112 | db->mappings = new_map; | |
113 | } | |
114 | } | |
115 | ||
116 | INLINE_CAP\ | |
117 | (void) | |
118 | cap_remove(cap *db, | |
119 | void *internal) | |
120 | { | |
121 | cap_mapping **current_map = &db->mappings; | |
122 | while (*current_map != NULL) { | |
123 | if ((*current_map)->internal == internal) { | |
124 | cap_mapping *delete = *current_map; | |
125 | *current_map = delete->next; | |
126 | zfree(delete); | |
127 | return; | |
128 | } | |
129 | current_map = &(*current_map)->next; | |
130 | } | |
131 | error("cap: attempt to remove nonexistant internal object"); | |
132 | } | |
133 | ||
134 | #endif |