(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"))))
    )
)