tla-rs 0.1.0

Rust implementation of the IronFleet verified distributed systems framework
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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68

use builtin::*;
use builtin_macros::*;
use crate::implementation::common::function::*;
use vstd::prelude::*;
use vstd::slice::*;
use crate::verus_extra::seq_lib_v::*;
use crate::common::native::io_s::*;
use crate::protocol::RSL::environment::*;
use crate::common::collections::seq_is_unique_v::seq_is_unique;
use crate::common::framework::args_t::*;
use crate::common::framework::environment_s::*;
use crate::common::logic::*;
use crate::common::native::io_s::*;
use crate::implementation::RSL::{
    replicaimpl_class::*, 
    cmessage::*, cbroadcast::*, 
    cconstants::*, cconfiguration::*,
    cparameters::*,
    replicaimpl_delivery::*, 
    netrsl_i::*, 
    ReplicaImpl::*,
    replicaimpl_read_clock::*,
    replicaimpl_process_packet_no_clock::*,
    replicaimpl_process_packet_x::*,
    replicaimpl_no_receive_clock::*,
    replicaimpl_no_receive_no_clock::*,
    replicaimpl_main::*,
    cmd_line_parser::*,
    host_s::*,
};

verus!{
    pub struct HostState{
        pub replica_impl:ReplicaImpl,
    }

    impl HostState{
        #[verifier(external_body)]
        pub fn host_init_impl(netc: &NetClient, args: &Args) -> (rc: Option<Self>)
        {
            let me = netc.get_my_end_point();
            let config = parse_cmd_line(&me, args);
            if matches!(config, None) {
                println!("parse endpoints fail");
                return None;
            }

            let (config, my_index) = config.unwrap();

            let params = StaticParams();
            let constants = CConstants{config:config, params:params};
            let replicaconstants = CReplicaConstants{my_index:my_index as u64, all:constants};

            let replica_impl = ReplicaImpl::Replica_Init(replicaconstants);
            let host_state = HostState{
                replica_impl:replica_impl,
            };
            Some(host_state)
        }

        #[verifier(external_body)]
        pub fn host_next_impl(&mut self, netc:&mut NetClient) -> (rc: (bool, Ghost<EventResults>))
        {
            let (ok, Ghost(event_results), Ghost(ios)) = Replica_Next_main(&mut self.replica_impl, netc);
            (ok, Ghost(event_results))
        }
    }
}