OXIESEC PANEL

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

Editing: grub.aug

(*
Module: Grub
  Parses grub configuration

Author: David Lutterkort <lutter@redhat.com>

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

About: Lens Usage
   To be documented
*)

module Grub =
  autoload xfm

(* This only covers the most basic grub directives. Needs to be *)
    (* expanded to cover more (and more esoteric) directives        *)
    (* It is good enough to handle the grub.conf on my Fedora 8 box *)

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

(* View: value_to_eol *)
    let value_to_eol = store /[^= \t\n][^\n]*[^= \t\n]|[^= \t\n]/

(* View: eol *)
    let eol = Util.eol

(* View: spc *)
    let spc = Util.del_ws_spc

(* View: opt_ws *)
    let opt_ws = Util.del_opt_ws ""

(* View: dels *)
    let dels (s:string) = Util.del_str s

(* View: eq *)
    let eq = dels "="

(* View: switch *)
    let switch (n:regexp) = dels "--" . key n

(* View: switch_arg *)
    let switch_arg (n:regexp) = switch n . eq . store Rx.no_spaces

(* View: value_sep *)
    let value_sep (dflt:string) = del /[ \t]*[ \t=][ \t]*/ dflt

(* View: comment_re *)
    let comment_re = /([^ \t\n].*[^ \t\n]|[^ \t\n])/
                       - /# ## (Start|End) Default Options ##/

(* View: comment *)
    let comment    =
        [ Util.indent . label "#comment" . del /#[ \t]*/ "# "
            . store comment_re . eol ]

(* View: empty *)
    let empty   = Util.empty

(************************************************************************
 * Group:                 USEFUL FUNCTIONS
 *************************************************************************)

(* View: command *)
    let command (kw:regexp) (indent:string) =
      Util.del_opt_ws indent . key kw

(* View: kw_arg *)
    let kw_arg (kw:regexp) (indent:string) (dflt_sep:string) =
      [ command kw indent . value_sep dflt_sep . value_to_eol . eol ]

(* View: kw_boot_arg *)
    let kw_boot_arg (kw:regexp) = kw_arg kw "\t" " "

(* View: kw_menu_arg *)
    let kw_menu_arg (kw:regexp) = kw_arg kw "" " "

(* View: password_arg *)
    let password_arg = [ command "password" "" .
      (spc . [ switch "md5" ])? .
      (spc . [ switch "encrypted" ])? .
      spc . store (/[^ \t\n]+/ - /--[^ \t\n]+/) .
      (spc . [ label "file" . store /[^ \t\n]+/ ])? .
      eol ]

(* View: kw_pres *)
    let kw_pres (kw:string) = [ opt_ws . key kw . eol ]

(* View: error
     *   Parse a line that looks almost like a valid setting, but isn't,
     *   into an '#error' node. Any line that starts with letters, but not
     *   anything matching kw, is considered an error line.
     *
     *   Parameters:
     *     kw:regexp - the valid keywords that are _not_ considered an
     *                 error
     *)
    let error (kw:regexp) =
      let not_kw = /[a-zA-Z]+/ - kw in
      [ label "#error" . Util.del_opt_ws "\t"
        . store (not_kw . /([^a-zA-Z\n].*[^ \t\n])?/) . eol ]

(************************************************************************
 * Group:                 BOOT ENTRIES
 *************************************************************************)

(* View: device
     *  This is a shell-only directive in upstream grub; the grub versions
     *  in at least Fedora/RHEL use this to find devices for UEFI boot *)
    let device =
      [ command "device" "" . Sep.space . store /$[A-Za-z0-9_.-]+$/ . spc .
        [ label "file" . value_to_eol ] . Util.eol ]

(* View: color *)
    let color =
      (* Should we nail it down to exactly the color names that *)
      (* grub supports ? *)
      let color_name = store /[A-Za-z-]+/ in
      let color_spec =
        [ label "foreground" . color_name] .
        dels "/" .
        [ label "background" . color_name ] in
      [ opt_ws . key "color" .
        spc . [ label "normal" . color_spec ] .
        (spc . [ label "highlight" . color_spec ])? .
        eol ]

