|
111
|
1 /* Array and structure constructors
|
|
145
|
2 Copyright (C) 2009-2020 Free Software Foundation, Inc.
|
|
111
|
3
|
|
|
4 This file is part of GCC.
|
|
|
5
|
|
|
6 GCC is free software; you can redistribute it and/or modify it under
|
|
|
7 the terms of the GNU General Public License as published by the Free
|
|
|
8 Software Foundation; either version 3, or (at your option) any later
|
|
|
9 version.
|
|
|
10
|
|
|
11 GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
12 WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with GCC; see the file COPYING3. If not see
|
|
|
18 <http://www.gnu.org/licenses/>. */
|
|
|
19
|
|
|
20 #ifndef GFC_CONSTRUCTOR_H
|
|
|
21 #define GFC_CONSTRUCTOR_H
|
|
|
22
|
|
|
23 /* Get a new constructor structure. */
|
|
|
24 gfc_constructor *gfc_constructor_get (void);
|
|
|
25
|
|
|
26 gfc_constructor_base gfc_constructor_get_base (void);
|
|
|
27
|
|
|
28 /* Copy a constructor structure. */
|
|
|
29 gfc_constructor_base gfc_constructor_copy (gfc_constructor_base base);
|
|
|
30
|
|
|
31
|
|
|
32 /* Free a gfc_constructor structure. */
|
|
|
33 void gfc_constructor_free (gfc_constructor_base base);
|
|
|
34
|
|
|
35
|
|
|
36 /* Given an constructor structure, append the expression node onto
|
|
|
37 the constructor. Returns the constructor node appended. */
|
|
|
38 gfc_constructor *gfc_constructor_append (gfc_constructor_base *base,
|
|
|
39 gfc_constructor *c);
|
|
|
40
|
|
|
41 gfc_constructor *gfc_constructor_append_expr (gfc_constructor_base *base,
|
|
|
42 gfc_expr *e, locus *where);
|
|
|
43
|
|
|
44
|
|
|
45 /* Given an constructor structure, place the expression node at position.
|
|
|
46 Returns the constructor node inserted. */
|
|
|
47 gfc_constructor *gfc_constructor_insert (gfc_constructor_base *base,
|
|
|
48 gfc_constructor *c, int n);
|
|
|
49
|
|
|
50 gfc_constructor *gfc_constructor_insert_expr (gfc_constructor_base *base,
|
|
|
51 gfc_expr *e, locus *where,
|
|
|
52 int n);
|
|
|
53
|
|
|
54 /* Given an array constructor expression and an element number (starting
|
|
|
55 at zero), return a pointer to the array element. NULL is returned if
|
|
|
56 the size of the array has been exceeded. The expression node returned
|
|
|
57 remains a part of the array and should not be freed. */
|
|
|
58
|
|
|
59 gfc_constructor *gfc_constructor_lookup (gfc_constructor_base base, int n);
|
|
|
60
|
|
|
61 /* Convenience function. Same as ...
|
|
|
62 gfc_constructor *c = gfc_constructor_lookup (base, n);
|
|
|
63 gfc_expr *e = c ? c->expr : NULL;
|
|
|
64 */
|
|
|
65 gfc_expr *gfc_constructor_lookup_expr (gfc_constructor_base base, int n);
|
|
|
66
|
|
|
67
|
|
|
68 int gfc_constructor_expr_foreach (gfc_constructor *ctor, int(*)(gfc_expr *));
|
|
|
69
|
|
|
70
|
|
|
71 void gfc_constructor_swap (gfc_constructor *ctor, int n, int m);
|
|
|
72
|
|
|
73
|
|
|
74
|
|
|
75 /* Get the first constructor node in the constructure structure.
|
|
|
76 Returns NULL if there is no such expression. */
|
|
|
77 gfc_constructor *gfc_constructor_first (gfc_constructor_base base);
|
|
|
78
|
|
|
79 /* Get the next constructor node in the constructure structure.
|
|
|
80 Returns NULL if there is no next expression. */
|
|
|
81 gfc_constructor *gfc_constructor_next (gfc_constructor *ctor);
|
|
|
82
|
|
|
83 /* Remove the gfc_constructor node from the splay tree. */
|
|
|
84 void gfc_constructor_remove (gfc_constructor *);
|
|
|
85
|
|
|
86 /* Return first constructor node after offset. */
|
|
|
87 gfc_constructor *gfc_constructor_lookup_next (gfc_constructor_base, int);
|
|
|
88
|
|
|
89 #endif /* GFC_CONSTRUCTOR_H */
|
