external geti : t -> [< `source_relative
                     |  `cone_inner_angle
                     |  `cone_outer_angle
                     |  `looping
                     |  `buffer
                     |  `source_state
                     |  `buffers_queued
                     |  `buffers_processed ] -> int = "al_source_geti"