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