(*
Module: Networks
  Parses /etc/networks

Author: Raphael Pinson <raphink@gmail.com>

About: Reference
  This lens tries to keep as close as possible to `man 5 networks` where possible.

About: License
   This file is licenced under the LGPL v2+, like the rest of Augeas.

About: Lens Usage
   To be documented

About: Configuration files
   This lens applies to /etc/networks. See <filter>.
*)

module Networks =

autoload xfm

(* View: ipv4
    A network IP, trailing .0 may be omitted *)
let ipv4 =
  let dot     = "." in
  let digits  = /(25[0-5]|2[0-4][0-9]|[01]?[0-9][0-9]?)/ in
    digits . (dot . digits . (dot . digits . (dot . digits)?)?)?

(*View: entry *)
let entry =
  let alias = [ seq "alias" . store Rx.word ] in
      [ seq "network" . counter "alias"
    . [ label "name" . store Rx.word ]
    . [ Sep.space . label "number" . store ipv4 ]
    . [ Sep.space . label "aliases" . Build.opt_list alias Sep.space ]?
    . (Util.eol|Util.comment) ]

(* View: lns *)
let lns = ( Util.empty | Util.comment | entry )*

(* View: filter *)
let filter = incl "/etc/networks"

let xfm = transform lns filter