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

slight renaming of constructors in FileMessage.t datatype, to provide more clarity (SAVE_TRIANGLES is for saving to a custom format, LOAD_TRIANGLES is for loading from a file in that custom format, and export is for generating code from custom format)

Browse Source
This commit is contained in:
Humza Shahid
2024-08-28 20:47:40 +01:00
parent 48c721e29b
commit c40e8b98e0
3 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

2
imperative-shell/file-thread.sml
View File

@@ -12,8 +12,8 @@ struct
val _ = val _ =
case Mailbox.recv fileMailbox of case Mailbox.recv fileMailbox of
SAVE_TRIANGLES triangles => () SAVE_TRIANGLES triangles => ()
| LOAD_TRIANGLES triangles => ()
| EXPORT_TRIANGLES triangles => () | EXPORT_TRIANGLES triangles => ()
| IMPORT_TRIANGLES => ()
in in
run fileMailbox run fileMailbox
end end

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

@@ -2,14 +2,14 @@ signature FILE_MESSAGE =
sig sig
datatype t = datatype t =
SAVE_TRIANGLES of AppType.triangle list SAVE_TRIANGLES of AppType.triangle list
| LOAD_TRIANGLES
| EXPORT_TRIANGLES of AppType.triangle list | EXPORT_TRIANGLES of AppType.triangle list
| IMPORT_TRIANGLES
end end
structure FileMessage :> FILE_MESSAGE = structure FileMessage :> FILE_MESSAGE =
struct struct
datatype t = datatype t =
SAVE_TRIANGLES of AppType.triangle list SAVE_TRIANGLES of AppType.triangle list
| LOAD_TRIANGLES
| EXPORT_TRIANGLES of AppType.triangle list | EXPORT_TRIANGLES of AppType.triangle list
| IMPORT_TRIANGLES
end end