mirrors/bird
mirrors/bird
0
0
Fork 0
mirror of https://gitlab.nic.cz/labs/bird.git synced 2024-11-09 12:48:43 +00:00
Code Releases Activity

Filter: Shortened method declarations

Browse Source
This commit is contained in:
Maria Matejka 2023-06-19 15:49:51 +02:00 committed by Ondrej Zajicek
parent 21faa54ec3
commit 6d411fc7bd
2 changed files with 51 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
filter/decl.m4
View File

@ -292,6 +292,21 @@ m4_define([[INST_IS_METHOD]])
m4_define([[INST_METHOD_NAME]],$1) m4_define([[INST_METHOD_NAME]],$1)
FID_INTERPRET_BODY()') FID_INTERPRET_BODY()')
# Short method constructor
# $1 = type
# $2 = name
# $3 = method inputs
# method outputs are always 1
# $4 = code
m4_define(METHOD, `m4_dnl
INST([[FI_METHOD__]]$1[[__]]$2, m4_eval($3 + 1), 1) {
ARG(1, $1);
$4
METHOD_CONSTRUCTOR("$2");
}')
m4_define(METHOD_R, `METHOD($1, $2, $3, [[ RESULT($4, $5, $6) ]])')
# 2) Code wrapping # 2) Code wrapping
# The code produced in 1xx temporary diversions is a raw code without # The code produced in 1xx temporary diversions is a raw code without
# any auxiliary commands and syntactical structures around. When the # any auxiliary commands and syntactical structures around. When the

143
filter/f-inst.c
View File

@ -101,6 +101,11 @@
* *
* Other code is just copied into the interpreter part. * Other code is just copied into the interpreter part.
* *
* It's also possible to declare type methods in a short way:
*
* m4_dnl METHOD(type, method name, argument count, code)
* m4_dnl METHOD_R(type, method name, argument count, result type, union-field, value)
*
* The filter language uses a simple type system, where values have types * The filter language uses a simple type system, where values have types
* (constants T_*) and also terms (instructions) are statically typed. Our * (constants T_*) and also terms (instructions) are statically typed. Our
* static typing is partial (some terms do not declare types of arguments * static typing is partial (some terms do not declare types of arguments
@ -491,17 +496,8 @@
RESULT(T_BOOL, i, (v1.type != T_VOID) && !undef_value(v1)); RESULT(T_BOOL, i, (v1.type != T_VOID) && !undef_value(v1));
} }
INST(FI_NET_TYPE, 1, 1) { METHOD_R(T_NET, type, 0, T_ENUM_NETTYPE, i, v1.val.net->type);
ARG(1, T_NET); METHOD_R(T_IP, is_v4, 0, T_BOOL, i, ipa_is_ip4(v1.val.ip));
METHOD_CONSTRUCTOR("type");
RESULT(T_ENUM_NETTYPE, i, v1.val.net->type);
}
INST(FI_IS_V4, 1, 1) {
ARG(1, T_IP);
METHOD_CONSTRUCTOR("is_v4");
RESULT(T_BOOL, i, ipa_is_ip4(v1.val.ip));
}
/* Add initialized variable */ /* Add initialized variable */
INST(FI_VAR_INIT, 1, 0) { INST(FI_VAR_INIT, 1, 0) {
@ -557,29 +553,10 @@
RESULT_VAL(val); RESULT_VAL(val);
} }
INST(FI_PATH_EMPTY, 1, 1) { METHOD_R(T_PATH, empty, 0, T_PATH, ad, &null_adata);
ARG(1, T_PATH); METHOD_R(T_CLIST, empty, 0, T_CLIST, ad, &null_adata);
METHOD_CONSTRUCTOR("empty"); METHOD_R(T_ECLIST, empty, 0, T_ECLIST, ad, &null_adata);
RESULT(T_PATH, ad, &null_adata); METHOD_R(T_LCLIST, empty, 0, T_LCLIST, ad, &null_adata);
}
INST(FI_CLIST_EMPTY, 1, 1) {
ARG(1, T_CLIST);
METHOD_CONSTRUCTOR("empty");
RESULT(T_CLIST, ad, &null_adata);
}
INST(FI_ECLIST_EMPTY, 1, 1) {
ARG(1, T_ECLIST);
METHOD_CONSTRUCTOR("empty");
RESULT(T_ECLIST, ad, &null_adata);
}
INST(FI_LCLIST_EMPTY, 1, 1) {
ARG(1, T_LCLIST);
METHOD_CONSTRUCTOR("empty");
RESULT(T_LCLIST, ad, &null_adata);
}
/* Common loop begin instruction, always created by f_for_cycle() */ /* Common loop begin instruction, always created by f_for_cycle() */
INST(FI_FOR_LOOP_START, 0, 3) { INST(FI_FOR_LOOP_START, 0, 3) {
@ -969,35 +946,12 @@
ea_unset_attr(fs->eattrs, fs->pool, 1, da.ea_code); ea_unset_attr(fs->eattrs, fs->pool, 1, da.ea_code);
} }
INST(FI_NET_LENGTH, 1, 1) { /* Get length of */ /* Get length of */
ARG(1, T_NET); METHOD_R(T_NET, len, 0, T_INT, i, net_pxlen(v1.val.net));
METHOD_CONSTRUCTOR("len"); METHOD_R(T_PATH, len, 0, T_INT, i, as_path_getlen(v1.val.ad));
RESULT(T_INT, i, net_pxlen(v1.val.net)); METHOD_R(T_CLIST, len, 0, T_INT, i, int_set_get_size(v1.val.ad));
} METHOD_R(T_ECLIST, len, 0, T_INT, i, ec_set_get_size(v1.val.ad));
METHOD_R(T_LCLIST, len, 0, T_INT, i, lc_set_get_size(v1.val.ad));
INST(FI_PATH_LENGTH, 1, 1) { /* Get length of */
ARG(1, T_PATH);
METHOD_CONSTRUCTOR("len");
RESULT(T_INT, i, as_path_getlen(v1.val.ad));
}
INST(FI_CLIST_LENGTH, 1, 1) { /* Get length of */
ARG(1, T_CLIST);
METHOD_CONSTRUCTOR("len");
RESULT(T_INT, i, int_set_get_size(v1.val.ad));
}
INST(FI_ECLIST_LENGTH, 1, 1) { /* Get length of */
ARG(1, T_ECLIST);
METHOD_CONSTRUCTOR("len");
RESULT(T_INT, i, ec_set_get_size(v1.val.ad));
}
INST(FI_LCLIST_LENGTH, 1, 1) { /* Get length of */
ARG(1, T_LCLIST);
METHOD_CONSTRUCTOR("len");
RESULT(T_INT, i, lc_set_get_size(v1.val.ad));
}
INST(FI_NET_SRC, 1, 1) { /* Get src prefix */ INST(FI_NET_SRC, 1, 1) { /* Get src prefix */
ARG(1, T_NET); ARG(1, T_NET);
@ -1071,45 +1025,32 @@
RESULT(T_NET, net, dst); RESULT(T_NET, net, dst);
} }
INST(FI_ROA_MAXLEN, 1, 1) { /* Get ROA max prefix length */ /* Get ROA max prefix length */
ARG(1, T_NET); METHOD(T_NET, maxlen, 0, [[
METHOD_CONSTRUCTOR("maxlen")
if (!net_is_roa(v1.val.net)) if (!net_is_roa(v1.val.net))
runtime( "ROA expected" ); runtime( "ROA expected" );
RESULT(T_INT, i, (v1.val.net->type == NET_ROA4) ? RESULT(T_INT, i, (v1.val.net->type == NET_ROA4) ?
((net_addr_roa4 *) v1.val.net)->max_pxlen : ((net_addr_roa4 *) v1.val.net)->max_pxlen :
((net_addr_roa6 *) v1.val.net)->max_pxlen); ((net_addr_roa6 *) v1.val.net)->max_pxlen);
} ]]);
INST(FI_NET_ASN, 1, 1) { /* Get ROA ASN or community ASN part */ /* Get ROA ASN or community ASN part */
ARG(1, T_NET); METHOD_R(T_PAIR, asn, 0, T_INT, i, v1.val.i >> 16);
METHOD_CONSTRUCTOR("asn"); METHOD_R(T_LC, asn, 0, T_INT, i, v1.val.lc.asn);
METHOD(T_NET, asn, 0, [[
if (!net_is_roa(v1.val.net)) if (!net_is_roa(v1.val.net))
runtime( "ROA expected" ); runtime( "ROA expected" );
RESULT(T_INT, i, (v1.val.net->type == NET_ROA4) ? RESULT(T_INT, i, (v1.val.net->type == NET_ROA4) ?
((net_addr_roa4 *) v1.val.net)->asn : ((net_addr_roa4 *) v1.val.net)->asn :
((net_addr_roa6 *) v1.val.net)->asn); ((net_addr_roa6 *) v1.val.net)->asn);
} ]]);
INST(FI_PAIR_ASN, 1, 1) { /* Get ROA ASN or community ASN part */
ARG(1, T_PAIR);
METHOD_CONSTRUCTOR("asn");
RESULT(T_INT, i, v1.val.i >> 16);
}
INST(FI_LC_ASN, 1, 1) { /* Get ROA ASN or community ASN part */ /* Convert prefix to IP */
ARG(1, T_LC); METHOD_R(T_NET, ip, 0, T_IP, ip, net_prefix(v1.val.net));
METHOD_CONSTRUCTOR("asn");
RESULT(T_INT, i, v1.val.lc.asn);
}
INST(FI_NET_IP, 1, 1) { /* Convert prefix to ... */
ARG(1, T_NET);
METHOD_CONSTRUCTOR("ip");
RESULT(T_IP, ip, net_prefix(v1.val.net));
}
INST(FI_ROUTE_DISTINGUISHER, 1, 1) { INST(FI_ROUTE_DISTINGUISHER, 1, 1) {
ARG(1, T_NET); ARG(1, T_NET);
@ -1135,29 +1076,17 @@
RESULT(T_INT, i, as); RESULT(T_INT, i, as);
} }
INST(FI_AS_PATH_LAST_NAG, 1, 1) { /* Get last ASN from non-aggregated part of AS PATH */ /* Get last ASN from non-aggregated part of AS PATH */
ARG(1, T_PATH); METHOD_R(T_PATH, last_nonaggregated, 0, T_INT, i, as_path_get_last_nonaggregated(v1.val.ad));
METHOD_CONSTRUCTOR("last_nonaggregated");
RESULT(T_INT, i, as_path_get_last_nonaggregated(v1.val.ad));
}
INST(FI_PAIR_DATA, 1, 1) { /* Get data part from the standard community */ /* Get data part from the standard community */
ARG(1, T_PAIR); METHOD_R(T_PAIR, data, 0, T_INT, i, v1.val.i & 0xFFFF);
METHOD_CONSTRUCTOR("data");
RESULT(T_INT, i, v1.val.i & 0xFFFF);
}
INST(FI_LC_DATA1, 1, 1) { /* Get data1 part from the large community */ /* Get data1 part from the large community */
ARG(1, T_LC); METHOD_R(T_LC, data1, 0, T_INT, i, v1.val.lc.ldp1);
METHOD_CONSTRUCTOR("data1");
RESULT(T_INT, i, v1.val.lc.ldp1);
}
INST(FI_LC_DATA2, 1, 1) { /* Get data2 part from the large community */ /* Get data2 part from the large community */
ARG(1, T_LC); METHOD_R(T_LC, data2, 0, T_INT, i, v1.val.lc.ldp2);
METHOD_CONSTRUCTOR("data2");
RESULT(T_INT, i, v1.val.lc.ldp2);
}
INST(FI_CLIST_MIN, 1, 1) { /* Get minimum element from list */ INST(FI_CLIST_MIN, 1, 1) { /* Get minimum element from list */
ARG(1, T_CLIST); ARG(1, T_CLIST);