1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
#line 2 "common.prologue"
/*************************************************************************
* Copyright (C) 2010 Tavian Barnes <tavianator@tavianator.com> *
* *
* This file is part of Dimension. *
* *
* Dimension is free software; you can redistribute it and/or modify it *
* under the terms of the GNU General Public License as published by the *
* Free Software Foundation; either version 3 of the License, or (at *
* your option) any later version. *
* *
* Dimension is distributed in the hope that it will be useful, but *
* WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
* General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program. If not, see <http://www.gnu.org/licenses/>. *
*************************************************************************/
#include "parse.h"
#include "tokenize.h"
#include "utility.h"
#include <errno.h>
#include <stdlib.h>
#include <stdio.h>
#define YYSTYPE dmnsn_parse_item
#define YYLTYPE dmnsn_parse_location
#define YYLLOC_DEFAULT(Current, Rhs, N) \
do { \
if (N) { \
(Current).first_filename = YYRHSLOC(Rhs, 1).first_filename; \
(Current).first_line = YYRHSLOC(Rhs, 1).first_line; \
(Current).first_column = YYRHSLOC(Rhs, 1).first_column; \
(Current).last_filename = YYRHSLOC(Rhs, N).last_filename; \
(Current).last_line = YYRHSLOC(Rhs, N).last_line; \
(Current).last_column = YYRHSLOC(Rhs, N).last_column; \
(Current).parent = YYRHSLOC(Rhs, 1).parent; \
} else { \
(Current) = YYRHSLOC(Rhs, 0); \
} \
} while (0)
/* Create a new astnode, populating filename, line, and col */
static dmnsn_astnode
dmnsn_new_astnode(dmnsn_astnode_type type, YYLTYPE lloc)
{
dmnsn_astnode astnode = {
.type = type,
.children = dmnsn_new_array(sizeof(dmnsn_astnode)),
.ptr = NULL,
.free_fn = NULL,
.refcount = dmnsn_malloc(sizeof(unsigned int)),
.location = lloc
};
*astnode.refcount = 1;
return astnode;
}
/* Semi-shallow copy */
static void
dmnsn_copy_children(dmnsn_astnode dest, dmnsn_astnode src)
{
for (size_t i = 0; i < dmnsn_array_size(src.children); ++i) {
dmnsn_astnode node;
dmnsn_array_get(src.children, i, &node);
++*node.refcount;
if (i < dmnsn_array_size(dest.children)) {
dmnsn_astnode clobbered;
dmnsn_array_get(dest.children, i, &clobbered);
dmnsn_delete_astnode(clobbered);
}
dmnsn_array_set(dest.children, i, &node);
}
}
static dmnsn_astnode
dmnsn_new_astnode1(dmnsn_astnode_type type, YYLTYPE lloc, dmnsn_astnode n1)
{
dmnsn_astnode astnode = dmnsn_new_astnode(type, lloc);
dmnsn_array_push(astnode.children, &n1);
return astnode;
}
static dmnsn_astnode
dmnsn_new_astnode2(dmnsn_astnode_type type, YYLTYPE lloc,
dmnsn_astnode n1, dmnsn_astnode n2)
{
dmnsn_astnode astnode = dmnsn_new_astnode(type, lloc);
dmnsn_array_push(astnode.children, &n1);
dmnsn_array_push(astnode.children, &n2);
return astnode;
}
static dmnsn_astnode
dmnsn_new_astnode3(dmnsn_astnode_type type, YYLTYPE lloc,
dmnsn_astnode n1, dmnsn_astnode n2, dmnsn_astnode n3)
{
dmnsn_astnode astnode = dmnsn_new_astnode(type, lloc);
dmnsn_array_push(astnode.children, &n1);
dmnsn_array_push(astnode.children, &n2);
dmnsn_array_push(astnode.children, &n3);
return astnode;
}
static dmnsn_astnode
dmnsn_new_astnode4(dmnsn_astnode_type type, YYLTYPE lloc,
dmnsn_astnode n1, dmnsn_astnode n2, dmnsn_astnode n3,
dmnsn_astnode n4)
{
dmnsn_astnode astnode = dmnsn_new_astnode(type, lloc);
dmnsn_array_push(astnode.children, &n1);
dmnsn_array_push(astnode.children, &n2);
dmnsn_array_push(astnode.children, &n3);
dmnsn_array_push(astnode.children, &n4);
return astnode;
}
static dmnsn_astnode
dmnsn_new_astnode5(dmnsn_astnode_type type, YYLTYPE lloc,
dmnsn_astnode n1, dmnsn_astnode n2, dmnsn_astnode n3,
dmnsn_astnode n4, dmnsn_astnode n5)
{
dmnsn_astnode astnode = dmnsn_new_astnode(type, lloc);
dmnsn_array_push(astnode.children, &n1);
dmnsn_array_push(astnode.children, &n2);
dmnsn_array_push(astnode.children, &n3);
dmnsn_array_push(astnode.children, &n4);
dmnsn_array_push(astnode.children, &n5);
return astnode;
}
|
