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

preparation for adding new additional threads/mailboxes (namely, the file mailbox)

Browse Source
This commit is contained in:
Humza Shahid
2024-08-28 20:11:00 +01:00
parent fb9202248c
commit e587c6cf73
8 changed files with 59 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
message-types/draw-msg.sml
View File

@@ -12,7 +12,6 @@ sig
, dots: Real32.real vector
}
| CLEAR_DOTS
| NO_DRAW
end
structure DrawMessage :> DRAW_MESSAGE =
@@ -29,5 +28,4 @@ struct
, dots: Real32.real vector
}
| CLEAR_DOTS
| NO_DRAW
end

4
message-types/io-msg.sml → message-types/file-msg.sml
View File

@@ -1,4 +1,4 @@
signature IO_MESSAGE =
signature FILE_MESSAGE =
sig
datatype t =
SAVE_TRIANGLES of AppType.triangle list
@@ -6,7 +6,7 @@ sig
| IMPORT_FILE
end
structure IoMessage :> IO_MESSAGE =
structure FileMessage :> FILE_MESSAGE =
struct
datatype t =
SAVE_TRIANGLES of AppType.triangle list

7
message-types/update-msg.sml Normal file
View File

@@ -0,0 +1,7 @@
signature UPDATE_MESSAGE =
sig
datatype t = DRAW of DrawMessage.t | FILE of FileMessage.t | NO_MAILBOX
end
structure UpdateMessage :> UPDATE_MESSAGE =
struct datatype t = DRAW of DrawMessage.t | FILE of FileMessage.t | NO_MAILBOX end