haal-models-0.1.3.0: src/Haal/Models/DTLS/EtinydtlsPsk.hs
-- Generated by haal-gen. Do not edit manually.
module Haal.Models.DTLS.EtinydtlsPsk
( EtinydtlsPskInput (..)
, EtinydtlsPskOutput (..)
, etinydtlsPsk
) where
import Haal.Automaton.MealyAutomaton (MealyAutomaton, mkMealyAutomatonTable)
data EtinydtlsPskInput
= In_PSK_CLIENT_HELLO
| In_PSK_CLIENT_KEY_EXCHANGE
| In_CHANGE_CIPHER_SPEC
| In_FINISHED
| In_APPLICATION
| In_Alert_WARNING_CLOSE_NOTIFY
| In_Alert_FATAL_UNEXPECTED_MESSAGE
deriving (Show, Eq, Ord, Enum, Bounded)
data EtinydtlsPskOutput
= Out_HELLO_VERIFY_REQUEST
| Out_TIMEOUT
| Out_SOCKET_CLOSED
| Out_SERVER_HELLO_SERVER_HELLO_DONE
| Out_Alert_FATAL_UNEXPECTED_MESSAGE
| Out_Alert_FATAL_CLOSE_NOTIFY
| Out_Alert_FATAL_DECRYPT_ERROR
| Out_CHANGE_CIPHER_SPEC_FINISHED
| Out_APPLICATION
deriving (Show, Eq, Ord, Enum, Bounded)
{- Transitions (state input -> next state / output):
0 In_PSK_CLIENT_HELLO -> 1 / Out_HELLO_VERIFY_REQUEST
In_PSK_CLIENT_KEY_EXCHANGE -> 2 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 0 / Out_TIMEOUT
In_APPLICATION -> 0 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 0 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 0 / Out_TIMEOUT
1 In_PSK_CLIENT_HELLO -> 4 / Out_SERVER_HELLO_SERVER_HELLO_DONE
In_PSK_CLIENT_KEY_EXCHANGE -> 5 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 1 / Out_TIMEOUT
In_APPLICATION -> 1 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 1 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 1 / Out_TIMEOUT
2 In_PSK_CLIENT_HELLO -> 5 / Out_HELLO_VERIFY_REQUEST
In_PSK_CLIENT_KEY_EXCHANGE -> 2 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 2 / Out_TIMEOUT
In_APPLICATION -> 2 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 2 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 2 / Out_TIMEOUT
3 In_PSK_CLIENT_HELLO -> 3 / Out_SOCKET_CLOSED
In_PSK_CLIENT_KEY_EXCHANGE -> 3 / Out_SOCKET_CLOSED
In_CHANGE_CIPHER_SPEC -> 3 / Out_SOCKET_CLOSED
In_FINISHED -> 3 / Out_SOCKET_CLOSED
In_APPLICATION -> 3 / Out_SOCKET_CLOSED
In_Alert_WARNING_CLOSE_NOTIFY -> 3 / Out_SOCKET_CLOSED
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 3 / Out_SOCKET_CLOSED
4 In_PSK_CLIENT_HELLO -> 6 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_PSK_CLIENT_KEY_EXCHANGE -> 7 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 8 / Out_TIMEOUT
In_FINISHED -> 6 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_APPLICATION -> 4 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 1 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 1 / Out_TIMEOUT
5 In_PSK_CLIENT_HELLO -> 20 / Out_SERVER_HELLO_SERVER_HELLO_DONE
In_PSK_CLIENT_KEY_EXCHANGE -> 5 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 5 / Out_TIMEOUT
In_APPLICATION -> 5 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 5 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 5 / Out_TIMEOUT
6 In_PSK_CLIENT_HELLO -> 6 / Out_TIMEOUT
In_PSK_CLIENT_KEY_EXCHANGE -> 9 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 10 / Out_TIMEOUT
In_FINISHED -> 6 / Out_TIMEOUT
In_APPLICATION -> 6 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 1 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 1 / Out_TIMEOUT
7 In_PSK_CLIENT_HELLO -> 9 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_PSK_CLIENT_KEY_EXCHANGE -> 9 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_CHANGE_CIPHER_SPEC -> 15 / Out_TIMEOUT
In_FINISHED -> 9 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_APPLICATION -> 7 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 5 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 5 / Out_TIMEOUT
8 In_PSK_CLIENT_HELLO -> 11 / Out_Alert_FATAL_DECRYPT_ERROR
In_PSK_CLIENT_KEY_EXCHANGE -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
In_CHANGE_CIPHER_SPEC -> 11 / Out_Alert_FATAL_DECRYPT_ERROR
In_FINISHED -> 11 / Out_Alert_FATAL_DECRYPT_ERROR
In_APPLICATION -> 11 / Out_Alert_FATAL_DECRYPT_ERROR
In_Alert_WARNING_CLOSE_NOTIFY -> 11 / Out_Alert_FATAL_DECRYPT_ERROR
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 11 / Out_Alert_FATAL_DECRYPT_ERROR
9 In_PSK_CLIENT_HELLO -> 9 / Out_TIMEOUT
In_PSK_CLIENT_KEY_EXCHANGE -> 9 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 10 / Out_TIMEOUT
In_FINISHED -> 9 / Out_TIMEOUT
In_APPLICATION -> 9 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 5 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 5 / Out_TIMEOUT
10 In_PSK_CLIENT_HELLO -> 10 / Out_TIMEOUT
In_PSK_CLIENT_KEY_EXCHANGE -> 10 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 10 / Out_TIMEOUT
In_FINISHED -> 10 / Out_TIMEOUT
In_APPLICATION -> 10 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 10 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 10 / Out_TIMEOUT
11 In_PSK_CLIENT_HELLO -> 8 / Out_SERVER_HELLO_SERVER_HELLO_DONE
In_PSK_CLIENT_KEY_EXCHANGE -> 12 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 11 / Out_TIMEOUT
In_APPLICATION -> 11 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 11 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 11 / Out_TIMEOUT
12 In_PSK_CLIENT_HELLO -> 13 / Out_SERVER_HELLO_SERVER_HELLO_DONE
In_PSK_CLIENT_KEY_EXCHANGE -> 12 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 12 / Out_TIMEOUT
In_APPLICATION -> 12 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 12 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 12 / Out_TIMEOUT
13 In_PSK_CLIENT_HELLO -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
In_PSK_CLIENT_KEY_EXCHANGE -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
In_CHANGE_CIPHER_SPEC -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_FINISHED -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
In_APPLICATION -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
In_Alert_WARNING_CLOSE_NOTIFY -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 12 / Out_Alert_FATAL_DECRYPT_ERROR
14 In_PSK_CLIENT_HELLO -> 14 / Out_TIMEOUT
In_PSK_CLIENT_KEY_EXCHANGE -> 14 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 3 / Out_TIMEOUT
In_FINISHED -> 14 / Out_TIMEOUT
In_APPLICATION -> 14 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_TIMEOUT
15 In_PSK_CLIENT_HELLO -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_PSK_CLIENT_KEY_EXCHANGE -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_CHANGE_CIPHER_SPEC -> 17 / Out_TIMEOUT
In_FINISHED -> 18 / Out_CHANGE_CIPHER_SPEC_FINISHED
In_APPLICATION -> 15 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_TIMEOUT
16 In_PSK_CLIENT_HELLO -> 16 / Out_TIMEOUT
In_PSK_CLIENT_KEY_EXCHANGE -> 16 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 10 / Out_TIMEOUT
In_FINISHED -> 16 / Out_TIMEOUT
In_APPLICATION -> 16 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_TIMEOUT
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_TIMEOUT
17 In_PSK_CLIENT_HELLO -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_PSK_CLIENT_KEY_EXCHANGE -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_CHANGE_CIPHER_SPEC -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_FINISHED -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_APPLICATION -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_Alert_FATAL_DECRYPT_ERROR
18 In_PSK_CLIENT_HELLO -> 19 / Out_SERVER_HELLO_SERVER_HELLO_DONE
In_PSK_CLIENT_KEY_EXCHANGE -> 18 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 10 / Out_TIMEOUT
In_FINISHED -> 18 / Out_TIMEOUT
In_APPLICATION -> 18 / Out_APPLICATION
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_TIMEOUT
19 In_PSK_CLIENT_HELLO -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_PSK_CLIENT_KEY_EXCHANGE -> 21 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 17 / Out_TIMEOUT
In_FINISHED -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_APPLICATION -> 19 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_TIMEOUT
20 In_PSK_CLIENT_HELLO -> 9 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_PSK_CLIENT_KEY_EXCHANGE -> 7 / Out_TIMEOUT
In_CHANGE_CIPHER_SPEC -> 17 / Out_TIMEOUT
In_FINISHED -> 9 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_APPLICATION -> 20 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 5 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 5 / Out_TIMEOUT
21 In_PSK_CLIENT_HELLO -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_PSK_CLIENT_KEY_EXCHANGE -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_CHANGE_CIPHER_SPEC -> 15 / Out_TIMEOUT
In_FINISHED -> 16 / Out_Alert_FATAL_UNEXPECTED_MESSAGE
In_APPLICATION -> 21 / Out_TIMEOUT
In_Alert_WARNING_CLOSE_NOTIFY -> 14 / Out_Alert_FATAL_CLOSE_NOTIFY
In_Alert_FATAL_UNEXPECTED_MESSAGE -> 14 / Out_TIMEOUT
-}
etinydtlsPsk :: MealyAutomaton Int EtinydtlsPskInput EtinydtlsPskOutput
etinydtlsPsk =
case mkMealyAutomatonTable 22 0 deltaTable lambdaTable of
Right m -> m
Left err -> error ("haal-gen: invalid transition table: " ++ err)
where
deltaTable =
"\1\2\3\0\0\0\0\
\\4\5\3\1\1\1\1\
\\5\2\3\2\2\2\2\
\\3\3\3\3\3\3\3\
\\6\7\8\6\4\1\1\
\\20\5\3\5\5\5\5\
\\6\9\10\6\6\1\1\
\\9\9\15\9\7\5\5\
\\11\12\11\11\11\11\11\
\\9\9\10\9\9\5\5\
\\10\10\10\10\10\10\10\
\\8\12\3\11\11\11\11\
\\13\12\3\12\12\12\12\
\\12\12\14\12\12\12\12\
\\14\14\3\14\14\14\14\
\\16\16\17\18\15\14\14\
\\16\16\10\16\16\14\14\
\\14\14\14\14\14\14\14\
\\19\18\10\18\18\14\14\
\\16\21\17\16\19\14\14\
\\9\7\17\9\20\5\5\
\\16\16\15\16\21\14\14"
lambdaTable =
"\0\1\1\1\1\1\1\
\\3\1\1\1\1\1\1\
\\0\1\1\1\1\1\1\
\\2\2\2\2\2\2\2\
\\4\1\1\4\1\5\1\
\\3\1\1\1\1\1\1\
\\1\1\1\1\1\1\1\
\\4\4\1\4\1\5\1\
\\6\6\6\6\6\6\6\
\\1\1\1\1\1\1\1\
\\1\1\1\1\1\1\1\
\\3\1\1\1\1\1\1\
\\3\1\1\1\1\1\1\
\\6\6\6\6\6\6\6\
\\1\1\1\1\1\1\1\
\\4\4\1\7\1\5\1\
\\1\1\1\1\1\1\1\
\\6\6\6\6\6\6\6\
\\3\1\1\1\8\5\1\
\\4\1\1\4\1\5\1\
\\4\1\1\4\1\5\1\
\\4\4\1\4\1\5\1"