1/*****************************************************************************/
2/* */
3/* objdata.c */
4/* */
5/* Handling object file data for the ar65 archiver */
6/* */
7/* */
8/* */
9/* (C) 1998-2012, Ullrich von Bassewitz */
10/* Roemerstrasse 52 */
11/* D-70794 Filderstadt */
12/* EMail: uz@cc65.org */
13/* */
14/* */
15/* This software is provided 'as-is', without any expressed or implied */
16/* warranty. In no event will the authors be held liable for any damages */
17/* arising from the use of this software. */
18/* */
19/* Permission is granted to anyone to use this software for any purpose, */
20/* including commercial applications, and to alter it and redistribute it */
21/* freely, subject to the following restrictions: */
22/* */
23/* 1. The origin of this software must not be misrepresented; you must not */
24/* claim that you wrote the original software. If you use this software */
25/* in a product, an acknowledgment in the product documentation would be */
26/* appreciated but is not required. */
27/* 2. Altered source versions must be plainly marked as such, and must not */
28/* be misrepresented as being the original software. */
29/* 3. This notice may not be removed or altered from any source */
30/* distribution. */
31/* */
32/*****************************************************************************/
33
34
35
36#include <string.h>
37
38/* common */
39#include "check.h"
40#include "xmalloc.h"
41
42/* ar65 */
43#include "error.h"
44#include "library.h"
45#include "objdata.h"
46
47
48
49/*****************************************************************************/
50/* Data */
51/*****************************************************************************/
52
53
54
55/* Collection with object files */
56Collection ObjPool = STATIC_COLLECTION_INITIALIZER;
57
58
59
60/*****************************************************************************/
61/* Code */
62/*****************************************************************************/
63
64
65
66ObjData* NewObjData (void)
67/* Allocate a new structure on the heap, insert it into the list, return it */
68{
69 /* Allocate memory */
70 ObjData* O = xmalloc (sizeof (ObjData));
71
72 /* Initialize the data */
73 O->Name = 0;
74
75 O->Flags = 0;
76 O->MTime = 0;
77 O->Start = 0;
78 O->Size = 0;
79
80 O->Strings = EmptyCollection;
81 O->Exports = EmptyCollection;
82
83 /* Add it to the list */
84 CollAppend (&ObjPool, O);
85
86 /* Return the new entry */
87 return O;
88}
89
90
91
92void FreeObjData (ObjData* O)
93/* Free a complete struct */
94{
95 unsigned I;
96
97 xfree (O->Name);
98 for (I = 0; I < CollCount (&O->Strings); ++I) {
99 xfree (CollAt (&O->Strings, I));
100 }
101 DoneCollection (&O->Strings);
102 DoneCollection (&O->Exports);
103 xfree (O);
104}
105
106
107
108void ClearObjData (ObjData* O)
109/* Remove any data stored in O */
110{
111 unsigned I;
112 xfree (O->Name);
113 O->Name = 0;
114 for (I = 0; I < CollCount (&O->Strings); ++I) {
115 xfree (CollAt (&O->Strings, I));
116 }
117 CollDeleteAll (&O->Strings);
118 CollDeleteAll (&O->Exports);
119}
120
121
122
123ObjData* FindObjData (const char* Module)
124/* Search for the module with the given name and return it. Return NULL if the
125** module is not in the list.
126*/
127{
128 unsigned I;
129
130 /* Hmm. Maybe we should hash the module names? */
131 for (I = 0; I < CollCount (&ObjPool); ++I) {
132
133 /* Get this object file */
134 ObjData* O = CollAtUnchecked (&ObjPool, I);
135
136 /* Did we find it? */
137 if (strcmp (O->Name, Module) == 0) {
138 return O;
139 }
140 }
141 return 0;
142}
143
144
145
146void DelObjData (const char* Module)
147/* Delete the object module from the list */
148{
149 unsigned I;
150 for (I = 0; I < CollCount (&ObjPool); ++I) {
151
152 /* Get this object file */
153 ObjData* O = CollAtUnchecked (&ObjPool, I);
154
155 /* Did we find it? */
156 if (strcmp (O->Name, Module) == 0) {
157
158 /* Free the entry */
159 CollDelete (&ObjPool, I);
160 FreeObjData (O);
161
162 /* Done */
163 return;
164 }
165 }
166
167 /* Not found! */
168 Warning ("Module '%s' not found in library '%s'", Module, LibName);
169}
170