MdeModulePkg/Universal/RegularExpressionDxe/Oniguruma/reggnu.c

   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   }
 166
 167   onigenc_set_default_encoding(enc);
 168 }