blob: d8defe6defa377e62834546db8e949c06916e309 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
open Sexplib.Std
type attr_value = string * Drl.Ast.value [@@deriving sexp]
type statement =
| InsertTuple of { relation : string; attributes : attr_value list }
| InsertTuples of { relation : string; tuples : attr_value list list }
| DeleteTuple of { relation : string; attributes : attr_value list }
| Assign of { target : string; body : Drl.Ast.query }
| InsertFrom of { target : string; source : Drl.Ast.query }
| DeleteWhere of { target : string; predicate : Drl.Ast.query }
[@@deriving sexp]
|
