package p4spectec

  1. Overview
  2. Docs

Source file rel.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open Lang
open Il

(* Relation *)

type t =
  | Extern of nottyp * Hints.Input.t
  | Defined of nottyp * Hints.Input.t * rulegroup list * elsegroup option

let to_string = function
  | Extern (nottyp_il, inputs) ->
      Hints.Input.to_string inputs
      ^ " = extern "
      ^ Print.string_of_nottyp nottyp_il
  | Defined (nottyp_il, inputs, rulegroups, elsegroup_opt) ->
      Hints.Input.to_string inputs
      ^ " = "
      ^ Print.string_of_nottyp nottyp_il
      ^ "\n\n"
      ^ Print.string_of_rulegroups rulegroups
      ^ Print.string_of_elsegroup_opt elsegroup_opt