(*
Module: Cron_User
 Parses /var/spool/cron/*

Author: David Lutterkort <lutter@watzmann.net>

About: Reference
 This lens parses the user crontab files in /var/spool/cron. It produces
 almost the same tree as the Cron.lns, except that it never contains a user
 field.

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

About: Lens Usage
  Sample usage of this lens in augtool

    * Get the entry that launches '/usr/bin/ls'
      >  match '/files/var/spool/cron/foo/entry[. = "/usr/bin/ls"]'

About: Configuration files
  This lens applies to /var/spool/cron*. See <filter>.
 *)
module Cron_User =
  autoload xfm

(************************************************************************
 * View: entry
 *   A crontab entry for a user's crontab
 *************************************************************************)
let entry        = [ label "entry" . Cron.indent
                   . Cron.prefix?
                   . ( Cron.time | Cron.schedule )
                   . Cron.sep_spc . store Rx.space_in . Cron.eol ]

(*
 * View: lns
 *   The cron_user lens. Almost identical to Cron.lns
 *)
let lns = ( Cron.empty | Cron.comment | Cron.shellvar | entry )*

let filter =
  incl "/var/spool/cron/*" .
  Util.stdexcl

let xfm = transform lns filter