00001 /* ==================================================================== 00002 * The Kannel Software License, Version 1.0 00003 * 00004 * Copyright (c) 2001-2008 Kannel Group 00005 * Copyright (c) 1998-2001 WapIT Ltd. 00006 * All rights reserved. 00007 * 00008 * Redistribution and use in source and binary forms, with or without 00009 * modification, are permitted provided that the following conditions 00010 * are met: 00011 * 00012 * 1. Redistributions of source code must retain the above copyright 00013 * notice, this list of conditions and the following disclaimer. 00014 * 00015 * 2. Redistributions in binary form must reproduce the above copyright 00016 * notice, this list of conditions and the following disclaimer in 00017 * the documentation and/or other materials provided with the 00018 * distribution. 00019 * 00020 * 3. The end-user documentation included with the redistribution, 00021 * if any, must include the following acknowledgment: 00022 * "This product includes software developed by the 00023 * Kannel Group (http://www.kannel.org/)." 00024 * Alternately, this acknowledgment may appear in the software itself, 00025 * if and wherever such third-party acknowledgments normally appear. 00026 * 00027 * 4. The names "Kannel" and "Kannel Group" must not be used to 00028 * endorse or promote products derived from this software without 00029 * prior written permission. For written permission, please 00030 * contact org@kannel.org. 00031 * 00032 * 5. Products derived from this software may not be called "Kannel", 00033 * nor may "Kannel" appear in their name, without prior written 00034 * permission of the Kannel Group. 00035 * 00036 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED 00037 * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 00038 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE 00039 * DISCLAIMED. IN NO EVENT SHALL THE KANNEL GROUP OR ITS CONTRIBUTORS 00040 * BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, 00041 * OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT 00042 * OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR 00043 * BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 00044 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE 00045 * OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, 00046 * EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00047 * ==================================================================== 00048 * 00049 * This software consists of voluntary contributions made by many 00050 * individuals on behalf of the Kannel Group. For more information on 00051 * the Kannel Group, please see <http://www.kannel.org/>. 00052 * 00053 * Portions of this software are based upon software originally written at 00054 * WapIT Ltd., Helsinki, Finland for the Kannel project. 00055 */ 00056 00057 /* 00058 * pcre.c - Perl compatible regular expressions (PCREs) 00059 * 00060 * This modules implements wrapper functions to the pcre_foobar() et all 00061 * functions implemented in the libpcre.a library. 00062 * PCRE is a library of functions to support regular expressions whose syntax 00063 * and semantics are as close as possible to those of the Perl 5 language. 00064 * 00065 * See http://www.pcre.org/ for more details on PCRE regular expressions. 00066 * 00067 * Stipe Tolj <stolj@wapme.de> 00068 */ 00069 00070 #include <ctype.h> 00071 00072 #include "gwlib/gwlib.h" 00073 #include "pcre.h" 00074 00075 #ifdef HAVE_PCRE 00076 00077 00078 /******************************************************************** 00079 * Generic pcre functions. 00080 */ 00081 00082 pcre *gw_pcre_comp_real(const Octstr *pattern, int cflags, const char *file, 00083 long line, const char *func) 00084 { 00085 pcre *preg; 00086 const char *err; 00087 const char *pat; 00088 int erroffset; 00089 00090 pat = pattern ? octstr_get_cstr(pattern) : NULL; 00091 if ((preg = pcre_compile(pat, cflags, &err, &erroffset, NULL)) == NULL) { 00092 error(0, "%s:%ld: %s: pcre compilation `%s' failed at offset %d: %s " 00093 "(Called from %s:%ld:%s.)", 00094 __FILE__, (long) __LINE__, __func__, octstr_get_cstr(pattern), 00095 erroffset, err, (file), (long) (line), (func)); 00096 } 00097 00098 return preg; 00099 } 00100 00101 00102 int gw_pcre_exec_real(const pcre *preg, const Octstr *string, int start, 00103 int eflags, int *ovector, int oveccount, 00104 const char *file, long line, const char *func) 00105 { 00106 int rc; 00107 char *sub; 00108 00109 gw_assert(preg != NULL); 00110 00111 sub = string ? octstr_get_cstr(string) : NULL; 00112 rc = pcre_exec(preg, NULL, sub, octstr_len(string), start, eflags, 00113 ovector, oveccount); 00114 00115 if (rc < 0 && rc != PCRE_ERROR_NOMATCH) { 00116 error(0, "%s:%ld: %s: pcre execution on `%s' failed with error %d " 00117 "(Called from %s:%ld:%s.)", 00118 __FILE__, (long) __LINE__, __func__, octstr_get_cstr(string), rc, 00119 (file), (long) (line), (func)); 00120 } 00121 00122 return rc; 00123 } 00124 00125 00126 /******************************************************************** 00127 * Matching wrapper functions. 00128 * 00129 * Beware that the regex compilation takes the most significant CPU time, 00130 * so always try to have pre-compiled regular expressions that keep being 00131 * reused and re-matched on variable string patterns. 00132 */ 00133 00134 int gw_pcre_match_real(const Octstr *re, const Octstr *os, const char *file, 00135 long line, const char *func) 00136 { 00137 pcre *regexp; 00138 int rc; 00139 int ovector[PCRE_OVECCOUNT]; 00140 00141 /* compile */ 00142 regexp = gw_pcre_comp_real(re, 0, file, line, func); 00143 if (regexp == NULL) 00144 return 0; 00145 00146 /* execute and match */ 00147 rc = gw_pcre_exec_real(regexp, os, 0, 0, ovector, PCRE_OVECCOUNT, 00148 file, line, func); 00149 00150 return (rc > 0) ? 1 : 0; 00151 } 00152 00153 00154 int gw_pcre_match_pre_real(const pcre *preg, const Octstr *os, const char *file, 00155 long line, const char *func) 00156 { 00157 int rc; 00158 int ovector[PCRE_OVECCOUNT]; 00159 00160 gw_assert(preg != NULL); 00161 00162 /* execute and match */ 00163 rc = gw_pcre_exec_real(preg, os, 0, 0, ovector, PCRE_OVECCOUNT, 00164 file, line, func); 00165 00166 return (rc > 0) ? 1 : 0; 00167 } 00168 00169 00170 #endif /* HAVE_PCRE */ 00171