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