21 lines
397 B
Standard ML
21 lines
397 B
Standard ML
signature FILE_THREAD =
|
|
sig
|
|
val run: FileMessage.t Mailbox.mbox -> unit
|
|
end
|
|
|
|
structure FileThread :> FILE_THREAD =
|
|
struct
|
|
open FileMessage
|
|
|
|
fun run fileMailbox =
|
|
let
|
|
val _ =
|
|
case Mailbox.recv fileMailbox of
|
|
SAVE_TRIANGLES triangles => ()
|
|
| LOAD_TRIANGLES triangles => ()
|
|
| EXPORT_TRIANGLES triangles => ()
|
|
in
|
|
run fileMailbox
|
|
end
|
|
end
|