blob: d26177fb2517e6052a8c673441f712139b5f67de (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
-- [betree_main]: external functions.
import Base
import BetreeMain.Types
open Primitives
open betree_main
-- TODO: fill those bodies
/- [betree_main::betree_utils::load_internal_node] -/
def betree_utils.load_internal_node
:
U64 → State → Result (State × (betree.List (U64 × betree.Message))) :=
fun _ _ => .fail .panic
/- [betree_main::betree_utils::store_internal_node] -/
def betree_utils.store_internal_node
:
U64 → betree.List (U64 × betree.Message) → State → Result (State
× Unit) :=
fun _ _ _ => .fail .panic
/- [betree_main::betree_utils::load_leaf_node] -/
def betree_utils.load_leaf_node
: U64 → State → Result (State × (betree.List (U64 × U64))) :=
fun _ _ => .fail .panic
/- [betree_main::betree_utils::store_leaf_node] -/
def betree_utils.store_leaf_node
: U64 → betree.List (U64 × U64) → State → Result (State × Unit) :=
fun _ _ _ => .fail .panic
|
