|
171
|
1 /* gc.c -- Functions to remember and garbage collect unused node contents. */ |
|
|
2 |
|
|
3 /* This file is part of GNU Info, a program for reading online documentation |
|
|
4 stored in Info format. |
|
|
5 |
|
|
6 Copyright (C) 1993 Free Software Foundation, Inc. |
|
|
7 |
|
|
8 This program is free software; you can redistribute it and/or modify |
|
|
9 it under the terms of the GNU General Public License as published by |
|
|
10 the Free Software Foundation; either version 2, or (at your option) |
|
|
11 any later version. |
|
|
12 |
|
|
13 This program is distributed in the hope that it will be useful, |
|
|
14 but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
|
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
|
16 GNU General Public License for more details. |
|
|
17 |
|
|
18 You should have received a copy of the GNU General Public License |
|
|
19 along with this program; if not, write to the Free Software |
|
|
20 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. |
|
|
21 |
|
|
22 Written by Brian Fox (bfox@ai.mit.edu). */ |
|
|
23 |
|
1242
|
24 #ifdef HAVE_CONFIG_H |
|
|
25 #include <config.h> |
|
|
26 #endif |
|
|
27 |
|
171
|
28 #include "info.h" |
|
|
29 |
|
|
30 /* Array of pointers to the contents of gc-able nodes. A pointer on this |
|
|
31 list can be garbage collected when no info window contains a node whose |
|
|
32 contents member match the pointer. */ |
|
|
33 static char **gcable_pointers = (char **)NULL; |
|
|
34 static int gcable_pointers_index = 0; |
|
|
35 static int gcable_pointers_slots = 0; |
|
|
36 |
|
|
37 /* Add POINTER to the list of garbage collectible pointers. A pointer |
|
|
38 is not actually garbage collected until no info window contains a node |
|
|
39 whose contents member is equal to the pointer. */ |
|
|
40 void |
|
|
41 add_gcable_pointer (pointer) |
|
|
42 char *pointer; |
|
|
43 { |
|
|
44 gc_pointers (); |
|
|
45 add_pointer_to_array (pointer, gcable_pointers_index, gcable_pointers, |
|
|
46 gcable_pointers_slots, 10, char *); |
|
|
47 } |
|
|
48 |
|
|
49 /* Grovel the list of info windows and gc-able pointers finding those |
|
|
50 node->contents which are collectible, and free them. */ |
|
|
51 void |
|
|
52 gc_pointers () |
|
|
53 { |
|
|
54 register int i, j, k; |
|
|
55 INFO_WINDOW *iw; |
|
|
56 char **new = (char **)NULL; |
|
|
57 int new_index = 0; |
|
|
58 int new_slots = 0; |
|
|
59 |
|
|
60 if (!info_windows || !gcable_pointers_index) |
|
|
61 return; |
|
|
62 |
|
|
63 for (i = 0; iw = info_windows[i]; i++) |
|
|
64 { |
|
|
65 for (j = 0; j < iw->nodes_index; j++) |
|
|
66 { |
|
|
67 NODE *node = iw->nodes[j]; |
|
|
68 |
|
|
69 /* If this node->contents appears in our list of gcable_pointers, |
|
|
70 it is not gc-able, so save it. */ |
|
|
71 for (k = 0; k < gcable_pointers_index; k++) |
|
|
72 if (gcable_pointers[k] == node->contents) |
|
|
73 { |
|
|
74 add_pointer_to_array |
|
|
75 (node->contents, new_index, new, new_slots, 10, char *); |
|
|
76 break; |
|
|
77 } |
|
|
78 } |
|
|
79 } |
|
|
80 |
|
|
81 /* We have gathered all of the pointers which need to be saved. Free any |
|
|
82 of the original pointers which do not appear in the new list. */ |
|
|
83 for (i = 0; i < gcable_pointers_index; i++) |
|
|
84 { |
|
|
85 for (j = 0; j < new_index; j++) |
|
|
86 if (gcable_pointers[i] == new[j]) |
|
|
87 break; |
|
|
88 |
|
|
89 /* If we got all the way through the new list, then the old pointer |
|
|
90 can be garbage collected. */ |
|
|
91 if (new && !new[j]) |
|
|
92 free (gcable_pointers[i]); |
|
|
93 } |
|
|
94 |
|
|
95 free (gcable_pointers); |
|
|
96 gcable_pointers = new; |
|
|
97 gcable_pointers_slots = new_slots; |
|
|
98 gcable_pointers_index = new_index; |
|
|
99 } |
