(version 1000)


(serializator "test1"

    (define "alpha_max" 100u '("alpha"))

    (define-enum "MyEnum" '("item1" "item2") '("enumtest"))
    (define-enum "OurEnum" '("h_item1" "item2" "c_item") '("enumtest"))

;; Scheme structure
    (procedure "enumtest"
        (arg "enum_data" enumerator)
        (arg "enum_data_2" enumerator (arg-enum-bind "OurEnum"))
    )

    (rootprocedure
        (proc "main1" '("enumtest"))
    )

    ; for enum (field/noname f/enum '("label3"))
    ;root "title of the Struct" (fields...)
    (rootstruct "CommonLevels"
        (field "enum1" (f/argenum '("main1" "enum_data") "MyEnum"))
        (field "enum2" (f/argenum '("main1" "enum_data_2") "OurEnum"))
    )
)