Home | History | Annotate | Download | only in Oniguruma 
      1 /**********************************************************************
      2   reggnu.c -  Oniguruma (regular expression library)
      3 **********************************************************************/
      4 /*-
      5  * Copyright (c) 2002-2008  K.Kosako  <sndgk393 AT ybb DOT ne DOT jp>
      6  * All rights reserved.
      7  *
      8  * (C) Copyright 2015 Hewlett Packard Enterprise Development LP<BR>
      9  *
     10  * Redistribution and use in source and binary forms, with or without
     11  * modification, are permitted provided that the following conditions
     12  * are met:
     13  * 1. Redistributions of source code must retain the above copyright
     14  *    notice, this list of conditions and the following disclaimer.
     15  * 2. Redistributions in binary form must reproduce the above copyright
     16  *    notice, this list of conditions and the following disclaimer in the
     17  *    documentation and/or other materials provided with the distribution.
     18  *
     19  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
     20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
     23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29  * SUCH DAMAGE.
     30  */
     31 
     32 #include "regint.h"
     33 
     34 #ifndef ONIGGNU_H
     35 #include "oniggnu.h"
     36 #endif
     37 
     38 extern void
     39 re_free_registers(OnigRegion* r)
     40 {
     41   /* 0: don't free self */
     42   onig_region_free(r, 0);
     43 }
     44 
     45 extern int
     46 re_adjust_startpos(regex_t* reg, const char* string, int size,
     47 		   int startpos, int range)
     48 {
     49   if (startpos > 0 && ONIGENC_MBC_MAXLEN(reg->enc) != 1 && startpos < size) {
     50     UChar *p;
     51     UChar *s = (UChar* )string + startpos;
     52 
     53     if (range > 0) {
     54       p = onigenc_get_right_adjust_char_head(reg->enc, (UChar* )string, s);
     55     }
     56     else {
     57       p = ONIGENC_LEFT_ADJUST_CHAR_HEAD(reg->enc, (UChar* )string, s);
     58     }
     59     return (int)(p - (UChar* )string);
     60   }
     61 
     62   return startpos;
     63 }
     64 
     65 extern int
     66 re_match(regex_t* reg, const char* str, int size, int pos,
     67 	 struct re_registers* regs)
     68 {
     69   return onig_match(reg, (UChar* )str, (UChar* )(str + size),
     70 		    (UChar* )(str + pos), regs, ONIG_OPTION_NONE);
     71 }
     72 
     73 extern int
     74 re_search(regex_t* bufp, const char* string, int size, int startpos, int range,
     75 	  struct re_registers* regs)
     76 {
     77   return onig_search(bufp, (UChar* )string, (UChar* )(string + size),
     78 		     (UChar* )(string + startpos),
     79 		     (UChar* )(string + startpos + range),
     80 		     regs, ONIG_OPTION_NONE);
     81 }
     82 
     83 extern int
     84 re_compile_pattern(const char* pattern, int size, regex_t* reg, char* ebuf)
     85 {
     86   int r;
     87   OnigErrorInfo einfo;
     88 
     89   r = onig_compile(reg, (UChar* )pattern, (UChar* )(pattern + size), &einfo);
     90   if (r != ONIG_NORMAL) {
     91     if (IS_NOT_NULL(ebuf))
     92       (void )onig_error_code_to_str((UChar* )ebuf, r, &einfo);
     93   }
     94 
     95   return r;
     96 }
     97 
     98 #ifdef USE_RECOMPILE_API
     99 extern int
    100 re_recompile_pattern(const char* pattern, int size, regex_t* reg, char* ebuf)
    101 {
    102   int r;
    103   OnigErrorInfo einfo;
    104   OnigEncoding enc;
    105 
    106   /* I think encoding and options should be arguments of this function.
    107      But this is adapted to present re.c. (2002/11/29)
    108    */
    109   enc = OnigEncDefaultCharEncoding;
    110 
    111   r = onig_recompile(reg, (UChar* )pattern, (UChar* )(pattern + size),
    112 		     reg->options, enc, OnigDefaultSyntax, &einfo);
    113   if (r != ONIG_NORMAL) {
    114     if (IS_NOT_NULL(ebuf))
    115       (void )onig_error_code_to_str((UChar* )ebuf, r, &einfo);
    116   }
    117   return r;
    118 }
    119 #endif
    120 
    121 extern void
    122 re_free_pattern(regex_t* reg)
    123 {
    124   onig_free(reg);
    125 }
    126 
    127 extern int
    128 re_alloc_pattern(regex_t** reg)
    129 {
    130   *reg = (regex_t* )xmalloc(sizeof(regex_t));
    131   if (IS_NULL(*reg)) return ONIGERR_MEMORY;
    132 
    133   return onig_reg_init(*reg, ONIG_OPTION_DEFAULT,
    134 		       ONIGENC_CASE_FOLD_DEFAULT,
    135 		       OnigEncDefaultCharEncoding,
    136 		       OnigDefaultSyntax);
    137 }
    138 
    139 extern void
    140 re_set_casetable(const char* table)
    141 {
    142   onigenc_set_default_caseconv_table((UChar* )table);
    143 }
    144 
    145 extern void
    146 re_mbcinit(int mb_code)
    147 {
    148   OnigEncoding enc;
    149 
    150   switch (mb_code) {
    151   case RE_MBCTYPE_ASCII:
    152     enc = ONIG_ENCODING_ASCII;
    153     break;
    154   case RE_MBCTYPE_EUC:
    155     enc = ONIG_ENCODING_EUC_JP;
    156     break;
    157   case RE_MBCTYPE_SJIS:
    158     enc = ONIG_ENCODING_SJIS;
    159     break;
    160   case RE_MBCTYPE_UTF8:
    161     enc = ONIG_ENCODING_UTF8;
    162     break;
    163   default:
    164     return ;
    165     break;
    166   }
    167 
    168   onigenc_set_default_encoding(enc);
    169 }
    170