persist trees and expose execution and diagnostic commands

This commit is contained in:
milner committed 2020-03-09 12:00:00 +00:00
1 parent d543c82e41
commit b61a0893a3
2 files changed
+19

No files matched your search

+15
View File
@@ -0,0 +1,15 @@
data State = Idle | Waiting | Connected
data Message = Hello Int | Data Int | Close
match classify (s : State) (m : Message) : Int =
| Idle (Hello n) -> n
| Idle (Data n) -> n
| Idle Close -> 0
| Waiting (Hello n) -> n
| Waiting (Data n) -> n
| Waiting Close -> 0
| Connected (Hello n) -> n
| Connected (Data n) -> n
| Connected Close -> 0
| _ Close -> 0
+4
View File
@@ -0,0 +1,4 @@
Idle; Hello 5
Waiting; Data 3
Connected; Close
Idle; Data 7