Committed as bfbfcf1d9fb6ad64257f7b95ba55a698ff91f93e On Mon, Nov 1, 2010 at 6:08 PM, Raphael Pinson <[email protected]> wrote:
> --- > lenses/shells.aug | 37 +++++++++++++++++++++++++++++++++++++ > lenses/tests/test_shells.aug | 15 +++++++++++++++ > 2 files changed, 52 insertions(+), 0 deletions(-) > create mode 100644 lenses/shells.aug > create mode 100644 lenses/tests/test_shells.aug > > diff --git a/lenses/shells.aug b/lenses/shells.aug > new file mode 100644 > index 0000000..07c96fa > --- /dev/null > +++ b/lenses/shells.aug > @@ -0,0 +1,37 @@ > +(* > +Module: Shells > + Parses /etc/shells > + > +Author: Raphael Pinson <[email protected]> > + > +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 LGPLv2+, 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 shell = [ seq "shell" . store /[^# \t\n]+/ . Util.eol ] > + > +(* View: lns > + The shells lens > +*) > +let lns = ( empty | comment | shell )* > + > +(* Variable: filter *) > +let filter = incl "/etc/shells" > + . Util.stdexcl > + > +let xfm = transform lns filter > diff --git a/lenses/tests/test_shells.aug b/lenses/tests/test_shells.aug > new file mode 100644 > index 0000000..5dceca3 > --- /dev/null > +++ b/lenses/tests/test_shells.aug > @@ -0,0 +1,15 @@ > +(* Test for shells lens *) > + > +module Test_shells = > + > + let conf = "# this is a comment > + > +/bin/bash > +/bin/tcsh > +" > + > + test Shells.lns get conf = > + { "#comment" = "this is a comment" } > + {} > + { "1" = "/bin/bash" } > + { "2" = "/bin/tcsh" } > -- > 1.7.0.4 > >
_______________________________________________ augeas-devel mailing list [email protected] https://www.redhat.com/mailman/listinfo/augeas-devel
