diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-08 20:36:31 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-03-08 20:36:31 -0300 |
| commit | e10acd09faf53c636b653c4df034716545db5fab (patch) | |
| tree | 570d34526016df383a4b1821d9fe1dc864ef0c16 /lib/dml/ast.ml | |
| parent | 99ac1e7d9b77d69f2a85a108468d4433953d8269 (diff) | |
| download | Sakura-e10acd09faf53c636b653c4df034716545db5fab.tar.gz Sakura-e10acd09faf53c636b653c4df034716545db5fab.zip | |
dml and dcl
Diffstat (limited to 'lib/dml/ast.ml')
| -rw-r--r-- | lib/dml/ast.ml | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/lib/dml/ast.ml b/lib/dml/ast.ml new file mode 100644 index 0000000..4a903e7 --- /dev/null +++ b/lib/dml/ast.ml @@ -0,0 +1,22 @@ +open Sexplib.Std + +type attr_value = string * Drl.Ast.value +[@@deriving sexp] + +type cardinality_spec = + | Finite of int + | AlephZero + | Continuum + | ConstrainedFinite +[@@deriving sexp] + +type statement = + | CreateDatabase of string + | CreateRelation of { name: string; schema: (string * string) list } + | RetractRelation of string + | ClearRelation of string + | RegisterDomain of { name: string; cardinality: cardinality_spec } + | 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 } +[@@deriving sexp] |