itertcl.h

Go to the documentation of this file.
00001 
00003 
00004 //
00005 // Copyright (c) 2001-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: Fri Aug 17 14:02:32 2001
00010 // commit: $Id: itertcl.h 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/tcl/itertcl.h $
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_TCL_ITERTCL_H_UTC20050626084017_DEFINED
00035 #define GROOVX_TCL_ITERTCL_H_UTC20050626084017_DEFINED
00036 
00037 #include "rutz/iter.h"
00038 
00039 #include "tcl/list.h"
00040 
00041 namespace tcl
00042 {
00043   template <class T>
00044   inline rutz::fwd_iter<T> aux_convert_to(Tcl_Obj* obj, rutz::fwd_iter<T>*)
00045   {
00046     tcl::list l(obj);
00047     return rutz::fwd_iter<T>(l.template begin<T>(), l.template end<T>());
00048   }
00049 
00050   template <class T>
00051   inline tcl::obj aux_convert_from( rutz::fwd_iter<T> iter )
00052   {
00053     tcl::list result;
00054     while ( !iter.at_end() )
00055       {
00056         result.append(*iter);
00057         iter.next();
00058       }
00059     return result.as_obj();
00060   }
00061 }
00062 
00063 static const char __attribute__((used)) vcid_groovx_tcl_itertcl_h_utc20050626084017[] = "$Id: itertcl.h 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00064 #endif // !GROOVX_TCL_ITERTCL_H_UTC20050626084017_DEFINED

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