]>
Commit | Line | Data |
---|---|---|
885824d3 | 1 | /* |
28bf4b0b | 2 | ** Copyright (C) University of Virginia, Massachusetts Institue of Technology 1994-2001. |
885824d3 | 3 | ** See ../LICENSE for license information. |
4 | ** | |
5 | */ | |
6 | # ifndef LETDECLNODELIST_H | |
7 | # define LETDECLNODELIST_H | |
8 | ||
9 | typedef /*@only@*/ letDeclNode o_letDeclNode; | |
10 | ||
28bf4b0b | 11 | abst_typedef struct |
885824d3 | 12 | { |
13 | int nelements; | |
14 | int nspace; | |
15 | /*@reldef@*/ /*@relnull@*/ o_letDeclNode *elements; | |
16 | } *letDeclNodeList ; | |
17 | ||
18 | /*@iter letDeclNodeList_elements (sef letDeclNodeList x, yield exposed letDeclNode el); @*/ | |
19 | # define letDeclNodeList_elements(x, m_el) \ | |
20 | { int m_ind; letDeclNode *m_elements = &((x)->elements[0]); \ | |
21 | for (m_ind = 0 ; m_ind < (x)->nelements; m_ind++) \ | |
22 | { letDeclNode m_el = *(m_elements++); | |
23 | ||
24 | # define end_letDeclNodeList_elements }} | |
25 | ||
26 | extern /*@only@*/ letDeclNodeList letDeclNodeList_new(void); | |
27 | extern letDeclNodeList | |
28 | letDeclNodeList_add (/*@returned@*/ letDeclNodeList p_s, /*@only@*/ letDeclNode p_el); | |
29 | ||
30 | extern /*@only@*/ cstring letDeclNodeList_unparse (letDeclNodeList p_s) ; | |
31 | extern void letDeclNodeList_free (/*@only@*/ letDeclNodeList p_s) ; | |
32 | ||
33 | /*@constant int letDeclNodeListBASESIZE;@*/ | |
34 | # define letDeclNodeListBASESIZE SMALLBASESIZE | |
35 | ||
36 | # else | |
37 | # error "Multiple include" | |
38 | # endif | |
39 | ||
40 | ||
41 | ||
42 |