external stop : t -> unit = "al_source_stop"