remove code that became dead as a result of the previous refactoring (to make files loadable from terminal)
This commit is contained in:
@@ -8,11 +8,6 @@ struct
|
||||
open FileMessage
|
||||
open InputMessage
|
||||
|
||||
val structureName = "Green"
|
||||
val filename = "green.dsc"
|
||||
val exportFilename = "green.sml"
|
||||
val collisionFilename = "green-collisions.sml"
|
||||
|
||||
fun loadIO (io, str) =
|
||||
case TextIO.inputLine io of
|
||||
SOME line => loadIO (io, str ^ line)
|
||||
@@ -20,7 +15,7 @@ struct
|
||||
|
||||
fun loadSquares (path, inputMailbox) =
|
||||
let
|
||||
val io = TextIO.openIn filename
|
||||
val io = TextIO.openIn path
|
||||
val str = loadIO (io, "")
|
||||
val () = TextIO.closeIn io
|
||||
in
|
||||
@@ -52,7 +47,7 @@ struct
|
||||
SAVE_SQUARES {filepath, output} => saveString (filepath, output)
|
||||
| EXPORT_SQUARES {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
|
||||
run (fileMailbox, inputMailbox)
|
||||
end
|
||||
|
||||
Reference in New Issue
Block a user