MdeModulePkg: Regular expression protocol

[mirror_edk2.git] / MdeModulePkg / Universal / RegularExpressionDxe / Oniguruma / reggnu.c

/**********************************************************************\r
  reggnu.c -  Oniguruma (regular expression library)\r
**********************************************************************/\r
/*-\r
 * Copyright (c) 2002-2008  K.Kosako  <sndgk393 AT ybb DOT ne DOT jp>\r
 * All rights reserved.\r
 *\r
 * Copyright (c) 2015, Hewlett Packard Enterprise Development, L.P.<BR>\r
 *\r
 * Redistribution and use in source and binary forms, with or without\r
 * modification, are permitted provided that the following conditions\r
 * are met:\r
 * 1. Redistributions of source code must retain the above copyright\r
 *    notice, this list of conditions and the following disclaimer.\r
 * 2. Redistributions in binary form must reproduce the above copyright\r
 *    notice, this list of conditions and the following disclaimer in the\r
 *    documentation and/or other materials provided with the distribution.\r
 *\r
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND\r
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE\r
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL\r
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS\r
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)\r
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT\r
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY\r
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF\r
 * SUCH DAMAGE.\r
 */\r
\r
#include "regint.h"\r
\r
#ifndef ONIGGNU_H\r
#include "oniggnu.h"\r
#endif\r
\r
extern void\r
re_free_registers(OnigRegion* r)\r
{\r
  /* 0: don't free self */\r
  onig_region_free(r, 0);\r
}\r
\r
extern int\r
re_adjust_startpos(regex_t* reg, const char* string, int size,\r
		   int startpos, int range)\r
{\r
  if (startpos > 0 && ONIGENC_MBC_MAXLEN(reg->enc) != 1 && startpos < size) {\r
    UChar *p;\r
    UChar *s = (UChar* )string + startpos;\r
\r
    if (range > 0) {\r
      p = onigenc_get_right_adjust_char_head(reg->enc, (UChar* )string, s);\r
    }\r
    else {\r
      p = ONIGENC_LEFT_ADJUST_CHAR_HEAD(reg->enc, (UChar* )string, s);\r
    }\r
    return (int)(p - (UChar* )string);\r
  }\r
\r
  return startpos;\r
}\r
\r
extern int\r
re_match(regex_t* reg, const char* str, int size, int pos,\r
	 struct re_registers* regs)\r
{\r
  return onig_match(reg, (UChar* )str, (UChar* )(str + size),\r
		    (UChar* )(str + pos), regs, ONIG_OPTION_NONE);\r
}\r
\r
extern int\r
re_search(regex_t* bufp, const char* string, int size, int startpos, int range,\r
	  struct re_registers* regs)\r
{\r
  return onig_search(bufp, (UChar* )string, (UChar* )(string + size),\r
		     (UChar* )(string + startpos),\r
		     (UChar* )(string + startpos + range),\r
		     regs, ONIG_OPTION_NONE);\r
}\r
\r
extern int\r
re_compile_pattern(const char* pattern, int size, regex_t* reg, char* ebuf)\r
{\r
  int r;\r
  OnigErrorInfo einfo;\r
\r
  r = onig_compile(reg, (UChar* )pattern, (UChar* )(pattern + size), &einfo);\r
  if (r != ONIG_NORMAL) {\r
    if (IS_NOT_NULL(ebuf))\r
      (void )onig_error_code_to_str((UChar* )ebuf, r, &einfo);\r
  }\r
\r
  return r;\r
}\r
\r
#ifdef USE_RECOMPILE_API\r
extern int\r
re_recompile_pattern(const char* pattern, int size, regex_t* reg, char* ebuf)\r
{\r
  int r;\r
  OnigErrorInfo einfo;\r
  OnigEncoding enc;\r
\r
  /* I think encoding and options should be arguments of this function.\r
     But this is adapted to present re.c. (2002/11/29)\r
   */\r
  enc = OnigEncDefaultCharEncoding;\r
\r
  r = onig_recompile(reg, (UChar* )pattern, (UChar* )(pattern + size),\r
		     reg->options, enc, OnigDefaultSyntax, &einfo);\r
  if (r != ONIG_NORMAL) {\r
    if (IS_NOT_NULL(ebuf))\r
      (void )onig_error_code_to_str((UChar* )ebuf, r, &einfo);\r
  }\r
  return r;\r
}\r
#endif\r
\r
extern void\r
re_free_pattern(regex_t* reg)\r
{\r
  onig_free(reg);\r
}\r
\r
extern int\r
re_alloc_pattern(regex_t** reg)\r
{\r
  *reg = (regex_t* )xmalloc(sizeof(regex_t));\r
  if (IS_NULL(*reg)) return ONIGERR_MEMORY;\r
\r
  return onig_reg_init(*reg, ONIG_OPTION_DEFAULT,\r
		       ONIGENC_CASE_FOLD_DEFAULT,\r
		       OnigEncDefaultCharEncoding,\r
		       OnigDefaultSyntax);\r
}\r
\r
extern void\r
re_set_casetable(const char* table)\r
{\r
  onigenc_set_default_caseconv_table((UChar* )table);\r
}\r
\r
extern void\r
re_mbcinit(int mb_code)\r
{\r
  OnigEncoding enc;\r
\r
  switch (mb_code) {\r
  case RE_MBCTYPE_ASCII:\r
    enc = ONIG_ENCODING_ASCII;\r
    break;\r
  case RE_MBCTYPE_EUC:\r
    enc = ONIG_ENCODING_EUC_JP;\r
    break;\r
  case RE_MBCTYPE_SJIS:\r
    enc = ONIG_ENCODING_SJIS;\r
    break;\r
  case RE_MBCTYPE_UTF8:\r
    enc = ONIG_ENCODING_UTF8;\r
    break;\r
  default:\r
    return ;\r
    break;\r
  }\r
\r
  onigenc_set_default_encoding(enc);\r
}\r