47 lines
1.1 KiB
Plaintext
47 lines
1.1 KiB
Plaintext
(*
|
|
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
|