2 ** Splint - annotation-assisted static program checker
3 ** Copyright (C) 1994-2003 University of Virginia,
4 ** Massachusetts Institute of Technology
6 ** This program is free software; you can redistribute it and/or modify it
7 ** under the terms of the GNU General Public License as published by the
8 ** Free Software Foundation; either version 2 of the License, or (at your
9 ** option) any later version.
11 ** This program is distributed in the hope that it will be useful, but
12 ** WITHOUT ANY WARRANTY; without even the implied warranty of
13 ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 ** General Public License for more details.
16 ** The GNU General Public License is available from http://www.gnu.org/ or
17 ** the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
18 ** MA 02111-1307, USA.
20 ** For information on splint: info@splint.org
21 ** To report a bug: splint-bug@splint.org
22 ** For more information: http://www.splint.org
27 ** based on list_template.c
29 ** where T has T_equal (or change this) and T_unparse
32 # include "splintMacros.nf"
35 /*@constant int importNodeListBASESIZE;@*/
36 # define importNodeListBASESIZE SMALLBASESIZE
38 /*@only@*/ importNodeList
39 importNodeList_new (void)
41 importNodeList s
= (importNodeList
) dmalloc (sizeof (*s
));
44 s
->nspace
= importNodeListBASESIZE
;
45 s
->elements
= (importNode
*)
46 dmalloc (sizeof (*s
->elements
) * importNodeListBASESIZE
);
52 importNodeList_grow (importNodeList s
)
55 importNode
*newelements
;
57 s
->nspace
+= importNodeListBASESIZE
;
59 newelements
= (importNode
*) dmalloc (sizeof (*newelements
)
60 * (s
->nelements
+ s
->nspace
));
62 for (i
= 0; i
< s
->nelements
; i
++)
64 newelements
[i
] = s
->elements
[i
];
68 s
->elements
= newelements
;
72 importNodeList_add (importNodeList s
, importNode el
)
75 importNodeList_grow (s
);
78 s
->elements
[s
->nelements
] = el
;
85 importNodeList_unparse (importNodeList s
)
88 cstring st
= cstring_undefined
;
90 importNodeList_elements (s
, current
)
94 st
= cstring_copy (ltoken_unparse (current
->val
));
99 st
= message ("%q, %s", st
, ltoken_unparse (current
->val
));
101 } end_importNodeList_elements
;
105 # endif /* DEADCODE */
108 importNodeList_free (importNodeList s
)
112 for (i
= 0; i
< s
->nelements
; i
++)
114 importNode_free (s
->elements
[i
]);