Gecko [ www.jobworksschool.com ]

Name	Size	Permission	Date
tests	[ DIR ]	drwxr-xr-x	2026-01-30 23:36
access.aug	3.58 KB	-rw-r--r--	2024-03-31 17:41
activemq_conf.aug	1.47 KB	-rw-r--r--	2024-03-31 17:41
activemq_xml.aug	864 B	-rw-r--r--	2024-03-31 17:41
afs_cellalias.aug	1.56 KB	-rw-r--r--	2024-03-31 17:41
aliases.aug	2.18 KB	-rw-r--r--	2024-03-31 17:41
anaconda.aug	775 B	-rw-r--r--	2024-03-31 17:41
anacron.aug	2.49 KB	-rw-r--r--	2024-03-31 17:41
approx.aug	1.26 KB	-rw-r--r--	2024-03-31 17:41
apt_update_manager.aug	1.11 KB	-rw-r--r--	2024-03-31 17:41
aptcacherngsecurity.aug	726 B	-rw-r--r--	2024-03-31 17:41
aptconf.aug	3.9 KB	-rw-r--r--	2024-03-31 17:41
aptpreferences.aug	1.79 KB	-rw-r--r--	2024-03-31 17:41
aptsources.aug	1.98 KB	-rw-r--r--	2024-03-31 17:41
authinfo2.aug	1.44 KB	-rw-r--r--	2024-03-31 17:41
authorized_keys.aug	1.84 KB	-rw-r--r--	2024-03-31 17:41
authselectpam.aug	3.7 KB	-rw-r--r--	2024-03-31 17:41
automaster.aug	3.31 KB	-rw-r--r--	2024-03-31 17:41
automounter.aug	4.05 KB	-rw-r--r--	2024-03-31 17:41
avahi.aug	1.38 KB	-rw-r--r--	2024-03-31 17:41
backuppchosts.aug	1014 B	-rw-r--r--	2024-03-31 17:41
bbhosts.aug	4.24 KB	-rw-r--r--	2024-03-31 17:41
bootconf.aug	3.65 KB	-rw-r--r--	2024-03-31 17:41
build.aug	16.65 KB	-rw-r--r--	2024-03-31 17:41
cachefilesd.aug	2 KB	-rw-r--r--	2024-03-31 17:41
carbon.aug	1.54 KB	-rw-r--r--	2024-03-31 17:41
ceph.aug	719 B	-rw-r--r--	2024-03-31 17:41
cgconfig.aug	3.37 KB	-rw-r--r--	2024-03-31 17:41
cgrules.aug	2.38 KB	-rw-r--r--	2024-03-31 17:41
channels.aug	3.84 KB	-rw-r--r--	2024-03-31 17:41
chrony.aug	13.79 KB	-rw-r--r--	2024-03-31 17:41
clamav.aug	1.72 KB	-rw-r--r--	2024-03-31 17:41
cmdline.aug	506 B	-rw-r--r--	2024-03-31 17:41
cobblermodules.aug	398 B	-rw-r--r--	2024-03-31 17:41
cobblersettings.aug	2.24 KB	-rw-r--r--	2024-03-31 17:41
cockpit.aug	1.96 KB	-rw-r--r--	2024-03-31 17:41
collectd.aug	869 B	-rw-r--r--	2024-03-31 17:41
cpanel.aug	824 B	-rw-r--r--	2024-03-31 17:41
cron.aug	4.05 KB	-rw-r--r--	2024-03-31 17:41
cron_user.aug	1.26 KB	-rw-r--r--	2024-03-31 17:41
crypttab.aug	3.08 KB	-rw-r--r--	2024-03-31 17:41
csv.aug	1.18 KB	-rw-r--r--	2024-03-31 17:41
cups.aug	459 B	-rw-r--r--	2024-03-31 17:41
cyrus_imapd.aug	1.51 KB	-rw-r--r--	2024-03-31 17:41
darkice.aug	773 B	-rw-r--r--	2024-03-31 17:41
debctrl.aug	3.61 KB	-rw-r--r--	2024-03-31 17:41
desktop.aug	1.39 KB	-rw-r--r--	2024-03-31 17:41
devfsrules.aug	619 B	-rw-r--r--	2024-03-31 17:41
device_map.aug	620 B	-rw-r--r--	2024-03-31 17:41
dhclient.aug	6.69 KB	-rw-r--r--	2024-03-31 17:41
dhcpd.aug	20.88 KB	-rw-r--r--	2024-03-31 17:41
dns_zone.aug	2.89 KB	-rw-r--r--	2024-03-31 17:41
dnsmasq.aug	2.16 KB	-rw-r--r--	2024-03-31 17:41
dovecot.aug	3.98 KB	-rw-r--r--	2024-03-31 17:41
dpkg.aug	2.78 KB	-rw-r--r--	2024-03-31 17:41
dput.aug	2.16 KB	-rw-r--r--	2024-03-31 17:41
erlang.aug	4.33 KB	-rw-r--r--	2024-03-31 17:41
ethers.aug	663 B	-rw-r--r--	2024-03-31 17:41
exports.aug	2.37 KB	-rw-r--r--	2024-03-31 17:41
fai_diskconfig.aug	9.28 KB	-rw-r--r--	2024-03-31 17:41
fail2ban.aug	1.79 KB	-rw-r--r--	2024-03-31 17:41
fonts.aug	819 B	-rw-r--r--	2024-03-31 17:41
fstab.aug	1.23 KB	-rw-r--r--	2024-03-31 17:41
fuse.aug	871 B	-rw-r--r--	2024-03-31 17:41
gdm.aug	1.8 KB	-rw-r--r--	2024-03-31 17:41
getcap.aug	1.57 KB	-rw-r--r--	2024-03-31 17:41
group.aug	1.66 KB	-rw-r--r--	2024-03-31 17:41
grub.aug	11.05 KB	-rw-r--r--	2024-03-31 17:41
grubenv.aug	508 B	-rw-r--r--	2024-03-31 17:41
gshadow.aug	2.19 KB	-rw-r--r--	2024-03-31 17:41
gtkbookmarks.aug	855 B	-rw-r--r--	2024-03-31 17:41
host_conf.aug	1.9 KB	-rw-r--r--	2024-03-31 17:41
hostname.aug	435 B	-rw-r--r--	2024-03-31 17:41
hosts.aug	485 B	-rw-r--r--	2024-03-31 17:41
hosts_access.aug	4.32 KB	-rw-r--r--	2024-03-31 17:41
htpasswd.aug	1.02 KB	-rw-r--r--	2024-03-31 17:41
httpd.aug	7.35 KB	-rw-r--r--	2024-03-31 17:41
inetd.aug	6.22 KB	-rw-r--r--	2024-03-31 17:41
inifile.aug	15.49 KB	-rw-r--r--	2024-03-31 17:41
inittab.aug	780 B	-rw-r--r--	2024-03-31 17:41
inputrc.aug	1.62 KB	-rw-r--r--	2024-03-31 17:41
interfaces.aug	4.62 KB	-rw-r--r--	2024-03-31 17:41
iproute2.aug	323 B	-rw-r--r--	2024-03-31 17:41
iptables.aug	2.64 KB	-rw-r--r--	2024-03-31 17:41
iscsid.aug	684 B	-rw-r--r--	2024-03-31 17:41
jaas.aug	1.57 KB	-rw-r--r--	2024-03-31 17:41
jettyrealm.aug	1.52 KB	-rw-r--r--	2024-03-31 17:41
jmxaccess.aug	1.35 KB	-rw-r--r--	2024-03-31 17:41
jmxpassword.aug	1.34 KB	-rw-r--r--	2024-03-31 17:41
json.aug	2.15 KB	-rw-r--r--	2024-03-31 17:41
kdump.aug	3.06 KB	-rw-r--r--	2024-03-31 17:41
keepalived.aug	10.73 KB	-rw-r--r--	2024-03-31 17:41
known_hosts.aug	1.93 KB	-rw-r--r--	2024-03-31 17:41
koji.aug	898 B	-rw-r--r--	2024-03-31 17:41
krb5.aug	6.98 KB	-rw-r--r--	2024-03-31 17:41
ldif.aug	7.65 KB	-rw-r--r--	2024-03-31 17:41
ldso.aug	1.06 KB	-rw-r--r--	2024-03-31 17:41
lightdm.aug	1.75 KB	-rw-r--r--	2024-03-31 17:41
limits.aug	2.02 KB	-rw-r--r--	2024-03-31 17:41
login_defs.aug	615 B	-rw-r--r--	2024-03-31 17:41
logrotate.aug	4.23 KB	-rw-r--r--	2024-03-31 17:41
logwatch.aug	1.44 KB	-rw-r--r--	2024-03-31 17:41
lokkit.aug	2.16 KB	-rw-r--r--	2024-03-31 17:41
lvm.aug	2.03 KB	-rw-r--r--	2024-03-31 17:41
mailscanner.aug	1.66 KB	-rw-r--r--	2024-03-31 17:41
mailscanner_rules.aug	2.84 KB	-rw-r--r--	2024-03-31 17:41
masterpasswd.aug	4.36 KB	-rw-r--r--	2024-03-31 17:41
mcollective.aug	1.09 KB	-rw-r--r--	2024-03-31 17:41
mdadm_conf.aug	10.05 KB	-rw-r--r--	2024-03-31 17:41
memcached.aug	1.24 KB	-rw-r--r--	2024-03-31 17:41
mke2fs.aug	6.29 KB	-rw-r--r--	2024-03-31 17:41
modprobe.aug	3.34 KB	-rw-r--r--	2024-03-31 17:41
modules.aug	741 B	-rw-r--r--	2024-03-31 17:41
modules_conf.aug	1.04 KB	-rw-r--r--	2024-03-31 17:41
mongodbserver.aug	1.17 KB	-rw-r--r--	2024-03-31 17:41
monit.aug	2.13 KB	-rw-r--r--	2024-03-31 17:41
multipath.aug	4.21 KB	-rw-r--r--	2024-03-31 17:41
mysql.aug	1.95 KB	-rw-r--r--	2024-03-31 17:41
nagioscfg.aug	2.09 KB	-rw-r--r--	2024-03-31 17:41
nagiosobjects.aug	1.57 KB	-rw-r--r--	2024-03-31 17:41
netmasks.aug	1.69 KB	-rw-r--r--	2024-03-31 17:41
networkmanager.aug	2.18 KB	-rw-r--r--	2024-03-31 17:41
networks.aug	1.09 KB	-rw-r--r--	2024-03-31 17:41
nginx.aug	3.65 KB	-rw-r--r--	2024-03-31 17:41
nrpe.aug	1.78 KB	-rw-r--r--	2024-03-31 17:41
nslcd.aug	9.87 KB	-rw-r--r--	2024-03-31 17:41
nsswitch.aug	2.33 KB	-rw-r--r--	2024-03-31 17:41
ntp.aug	5.29 KB	-rw-r--r--	2024-03-31 17:41
ntpd.aug	4.75 KB	-rw-r--r--	2024-03-31 17:41
odbc.aug	1.42 KB	-rw-r--r--	2024-03-31 17:41
opendkim.aug	3.1 KB	-rw-r--r--	2024-03-31 17:41
openshift_config.aug	2.46 KB	-rw-r--r--	2024-03-31 17:41
openshift_http.aug	1.03 KB	-rw-r--r--	2024-03-31 17:41
openshift_quickstarts.aug	1.02 KB	-rw-r--r--	2024-03-31 17:41
openvpn.aug	22.28 KB	-rw-r--r--	2024-03-31 17:41
oz.aug	1.35 KB	-rw-r--r--	2024-03-31 17:41
pagekite.aug	2.6 KB	-rw-r--r--	2024-03-31 17:41
pam.aug	2.58 KB	-rw-r--r--	2024-03-31 17:41
pamconf.aug	1.23 KB	-rw-r--r--	2024-03-31 17:41
passwd.aug	3.52 KB	-rw-r--r--	2024-03-31 17:41
pbuilder.aug	638 B	-rw-r--r--	2024-03-31 17:41
pg_hba.aug	2.97 KB	-rw-r--r--	2024-03-31 17:41
pgbouncer.aug	1.43 KB	-rw-r--r--	2024-03-31 17:41
php.aug	2.34 KB	-rw-r--r--	2024-03-31 17:41
phpvars.aug	3.85 KB	-rw-r--r--	2024-03-31 17:41
postfix_access.aug	771 B	-rw-r--r--	2024-03-31 17:41
postfix_main.aug	1.52 KB	-rw-r--r--	2024-03-31 17:41
postfix_master.aug	1.9 KB	-rw-r--r--	2024-03-31 17:41
postfix_passwordmap.aug	1.28 KB	-rw-r--r--	2024-03-31 17:41
postfix_sasl_smtpd.aug	697 B	-rw-r--r--	2024-03-31 17:41
postfix_transport.aug	1.48 KB	-rw-r--r--	2024-03-31 17:41
postfix_virtual.aug	1.32 KB	-rw-r--r--	2024-03-31 17:41
postgresql.aug	2.1 KB	-rw-r--r--	2024-03-31 17:41
properties.aug	2.3 KB	-rw-r--r--	2024-03-31 17:41
protocols.aug	1.05 KB	-rw-r--r--	2024-03-31 17:41
puppet.aug	1.52 KB	-rw-r--r--	2024-03-31 17:41
puppet_auth.aug	1.95 KB	-rw-r--r--	2024-03-31 17:41
puppetfile.aug	2.27 KB	-rw-r--r--	2024-03-31 17:41
puppetfileserver.aug	3.12 KB	-rw-r--r--	2024-03-31 17:41
pylonspaste.aug	2.3 KB	-rw-r--r--	2024-03-31 17:41
pythonpaste.aug	1.99 KB	-rw-r--r--	2024-03-31 17:41
qpid.aug	670 B	-rw-r--r--	2024-03-31 17:41
quote.aug	6.71 KB	-rw-r--r--	2024-03-31 17:41
rabbitmq.aug	4.69 KB	-rw-r--r--	2024-03-31 17:41
radicale.aug	1.48 KB	-rw-r--r--	2024-03-31 17:41
rancid.aug	927 B	-rw-r--r--	2024-03-31 17:41
redis.aug	6.5 KB	-rw-r--r--	2024-03-31 17:41
reprepro_uploaders.aug	5.47 KB	-rw-r--r--	2024-03-31 17:41
resolv.aug	4.03 KB	-rw-r--r--	2024-03-31 17:41
rhsm.aug	1.1 KB	-rw-r--r--	2024-03-31 17:41
rmt.aug	788 B	-rw-r--r--	2024-03-31 17:41
rsyncd.aug	1.97 KB	-rw-r--r--	2024-03-31 17:41
rsyslog.aug	3.27 KB	-rw-r--r--	2024-03-31 17:41
rtadvd.aug	854 B	-rw-r--r--	2024-03-31 17:41
rx.aug	4.2 KB	-rw-r--r--	2024-03-31 17:41
samba.aug	1.71 KB	-rw-r--r--	2024-03-31 17:41
schroot.aug	1.79 KB	-rw-r--r--	2024-03-31 17:41
securetty.aug	450 B	-rw-r--r--	2024-03-31 17:41
semanage.aug	1.02 KB	-rw-r--r--	2024-03-31 17:41
sep.aug	1.28 KB	-rw-r--r--	2024-03-31 17:41
services.aug	2.82 KB	-rw-r--r--	2024-03-31 17:41
shadow.aug	2.35 KB	-rw-r--r--	2024-03-31 17:41
shells.aug	745 B	-rw-r--r--	2024-03-31 17:41
shellvars.aug	12.02 KB	-rw-r--r--	2024-03-31 17:41
shellvars_list.aug	1.74 KB	-rw-r--r--	2024-03-31 17:41
simplelines.aug	1.13 KB	-rw-r--r--	2024-03-31 17:41
simplevars.aug	1.4 KB	-rw-r--r--	2024-03-31 17:41
sip_conf.aug	1.61 KB	-rw-r--r--	2024-03-31 17:41
slapd.aug	5.2 KB	-rw-r--r--	2024-03-31 17:41
smbusers.aug	781 B	-rw-r--r--	2024-03-31 17:41
solaris_system.aug	3.15 KB	-rw-r--r--	2024-03-31 17:41
soma.aug	1.14 KB	-rw-r--r--	2024-03-31 17:41
sos.aug	807 B	-rw-r--r--	2024-03-31 17:41
spacevars.aug	1.42 KB	-rw-r--r--	2024-03-31 17:41
splunk.aug	1.64 KB	-rw-r--r--	2024-03-31 17:41
squid.aug	15.95 KB	-rw-r--r--	2024-03-31 17:41
ssh.aug	4.39 KB	-rw-r--r--	2024-03-31 17:41
sshd.aug	4.74 KB	-rw-r--r--	2024-03-31 17:41
sssd.aug	861 B	-rw-r--r--	2024-03-31 17:41
star.aug	941 B	-rw-r--r--	2024-03-31 17:41
strongswan.aug	1.63 KB	-rw-r--r--	2024-03-31 17:41
stunnel.aug	2.21 KB	-rw-r--r--	2024-03-31 17:41
subversion.aug	2.75 KB	-rw-r--r--	2024-03-31 17:41
sudoers.aug	20.08 KB	-rw-r--r--	2024-03-31 17:41
sysconfig.aug	2.49 KB	-rw-r--r--	2024-03-31 17:41
sysconfig_route.aug	2.55 KB	-rw-r--r--	2024-03-31 17:41
sysctl.aug	1.36 KB	-rw-r--r--	2024-03-31 17:41
syslog.aug	7.33 KB	-rw-r--r--	2024-03-31 17:41
systemd.aug	6 KB	-rw-r--r--	2024-03-31 17:41
termcap.aug	1.03 KB	-rw-r--r--	2024-03-31 17:41
thttpd.aug	1.31 KB	-rw-r--r--	2024-03-31 17:41
tinc.aug	1.08 KB	-rw-r--r--	2024-03-31 17:41
tmpfiles.aug	3.16 KB	-rw-r--r--	2024-03-31 17:41
toml.aug	4.24 KB	-rw-r--r--	2024-03-31 17:41
trapperkeeper.aug	4.01 KB	-rw-r--r--	2024-03-31 17:41
tuned.aug	387 B	-rw-r--r--	2024-03-31 17:41
up2date.aug	2.21 KB	-rw-r--r--	2024-03-31 17:41
updatedb.aug	1.13 KB	-rw-r--r--	2024-03-31 17:41
util.aug	4.85 KB	-rw-r--r--	2024-03-31 17:41
vfstab.aug	1.71 KB	-rw-r--r--	2024-03-31 17:41
vmware_config.aug	702 B	-rw-r--r--	2024-03-31 17:41
vsftpd.aug	2.72 KB	-rw-r--r--	2024-03-31 17:41
webmin.aug	1.23 KB	-rw-r--r--	2024-03-31 17:41
wine.aug	1.92 KB	-rw-r--r--	2024-03-31 17:41
xendconfsxp.aug	1.07 KB	-rw-r--r--	2024-03-31 17:41
xinetd.aug	4.02 KB	-rw-r--r--	2024-03-31 17:41
xml.aug	6.33 KB	-rw-r--r--	2024-03-31 17:41
xorg.aug	10.43 KB	-rw-r--r--	2024-03-31 17:41
xymon.aug	2.26 KB	-rw-r--r--	2024-03-31 17:41
xymon_alerting.aug	6.11 KB	-rw-r--r--	2024-03-31 17:41
yaml.aug	1.54 KB	-rw-r--r--	2024-03-31 17:41
yum.aug	2.19 KB	-rw-r--r--	2024-03-31 17:41

