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

remove code that became dead as a result of the previous refactoring (to make files loadable from terminal)

Browse Source
This commit is contained in:
Humza Shahid
2025-08-26 16:29:11 +01:00
parent 4a8ff38a66
commit f306501a68
3 changed files with 2 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dsc
View File

Binary file not shown.

3
green.dsc
View File

File diff suppressed because one or more lines are too long

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

@@ -8,11 +8,6 @@ struct
open FileMessage open FileMessage
open InputMessage open InputMessage
val structureName = "Green"
val filename = "green.dsc"
val exportFilename = "green.sml"
val collisionFilename = "green-collisions.sml"
fun loadIO (io, str) = fun loadIO (io, str) =
case TextIO.inputLine io of case TextIO.inputLine io of
SOME line => loadIO (io, str ^ line) SOME line => loadIO (io, str ^ line)
@@ -20,7 +15,7 @@ struct
fun loadSquares (path, inputMailbox) = fun loadSquares (path, inputMailbox) =
let let
val io = TextIO.openIn filename val io = TextIO.openIn path
val str = loadIO (io, "") val str = loadIO (io, "")
val () = TextIO.closeIn io val () = TextIO.closeIn io
in in
@@ -52,7 +47,7 @@ struct
SAVE_SQUARES {filepath, output} => saveString (filepath, output) SAVE_SQUARES {filepath, output} => saveString (filepath, output)
| EXPORT_SQUARES {filepath, output} => saveString (filepath, output) | EXPORT_SQUARES {filepath, output} => saveString (filepath, output)
| EXPORT_COLLISIONS {filepath, output} => saveString (filepath, output) | EXPORT_COLLISIONS {filepath, output} => saveString (filepath, output)
| LOAD_SQUARES filename => loadSquares (filename, inputMailbox) | LOAD_SQUARES {filepath} => loadSquares (filepath, inputMailbox)
in in
run (fileMailbox, inputMailbox) run (fileMailbox, inputMailbox)
end end