(version 1000)

(serializator "networking"
    (define "auto" 0u '("metric"))

    (procedure "address"
        (arg "a_addr" string)
    )

    ;(struct "NetAddr" "address"
    ;    (field "net_addr" (f/string '("a_addr")))
    ;)

    ; -- MACHINE
    (procedure "machine"
        (proc "p_address" '("address") (proc-allow '(collection)))
    )

    (struct "NetMachine" "machine"
        ;(field "nm_addrs" (f/vector (f/struct '("p_address"))))
        (field "nm_addrs" (f/vector (f/string '("p_address" "a_addr"))))
    )

    ; -- COMMON
    (procedure "phys-location"
        (arg "a_phys_loc" string)
    )

    (procedure "mtu"
        (arg "a_mtu" uint)
    )

    (procedure "address-mask"
        (arg "a_addr_mask" string)
    )

    ; -- INTERFACE

    (procedure "interface"
        (arg "a_if_alias" string)
        (proc "p_phys_loc" '("phys-location"))
        (proc "p_addr" '("address"))
        (proc "p_mtu" '("mtu") (proc-allow '(optional)))
        (proc "p_address_mask" '("address-mask"))
    )

    (struct "NetInterface" "interface"
        (field "ni_ifalias" (f/string '("a_if_alias")))
        (field "ni_ifloc" (f/string '("p_phys_loc" "a_phys_loc")))
        (field "ni_addr" (f/string '("p_addr" "a_addr")))
        (field "ni_ifmtu" (f/optional) (f/uint '("p_mtu" "a_mtu")))
        (field "ni_ifaddr_mask" (f/string '("p_address_mask" "a_addr_mask")))
    )

    ; -- ROUTE-TABLE

    (procedure "via"
        (arg "a_via" string)
    )

    (procedure "metric" 
        (arg "a_metric" symbol uint)
    )

    (procedure "route-to"
        (arg "a_route_addr" string)
        (proc "p_via" '("via") (proc-allow '(optional)))
        (proc "p_metric" '("metric"))
    )

    (struct "NetRouteTo" "route-to"
        (field "rt_dest" (f/string '("a_route_addr")))
        (field "rt_via" (f/optional) (f/string '("p_via" "a_via")))
        (field "rt_metric" (f/uint '("p_metric" "a_metric")))
    )

    (procedure "interface-alias"
        (arg "a_route_title" string)
        (proc "p_route_to" '("route-to") (proc-allow '(collection)))
    )

    (struct "NetInterfaceAlias" "interface-alias"
        (field "if_alias" (f/string '("a_route_title")))
        (field "if_routes_to" (f/vector (f/struct '("p_route_to"))))
    )

    (procedure "route-table"
        (arg "a_route_title" string)
        (proc "p_route_tables" '("interface-alias") (proc-allow '(collection optional)))
    )

    (struct "NetRouteTable" "route-table"
        (field "rt_title" (f/string '("a_route_title")))
        (field "rt_tbls" (f/optional) (f/vector (f/struct '("p_route_tables"))))
    )

    ; -- ROOT

    (rootprocedure
        (proc "p_machine" '("machine"))
        (proc "p_interface" '("interface") (proc-allow '(collection)))
        (proc "p_route_tables" '("route-table") (proc-allow '(collection)))
    )

    (rootstruct "Network"
        (field "net_machine" (f/struct '("p_machine")))
        (field "net_ifs" (f/vector (f/struct '("p_interface"))))
        (field "net_rt_tbls" (f/vector (f/struct '("p_route_tables"))))
    )
)