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
25 ** varDeclarationNodeList.c
27 ** based on list_template.c
29 ** where T has T_equal (or change this) and T_unparse
32 # include "splintMacros.nf"
35 varDeclarationNodeList
varDeclarationNodeList_new ()
37 varDeclarationNodeList s
= (varDeclarationNodeList
) dmalloc (sizeof (*s
));
40 s
->nspace
= varDeclarationNodeListBASESIZE
;
41 s
->elements
= (varDeclarationNode
*)
42 dmalloc (sizeof (*s
->elements
) * varDeclarationNodeListBASESIZE
);
48 varDeclarationNodeList_grow (varDeclarationNodeList s
)
51 varDeclarationNode
*newelements
;
53 s
->nspace
+= varDeclarationNodeListBASESIZE
;
55 newelements
= (varDeclarationNode
*) dmalloc (sizeof (*newelements
)
56 * (s
->nelements
+ s
->nspace
));
58 for (i
= 0; i
< s
->nelements
; i
++)
60 newelements
[i
] = s
->elements
[i
];
64 s
->elements
= newelements
;
68 varDeclarationNodeList_addh (varDeclarationNodeList s
, /*@keep@*/ varDeclarationNode el
)
71 varDeclarationNodeList_grow (s
);
74 s
->elements
[s
->nelements
] = el
;
79 varDeclarationNodeList_unparse (varDeclarationNodeList s
)
81 cstring st
= cstring_undefined
;
83 varDeclarationNodeList_elements (s
, current
)
85 if (current
->isPrivate
)
86 st
= message ("%q private ", st
);
88 st
= message ("%q%q %q;\n", st
, lclTypeSpecNode_unparse (current
->type
),
89 initDeclNodeList_unparse (current
->decls
));
90 } end_varDeclarationNodeList_elements
;
97 varDeclarationNodeList_free (varDeclarationNodeList s
)
100 for (i
= 0; i
< s
->nelements
; i
++)
102 varDeclarationNode_free (s
->elements
[i
]);