(version 1000)


(serializator "test1"

    (define "alpha_max" 100u ["alpha"])

    (define-enum "MyEnum" ["item1" "item2"])
    (define-enum "OurEnum" ["h_item1" "item2" "c_item"])

;; Scheme structure
    (procedure "enumtest"
        (arg "enum_data" (enumerator "MyEnum"))
        (arg "enum_data_2" (enumerator "OurEnum"))
    )

    (rootprocedure
        (proc "main1" ["enumtest"])
    )

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