48 lines
1.1 KiB
Plaintext
48 lines
1.1 KiB
Plaintext
|
(*
|
||
|
|
Module: Protocols
|
||
|
|
Parses /etc/protocols
|
||
|
|
|
||
|
|
Author: Raphael Pinson <raphink@gmail.com>
|
||
|
|
|
||
|
|
About: Reference
|
||
|
|
This lens tries to keep as close as possible to `man 5 protocols` 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/protocols. See <filter>.
|
||
|
|
|
||
|
|
About: Examples
|
||
|
|
The <Test_Protocols> file contains various examples and tests.
|
||
|
|
*)
|
||
|
|
|
||
|
|
|
||
|
|
module Protocols =
|
||
|
|
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
let protoname = /[^# \t\n]+/
|
||
|
|
|
||
|
|
(* View: entry *)
|
||
|
|
let entry =
|
||
|
|
let protocol = [ label "protocol" . store protoname ]
|
||
|
|
in let number = [ label "number" . store Rx.integer ]
|
||
|
|
in let alias = [ label "alias" . store protoname ]
|
||
|
|
in [ seq "protocol" . protocol
|
||
|
|
. Sep.space . number
|
||
|
|
. (Sep.space . Build.opt_list alias Sep.space)?
|
||
|
|
. Util.comment_or_eol ]
|
||
|
|
|
||
|
|
(* View: lns
|
||
|
|
The protocols lens *)
|
||
|
|
let lns = (Util.empty | Util.comment | entry)*
|
||
|
|
|
||
|
|
(* Variable: filter *)
|
||
|
|
let filter = incl "/etc/protocols"
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|