15 lines
469 B
OCaml
15 lines
469 B
OCaml
let rec loop state =
|
|
print_string "inspector> ";
|
|
flush stdout;
|
|
try
|
|
match read_line () |> String.lowercase_ascii with
|
|
| "exit" | "quit" -> print_endline "bye"
|
|
| "next" -> loop (State.next state)
|
|
| "prev" -> loop (State.prev state)
|
|
| "show" ->
|
|
Printf.printf "[%d]: %s\n" (State.cursor state) (State.show_line state);
|
|
loop state
|
|
| str ->
|
|
print_endline str;
|
|
loop state
|
|
with End_of_file -> print_endline "bye"
|