type token
=
|
WHILE
VSWITCH
VPORT
VLINK
VLANPCP
VLAN
VFABRIC
VAR
TRUE
THEN
TCPSRCPORT
TCPDSTPORT
SWITCH
STRING of string
STAR
SLASH
SEMICOLON
RPAR
QUERY
PORT
PLUS
PIPE
OR
NOT
METAID of string
MAC of string
LPAR
LINK
LET
IVERSON of string * Location.t
IPPROTO
IP4SRC
IP4DST
IP4ADDR of string
INT of string
IN
IF
ID
FROM
FILTER
FALSE
ETHTYPE
ETHSRC
ETHDST
EQUALS
EOF
END
ELSE
DUP
DROP
DO
BEGIN
AT
ASSIGN
ANTIQ of string * Location.t
AND
ABSTRACTLOC