tty.aug

module Tty =

let entry =
     let dev = [ label "dev" . store Rx.fspath ]
  in let rate = [ label "rate" . store Rx.integer ]
  in Build.key_value_line Rx.word Sep.space (dev . Sep.space . rate)

test entry get "stty /dev/cuaU0 9600\n" =
  { "stty"
    { "dev" = "/dev/cuaU0" }
    { "rate" = "9600" } }