(* Parsing grub's device.map *)

module Device_map =
  autoload xfm

  let sep_tab = Sep.tab
  let eol     = Util.eol
  let fspath  = Rx.fspath
  let del_str = Util.del_str

  let comment = Util.comment
  let empty   = Util.empty

  let dev_name = /(h|f|c)d[0-9]+(,[0-9a-zA-Z]+){0,2}/
  let dev_hex  = Rx.hex
  let dev_dec  = /[0-9]+/

  let device = del_str "(" . key ( dev_name | dev_hex | dev_dec ) .  del_str ")"

  let map = [ device . sep_tab . store fspath . eol ]

  let lns = ( empty | comment | map ) *

  let xfm = transform lns (incl "/boot/*/device.map")

(* Local Variables: *)
(* mode: caml *)
(* End: *)