package p4spectec

  1. Overview
  2. Docs

Source file fresh.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
open Lang
open Il
module Value = Runtime.Value
open Util.Source

(* dec $fresh_typeId() : typeId *)

let fresh_typeId (ctr : int ref) (add : value -> unit) (at : region)
    (targs : targ list) (values_input : value list) : value =
  Extract.zero at targs;
  Extract.zero at values_input;
  let tid = "FRESH__" ^ string_of_int !ctr in
  ctr := !ctr + 1;
  let value = Value.Make.text tid in
  add value;
  value