external i : t -> [< `source_relative
                  |  `cone_inner_angle
                  |  `cone_outer_angle
                  |  `looping
                  |  `buffer
                  |  `source_state ] -> int -> unit = "al_source_i"