open System

open Execute
open Load
open Serve

let main =
  match Environment.GetCommandLineArgs() with
  | [| _; "-p"; port |] ->
      let portnum = Int32.Parse port
      serve portnum

  | [| _; input; steps; output |] ->
      try
        let prog = load_file input
        draw_to_file prog (Int32.Parse steps) output
      with e ->
        printfn "There was an error: %s" e.Message
        exit 1

  | _ ->
      printfn "Usage: krunimir program_file number_of_steps output_png"
      printfn "For the builtin webserver run krunimir -p port_number"
      exit 1