Gecko [ 122.154.134.11 ]

Name	Size	Permission
access.aug	3.47 KB	-rw-r--r--
activemq_conf.aug	1.45 KB	-rw-r--r--
activemq_xml.aug	841 B	-rw-r--r--
aliases.aug	2.18 KB	-rw-r--r--
anacron.aug	2.5 KB	-rw-r--r--
approx.aug	1.26 KB	-rw-r--r--
apt_update_manager.aug	1.11 KB	-rw-r--r--
aptconf.aug	3.89 KB	-rw-r--r--
aptpreferences.aug	1.56 KB	-rw-r--r--
aptsources.aug	851 B	-rw-r--r--
authorized_keys.aug	1.78 KB	-rw-r--r--
automaster.aug	3.25 KB	-rw-r--r--
automounter.aug	4.05 KB	-rw-r--r--
avahi.aug	1.44 KB	-rw-r--r--
backuppchosts.aug	1014 B	-rw-r--r--
bbhosts.aug	3.25 KB	-rw-r--r--
build.aug	12.23 KB	-rw-r--r--
cachefilesd.aug	2.01 KB	-rw-r--r--
carbon.aug	1.54 KB	-rw-r--r--
cgconfig.aug	3.31 KB	-rw-r--r--
cgrules.aug	2.38 KB	-rw-r--r--
channels.aug	3.84 KB	-rw-r--r--
cobblermodules.aug	398 B	-rw-r--r--
cobblersettings.aug	2.24 KB	-rw-r--r--
collectd.aug	869 B	-rw-r--r--
cron.aug	4.02 KB	-rw-r--r--
crypttab.aug	3.02 KB	-rw-r--r--
cups.aug	485 B	-rw-r--r--
cyrus_imapd.aug	1.51 KB	-rw-r--r--
darkice.aug	799 B	-rw-r--r--
debctrl.aug	3.61 KB	-rw-r--r--
desktop.aug	1.35 KB	-rw-r--r--
device_map.aug	633 B	-rw-r--r--
dhclient.aug	6.13 KB	-rw-r--r--
dhcpd.aug	15.51 KB	-rw-r--r--
dnsmasq.aug	1.45 KB	-rw-r--r--
dpkg.aug	2.79 KB	-rw-r--r--
dput.aug	2.19 KB	-rw-r--r--
erlang.aug	3.34 KB	-rw-r--r--
ethers.aug	663 B	-rw-r--r--
exports.aug	2.37 KB	-rw-r--r--
fai_diskconfig.aug	9.26 KB	-rw-r--r--
fonts.aug	824 B	-rw-r--r--
fstab.aug	1.2 KB	-rw-r--r--
fuse.aug	890 B	-rw-r--r--
gdm.aug	1.8 KB	-rw-r--r--
group.aug	1.4 KB	-rw-r--r--
grub.aug	9.32 KB	-rw-r--r--
gtkbookmarks.aug	855 B	-rw-r--r--
host_conf.aug	1.88 KB	-rw-r--r--
hostname.aug	422 B	-rw-r--r--
hosts.aug	698 B	-rw-r--r--
hosts_access.aug	4.32 KB	-rw-r--r--
htpasswd.aug	1.02 KB	-rw-r--r--
httpd.aug	3.49 KB	-rw-r--r--
inetd.aug	6.2 KB	-rw-r--r--
inifile.aug	11.74 KB	-rw-r--r--
inittab.aug	780 B	-rw-r--r--
inputrc.aug	1.45 KB	-rw-r--r--
interfaces.aug	3.66 KB	-rw-r--r--
iptables.aug	2.64 KB	-rw-r--r--
jettyrealm.aug	1.5 KB	-rw-r--r--
jmxaccess.aug	1.33 KB	-rw-r--r--
jmxpassword.aug	1.32 KB	-rw-r--r--
json.aug	1.92 KB	-rw-r--r--
kdump.aug	2.91 KB	-rw-r--r--
keepalived.aug	8.03 KB	-rw-r--r--
krb5.aug	5.88 KB	-rw-r--r--
ldif.aug	7.65 KB	-rw-r--r--
ldso.aug	1.06 KB	-rw-r--r--
lightdm.aug	1.75 KB	-rw-r--r--
limits.aug	1.97 KB	-rw-r--r--
login_defs.aug	630 B	-rw-r--r--
logrotate.aug	3.9 KB	-rw-r--r--
logwatch.aug	1.47 KB	-rw-r--r--
lokkit.aug	2.16 KB	-rw-r--r--
mcollective.aug	994 B	-rw-r--r--
mdadm_conf.aug	10.04 KB	-rw-r--r--
memcached.aug	1.24 KB	-rw-r--r--
mke2fs.aug	4.69 KB	-rw-r--r--
modprobe.aug	3.34 KB	-rw-r--r--
modules.aug	741 B	-rw-r--r--
modules_conf.aug	1.06 KB	-rw-r--r--
monit.aug	2.12 KB	-rw-r--r--
multipath.aug	2.84 KB	-rw-r--r--
mysql.aug	1.7 KB	-rw-r--r--
nagioscfg.aug	1.09 KB	-rw-r--r--
nagiosobjects.aug	1.35 KB	-rw-r--r--
netmasks.aug	1.71 KB	-rw-r--r--
networkmanager.aug	2.14 KB	-rw-r--r--
networks.aug	1.09 KB	-rw-r--r--
nginx.aug	1.51 KB	-rw-r--r--
nrpe.aug	1.77 KB	-rw-r--r--
nsswitch.aug	2.29 KB	-rw-r--r--
ntp.aug	4.89 KB	-rw-r--r--
odbc.aug	1.42 KB	-rw-r--r--
openvpn.aug	5.56 KB	-rw-r--r--
pam.aug	2.24 KB	-rw-r--r--
pamconf.aug	1.26 KB	-rw-r--r--
passwd.aug	2.21 KB	-rw-r--r--
pbuilder.aug	638 B	-rw-r--r--
pg_hba.aug	2.91 KB	-rw-r--r--
php.aug	2.07 KB	-rw-r--r--
phpvars.aug	3.88 KB	-rw-r--r--
postfix_access.aug	732 B	-rw-r--r--
postfix_main.aug	1.49 KB	-rw-r--r--
postfix_master.aug	1.78 KB	-rw-r--r--
postfix_transport.aug	1.43 KB	-rw-r--r--
postfix_virtual.aug	1.26 KB	-rw-r--r--
postgresql.aug	1.92 KB	-rw-r--r--
properties.aug	2.25 KB	-rw-r--r--
protocols.aug	1.05 KB	-rw-r--r--
puppet.aug	1.52 KB	-rw-r--r--
puppet_auth.aug	1.95 KB	-rw-r--r--
puppetfileserver.aug	3.12 KB	-rw-r--r--
pythonpaste.aug	1.91 KB	-rw-r--r--
qpid.aug	670 B	-rw-r--r--
quote.aug	4.92 KB	-rw-r--r--
rabbitmq.aug	3.73 KB	-rw-r--r--
redis.aug	3.22 KB	-rw-r--r--
reprepro_uploaders.aug	4.75 KB	-rw-r--r--
resolv.aug	3.3 KB	-rw-r--r--
rsyncd.aug	1.97 KB	-rw-r--r--
rsyslog.aug	1.76 KB	-rw-r--r--
rx.aug	3.18 KB	-rw-r--r--
samba.aug	1.73 KB	-rw-r--r--
schroot.aug	1.82 KB	-rw-r--r--
securetty.aug	450 B	-rw-r--r--
sep.aug	1.28 KB	-rw-r--r--
services.aug	2.63 KB	-rw-r--r--
shadow.aug	2.11 KB	-rw-r--r--
shells.aug	764 B	-rw-r--r--
shellvars.aug	8.31 KB	-rw-r--r--
shellvars_list.aug	1.55 KB	-rw-r--r--
simplelines.aug	1.09 KB	-rw-r--r--
simplevars.aug	1.12 KB	-rw-r--r--
slapd.aug	5.11 KB	-rw-r--r--
smbusers.aug	747 B	-rw-r--r--
solaris_system.aug	3.17 KB	-rw-r--r--
soma.aug	1.18 KB	-rw-r--r--
spacevars.aug	1.37 KB	-rw-r--r--
splunk.aug	1.22 KB	-rw-r--r--
squid.aug	15.93 KB	-rw-r--r--
ssh.aug	2.09 KB	-rw-r--r--
sshd.aug	3.36 KB	-rw-r--r--
sssd.aug	858 B	-rw-r--r--
stunnel.aug	2.24 KB	-rw-r--r--
subversion.aug	2.17 KB	-rw-r--r--
sudoers.aug	19.78 KB	-rw-r--r--
sysconfig.aug	2.43 KB	-rw-r--r--
sysctl.aug	837 B	-rw-r--r--
syslog.aug	6.91 KB	-rw-r--r--
systemd.aug	5 KB	-rw-r--r--
thttpd.aug	1.31 KB	-rw-r--r--
up2date.aug	2.21 KB	-rw-r--r--
util.aug	4.3 KB	-rw-r--r--
vfstab.aug	1.74 KB	-rw-r--r--
vmware_config.aug	702 B	-rw-r--r--
vsftpd.aug	2.66 KB	-rw-r--r--
webmin.aug	1.27 KB	-rw-r--r--
wine.aug	1.92 KB	-rw-r--r--
xendconfsxp.aug	1.09 KB	-rw-r--r--
xinetd.aug	3.92 KB	-rw-r--r--
xml.aug	6.09 KB	-rw-r--r--
xorg.aug	9.5 KB	-rw-r--r--
xymon.aug	2.2 KB	-rw-r--r--
yum.aug	2.05 KB	-rw-r--r--

