|
|
|
|
(*
|
|
|
|
|
* Copyright (c) Facebook, Inc. and its affiliates.
|
|
|
|
|
*
|
|
|
|
|
* This source code is licensed under the MIT license found in the
|
|
|
|
|
* LICENSE file in the root directory of this source tree.
|
|
|
|
|
*)
|
|
|
|
|
|
|
|
|
|
open! IStd
|
|
|
|
|
|
|
|
|
|
type property_name = string [@@deriving compare, hash, sexp]
|
|
|
|
|
|
|
|
|
|
type register_name = string
|
|
|
|
|
|
|
|
|
|
type constant = Exp.t
|
|
|
|
|
|
|
|
|
|
type value_pattern =
|
|
|
|
|
| Ignore
|
|
|
|
|
| SaveInRegister of register_name
|
|
|
|
|
| EqualToRegister of register_name
|
|
|
|
|
| EqualToConstant of constant
|
|
|
|
|
|
|
|
|
|
(** a regular expression *)
|
|
|
|
|
type procedure_name_pattern = string
|
|
|
|
|
|
|
|
|
|
type label =
|
|
|
|
|
{ return: value_pattern
|
|
|
|
|
; procedure_name: procedure_name_pattern
|
|
|
|
|
; arguments: value_pattern list option }
|
|
|
|
|
|
|
|
|
|
type vertex = string [@@deriving compare, hash, sexp]
|
|
|
|
|
|
|
|
|
|
type transition = {source: vertex; target: vertex; label: label}
|
|
|
|
|
|
|
|
|
|
type t =
|
|
|
|
|
{name: property_name; message: string option; prefixes: string list; transitions: transition list}
|
