## test_list.aug
module Test_list =

    let conf = "DAEMONS=(portmap net netfs sshd)\nFOO=()\nBAR=blah\n"

    test List.lns get conf =
            {"DAEMONS"
            {"1" = "portmap" }
            {"2" = "net" }
            {"3" = "netfs" }
            {"4" = "sshd" } }
            {"FOO" }
            {"BAR" = "blah"}
## list.aug
module List =
    autoload xfm
(*
    let alist = [ key /[A-Z]+/ . del "=" "=" . del "(" "(" . counter "values" .
    ( [ seq "values" . store /[a-z]+/ . del /[ \t]+/ " " ] * .
    [ seq "values" . store /[a-z]+/ ] ) ? . del ")" ")" . del "\n" "\n" ]

    let keyval = [ key /[A-Z]+/ . del "=" "=" . store /[^\(\)\n]*/ . del "\n" "\n" ]
*)

    let key_something = [ key /[A-Z]+/ . del "=" "=" .
    (
            [ del "(" "(" . counter "values" .
                ( [ seq "values" . store /[a-z]+/ . del /[ \t]+/ " " ] * .
                  [ seq "values" . store /[a-z]+/ ] ) ? . del ")" ")" ]
    |
            [ store /[^\(\)\n]*/ ]
    )
    . del "\n" "\n" ]

    (* let comment = [ del /#[^\n]*\n/ "# \n" ] *)

    let lns = (key_something)*

    let filter = incl "/etc/rc.conf" . Util.stdexcl
    let xfm = transform lns filter