You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.4 KiB
Plaintext
45 lines
1.4 KiB
Plaintext
import GameServer.Watchdog
|
|
import GameServer.FileWorker
|
|
|
|
|
|
def main : List String → IO UInt32 := fun args => do
|
|
let e ← IO.getStderr
|
|
if args[0]? == some "--server" then
|
|
MyServer.Watchdog.watchdogMain []
|
|
else if args[0]? == some "--worker" then
|
|
MyServer.FileWorker.workerMain {}
|
|
else
|
|
e.putStrLn s!"Expected `--server` or `--worker`"
|
|
return 1
|
|
|
|
|
|
-- TODO: Potentially it could be useful to pass in the `gameName` via the websocket connection
|
|
|
|
-- unsafe def main (args : List String) : IO UInt32 := do
|
|
|
|
|
|
-- -- Check if required arguments are given by the user
|
|
-- if args.length != 2 then
|
|
-- throw (IO.userError $ "Expected two arguments:" ++
|
|
-- "The name of the game module and the path to the game project.")
|
|
-- let gameName := args[0]!
|
|
-- let gameDir := args[1]!
|
|
|
|
-- -- Determine search paths of the game project by running `lake env printenv LEAN_PATH`.
|
|
-- let out ← IO.Process.output
|
|
-- { cwd := gameDir, cmd := "lake", args := #["env","printenv","LEAN_PATH"] }
|
|
-- if out.exitCode != 0 then
|
|
-- IO.eprintln out.stderr
|
|
-- return
|
|
|
|
-- -- Make the paths relative to the current directory
|
|
-- let paths : List System.FilePath := System.SearchPath.parse out.stdout.trim
|
|
-- let currentDir ← IO.currentDir
|
|
-- let paths := paths.map fun p => currentDir / (gameDir : System.FilePath) / p
|
|
|
|
-- -- Set the search path
|
|
-- Lean.searchPathRef.set paths
|
|
|
|
-- -- Run the game
|
|
-- Server.runGame gameName
|