19 lines
527 B
OCaml
19 lines
527 B
OCaml
open Utilities.Aliases
|
|
|
|
type schema = Schema.schema
|
|
|
|
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
|
|
^ " ("
|
|
^
|
|
(match command.status with
|
|
| Exit n -> "Exit status " ^ str_int n
|
|
| Unevaluated -> "Not evaluated")
|
|
^ ")"
|
|
|
|
let format_many (commands : command list) : string list =
|
|
List.map format commands
|