(version 1000)


(serializator "test_long"
    (define "test_ulong" 123lu '("testlong"))
    (define "test_long" 123l '("testlong"))

    (procedure "testlong"
        (arg "a_long" long-int) ; any primitive there
        (arg "a_long_u" long-uint) ; u128
        (arg "a_long_symb" symbol long-int) 
        (arg "a_long_symb_u" symbol long-uint)
        (arg "a_long_vec" vector long-int) 
        (arg "a_long_vec_u" vector long-uint)
    )

    (rootprocedure
        (proc "p_testlong" '("testlong"))
    )

    ; for enum (field/noname f/enum '("label3"))
    ;root "title of the Struct" (fields...)
    (rootstruct "TestStruct"
        (field "f1" (f/long-int '("p_testlong" "a_long")))
        (field "f2" (f/long-uint '("p_testlong" "a_long_u")))
        (field "f3" (f/long-int '("p_testlong" "a_long_symb")))
        (field "f4" (f/long-uint '("p_testlong" "a_long_symb_u")))
        (field "f5" (f/vector (f/long-int '("p_testlong" "a_long_vec"))))
        (field "f6" (f/vector (f/long-uint '("p_testlong" "a_long_vec_u"))))
    )
)