(version 1000)


(serializator "test_common"

    (procedure "exec"
        (arg "l_exec_cmd" string)
    )

    (struct "LdActionExec" "exec"
        (field "executable" (f/string '("l_exec_cmd")))
    )

    (procedure "grep"
        (arg "l_grep_cmd" string)
    )

    (struct "LdGrep" "grep"
        (field "regex_str" (f/string '("l_grep_cmd")))
    )

    (procedure "action-block"
        (proc "l_act" '("exec") 
            (proc-allow '(collection))
        )
        (proc "l_grep" '("grep")
            (proc-allow '(optional))
        )
    )

    (procedure "action-unblock"
        (proc "l_act" '("exec")
            (proc-allow '(collection))
        )
        (proc "l_grep" '("grep")
            (proc-allow '(optional))
        )
    )

    (struct "LdActionBlock" '("action-block" "action-unblock")
        (field "exec_pipeline" (f/vector (f/struct '("l_act"))))
        (field "grep_pipe" (f/optional) (f/struct '("l_grep")))
    )

    (rootprocedure
        (proc "l_root_block" '("action-block") (proc-allow '(optional)))
        (proc "l_root_unblock" '("action-unblock") (proc-allow '(optional)))
    )

    (rootstruct "LdAction"
        (field "action_block" (f/optional) (f/struct '("l_root_block")))
        (field "action_unblock" (f/optional) (f/struct '("l_root_unblock")))
    )

)