38 lines
745 B
Plaintext
38 lines
745 B
Plaintext
|
(*
|
||
|
|
Module: Shells
|
||
|
|
Parses /etc/shells
|
||
|
|
|
||
|
|
Author: Raphael Pinson <raphink@gmail.com>
|
||
|
|
|
||
|
|
About: Reference
|
||
|
|
This lens tries to keep as close as possible to `man 5 shells` 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/shells. See <filter>.
|
||
|
|
*)
|
||
|
|
|
||
|
|
|
||
|
|
module Shells =
|
||
|
|
autoload xfm
|
||
|
|
|
||
|
|
let empty = Util.empty
|
||
|
|
let comment = Util.comment
|
||
|
|
let comment_or_eol = Util.comment_or_eol
|
||
|
|
let shell = [ seq "shell" . store /[^# \t\n]+/ . comment_or_eol ]
|
||
|
|
|
||
|
|
(* View: lns
|
||
|
|
The shells lens
|
||
|
|
*)
|
||
|
|
let lns = ( empty | comment | shell )*
|
||
|
|
|
||
|
|
(* Variable: filter *)
|
||
|
|
let filter = incl "/etc/shells"
|
||
|
|
|
||
|
|
let xfm = transform lns filter
|