humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add char event which triggers log

Browse Source
This commit is contained in:
Humza Shahid
2025-08-04 09:29:37 +01:00
parent ce0f700253
commit 1dc77e629e
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
shell/update-thread.sml
View File

@@ -2,6 +2,7 @@ structure UpdateThread =
struct struct
open CML open CML
open MailboxType open MailboxType
open InputMsg
fun sendMsg (msg, drawMailbox) = fun sendMsg (msg, drawMailbox) =
case msg of DRAW msg => Mailbox.send (drawMailbox, msg) case msg of DRAW msg => Mailbox.send (drawMailbox, msg)
@@ -17,6 +18,16 @@ struct
fun loop (app: AppType.app_type, inputMailbox, drawMailbox) = fun loop (app: AppType.app_type, inputMailbox, drawMailbox) =
let let
val inputMsg = Mailbox.recv inputMailbox val inputMsg = Mailbox.recv inputMailbox
val () =
(* if a certain CHAR_EVENT is sent,
* we trigger an exception and log the command history.
* This is helpful for manually triggering logs when,
* for example, we encounter a bug and would like to see
* the history of events that caused it. *)
case inputMsg of
CHAR_EVENT #"~" => ExceptionLogger.log (Fail "")
| _ => ()
val () = ExceptionLogger.addCommand inputMsg val () = ExceptionLogger.addCommand inputMsg
val app = AppUpdate.update (app, inputMsg) handle e => ExceptionLogger.log e val app = AppUpdate.update (app, inputMsg) handle e => ExceptionLogger.log e