log exceptions that occur to a local file

.gitignore

@@ -1,2 +1,3 @@
 shf
 shf-tests
+exceptions.log

shell/gl-draw.sml

@@ -229,9 +229,7 @@ struct
     end
 
   fun yank (shellState: t, str) =
-    ( Glfw.setClipboardString (#window shellState, str);
+    (Glfw.setClipboardString (#window shellState, str); shellState)
-      shellState
-    )
 
   fun consumeDrawEvent (shellState, msg) =
     let

shell/update-thread.sml

@@ -2,6 +2,7 @@ structure UpdateThread =
 struct
   open CML
   open MailboxType
+  open InputMsg
 
   fun sendMsg (msg, drawMailbox) =
     case msg of DRAW msg => Mailbox.send (drawMailbox, msg)
@@ -14,22 +15,47 @@ struct
         end
     | [] => ()
 
-  fun loop (app: AppType.app_type, inputMailbox, drawMailbox) =
+  val textCommands = ref ""
+
+  fun addTextCommand inputMsg =
+    case inputMsg of
+      CHAR_EVENT chr =>
         let
-      val inputMsg = Mailbox.recv inputMailbox
+          val chr = CharVector.fromList [chr]
-      val app = 
+          val newInput = !textCommands ^ chr
-        AppUpdate.update (app, inputMsg) 
+        in
-          handle e => 
+          textCommands := newInput
+        end
+    | _ => ()
+
+  fun handleException e =
     let
       (* print stack trace for debugging purposes, 
        * and then raise another exception to exit the program *)
       val stackTrace = MLton.Exn.history e
       val stackTrace = String.concatWith "\n" stackTrace
-              val () = print (stackTrace ^ "\n")
+      val () = print "ERROR:\n"
+      val () = print (stackTrace ^ "\n\n")
+
+      val history = !textCommands ^ "\n\n"
+      val () = print ("HISTORY: " ^ history)
+
+      val textOutput = stackTrace ^ "\n" ^ history
+
+      val io = TextIO.openAppend "exceptions.log"
+      val () = TextIO.output (io, textOutput)
+      val () = TextIO.closeOut io
     in
       raise Empty
     end
 
+  fun loop (app: AppType.app_type, inputMailbox, drawMailbox) =
+    let
+      val inputMsg = Mailbox.recv inputMailbox
+      val () = addTextCommand inputMsg
+
+      val app = AppUpdate.update (app, inputMsg) handle e => handleException e
+
       val () = sendMsgs (#msgs app, drawMailbox)
     in
       loop (app, inputMailbox, drawMailbox)