tclpkg-sound.cc

Go to the documentation of this file.
00001 
00003 
00004 //
00005 // Copyright (c) 1999-2004 California Institute of Technology
00006 // Copyright (c) 2004-2007 University of Southern California
00007 // Rob Peters <rjpeters at usc dot edu>
00008 //
00009 // created: Tue Apr 13 14:09:59 1999
00010 // commit: $Id: tclpkg-sound.cc 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/visx/tclpkg-sound.cc $
00012 //
00013 // --------------------------------------------------------------------
00014 //
00015 // This file is part of GroovX.
00016 //   [http://ilab.usc.edu/rjpeters/groovx/]
00017 //
00018 // GroovX is free software; you can redistribute it and/or modify it
00019 // under the terms of the GNU General Public License as published by
00020 // the Free Software Foundation; either version 2 of the License, or
00021 // (at your option) any later version.
00022 //
00023 // GroovX is distributed in the hope that it will be useful, but
00024 // WITHOUT ANY WARRANTY; without even the implied warranty of
00025 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00026 // General Public License for more details.
00027 //
00028 // You should have received a copy of the GNU General Public License
00029 // along with GroovX; if not, write to the Free Software Foundation,
00030 // Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA.
00031 //
00033 
00034 #ifndef GROOVX_VISX_TCLPKG_SOUND_CC_UTC20050628171009_DEFINED
00035 #define GROOVX_VISX_TCLPKG_SOUND_CC_UTC20050628171009_DEFINED
00036 
00037 #include "visx/tclpkg-sound.h"
00038 
00039 #include "nub/objfactory.h"
00040 
00041 #include "tcl/objpkg.h"
00042 #include "tcl/pkg.h"
00043 #include "tcl/interp.h"
00044 
00045 #include "rutz/fstring.h"
00046 
00047 #include "visx/sound.h"
00048 
00049 #include <exception>
00050 
00051 #include "rutz/trace.h"
00052 #include "rutz/debug.h"
00053 GVX_DBG_REGISTER
00054 
00055 extern "C"
00056 int Sound_Init(Tcl_Interp* interp)
00057 {
00058 GVX_TRACE("Sound_Init");
00059 
00060   tcl::interpreter intp(interp);
00061   GVX_PKG_CREATE(pkg, interp, "Sound", "4.$Revision: 10065 $");
00062 
00063   pkg->inherit_pkg("io");
00064   tcl::def_basic_type_cmds<Sound>(pkg, SRC_POS);
00065 
00066   nub::obj_factory::instance().register_creator(&Sound::make);
00067 
00068   pkg->def_action("play", &Sound::play, SRC_POS);
00069   pkg->def_action("forceLoad", &Sound::forceLoad, SRC_POS);
00070   pkg->def_get_set("file", &Sound::getFile, &Sound::setFile, SRC_POS);
00071 
00072   const rutz::fstring ok_file(GROOVX_AUDIO_DIR "/saw50_500Hz_300ms.au");
00073   const rutz::fstring err_file(GROOVX_AUDIO_DIR "/saw50_350Hz_2x120ms.au");
00074 
00075   static int OK = -1;
00076   static int ERR = -1;
00077 
00078   nub::ref<Sound> ok_sound(Sound::makeFrom(ok_file.c_str()));
00079   Sound::setOkSound(ok_sound);
00080   OK = ok_sound.id();
00081   pkg->link_var_const("Sound::ok", OK);
00082 
00083   nub::ref<Sound> err_sound(Sound::makeFrom(err_file.c_str()));
00084   Sound::setErrSound(err_sound);
00085   ERR = err_sound.id();
00086   pkg->link_var_const("Sound::err", ERR);
00087 
00088   GVX_PKG_RETURN(pkg);
00089 }
00090 
00091 static const char __attribute__((used)) vcid_groovx_visx_tclpkg_sound_cc_utc20050628171009[] = "$Id: tclpkg-sound.cc 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00092 #endif // !GROOVX_VISX_TCLPKG_SOUND_CC_UTC20050628171009_DEFINED

The software described here is Copyright (c) 1998-2005, Rob Peters.
This page was generated Wed Dec 3 06:49:42 2008 by Doxygen version 1.5.5.