Source file `dolmen_smtlib2_poly.ml`

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

(* This file is free software, part of dolmen. See file "LICENSE" formore information *)

module type Id = Ast.Id
module type Term = Ast.Term
module type Statement = Ast.Statement
module type Extension = Ast.Extension

module Print = Print

module Make
    (L : Dolmen_intf.Location.S)
    (I : Id)
    (T : Term with type location := L.t and type id := I.t)
    (S : Statement with type location := L.t and type id := I.t and type term := T.t)
    (E : Extension with type location := L.t and type term := T.t and type statement := S.t) =
  Dolmen_std.Transformer.Make(L)(struct
    type token = Tokens.token
    type statement = S.t
    let env = []
    let incremental = true
    let error s = Syntax_messages.message s
  end)(Lexer)(Parser.Make(L)(I)(T)(S)(E))