open Swig open Wrapmacro let _ = let args = C_list [ C_int64 2L ; C_int64 1L ] in assert (_maximum '(args) as int = 2); let args = C_list [ C_double (2. /. 7.) ; C_double 256. ] in assert (_maximum '(args) as float = 256.); assert (_GUINT16_SWAP_LE_BE_CONSTANT '(0x1234) as int = 0x3412); ;;