GroovX: src/visx/tclpkg-trial.cc Source 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: Mon Jun 21 09:51:54 1999
00010 // commit: $Id: tclpkg-trial.cc 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/visx/tclpkg-trial.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_TRIAL_CC_UTC20050628171009_DEFINED
00035 #define GROOVX_VISX_TCLPKG_TRIAL_CC_UTC20050628171009_DEFINED
00036 
00037 #include "visx/tclpkg-trial.h"
00038 
00039 #include "gfx/gxnode.h"
00040 
00041 #include "nub/objfactory.h"
00042 
00043 #include "tcl/itertcl.h"
00044 #include "tcl/tracertcl.h"
00045 
00046 #include "tcl-io/fieldpkg.h"
00047 
00048 #include "visx/response.h"
00049 #include "visx/responsehandler.h"
00050 #include "visx/timinghdlr.h"
00051 #include "visx/trial.h"
00052 
00053 #include "rutz/trace.h"
00054 
00055 extern "C"
00056 int Trial_Init(Tcl_Interp* interp)
00057 {
00058 GVX_TRACE("Trial_Init");
00059 
00060   GVX_PKG_CREATE(pkg, interp, "Trial", "4.$Revision: 10065 $");
00061   pkg->inherit_pkg("Element");
00062   tcl::def_tracing(pkg, Trial::tracer);
00063 
00064   tcl::defFieldContainer<Trial>(pkg, SRC_POS);
00065   tcl::def_creator<Trial>(pkg);
00066 
00067   pkg->def_setter("addNode", &Trial::addNode, SRC_POS);
00068   pkg->def_getter("avgResponse", &Trial::avgResponse, SRC_POS);
00069   pkg->def_getter("avgRespTime", &Trial::avgRespTime, SRC_POS);
00070   pkg->def_action("clearObjs", &Trial::clearObjs, SRC_POS);
00071   pkg->def_action("clearResponses", &Trial::clearResponses, SRC_POS);
00072   pkg->def_get_set("correctResponse",
00073                    &Trial::getCorrectResponse,
00074                    &Trial::setCorrectResponse,
00075                    SRC_POS);
00076   pkg->def_get_set("currentNode",
00077                    &Trial::getCurrentNode,
00078                    &Trial::setCurrentNode,
00079                    SRC_POS);
00080   pkg->def_get_set("info", &Trial::vxInfo, &Trial::setInfo, SRC_POS);
00081   pkg->def_getter("lastResponse", &Trial::lastResponse, SRC_POS);
00082   pkg->def_action("nextNode", &Trial::trNextNode, SRC_POS);
00083   pkg->def_getter("nodes", &Trial::nodes, SRC_POS);
00084   pkg->def_getter("numResponses", &Trial::numResponses, SRC_POS);
00085   pkg->def_getter("responses", &Trial::responses, SRC_POS);
00086   pkg->def_get_set("responseHdlr",
00087                    &Trial::getResponseHandler,
00088                    &Trial::setResponseHandler,
00089                    SRC_POS);
00090   pkg->def_getter("stdInfo", &Trial::stdInfo, SRC_POS);
00091   pkg->def_get_set("timingHdlr",
00092                    &Trial::getTimingHdlr,
00093                    &Trial::setTimingHdlr,
00094                    SRC_POS);
00095   // FIXME this is redundant with Element::trialType
00096   pkg->def_get_set("type", &Trial::trialType, &Trial::setType, SRC_POS);
00097 
00098   nub::obj_factory::instance().register_creator(&Trial::make);
00099 
00100   GVX_PKG_RETURN(pkg);
00101 }
00102 
00103 static const char __attribute__((used)) vcid_groovx_visx_tclpkg_trial_cc_utc20050628171009[] = "$Id: tclpkg-trial.cc 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00104 #endif // !GROOVX_VISX_TCLPKG_TRIAL_CC_UTC20050628171009_DEFINED