TrxShell [ mangaberri.com ]

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

Code Editor : shellvars.aug

(*
Module: Shellvars
 Generic lens for shell-script config files like the ones found
 in /etc/sysconfig

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

About: Lens Usage
   To be documented
*)

module Shellvars =
  autoload xfm

(* Delete a blank line, rather than mapping it *)
  let del_empty = del (Util.empty_generic_re . "\n") "\n"

let empty   = Util.empty
  let empty_part_re = Util.empty_generic_re . /\n+/
  let eol = del (/[ \t]+|[ \t]*[;\n]/ . empty_part_re*) "\n"
  let semicol_eol = del (/[ \t]*[;\n]/ . empty_part_re*) "\n"
  let brace_eol = del /[ \t\n]+/ "\n"

let key_re = /[A-Za-z0-9_][-A-Za-z0-9_]*(\[[0-9A-Za-z_,]+\])?/ - ("unset" | "export")
  let matching_re = "${!" . key_re . /[\*@]\}/
  let eq = Util.del_str "="

let eol_for_comment = del /([ \t]*\n)([ \t]*(#[ \t]*)?\n)*/ "\n"
  let comment = Util.comment_generic_seteol /[ \t]*#[ \t]*/ " # " eol_for_comment
  (* comment_eol in shell MUST begin with a space *)
  let comment_eol = Util.comment_generic_seteol /[ \t]+#[ \t]*/ " # " eol_for_comment
  let comment_or_eol = comment_eol | semicol_eol

let xchgs   = Build.xchgs
  let semicol = del /;?/ ""

let char  = /[^`;()'"&|\n\\# \t]#*|\\\\./
  let dquot =
       let char = /[^"\\]|\\\\./ | Rx.cl
    in "\"" . char* . "\""                    (* " Emacs, relax *)
  let squot = /'[^']*'/
  let bquot = /`[^`\n]+`/
  (* dbquot don't take spaces or semi-colons *)
  let dbquot = /``[^` \t\n;]+``/
  let dollar_assign = /\$$[^\($#\n]*\)/
  let dollar_arithm = /\$$\([^$#\n]*\)\)/

(* Array values of the form '(val1 val2 val3)'. We do not handle empty *)
  (* arrays here because of typechecking headaches. Instead, they are    *)
  (* treated as a simple value                                           *)
  let array =
    let array_value = store anyquot in
    del /$[ \t]*/ "(" . counter "values" .
      [ seq "values" . array_value ] .
      [ del /[ \t\n]+/ " " . seq "values" . array_value ] *
      . del /[ \t]*$/ ")"

(* Treat an empty list () as a value '()'; that's not quite correct *)
  (* but fairly close.                                                *)
  let simple_value =
    let empty_array = /$[ \t]*$/ in
      store (anyquot | empty_array)?

let export = [ key "export" . Util.del_ws_spc ]
  let kv = Util.indent . export? . key key_re
           . eq . (simple_value | array)

let var_action (name:string) =
    Util.indent . del name name . Util.del_ws_spc
    . label ("@" . name) . counter "var_action"
    . Build.opt_list [ seq "var_action" . store (key_re | matching_re) ] Util.del_ws_spc

let unset = var_action "unset"
  let bare_export = var_action "export"

let source =
    Util.indent
    . del /\.|source/ "." . label ".source"
    . Util.del_ws_spc . store /[^;=# \t\n]+/

let shell_builtin_cmds = "ulimit" | "shift" | "exit"

let eval =
    Util.indent . Util.del_str "eval" . Util.del_ws_spc
    . label "@eval" . store anyquot

let alias =
    Util.indent . Util.del_str "alias" . Util.del_ws_spc
    . label "@alias" . store key_re . eq
    . [ label "value" . store anyquot ]

let builtin =
    Util.indent . label "@builtin"
    . store shell_builtin_cmds
    . (Sep.cl_or_space
    . [ label "args" . sto_to_semicol ])?

let keyword (kw:string) = Util.indent . Util.del_str kw
  let keyword_label (kw:string) (lbl:string) = keyword kw . label lbl

let return =
    Util.indent . label "@return"
    . Util.del_str "return"
    . ( Util.del_ws_spc . store Rx.integer )?

let action (operator:string) (lbl:string) (sto:lens) =
       let sp = Rx.cl_or_opt_space | /[ \t\n]+/
    in [ del (sp . operator . sp) (" " . operator . " ")
       . label ("@".lbl) . sto ]

let action_pipe = action "|" "pipe"
  let action_and = action "&&" "and"
  let action_or = action "||" "or"

let condition =
    let cond (start:string) (end:string) = [ label "type" . store start ]
                                         . Util.del_ws_spc . sto_to_semicol
                                         . Util.del_ws_spc . Util.del_str end
                                         . ( action_and sto_to_semicol | action_or sto_to_semicol )*
    in Util.indent . label "@condition" . (cond "[" "]" | cond "[[" "]]")

(* Entry types *)
  let entry_eol_item (item:lens) = [ item . comment_or_eol ]
  let entry_item (item:lens) = [ item ]

let entry_eol = entry_eol_nocommand
                | entry_eol_item command

let entry_noeol = entry_noeol_nocommand
                  | entry_item command

(************************************************************************
 * Group:                 CONDITIONALS AND LOOPS
 *************************************************************************)

let generic_cond_start (start_kw:string) (lbl:string)
                         (then_kw:string) (contents:lens) =
      keyword_label start_kw lbl . Sep.space
      . sto_to_semicol
      . ( action_and sto_to_semicol | action_or sto_to_semicol )*
      . semicol_eol
      . keyword then_kw . eol
      . contents

let generic_cond (start_kw:string) (lbl:string)
                       (then_kw:string) (contents:lens) (end_kw:string) =
      [ generic_cond_start start_kw lbl then_kw contents
        . keyword end_kw . comment_or_eol ]

let cond_if (entry:lens) =
    let elif = [ generic_cond_start "elif" "@elif" "then" entry+ ] in
    let else = [ keyword_label "else" "@else" . eol . entry+ ] in
    generic_cond "if" "@if" "then" (entry+ . elif* . else?) "fi"

let loop_for (entry:lens) =
    generic_cond "for" "@for" "do" entry+ "done"

let loop_while (entry:lens) =
    generic_cond "while" "@while" "do" entry+ "done"

let loop_until (entry:lens) =
    generic_cond "until" "@until" "do" entry+ "done"

let loop_select (entry:lens) =
    generic_cond "select" "@select" "do" entry+ "done"

let case (entry:lens) (entry_noeol:lens) =
       let pattern = [ label "@pattern" . sto_to_semicol . Sep.opt_space ]
    in let case_entry = [ label "@case_entry"
                       . Util.indent . pattern
                       . (Util.del_str "|" . Sep.opt_space . pattern)*
                       . Util.del_str ")" . eol
                       . entry* . entry_noeol?
                       . Util.indent . Util.del_str ";;" . eol ] in
      [ keyword_label "case" "@case" . Sep.space
        . store (char+ | ("\"" . char+ . "\""))
        . del /[ \t\n]+/ " " . Util.del_str "in" . eol
        . (empty* . comment* . case_entry)*
        . empty* . comment*
        . keyword "esac" . comment_or_eol ]

let subshell (entry:lens) =
    [ Util.indent . label "@subshell"
    . Util.del_str "{" . brace_eol
    . entry+
    . Util.indent . Util.del_str "}" . eol ]

let function (entry:lens) (start_kw:string) (end_kw:string) =
    [ Util.indent . label "@function"
    . del /(function[ \t]+)?/ ""
    . store Rx.word . del /[ \t]*/ "()"
    . (comment_eol|brace_eol) . Util.del_str start_kw . brace_eol
    . entry+
    . Util.indent . Util.del_str end_kw . eol ]

let rec rec_entry =
    let entry = comment | entry_eol | rec_entry in
        cond_if entry
      | loop_for entry
      | loop_select entry
      | loop_while entry
      | loop_until entry
      | case entry entry_noeol
      | function entry "{" "}"
      | function entry "(" ")"
      | subshell entry

let lns_norec = del_empty* . (comment | entry_eol) *

let lns = del_empty* . (comment | entry_eol | rec_entry) *

let sc_incl (n:string) = (incl ("/etc/sysconfig/" . n))
  let sc_excl (n:string) = (excl ("/etc/sysconfig/" . n))

let filter_sysconfig =
      sc_incl "*" .
      sc_excl "anaconda" .
      sc_excl "bootloader" .
      sc_excl "hw-uuid" .
      sc_excl "hwconf" .
      sc_excl "ip*tables" .
      sc_excl "ip*tables.save" .
      sc_excl "kernel" .
      sc_excl "*.pub" .
      sc_excl "sysstat.ioconf" .
      sc_excl "system-config-firewall" .
      sc_excl "system-config-securitylevel" .
      sc_incl "network/config" .
      sc_incl "network/dhcp" .
      sc_incl "network/dhcp6r" .
      sc_incl "network/dhcp6s" .
      sc_incl "network/ifcfg-*" .
      sc_incl "network/if-down.d/*" .
      sc_incl "network/ifroute-*" .
      sc_incl "network/if-up.d/*" .
      sc_excl "network/if-up.d/SuSEfirewall2" .
      sc_incl "network/providers/*" .
      sc_excl "network-scripts" .
      sc_incl "network-scripts/ifcfg-*" .
      sc_excl "rhn" .
      sc_incl "rhn/allowed-actions/*" .
      sc_excl "rhn/allowed-actions/script" .
      sc_incl "rhn/allowed-actions/script/*" .
      sc_incl "rhn/rhnsd" .
      sc_excl "SuSEfirewall2.d" .
      sc_incl "SuSEfirewall2.d/cobbler" .
      sc_incl "SuSEfirewall2.d/services/*" .
      sc_excl "SuSEfirewall2.d/services/TEMPLATE" .
      sc_excl "*.systemd"

let filter_default = incl "/etc/default/*"
                     . excl "/etc/default/grub_installdevice*"
                     . excl "/etc/default/rmt"
                     . excl "/etc/default/star"
                     . excl "/etc/default/whoopsie"
                     . incl "/etc/profile"
                     . incl "/etc/profile.d/*"
                     . excl "/etc/profile.d/*.csh"
                     . excl "/etc/profile.d/*.tcsh"
                     . excl "/etc/profile.d/csh.local"
  let filter_misc    = incl "/etc/arno-iptables-firewall/debconf.cfg"
                     . incl "/etc/conf.d/*"
                     . incl "/etc/cron-apt/config"
                     . incl "/etc/environment"
                     . incl "/etc/firewalld/firewalld.conf"
                     . incl "/etc/blkid.conf"
                     . incl "/etc/adduser.conf"
                     . incl "/etc/cowpoke.conf"
                     . incl "/etc/cvs-cron.conf"
                     . incl "/etc/cvs-pserver.conf"
                     . incl "/etc/devscripts.conf"
                     . incl "/etc/kamailio/kamctlrc"
                     . incl "/etc/lbu/lbu.conf"
                     . incl "/etc/lintianrc"
                     . incl "/etc/lsb-release"
                     . incl "/etc/os-release"
                     . incl "/etc/periodic.conf"
                     . incl "/etc/popularity-contest.conf"
                     . incl "/etc/rc.conf"
                     . incl "/etc/rc.conf.d/*"
                     . incl "/etc/rc.conf.local"
                     . incl "/etc/selinux/config"
                     . incl "/etc/ucf.conf"
                     . incl "/etc/locale.conf"
                     . incl "/etc/vconsole.conf"
                     . incl "/etc/byobu/*"

let filter = filter_sysconfig
             . filter_default
             . filter_misc
             . Util.stdexcl

let xfm = transform lns filter

(* Local Variables: *)
(* mode: caml       *)
(* End:             *)

${this.title}

Code Editor : shellvars.aug