external pause : t -> unit = "al_source_pause"