(version 1000) (serializator "test_auto" (define "test_symbol" "test1234" '("testauto")) (define-enum "MyEnum" '("item1" "item2") '("testauto")) (procedure "testauto" (arg "a_auto_field" auto-type) ; any primitive there (arg "a_auto_field128" auto-type) ; u128 (arg "a_auto_vec" vector auto-type) ; any primitive in vector (arg "a_symbol_test" auto-type) (arg "a_enum_test" auto-type) ; Enums also can be used, but it will be serialized as String ) (rootprocedure (proc "p_testauto" '("testauto")) ) ; for enum (field/noname f/enum '("label3")) ;root "title of the Struct" (fields...) (rootstruct "TestStruct" (field "auto_field" (f/any '("p_testauto" "a_auto_field"))) (field "auto_u128" (f/any '("p_testauto" "a_auto_field128"))) (field "auto_vec" (f/vector (f/any '("p_testauto" "a_auto_vec")))) (field "auto_symb" (f/any '("p_testauto" "a_symbol_test"))) (field "auto_enum" (f/any '("p_testauto" "a_enum_test"))) ) )