Rename

(*
Module: Reprepro_Uploaders
  Parses reprepro's uploaders files

Author: Raphael Pinson <raphink@gmail.com>

About: Reference
  This lens tries to keep as close as possible to `man 1 reprepro` where possible.

About: License
   This file is licenced under the LGPL v2+, like the rest of Augeas.
About: Lens Usage
   See <lns>.

About: Configuration files
   This lens applies to reprepro's uploaders files.

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

module Reprepro_Uploaders =

(* View: logic_construct_condition
   A logical construction for <condition> and <condition_list> *)
let logic_construct_condition (kw:string) (lns:lens) =
    [ label kw . lns ]
  . [ Sep.space . key kw . Sep.space . lns ]*

(* View: logic_construct_field
   A generic definition for <condition_field> *)
let logic_construct_field (kw:string) (sep:string) (lns:lens) =
    [ label kw . lns ]
  . [ Build.xchgs sep kw . lns ]*

(* View: condition_re
   A condition can be of several types:

- source
   - byhand
   - sections
   - sections contain
   - binaries
   - binaries contain
   - architectures
   - architectures contain

While the lens technically also accepts "source contain"
   and "byhand contain", these are not understood by reprepro.

The "contain" types are built by adding a "contain" subnode.
   See the <condition_field> definition.

(* View: condition_field
   A single condition field is an 'or' node.
   It may contain several values, listed in 'or' subnodes:

> $reprepro/allow[1]/and/or = "architectures"
   > $reprepro/allow[1]/and/or/or[1] = "i386"
   > $reprepro/allow[1]/and/or/or[2] = "amd64"
   > $reprepro/allow[1]/and/or/or[3] = "all"

*)
let condition_field =
  let sto_condition = Util.del_str "'" . store /[^'\n]+/ . Util.del_str "'" in
    [ key "not" . Sep.space ]? .
    store condition_re
  . [ Sep.space . key "contain" ]?
  . Sep.space
  . logic_construct_field "or" "|" sto_condition

(* View: condition
   A condition is an 'and' node,
   representing a union of <condition_fields>,
   listed under 'or' subnodes:

> $reprepro/allow[1]/and
   > $reprepro/allow[1]/and/or = "architectures"
   > $reprepro/allow[1]/and/or/or[1] = "i386"
   > $reprepro/allow[1]/and/or/or[2] = "amd64"
   > $reprepro/allow[1]/and/or/or[3] = "all"

*)
let condition =
    logic_construct_condition "or" condition_field

(* View: condition_list
   A list of <conditions>, inspired by Debctrl.dependency_list
   An upload condition list is either the wildcard '*', stored verbatim,
   or an intersection of conditions listed under 'and' subnodes:

> $reprepro/allow[1]/and[1]
   > $reprepro/allow[1]/and[1]/or = "architectures"
   > $reprepro/allow[1]/and[1]/or/or[1] = "i386"
   > $reprepro/allow[1]/and[1]/or/or[2] = "amd64"
   > $reprepro/allow[1]/and[1]/or/or[3] = "all"
   > $reprepro/allow[1]/and[2]
   > $reprepro/allow[1]/and[2]/or = "sections"
   > $reprepro/allow[1]/and[2]/or/contain
   > $reprepro/allow[1]/and[2]/or/or = "main"

*)
let condition_list =
    store "*"
  | logic_construct_condition "and" condition

(* View: by_key
   When a key is used to authenticate packages,
   the value can either be a key ID or "any":

> $reprepro/allow[1]/by/key = "ABCD1234"
   > $reprepro/allow[2]/by/key = "any"

*)
let by_key =
  let any_key   = [ store "any" . Sep.space
                  . key "key" ] in
  let named_key = [ key "key" . Sep.space
                  . store (Rx.word - "any") ] in
    value "key" . (any_key | named_key)

(* View: by_group
   Authenticate packages by a groupname.

> $reprepro/allow[1]/by/group = "groupname"

*)
let by_group = value "group"
             . [ key "group" . Sep.space
             . store Rx.word ]

(* View: by
   <by> statements define who is allowed to upload.
   It can be simple keywords, like "anybody" or "unsigned",
   or a key ID, in which case a "key" subnode is added:

> $reprepro/allow[1]/by/key = "ABCD1234"
   > $reprepro/allow[2]/by/key = "any"
   > $reprepro/allow[3]/by = "anybody"
   > $reprepro/allow[4]/by = "unsigned"

*)
let by =
    [ key "by" . Sep.space
         . ( store ("anybody"|"unsigned")
           | by_key | by_group ) ]

(* View: allow
   An allow entry, e.g.:

> $reprepro/allow[1]
   > $reprepro/allow[1]/and[1]
   > $reprepro/allow[1]/and[1]/or = "architectures"
   > $reprepro/allow[1]/and[1]/or/or[1] = "i386"
   > $reprepro/allow[1]/and[1]/or/or[2] = "amd64"
   > $reprepro/allow[1]/and[1]/or/or[3] = "all"
   > $reprepro/allow[1]/and[2]
   > $reprepro/allow[1]/and[2]/or = "sections"
   > $reprepro/allow[1]/and[2]/or/contain
   > $reprepro/allow[1]/and[2]/or/or = "main"
   > $reprepro/allow[1]/by = "key"
   > $reprepro/allow[1]/by/key = "ABCD1234"

*)
let allow =
    [ key "allow" . Sep.space
  . condition_list . Sep.space
  . by . Util.eol ]

(* View: group
   A group declaration *)
let group =
     let add = [ key "add" . Sep.space
             . store Rx.word ]
  in let contains = [ key "contains" . Sep.space
                    . store Rx.word ]
  in let empty = [ key "empty" ]
  in let unused = [ key "unused" ]
  in [ key "group" . Sep.space
     . store Rx.word . Sep.space
     . (add | contains | empty | unused) . Util.eol ]

(* View: entry
   An entry is either an <allow> statement
   or a <group> definition.
 *)
let entry = allow | group

(* View: lns
   The lens is made of <Util.empty>, <Util.comment> and <entry> lines *)
let lns = (Util.empty|Util.comment|entry)*