61 lines
1.6 KiB
Plaintext
61 lines
1.6 KiB
Plaintext
|
(*
|
||
|
|
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: *)
|