1 | /*****************************************************************************/ |
2 | /* */ |
3 | /* tpool.c */ |
4 | /* */ |
5 | /* Pool for generic types */ |
6 | /* */ |
7 | /* */ |
8 | /* */ |
9 | /* (C) 2011, 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 | /* common */ |
37 | #include "gentype.h" |
38 | |
39 | /* ld65 */ |
40 | #include "tpool.h" |
41 | |
42 | |
43 | |
44 | /*****************************************************************************/ |
45 | /* Data */ |
46 | /*****************************************************************************/ |
47 | |
48 | |
49 | |
50 | /* The string pool we're using */ |
51 | StringPool* TypePool = 0; |
52 | |
53 | |
54 | |
55 | /*****************************************************************************/ |
56 | /* Code */ |
57 | /*****************************************************************************/ |
58 | |
59 | |
60 | |
61 | void PrintDbgTypes (FILE* F) |
62 | /* Output the types to a debug info file */ |
63 | { |
64 | StrBuf Type = STATIC_STRBUF_INITIALIZER; |
65 | |
66 | /* Get the number of strings in the type pool */ |
67 | unsigned Count = SP_GetCount (TypePool); |
68 | |
69 | /* Output all of them */ |
70 | unsigned Id; |
71 | for (Id = 0; Id < Count; ++Id) { |
72 | |
73 | /* Output it */ |
74 | fprintf (F, "type\tid=%u,val=\"%s\"\n" , Id, |
75 | GT_AsString (SP_Get (TypePool, Id), &Type)); |
76 | |
77 | } |
78 | |
79 | /* Free the memory for the temporary string */ |
80 | SB_Done (&Type); |
81 | } |
82 | |
83 | |
84 | |
85 | void InitTypePool (void) |
86 | /* Initialize the type pool */ |
87 | { |
88 | /* Allocate a type pool */ |
89 | TypePool = NewStringPool (137); |
90 | } |
91 | |