(*

Module: AFS_cellalias

  Parses AFS configuration file CellAlias

Author: Pat Riehecky <riehecky@fnal.gov>

About: Reference

    This lens is targeted at the OpenAFS CellAlias file

About: Lens Usage

  Sample usage of this lens in augtool

  * Add a CellAlias for fnal.gov/files to fnal-files

  > set /files/usr/vice/etc/CellAlias/target[99] fnal.gov/files

  > set /files/usr/vice/etc/CellAlias/target[99]/linkname fnal-files

About: License

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

*)

module AFS_cellalias =

    autoload xfm

   (************************************************************************

    * Group:                 USEFUL PRIMITIVES

    *************************************************************************)

   (* Group: Comments and empty lines *)

   (* View: eol *)

   let eol   = Util.eol

   (* View: comment *)

   let comment = Util.comment

   (* View: empty *)

   let empty = Util.empty

   (* Group: separators *)

   (* View: space

    * Separation between key and value

    *)

   let space = Util.del_ws_spc

   let target = /[^ \t\n#]+/

   let linkname = Rx.word

   (************************************************************************

    * Group: ENTRIES

    *************************************************************************)

   (* View: entry *)

   let entry = [ label "target" . store target . space . [ label "linkname" . store linkname . eol ] ]

   (* View: lns *)

   let lns = (empty | comment | entry)*

   let xfm = transform lns (incl "/usr/vice/etc/CellAlias")

(* Local Variables: *)

(* mode: caml *)

(* End: *)