13 lines
454 B
OCaml
13 lines
454 B
OCaml
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
|