GroovX: src/tcl/regexp.cc Source 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: Mon Jul 16 13:09:12 2001
00010 // commit: $Id: regexp.cc 10065 2007-04-12 05:54:56Z rjpeters $
00011 // $HeadURL: file:///lab/rjpeters/svnrepo/code/trunk/groovx/src/tcl/regexp.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_TCL_REGEXP_CC_UTC20050628162420_DEFINED
00035 #define GROOVX_TCL_REGEXP_CC_UTC20050628162420_DEFINED
00036 
00037 #include "tcl/regexp.h"
00038 
00039 #include "rutz/error.h"
00040 #include "rutz/sfmt.h"
00041 
00042 #include <tcl.h>
00043 
00044 #include "rutz/trace.h"
00045 #include "rutz/debug.h"
00046 GVX_DBG_REGISTER
00047 
00048 namespace
00049 {
00050   Tcl_RegExp get_checked_regexp(const tcl::obj& patrn)
00051   {
00052     const int flags = 0;
00053     // OK to pass Tcl_Interp*==0
00054     Tcl_RegExp regexp = Tcl_GetRegExpFromObj(0, patrn.get(), flags);
00055     if (!regexp)
00056       {
00057         throw rutz::error(rutz::sfmt("error getting a regexp from '%s'",
00058                                      Tcl_GetString(patrn.get())),
00059                           SRC_POS);
00060       }
00061     return regexp;
00062   }
00063 }
00064 
00065 bool tcl::regexp::matches_string(const char* str)
00066 {
00067   static const int REGEX_ERROR        = -1;
00068   static const int REGEX_NO_MATCH     =  0;
00069   static const int REGEX_FOUND_MATCH  =  1;
00070 
00071   Tcl_RegExp regexp = get_checked_regexp(m_pattern);
00072 
00073   // OK to pass Tcl_Interp*==0
00074   int regex_result = Tcl_RegExpExec(0, regexp, str, str);
00075 
00076   switch (regex_result)
00077   {
00078   case REGEX_ERROR:
00079     throw rutz::error("error executing regular expression", SRC_POS);
00080 
00081   case REGEX_NO_MATCH:
00082     return false;
00083 
00084   case REGEX_FOUND_MATCH:
00085     return true;
00086 
00087   default: // "can't happen"
00088     GVX_ASSERT(false);
00089   }
00090 
00091   return false;
00092 }
00093 
00094 static const char __attribute__((used)) vcid_groovx_tcl_regexp_cc_utc20050628162420[] = "$Id: regexp.cc 10065 2007-04-12 05:54:56Z rjpeters $ $HeadURL: file:
00095 #endif // !GROOVX_TCL_REGEXP_CC_UTC20050628162420_DEFINED