let
is_dpd tdpd d =
match
tdpd
with
|
Addr
->
is_addr d
|
Ctrl
->
is_ctrl d
|
Data
->
is_data d