Blame lenses/shells.aug

Packit Service a2ae7a
(*
Packit Service a2ae7a
Module: Shells
Packit Service a2ae7a
  Parses /etc/shells
Packit Service a2ae7a
Packit Service a2ae7a
Author: Raphael Pinson <raphink@gmail.com>
Packit Service a2ae7a
Packit Service a2ae7a
About: Reference
Packit Service a2ae7a
  This lens tries to keep as close as possible to `man 5 shells` where possible.
Packit Service a2ae7a
Packit Service a2ae7a
About: License
Packit Service a2ae7a
   This file is licenced under the LGPL v2+, like the rest of Augeas.
Packit Service a2ae7a
Packit Service a2ae7a
About: Lens Usage
Packit Service a2ae7a
   To be documented
Packit Service a2ae7a
Packit Service a2ae7a
About: Configuration files
Packit Service a2ae7a
   This lens applies to /etc/shells. See <filter>.
Packit Service a2ae7a
*)
Packit Service a2ae7a
Packit Service a2ae7a
Packit Service a2ae7a
module Shells =
Packit Service a2ae7a
  autoload xfm
Packit Service a2ae7a
Packit Service a2ae7a
let empty = Util.empty
Packit Service a2ae7a
let comment = Util.comment
Packit Service a2ae7a
let comment_or_eol = Util.comment_or_eol
Packit Service a2ae7a
let shell = [ seq "shell" . store /[^# \t\n]+/ . comment_or_eol ]
Packit Service a2ae7a
Packit Service a2ae7a
(* View: lns
Packit Service a2ae7a
     The shells lens
Packit Service a2ae7a
*)
Packit Service a2ae7a
let lns = ( empty | comment | shell )*
Packit Service a2ae7a
Packit Service a2ae7a
(* Variable: filter *)
Packit Service a2ae7a
let filter = incl "/etc/shells"
Packit Service a2ae7a
Packit Service a2ae7a
let xfm = transform lns filter