Code Editor : inifile.aug

(*
Module: IniFile
  Generic module to create INI files lenses

Author: Raphael Pinson <raphink@gmail.com>

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

About: TODO
  Things to add in the future
  - Support double quotes in value

About: Lens usage
  This lens is made to provide generic primitives to construct INI File lenses.
  See <Puppet>, <PHP>, <MySQL> or <Dput> for examples of real life lenses using it.

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

module IniFile  =

(************************************************************************
 * Group:               USEFUL PRIMITIVES
 *************************************************************************)

(* Group: Internal primitives *)

(*
Variable: eol
  End of line, inherited from <Util.eol>
*)
let eol                = Util.eol

(*
View: empty
  Empty line, an <eol> subnode
*)
let empty              = [ eol ]

(* Group: Separators *)

(*
Variable: sep
  Generic separator

Parameters:
    pat:regexp - the pattern to delete
    default:string - the default string to use
*)
let sep (pat:regexp) (default:string)
                       = Sep.opt_space . del pat default

(*
Variable: sep_noindent
  Generic separator, no indentation

Parameters:
    pat:regexp - the pattern to delete
    default:string - the default string to use
*)
let sep_noindent (pat:regexp) (default:string)
                       = del pat default

(*
Variable: sep_re
  The default regexp for a separator
*)

let sep_re             = /[=:]/

(*
Variable: sep_default
  The default separator value
*)
let sep_default        = "="

(* Group: Stores *)

(*
Variable: sto_to_eol
  Store until end of line
*)
let sto_to_eol         = Sep.opt_space . store Rx.space_in

(*
Variable: to_comment_re
  Regex until comment
*)
let to_comment_re = /[^";# \t\n][^";#\n]*[^";# \t\n]|[^";# \t\n]/
                  | /"[^\n"]*"/

(*
Variable: sto_to_comment
  Store until comment
*)
let sto_to_comment = Sep.opt_space . store to_comment_re

(*
Variable: sto_multiline
  Store multiline values
*)
let sto_multiline = Sep.opt_space
         . store (to_comment_re
               . (/[ \t]*\n/ . Rx.space . to_comment_re)*)

(*
Variable: sto_multiline_nocomment
  Store multiline values without an end-of-line comment
*)
let sto_multiline_nocomment = Sep.opt_space
         . store (Rx.space_in . (/[ \t]*\n/ . Rx.space . Rx.space_in)*)

(* Group: Define comment and defaults *)

(*
View: comment
  Map comments into "#comment" nodes

Parameters:
    pat:regexp - pattern to delete before commented data
    default:string - default pattern before commented data

Sample Usage:
  (start code)
    let comment  = IniFile.comment "#" "#"
    let comment  = IniFile.comment IniFile.comment_re IniFile.comment_default
  (end code)
*)
let comment (pat:regexp) (default:string)
                       = [ label "#comment" . sep pat default
		         . sto_to_eol? . eol ]

let comment_noindent (pat:regexp) (default:string)
                       = [ label "#comment" . sep_noindent pat default
		         . sto_to_eol? . eol ]
(*
Variable: comment_re
  Default regexp for <comment> pattern
*)

let comment_re         = /[;#]/

(*
Variable: comment_default
  Default value for <comment> pattern
*)
let comment_default    = ";"

(************************************************************************
 * Group:                     ENTRY
 *************************************************************************)

(* Group: entry includes comments *)

(*
View: entry
  Generic INI File entry

Parameters:
    kw:regexp    - keyword regexp for the label
    sep:lens     - lens to use as key/value separator
    comment:lens - lens to use as comment

Sample Usage:
     > let entry = IniFile.entry setting sep comment
*)
let entry (kw:regexp) (sep:lens) (comment:lens)
                       = [ key kw . sep . sto_to_comment? . (comment|eol) ] | comment

(*
View: entry_multiline
  Generic multiline INI File entry

Parameters:
    kw:regexp    - keyword regexp for the label
    sep:lens     - lens to use as key/value separator
    comment:lens - lens to use as comment
*)
let entry_multiline (kw:regexp) (sep:lens) (comment:lens)
                       = [ key kw . sep . sto_multiline? . (comment|eol) ]
                         | comment

(*
View: entry_multiline_nocomment
  Generic multiline INI File entry without an end-of-line comment

Parameters:
    kw:regexp    - keyword regexp for the label
    sep:lens     - lens to use as key/value separator
    comment:lens - lens to use as comment
*)
let entry_multiline_nocomment (kw:regexp) (sep:lens) (comment:lens)
                       = [ key kw . sep . sto_multiline_nocomment? . eol ]
                         | comment

(*
View: indented_entry
  Generic INI File entry that might be indented with an arbitrary
  amount of whitespace

Parameters:
    kw:regexp    - keyword regexp for the label
    sep:lens     - lens to use as key/value separator
    comment:lens - lens to use as comment

Sample Usage:
     > let entry = IniFile.indented_entry setting sep comment
*)
let indented_entry (kw:regexp) (sep:lens) (comment:lens)
                       = [ Util.del_opt_ws "" .
                           key kw . sep . sto_to_comment? .
                           (comment|eol)
                         ]
                         | comment
(*
View: entry_list
  Generic INI File list entry

Parameters:
    kw:regexp     - keyword regexp for the label
    sep:lens      - lens to use as key/value separator
    sto:regexp    - store regexp for the values
    list_sep:lens - lens to use as list separator
    comment:lens  - lens to use as comment
*)
let entry_list (kw:regexp) (sep:lens) (sto:regexp) (list_sep:lens) (comment:lens) =
  let list = counter "elem"
      . Build.opt_list [ seq "elem" . store sto ] list_sep
  in Build.key_value_line_comment kw sep (Sep.opt_space . list) comment

(*
View: entry_list_nocomment
  Generic INI File list entry without an end-of-line comment

Parameters:
    kw:regexp     - keyword regexp for the label
    sep:lens      - lens to use as key/value separator
    sto:regexp    - store regexp for the values
    list_sep:lens - lens to use as list separator
*)
let entry_list_nocomment (kw:regexp) (sep:lens) (sto:regexp) (list_sep:lens) =
  let list = counter "elem"
      . Build.opt_list [ seq "elem" . store sto ] list_sep
  in Build.key_value_line kw sep (Sep.opt_space . list)

(*
Variable: entry_re
  Default regexp for <entry> keyword
*)
let entry_re           = ( /[A-Za-z][A-Za-z0-9._-]+/ )

(************************************************************************
 * Group:                      RECORD
 *************************************************************************)

(* Group: Title definition *)

(*
View: title
  Title for <record>. This maps the title of a record as a node in the abstract tree.

Parameters:
    kw:regexp - keyword regexp for the label

Sample Usage:
    > let title   = IniFile.title IniFile.record_re
*)
let title (kw:regexp)
                       = Util.del_str "[" . key kw
                         . Util.del_str "]". eol

(*
View: indented_title
  Title for <record>. This maps the title of a record as a node in the abstract tree. The title may be indented with arbitrary amounts of whitespace

Parameters:
    kw:regexp - keyword regexp for the label

Sample Usage:
    > let title   = IniFile.title IniFile.record_re
*)
let indented_title (kw:regexp)
                       = Util.indent . title kw

(*
View: title_label
  Title for <record>. This maps the title of a record as a value in the abstract tree.

Parameters:
    name:string - name for the title label
    kw:regexp   - keyword regexp for the label

Sample Usage:
    > let title   = IniFile.title_label "target" IniFile.record_label_re
*)
let title_label (name:string) (kw:regexp)
                       = label name
                         . Util.del_str "[" . store kw
                         . Util.del_str "]". eol

(*
View: indented_title_label
  Title for <record>. This maps the title of a record as a value in the abstract tree. The title may be indented with arbitrary amounts of whitespace

Parameters:
    name:string - name for the title label
    kw:regexp   - keyword regexp for the label

Sample Usage:
    > let title   = IniFile.title_label "target" IniFile.record_label_re
*)
let indented_title_label (name:string) (kw:regexp)
                       = Util.indent . title_label name kw

(*
Variable: record_re
  Default regexp for <title> keyword pattern
*)
let record_re          = ( /[^]\n\/]+/ - /#comment/ )

(*
Variable: record_label_re
  Default regexp for <title_label> keyword pattern
*)
let record_label_re    = /[^]\n]+/

(* Group: Record definition *)

(*
View: record_noempty
  INI File Record with no empty lines allowed.

Parameters:
    title:lens - lens to use for title. Use either <title> or <title_label>.
    entry:lens - lens to use for entries in the record. See <entry>.
*)
let record_noempty (title:lens) (entry:lens)
                       = [ title
		       . entry* ]

(*
View: record
  Generic INI File record

Parameters:
    title:lens - lens to use for title. Use either <title> or <title_label>.
    entry:lens - lens to use for entries in the record. See <entry>.

Sample Usage:
    > let record  = IniFile.record title entry
*)
let record (title:lens) (entry:lens)
                       = record_noempty title ( entry | empty )

(************************************************************************
 * Group:                      GENERIC LENSES
 *************************************************************************)

Group: Lens definition

View: lns_noempty
  Generic INI File lens with no empty lines

Parameters:
    record:lens  - record lens to use. See <record_noempty>.
    comment:lens - comment lens to use. See <comment>.

Sample Usage:
    > let lns     = IniFile.lns_noempty record comment
*)
let lns_noempty (record:lens) (comment:lens)
                       = comment* . record*

