type t_type = | T_STOP |
| T_VOID |
| T_BOOL |
| T_BYTE |
| T_I08 |
| T_I16 |
| T_I32 |
| T_U64 |
| T_I64 |
| T_DOUBLE |
| T_STRING |
| T_UTF7 |
| T_STRUCT |
| T_MAP |
| T_SET |
| T_LIST |
| T_UTF8 |
| T_UTF16 |
val t_type_to_i : t_type -> intval t_type_of_i : int -> t_type
type message_type = | CALL |
| REPLY |
| EXCEPTION |
| ONEWAY |
val message_type_to_i : message_type -> intval message_type_of_i : int -> message_type
type exn_type = | UNKNOWN |
| INVALID_DATA |
| NEGATIVE_SIZE |
| SIZE_LIMIT |
| BAD_VERSION |
| NOT_IMPLEMENTED |
| DEPTH_LIMIT |
exception E of exn_type * string
class virtual factory : object ... end