GroovX: src/visx/tclpkg-tlist.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: Sat Mar 13 12:38:37 1999
00010 // commit: $Id: tclpkg-tlist.cc 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/visx/tclpkg-tlist.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_TLIST_CC_UTC20050628171009_DEFINED
00035 #define GROOVX_VISX_TCLPKG_TLIST_CC_UTC20050628171009_DEFINED
00036 
00037 #include "visx/tclpkg-tlist.h"
00038 
00039 #include "tcl/list.h"
00040 #include "tcl/pkg.h"
00041 
00042 #include "tcl-gfx/recttcl.h"
00043 
00044 #include "visx/tlistutils.h"
00045 
00046 #include "rutz/trace.h"
00047 
00048 extern "C"
00049 int Tlist_Init(Tcl_Interp* interp)
00050 {
00051 GVX_TRACE("Tlist_Init");
00052 
00053   GVX_PKG_CREATE(pkg, interp, "Tlist", "4.$Revision: 10065 $");
00054   pkg->def( "createPreview", "objids viewport num_cols_hint use_text_labels",
00055             &TlistUtils::createPreview,
00056             SRC_POS );
00057   pkg->def( "createPreview", "objids viewport",
00058             rutz::bind_last(rutz::bind_last(&TlistUtils::createPreview,
00059                                             true), -1),
00060             SRC_POS );
00061 
00062   pkg->def( "dealSingles", "objid(s) posid",
00063             &TlistUtils::dealSingles,
00064             SRC_POS );
00065   pkg->def( "dealPairs", "objids1 objids2 posid1 posid2",
00066             &TlistUtils::dealPairs,
00067             SRC_POS );
00068   pkg->def( "dealTriads", "objids posid1 posid2 posid3",
00069             &TlistUtils::dealTriads,
00070             SRC_POS );
00071 
00072   pkg->def( "loadObjidFile", "objid_file objids posids num_lines=-1",
00073             &TlistUtils::loadObjidFile,
00074             SRC_POS );
00075   pkg->def( "loadObjidFile", "objid_file objids posids",
00076             rutz::bind_last(&TlistUtils::loadObjidFile, -1),
00077             SRC_POS );
00078 
00079   pkg->def( "write_responses", "filename", &TlistUtils::writeResponses, SRC_POS );
00080   pkg->def( "writeIncidenceMatrix", "filename", &TlistUtils::writeIncidenceMatrix, SRC_POS );
00081   pkg->def( "writeMatlab", "filename", &TlistUtils::writeMatlab, SRC_POS );
00082 
00083   GVX_PKG_RETURN(pkg);
00084 }
00085 
00086 static const char __attribute__((used)) vcid_groovx_visx_tclpkg_tlist_cc_utc20050628171009[] = "$Id: tclpkg-tlist.cc 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00087 #endif // !GROOVX_VISX_TCLPKG_TLIST_CC_UTC20050628171009_DEFINED