summaryrefslogtreecommitdiff
path: root/trafgen_parser.y
diff options
context:
space:
mode:
Diffstat (limited to 'trafgen_parser.y')
-rw-r--r--trafgen_parser.y361
1 files changed, 215 insertions, 146 deletions
diff --git a/trafgen_parser.y b/trafgen_parser.y
index d643ad2..1e7bd5c 100644
--- a/trafgen_parser.y
+++ b/trafgen_parser.y
@@ -69,6 +69,27 @@ extern size_t dlen;
static int our_cpu, min_cpu = -1, max_cpu = -1;
+enum field_expr_type_t {
+ FIELD_EXPR_UNKNOWN,
+ FIELD_EXPR_NUMB,
+ FIELD_EXPR_MAC,
+ FIELD_EXPR_IP4_ADDR,
+ FIELD_EXPR_IP6_ADDR,
+};
+
+struct proto_field_expr {
+ enum field_expr_type_t type;
+ struct proto_field *field;
+
+ union {
+ struct in_addr ip4_addr;
+ struct in6_addr ip6_addr;
+ long long int number;
+ uint8_t bytes[256];
+ } val;
+};
+
+static struct proto_field_expr field_expr;
static struct proto_hdr *hdr;
static inline int test_ignore(void)
@@ -351,6 +372,48 @@ static void proto_add(enum proto_id pid)
hdr = proto_header_push(pid);
}
+static void proto_field_set(uint32_t fid)
+{
+ field_expr.field = proto_field_by_id(hdr, fid);
+}
+
+static void proto_field_expr_eval(void)
+{
+ struct proto_field *field = field_expr.field;
+
+ switch (field_expr.type) {
+ case FIELD_EXPR_NUMB:
+ if (field->len == 1)
+ proto_field_set_u8(hdr, field->id, field_expr.val.number);
+ else if (field->len == 2)
+ proto_field_set_be16(hdr, field->id, field_expr.val.number);
+ else if (field->len == 4)
+ proto_field_set_be32(hdr, field->id, field_expr.val.number);
+ else
+ bug();
+ break;
+
+ case FIELD_EXPR_MAC:
+ proto_field_set_bytes(hdr, field->id, field_expr.val.bytes);
+ break;
+
+ case FIELD_EXPR_IP4_ADDR:
+ proto_field_set_u32(hdr, field->id, field_expr.val.ip4_addr.s_addr);
+ break;
+
+ case FIELD_EXPR_IP6_ADDR:
+ proto_field_set_bytes(hdr, field->id,
+ (uint8_t *)&field_expr.val.ip6_addr.s6_addr);
+ break;
+
+ case FIELD_EXPR_UNKNOWN:
+ default:
+ bug();
+ }
+
+ memset(&field_expr, 0, sizeof(field_expr));
+}
+
%}
%union {
@@ -614,6 +677,17 @@ proto
| tcp_proto { }
;
+field_expr
+ : number { field_expr.type = FIELD_EXPR_NUMB;
+ field_expr.val.number = $1; }
+ | mac { field_expr.type = FIELD_EXPR_MAC;
+ memcpy(field_expr.val.bytes, $1, sizeof(field_expr.val.bytes)); }
+ | ip4_addr { field_expr.type = FIELD_EXPR_IP4_ADDR;
+ field_expr.val.ip4_addr = $1; }
+ | ip6_addr { field_expr.type = FIELD_EXPR_IP6_ADDR;
+ field_expr.val.ip6_addr = $1; }
+ ;
+
eth_proto
: eth '(' eth_param_list ')' { }
;
@@ -624,8 +698,8 @@ eth
eth_param_list
: { }
- | eth_field { }
- | eth_field delimiter eth_param_list { }
+ | eth_expr { }
+ | eth_expr delimiter eth_param_list { }
;
eth_type
@@ -635,12 +709,13 @@ eth_type
;
eth_field
- : K_DADDR skip_white '=' skip_white mac
- { proto_field_set_bytes(hdr, ETH_DST_ADDR, $5); }
- | K_SADDR skip_white '=' skip_white mac
- { proto_field_set_bytes(hdr, ETH_SRC_ADDR, $5); }
- | eth_type skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ETH_TYPE, $5); }
+ : K_DADDR { proto_field_set(ETH_DST_ADDR); }
+ | K_SADDR { proto_field_set(ETH_SRC_ADDR); }
+ | eth_type { proto_field_set(ETH_TYPE); }
+
+eth_expr
+ : eth_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
;
vlan_proto
@@ -653,8 +728,8 @@ vlan
vlan_param_list
: { }
- | vlan_field { }
- | vlan_field delimiter vlan_param_list { }
+ | vlan_expr { }
+ | vlan_expr delimiter vlan_param_list { }
;
vlan_type
@@ -663,20 +738,20 @@ vlan_type
;
vlan_field
- : vlan_type skip_white '=' skip_white number
- { proto_field_set_be16(hdr, VLAN_TPID, $5); }
+ : vlan_type { proto_field_set(VLAN_TPID); }
+ | K_TCI { proto_field_set(VLAN_TCI); }
+ | K_PCP { proto_field_set(VLAN_PCP); }
+ | K_DEI { proto_field_set(VLAN_DEI); }
+ | K_ID { proto_field_set(VLAN_VID); }
+ ;
+
+vlan_expr
+ : vlan_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
| K_1Q
{ proto_field_set_be16(hdr, VLAN_TPID, ETH_P_8021Q); }
| K_1AD
{ proto_field_set_be16(hdr, VLAN_TPID, ETH_P_8021AD); }
- | K_TCI skip_white '=' skip_white number
- { proto_field_set_be16(hdr, VLAN_TCI, $5); }
- | K_PCP skip_white '=' skip_white number
- { proto_field_set_be16(hdr, VLAN_PCP, $5); }
- | K_DEI skip_white '=' skip_white number
- { proto_field_set_be16(hdr, VLAN_DEI, $5); }
- | K_ID skip_white '=' skip_white number
- { proto_field_set_be16(hdr, VLAN_VID, $5); }
;
mpls_proto
@@ -689,8 +764,8 @@ mpls
mpls_param_list
: { }
- | mpls_field { }
- | mpls_field delimiter mpls_param_list { }
+ | mpls_expr { }
+ | mpls_expr delimiter mpls_param_list { }
;
mpls_tc
@@ -699,49 +774,55 @@ mpls_tc
;
mpls_field
- : K_LABEL skip_white '=' skip_white number
- { proto_field_set_be32(hdr, MPLS_LABEL, $5); }
- | mpls_tc skip_white '=' skip_white number
- { proto_field_set_be32(hdr, MPLS_TC, $5); }
- | K_LAST skip_white '=' skip_white number
- { proto_field_set_be32(hdr, MPLS_LAST, $5); }
- | K_TTL skip_white '=' skip_white number
- { proto_field_set_be32(hdr, MPLS_TTL, $5); }
+ : K_LABEL { proto_field_set(MPLS_LABEL); }
+ | mpls_tc { proto_field_set(MPLS_TC); }
+ | K_LAST { proto_field_set(MPLS_LAST); }
+ | K_TTL { proto_field_set(MPLS_TTL); }
;
+mpls_expr
+ : mpls_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
+
arp_proto
: arp '(' arp_param_list ')' { }
;
arp_param_list
: { }
- | arp_field { }
- | arp_field delimiter arp_param_list { }
+ | arp_expr { }
+ | arp_expr delimiter arp_param_list { }
;
arp_field
- : K_OPER skip_white '=' skip_white K_REQUEST
+ : K_HTYPE
+ { proto_field_set(ARP_HTYPE); }
+ | K_PTYPE
+ { proto_field_set(ARP_PTYPE); }
+ | K_SHA
+ { proto_field_set(ARP_SHA); }
+ | K_THA
+ { proto_field_set(ARP_THA); }
+ | K_SPA
+ { proto_field_set(ARP_SPA); }
+ | K_TPA
+ { proto_field_set(ARP_TPA); }
+ ;
+
+arp_expr
+ : arp_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
+ | K_OPER skip_white '=' skip_white field_expr
+ { proto_field_set(ARP_OPER);
+ proto_field_expr_eval(); }
+ | K_OPER skip_white '=' skip_white K_REQUEST
{ proto_field_set_be16(hdr, ARP_OPER, ARPOP_REQUEST); }
| K_OPER skip_white '=' skip_white K_REPLY
{ proto_field_set_be16(hdr, ARP_OPER, ARPOP_REPLY); }
- | K_OPER skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ARP_OPER, $5); }
| K_REQUEST
{ proto_field_set_be16(hdr, ARP_OPER, ARPOP_REQUEST); }
| K_REPLY
{ proto_field_set_be16(hdr, ARP_OPER, ARPOP_REPLY); }
- | K_HTYPE skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ARP_HTYPE, $5); }
- | K_PTYPE skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ARP_PTYPE, $5); }
- | K_SHA skip_white '=' skip_white mac
- { proto_field_set_bytes(hdr, ARP_SHA, $5); }
- | K_THA skip_white '=' skip_white mac
- { proto_field_set_bytes(hdr, ARP_THA, $5); }
- | K_SPA skip_white '=' skip_white ip4_addr
- { proto_field_set_u32(hdr, ARP_SPA, $5.s_addr); }
- | K_TPA skip_white '=' skip_white ip4_addr
- { proto_field_set_u32(hdr, ARP_TPA, $5.s_addr); }
;
arp
: K_ARP { proto_add(PROTO_ARP); }
@@ -753,41 +834,32 @@ ip4_proto
ip4_param_list
: { }
- | ip4_field { }
- | ip4_field delimiter ip4_param_list { }
+ | ip4_expr { }
+ | ip4_expr delimiter ip4_param_list { }
;
ip4_field
- : K_VER skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_VER, $5); }
- | K_IHL skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_IHL, $5); }
- | K_DADDR skip_white '=' skip_white ip4_addr
- { proto_field_set_u32(hdr, IP4_DADDR, $5.s_addr); }
- | K_SADDR skip_white '=' skip_white ip4_addr
- { proto_field_set_u32(hdr, IP4_SADDR, $5.s_addr); }
- | K_PROT skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_PROTO, $5); }
- | K_TTL skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_TTL, $5); }
- | K_DSCP skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_DSCP, $5); }
- | K_ECN skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_ECN, $5); }
- | K_TOS skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP4_TOS, $5); }
- | K_LEN skip_white '=' skip_white number
- { proto_field_set_be16(hdr, IP4_LEN, $5); }
- | K_ID skip_white '=' skip_white number
- { proto_field_set_be16(hdr, IP4_ID, $5); }
- | K_FLAGS skip_white '=' skip_white number
- { proto_field_set_be16(hdr, IP4_FLAGS, $5); }
+ : K_VER { proto_field_set(IP4_VER); }
+ | K_IHL { proto_field_set(IP4_IHL); }
+ | K_DADDR { proto_field_set(IP4_DADDR); }
+ | K_SADDR { proto_field_set(IP4_SADDR); }
+ | K_PROT { proto_field_set(IP4_PROTO); }
+ | K_TTL { proto_field_set(IP4_TTL); }
+ | K_DSCP { proto_field_set(IP4_DSCP); }
+ | K_ECN { proto_field_set(IP4_ECN); }
+ | K_TOS { proto_field_set(IP4_TOS); }
+ | K_LEN { proto_field_set(IP4_LEN); }
+ | K_ID { proto_field_set(IP4_ID); }
+ | K_FLAGS { proto_field_set(IP4_FLAGS); }
+ | K_FRAG { proto_field_set(IP4_FRAG_OFFS); }
+ | K_CSUM { proto_field_set(IP4_CSUM); }
+ ;
+
+ip4_expr
+ : ip4_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
| K_DF { proto_field_set_be16(hdr, IP4_DF, 1); }
| K_MF { proto_field_set_be16(hdr, IP4_MF, 1); }
- | K_FRAG skip_white '=' skip_white number
- { proto_field_set_be16(hdr, IP4_FRAG_OFFS, $5); }
- | K_CSUM skip_white '=' skip_white number
- { proto_field_set_be16(hdr, IP4_CSUM, $5); }
;
ip4
@@ -800,8 +872,8 @@ ip6_proto
ip6_param_list
: { }
- | ip6_field { }
- | ip6_field delimiter ip6_param_list { }
+ | ip6_expr { }
+ | ip6_expr delimiter ip6_param_list { }
;
ip6_hop_limit
@@ -810,22 +882,19 @@ ip6_hop_limit
;
ip6_field
- : K_VER skip_white '=' skip_white number
- { proto_field_set_be32(hdr, IP6_VER, $5); }
- | K_TC skip_white '=' skip_white number
- { proto_field_set_be32(hdr, IP6_CLASS, $5); }
- | K_FLOW skip_white '=' skip_white number
- { proto_field_set_be32(hdr, IP6_FLOW_LBL, $5); }
- | K_LEN skip_white '=' skip_white number
- { proto_field_set_be16(hdr, IP6_LEN, $5); }
- | K_NEXT_HDR skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP6_NEXT_HDR, $5); }
- | ip6_hop_limit skip_white '=' skip_white number
- { proto_field_set_u8(hdr, IP6_HOP_LIMIT, $5); }
- | K_SADDR skip_white '=' skip_white ip6_addr
- { proto_field_set_bytes(hdr, IP6_SADDR, (uint8_t *)&($5.s6_addr)); }
- | K_DADDR skip_white '=' skip_white ip6_addr
- { proto_field_set_bytes(hdr, IP6_DADDR, (uint8_t *)&($5.s6_addr)); }
+ : K_VER { proto_field_set(IP6_VER); }
+ | K_TC { proto_field_set(IP6_CLASS); }
+ | K_FLOW { proto_field_set(IP6_FLOW_LBL); }
+ | K_LEN { proto_field_set(IP6_LEN); }
+ | K_NEXT_HDR { proto_field_set(IP6_NEXT_HDR); }
+ | ip6_hop_limit { proto_field_set(IP6_HOP_LIMIT); }
+ | K_SADDR { proto_field_set(IP6_SADDR); }
+ | K_DADDR { proto_field_set(IP6_DADDR) ; }
+ ;
+
+ip6_expr
+ : ip6_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
;
ip6
@@ -838,23 +907,22 @@ icmp4_proto
icmp4_param_list
: { }
- | icmp4_field { }
- | icmp4_field delimiter icmp4_param_list { }
+ | icmp4_expr { }
+ | icmp4_expr delimiter icmp4_param_list { }
;
icmp4_field
- : K_TYPE skip_white '=' skip_white number
- { proto_field_set_u8(hdr, ICMPV4_TYPE, $5); }
- | K_CODE skip_white '=' skip_white number
- { proto_field_set_u8(hdr, ICMPV4_CODE, $5); }
- | K_ID skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ICMPV4_ID, $5); }
- | K_SEQ skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ICMPV4_SEQ, $5); }
- | K_MTU skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ICMPV4_MTU, $5); }
- | K_ADDR skip_white '=' skip_white ip4_addr
- { proto_field_set_u32(hdr, ICMPV4_REDIR_ADDR, $5.s_addr); }
+ : K_TYPE { proto_field_set(ICMPV4_TYPE); }
+ | K_CODE { proto_field_set(ICMPV4_CODE); }
+ | K_ID { proto_field_set(ICMPV4_ID); }
+ | K_SEQ { proto_field_set(ICMPV4_SEQ); }
+ | K_MTU { proto_field_set(ICMPV4_MTU); }
+ | K_ADDR { proto_field_set(ICMPV4_REDIR_ADDR); }
+ ;
+
+icmp4_expr
+ : icmp4_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
| K_ECHO_REQUEST
{ proto_field_set_u8(hdr, ICMPV4_TYPE, ICMP_ECHO);
proto_field_set_u8(hdr, ICMPV4_CODE, 0); }
@@ -872,13 +940,21 @@ icmpv6_proto
icmp6_param_list
: { }
- | icmp6_field { }
- | icmp6_field delimiter icmp6_param_list { }
+ | icmp6_expr { }
+ | icmp6_expr delimiter icmp6_param_list { }
;
icmp6_field
- : K_TYPE skip_white '=' skip_white number
- { proto_field_set_u8(hdr, ICMPV6_TYPE, $5); }
+ : K_CODE { proto_field_set(ICMPV6_CODE); }
+ | K_CSUM { proto_field_set(ICMPV6_CSUM); }
+ ;
+
+icmp6_expr
+ : icmp6_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
+ | K_TYPE skip_white '=' skip_white field_expr
+ { proto_field_set(ICMPV6_TYPE);
+ proto_field_expr_eval(); }
| K_TYPE skip_white '=' K_ECHO_REQUEST
{ proto_field_set_u8(hdr, ICMPV6_TYPE, ICMPV6_ECHO_REQUEST); }
| K_ECHO_REQUEST
@@ -887,12 +963,7 @@ icmp6_field
{ proto_field_set_u8(hdr, ICMPV6_TYPE, ICMPV6_ECHO_REPLY); }
| K_ECHO_REPLY
{ proto_field_set_u8(hdr, ICMPV6_TYPE, ICMPV6_ECHO_REPLY); }
- | K_CODE skip_white '=' skip_white number
- { proto_field_set_u8(hdr, ICMPV6_CODE, $5); }
- | K_CSUM skip_white '=' skip_white number
- { proto_field_set_be16(hdr, ICMPV6_CSUM, $5); }
;
-
icmp6
: K_ICMP6 { proto_add(PROTO_ICMP6); }
;
@@ -903,19 +974,20 @@ udp_proto
udp_param_list
: { }
- | udp_field { }
- | udp_field delimiter udp_param_list { }
+ | udp_expr { }
+ | udp_expr delimiter udp_param_list { }
;
udp_field
- : K_SPORT skip_white '=' skip_white number
- { proto_field_set_be16(hdr, UDP_SPORT, $5); }
- | K_DPORT skip_white '=' skip_white number
- { proto_field_set_be16(hdr, UDP_DPORT, $5); }
- | K_LEN skip_white '=' skip_white number
- { proto_field_set_be16(hdr, UDP_LEN, $5); }
- | K_CSUM skip_white '=' skip_white number
- { proto_field_set_be16(hdr, UDP_CSUM, $5); }
+ : K_SPORT { proto_field_set(UDP_SPORT); }
+ | K_DPORT { proto_field_set(UDP_DPORT); }
+ | K_LEN { proto_field_set(UDP_LEN); }
+ | K_CSUM { proto_field_set(UDP_CSUM); }
+ ;
+
+udp_expr
+ : udp_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
;
udp
@@ -928,21 +1000,24 @@ tcp_proto
tcp_param_list
: { }
- | tcp_field { }
- | tcp_field delimiter tcp_param_list { }
+ | tcp_expr { }
+ | tcp_expr delimiter tcp_param_list { }
;
tcp_field
- : K_SPORT skip_white '=' skip_white number
- { proto_field_set_be16(hdr, TCP_SPORT, $5); }
- | K_DPORT skip_white '=' skip_white number
- { proto_field_set_be16(hdr, TCP_DPORT, $5); }
- | K_SEQ skip_white '=' skip_white number
- { proto_field_set_be32(hdr, TCP_SEQ, $5); }
- | K_ACK_SEQ skip_white '=' skip_white number
- { proto_field_set_be32(hdr, TCP_ACK_SEQ, $5); }
- | K_DOFF skip_white '=' skip_white number
- { proto_field_set_be16(hdr, TCP_DOFF, $5); }
+ : K_SPORT { proto_field_set(TCP_SPORT); }
+ | K_DPORT { proto_field_set(TCP_DPORT); }
+ | K_SEQ { proto_field_set(TCP_SEQ); }
+ | K_ACK_SEQ { proto_field_set(TCP_ACK_SEQ); }
+ | K_DOFF { proto_field_set(TCP_DOFF); }
+ | K_WINDOW { proto_field_set(TCP_WINDOW); }
+ | K_CSUM { proto_field_set(TCP_CSUM); }
+ | K_URG_PTR { proto_field_set(TCP_URG_PTR); }
+ ;
+
+tcp_expr
+ : tcp_field skip_white '=' skip_white field_expr
+ { proto_field_expr_eval(); }
| K_CWR { proto_field_set_be16(hdr, TCP_CWR, 1); }
| K_ECE { proto_field_set_be16(hdr, TCP_ECE, 1); }
| K_URG { proto_field_set_be16(hdr, TCP_URG, 1); }
@@ -951,12 +1026,6 @@ tcp_field
| K_RST { proto_field_set_be16(hdr, TCP_RST, 1); }
| K_SYN { proto_field_set_be16(hdr, TCP_SYN, 1); }
| K_FIN { proto_field_set_be16(hdr, TCP_FIN, 1); }
- | K_WINDOW skip_white '=' skip_white number
- { proto_field_set_be16(hdr, TCP_WINDOW, $5); }
- | K_CSUM skip_white '=' skip_white number
- { proto_field_set_be16(hdr, TCP_CSUM, $5); }
- | K_URG_PTR skip_white '=' skip_white number
- { proto_field_set_be16(hdr, TCP_URG_PTR, $5); }
;
tcp