aboutsummaryrefslogblamecommitdiffstats
path: root/lib/gs/contribs/bonk/sounder.erl
blob: 899f20d4e012e2a95a6b5db92e25cc353282c589 (plain) (tree)









































































                                                                             

                                                        



                                
                               














                                                                                     
                                               





                                                                           
                                             















                                                                  
                                             




                                         
                                             









                                                  
                                        












                                      
                                






                                              
%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 1996-2009. All Rights Reserved.
%% 
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%% 
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%% 
%% %CopyrightEnd%
%%

%%
-module(sounder).
-export([start/0,play/1,new/1,go/0,stop/0,nosound/0,silent/0]).
-include_lib("kernel/include/file.hrl").
%%----------------------------------------------------------------------
%% sounder.erl  -  An interface to /dev/audio 
%%
%% Created  by:  {lennarto,mike}@erix.ericsson.se
%% Modified by:  EV,[email protected]
%%
%% Mod: 6 Jun 1996 by [email protected]
%%   The executable sounder will no be looked for in the
%%   same directory as from where sounder.jam is loaded.
%%
%%
%% start()      -  Returns either: ok ,or: silent ,where silent means
%%                 that no audio capabilities exists but the sounder
%%                 will work "silently" in order to not break any code.
%%
%% stop()       - Returns: ok
%%
%% new(File)    - Tries to load the File. At success, a number refering
%%                to the File is returned that shall be used with send/1.
%%                Otherwise {error,Reason} is returned.
%%
%% play(No)     - Tries to execute the sound registered with the number No
%%                Returns: ok , or: {error,Reason}
%%
%% silent()     - Returns: true ,if no audio capabilities exists, else: false
%%
%% Note: It is also possible to receive: {error,sounder_not_started}
%%
%%----------------------------------------------------------------------

start() ->
    case whereis(sounder) of
	undefined ->
	    %% first we check if the workstation has audio capabilities
	    case file:read_file_info('/dev/audio') of
		{ok, FI} when FI#file_info.access==read_write ->
		    register(sounder, spawn(sounder,go,[])),
		    ok;
		_Other ->
		    register(sounder, spawn(sounder,nosound,[])),
		    silent
	    end;
	_Pid ->
	    ok
    end.

stop() -> 
    catch begin check(),
    sounder ! {stop},
    ok end.

new(File) when is_list(File) -> new(list_to_atom(File));
new(File) when is_atom(File) ->
    catch begin check(),
    sounder ! {new,File,self()},
    wait_for_ack(sounder) end.

play(No) when is_integer(No) ->
    catch begin check(),
    sounder ! {play, No, self()},
    wait_for_ack(sounder) end.

silent() ->
    catch begin check(),
    sounder ! {play,silent,self()},
    receive {sounder,Answer} -> Answer end end.

go()  ->
    Port = open_port({spawn,lists:append(bonk:bonk_dir(), "sounder")},[{packet, 2}]),
    loop(Port).

loop(Port) ->
    receive
	{new, File, From} when is_atom(File) ->
	    Port ! {self(),{command,lists:append([0],atom_to_list(File))}},
	    From ! {sounder,wait_for_ack(Port)},
	    loop(Port);
	{play,silent,From} ->
	    From ! {sounder,false},
	    loop(Port);
	{play,No,From} when is_integer(No) ->
	    Port ! {self(),{command,[No]}},
	    From ! {sounder,wait_for_ack(Port)},
	    loop(Port);
	{stop} ->
	    Port ! {self(),close},
	    exit(normal);
	_ ->
	    loop(Port)
    end.

%% The application using sounds can check on silence itself
%% and refrain from playing sounds.
%% Or it can try to play sounds that will be "consumed in silence"

nosound() ->
    receive
	{new,File,From} when is_atom(File) ->
	    From ! {sounder,{ok,silent}},
	    nosound();
	{play,silent,From} ->
	    From ! {sounder,true},
	    nosound();
	{play,No,From} when is_integer(No) ->
	    From ! {sounder,{error,no_audio_cap}},
	    nosound();
	{stop} ->
	    exit(normal);
	_ ->
	    nosound()
    end.

wait_for_ack(sounder) ->
    receive {sounder,Res} -> Res end;
wait_for_ack(Port) when is_port(Port) ->
    receive
	{Port,{data,"ok"}} ->
	    ok;
	{Port,{data,[No]}} ->
	    {ok,No};
	{Port,{data,Msg}} ->
	    {error,list_to_atom(Msg)};
	{'EXIT',Port,_} ->
	    exit(port_exited)
    end.

check() ->
    case whereis(sounder) of
	Pid when is_pid(Pid) -> 
	    ok;
	undefined ->
	    throw({error,sounder_not_started})
    end.