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