Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-09 12:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

d: rewrite Symbol's constructors in M4

Browse Source 
The D code was becoming too complex.
M4 is easier to maintain in the long run.

* data/skeletons/d.m4: Here.
This commit is contained in:
Adela Vais
2021-03-13 22:15:05 +02:00
committed by Akim Demaille
parent fb032a28df
commit a9c2549c27
1 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
data/skeletons/d.m4
View File

@@ -448,6 +448,22 @@ alias Position = ]b4_position_type[;]])[
]]) ]])
# b4_basic_symbol_constructor_define
# ----------------------------------
# Create Symbol struct constructors for all the visible types.
m4_define([b4_basic_symbol_constructor_define],
[b4_token_visible_if([$1],
[ this(TokenKind token]b4_symbol_if([$1], [has_type],
[[, typeof(YYSemanticType.]b4_symbol([$1], [type])dnl
[) val]])[]b4_locations_if([[, Location loc]])[)
{
kind = yytranslate_(token);]b4_symbol_if([$1], [has_type], [[
value_.]b4_symbol([$1], [type])[ = val;]])[]b4_locations_if([
location_ = loc;])[
}
])])
# b4_symbol_type_define # b4_symbol_type_define
# --------------------- # ---------------------
# Define symbol_type, the external type for symbols used for symbol # Define symbol_type, the external type for symbols used for symbol
@@ -462,20 +478,8 @@ m4_define([b4_symbol_type_define],
private SymbolKind kind; private SymbolKind kind;
private Value value_;]b4_locations_if([[ private Value value_;]b4_locations_if([[
private Location location_;]])[ private Location location_;]])[
this(TokenKind token]b4_locations_if([[, Location loc]])[)
{ ]b4_type_foreach([b4_basic_symbol_constructor_define])[
kind = yytranslate_(token);]b4_locations_if([
location_ = loc;])[
}
static foreach (member; __traits(allMembers, YYSemanticType))
{
this(TokenKind token, typeof(mixin("YYSemanticType." ~ member)) val]b4_locations_if([[, Location loc]])[)
{
kind = yytranslate_(token);
mixin("value_." ~ member ~ " = val;");]b4_locations_if([
location_ = loc;])[
}
}
SymbolKind token() { return kind; } SymbolKind token() { return kind; }
Value value() { return value_; }]b4_locations_if([[ Value value() { return value_; }]b4_locations_if([[
Location location() { return location_; }]])[ Location location() { return location_; }]])[