(* View: setkey *)
    let setkey = [ command "setkey" "" .
      ( spc . [ label "to" . store Rx.no_spaces ] .
        spc . [ label "from" . store Rx.no_spaces ] )? .
      eol ]

(* View: menu_setting
     *   a valid menu setting or a line that looks like one but is an #error
     *)
    let menu_setting = menu_entry | menu_error

(* View: title *)
    let title = del /title[ \t=]+/ "title " . value_to_eol . eol

(* View: multiboot_arg
     *  Permits a second form for Solaris multiboot kernels that
     *  take a path (with a slash) as their first arg, e.g.
     *  /boot/multiboot kernel/unix another=arg *)
    let multiboot_arg = [ label "@path" .
                          store (Rx.word . "/" . Rx.no_spaces) ]

(* View: kernel_args
        Parse the file name and args on a kernel or module line. *)
    let kernel_args =
      let arg = /[A-Za-z0-9_.$\+-]+/ - /type|no-mem-option/  in
      store /($[a-z0-9,]+$)?\/[^ \t\n]*/ .
            (spc . multiboot_arg)? .
            (spc . [ key arg . (eq. store /([^ \t\n])*/)?])* . eol

(* View: module_line
        Solaris extension adds module$ and kernel$ for variable interpolation *)
    let module_line =
      [ command /module\$?/ "\t" . spc . kernel_args ]

(* View: map_line *)
    let map_line =
      [ command "map" "\t" . spc .
           [ label "from" . store /[()A-za-z0-9]+/ ] . spc .
           [ label "to" . store /[()A-za-z0-9]+/ ] . eol ]

(* View: kernel *)
    let kernel =
        [ command /kernel\$?/ "\t" .
          (spc .
             ([switch "type" . eq . store /[a-z]+/]
             |[switch "no-mem-option"]))* .
          spc . kernel_args ]

(* View: chainloader *)
    let chainloader =
      [ command "chainloader" "\t" .
          [ spc . switch "force" ]? . spc . store Rx.no_spaces . eol ]

(* View: savedefault *)
    let savedefault =
      [ command "savedefault" "\t" . (spc . store Rx.integer)? . eol ]

(* View: configfile *)
    let configfile =
      [ command "configfile" "\t" . spc . store Rx.no_spaces . eol ]

(* View: boot_setting
     *   a valid boot setting or a line that looks like one but is an #error
     *)
    let boot_setting = boot_entry | boot_error

(* View: boot *)
    let boot =
      let line = ((boot_setting|comment)* . boot_setting)? in
      [ label "title" . title . line ]

(************************************************************************
 * Group:                 DEBIAN-SPECIFIC SECTIONS
 *************************************************************************)

(* View: debian_header
        Header for a <debian>-specific section *)
    let debian_header  = "## ## Start Default Options ##\n"

(* View: debian_footer
        Footer for a <debian>-specific section *)
    let debian_footer  = "## ## End Default Options ##\n"

(* View: debian_comment_re *)
    let debian_comment_re = /([^ \t\n].*[^ \t\n]|[^ \t\n])/
                            - "## End Default Options ##"

(* View: debian_comment
        A comment entry inside a <debian>-specific section *)
    let debian_comment =
        [ Util.indent . label "#comment" . del /##[ \t]*/ "## "
            . store debian_comment_re . eol ]

(* View: debian_entry *)
    let debian_entry   = [ Util.del_str "#" . Util.indent
                         . key debian_setting_re . del /[ \t]*=/ "="
                         . value_to_eol? . eol ]

(* View: debian
        A debian-specific section, made of <debian_entry> lines *)
    let debian         = [ label "debian"
                    . del debian_header debian_header
                    . (debian_comment|empty|debian_entry)*
                    . del debian_footer debian_footer ]

(************************************************************************
 * Group:                 LENS AND FILTER
 *************************************************************************)

(* View: filter *)
    let filter = incl "/boot/grub/grub.conf"
               . incl "/boot/grub/menu.lst"
               . incl "/etc/grub.conf"
               . incl "/boot/efi/EFI/*/grub.conf"

let xfm = transform lns filter