imperative-shell/shell.sml

structure Shell =
struct
  fun main () =
    case CommandLine.arguments () of
      ["-r"] => (print "todo: convert dsc files to sml file\n")
    | [] => InitGlfw.main ()
    | args =>
        let
          val args = String.concatWith "" args
          val msg = String.concat ["unknown arguments error: \"", args, "\"\n"]
        in
          print msg
        end
end

val _ = Shell.main ()
init 2024-07-28 14:22:17 +01:00			`structure Shell =`
			`struct`
progress parsing command line args 2025-08-26 13:58:42 +01:00			`fun main () =`
			`case CommandLine.arguments () of`
			`["-r"] => (print "todo: convert dsc files to sml file\n")`
			`\| [] => InitGlfw.main ()`
			`\| args =>`
			`let`
			`val args = String.concatWith "" args`
			`val msg = String.concat ["unknown arguments error: \"", args, "\"\n"]`
			`in`
			`print msg`
			`end`
init 2024-07-28 14:22:17 +01:00			`end`

restructure a bit to make the GLFW-initialisation code its own separate structure/file, and so we can use shell.sml for running program in different ways 2025-08-26 13:00:18 +01:00			`val _ = Shell.main ()`