(version 1000)

;(alpha [2..8 4u..=5u])


(serializator "test10"
    (procedure "alpha"
        (arg "alpha_lvls" (vector (range (int))))
        (arg "beta_lvls" (vector (range-inc (int))))
    )

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

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

    ;;; ---- action/block
    (procedure "action/block"
        (proc "l_act_block" ["exec"] (proc-allow [collection]))
    )

    ;;; ---- action/unblock
    (procedure "action/unblock"
        (proc "l_act_unblock" ["exec"] (proc-allow [collection]))
    )

    (rootprocedure
        (proc "main1" ["alpha"])
        (proc "l_root_block" ["action/block"] (proc-allow [optional]))
        (proc "l_root_unblock" ["action/unblock"] (proc-allow [optional]))
    )

    (rootstruct "CommonLevels"
        (field "lvl_a" (f/vector (f/range ["main1" "alpha_lvls"])))
        (field "lvl_b" (f/vector (f/range ["main1" "beta_lvls"])))
        (field "action_block" (f/optional (f/vector (f/struct ["l_root_block" "l_act_block"]))))
        (field "action_unblock" (f/optional (f/vector  (f/struct ["l_root_unblock" "l_act_unblock"]))))
    )
)