aDriv4 - MANAGER

Edit File: simplelines.aug

(*
Module: Simplelines
   Parses simple lines conffiles

Author: Raphael Pinson <raphink@gmail.com>

About: License
   This file is licenced under the LGPL v2+, like the rest of Augeas.

About: Lens Usage
   To be documented

About: Configuration files
   See <filter>.

About: Examples
   The <Test_Simplelines> file contains various examples and tests.
*)

module Simplelines =

autoload xfm

(* View: line
     A simple, uncommented, line *)
let line =
   let line_re = /[^# \t\n].*[^ \t\n]|[^# \t\n]/
   in [ seq "line" . Util.indent
      . store line_re . Util.eol ]

(* View: lns
     The simplelines lens *)
let lns = (Util.empty | Util.comment | line)*

(* Variable: filter *)
let filter = incl "/etc/at.allow"
           . incl "/etc/at.deny"
           . incl "/etc/cron.allow"
           . incl "/etc/cron.deny"
           . incl "/etc/cron.d/at.allow"
           . incl "/etc/cron.d/at.deny"
           . incl "/etc/cron.d/cron.allow"
           . incl "/etc/cron.d/cron.deny"
           . incl "/etc/default/grub_installdevice"
           . incl "/etc/pam.d/allow.pamlist"
           . incl "/etc/hostname.*"

let xfm = transform lns filter