package p4spectec

  1. Overview
  2. Docs
P4-SpecTec: A mechanization toolchain for the P4 Programming Language

Install 

dune-project
 Dependency

github.com Readme Edit opam file Versions (2)

Authors

  1. K
    KAIST PLRG

Maintainers

  1. 9
    99jaehyunlee@kaist.ac.kr

Sources

v0.1.2.tar.gz
md5=1a3bc0a385fe1ecf403c019f49aa6de6
sha512=5d20b5821f33e2a3a5419b208606f27c01511994c2b3b1e1cdf4c077056dfd0aa81682af0720e1060ee2bfb0341918fcc4c53159820205a2bc32b725e5c1a714

doc/src/dynamic/envs.ml.html

Source file envs.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
open Domain.Lib
open Lang
open Util.Source

(* Variable environment functor *)

module VarMap = struct
  include Map.Make (Var)
end

module MakeVarEnv (V : sig
  type t

  val to_string : t -> string
end) =
struct
  include VarMap

  type t = V.t VarMap.t

  let to_string env =
    let to_string_binding (var, v) =
      Var.to_string var ^ " : " ^ V.to_string v
    in
    let bindings = bindings env in
    String.concat ", " (List.map to_string_binding bindings)
end

module VEnv = MakeVarEnv (Value)

(* Type definition environment *)

module TDEnv = struct
  include MakeTIdEnv (Type.Typdef)

  let rec unroll (tdenv : t) (typ : Il.typ) : Il.typ =
    match typ.it with
    | VarT (tid, targs) -> (
        let td = find tid tdenv in
        match td with
        | Param | Extern | Defining _ -> typ
        | Defined (tparams, deftyp) -> (
            let theta = TIdMap.of_lists tparams targs in
            match deftyp.it with
            | PlainT typ ->
                let typ = Type.Subst.subst_typ theta typ in
                unroll tdenv typ
            | _ -> typ))
    | _ -> typ
end

module TDTbl = MakeTIdTbl (Type.Typdef)