open Utilities.Aliases

type status = Exit of int | Unevaluated
type command = { name : string; arguments : string list; status : status }

let format (command : command) : string =
    command.name ^ " with arguments: "
    ^ String.concat " " command.arguments
    ^ " and result "
    ^
    match command.status with
    | Exit n -> str_int n
    | Unevaluated -> "Not evaluated"

let format_many (commands : command list) : string list =
    List.map format commands