external dJointGetType : dJointID -> joint_type = "ocamlode_dJointGetType"