path: root/lib/dml/ast.ml

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]