(*
View: lns
  Generic INI File lens

Parameters:
    record:lens  - record lens to use. See <record>.
    comment:lens - comment lens to use. See <comment>.

Sample Usage:
    > let lns     = IniFile.lns record comment
*)
let lns (record:lens) (comment:lens)
                       = lns_noempty record (comment|empty)

(************************************************************************
 * Group:                   READY-TO-USE LENSES
 *************************************************************************)

let record_anon (entry:lens) = [ label "section" . value ".anon" . ( entry | empty )+ ]

(*
View: lns_loose
  A loose, ready-to-use lens, featuring:
    - sections as values (to allow '/' in names)
    - support empty lines and comments
    - support for [#;] as comment, defaulting to ";"
    - .anon sections
    - don't allow multiline values
    - allow indented titles
    - allow indented entries
*)
let lns_loose = 
     let l_comment = comment comment_re comment_default
  in let l_sep = sep sep_re sep_default
  in let l_entry = indented_entry entry_re l_sep l_comment
  in let l_title = indented_title_label "section" (record_label_re - ".anon")
  in let l_record = record l_title l_entry
  in (record_anon l_entry)? . l_record*

(*
View: lns_loose_multiline
  A loose, ready-to-use lens, featuring:
    - sections as values (to allow '/' in names)
    - support empty lines and comments
    - support for [#;] as comment, defaulting to ";"
    - .anon sections
    - allow multiline values
*)
let lns_loose_multiline = 
     let l_comment = comment comment_re comment_default
  in let l_sep = sep sep_re sep_default
  in let l_entry = entry_multiline entry_re l_sep l_comment
  in let l_title = title_label "section" (record_label_re - ".anon")
  in let l_record = record l_title l_entry
  in (record_anon l_entry)? . l_record*

${this.title}

Code Editor : inifile.aug