lib/search/glob.c

   1 /*
   2    Search text engine.
   3    Glob-style pattern matching
   4
   5    Copyright (C) 2009, 2011
   6    The Free Software Foundation, Inc.
   7
   8    Written by:
   9    Slava Zanko <slavazanko@gmail.com>, 2009.
  10
  11    This file is part of the Midnight Commander.
  12
  13    The Midnight Commander is free software: you can redistribute it
  14    and/or modify it under the terms of the GNU General Public License as
  15    published by the Free Software Foundation, either version 3 of the License,
  16    or (at your option) any later version.
  17
  18    The Midnight Commander is distributed in the hope that it will be useful,
  19    but WITHOUT ANY WARRANTY; without even the implied warranty of
  20    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21    GNU General Public License for more details.
  22
  23    You should have received a copy of the GNU General Public License
  24    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  25  */
  26
  27 #include <config.h>
  28
  29 #include "lib/global.h"
  30 #include "lib/strutil.h"
  31 #include "lib/search.h"
  32 #include "lib/strescape.h"
  33
  34 #include "internal.h"
  35
  36 /*** global variables ****************************************************************************/
  37
  38 /*** file scope macro definitions ****************************************************************/
  39
  40 /*** file scope type declarations ****************************************************************/
  41
  42 /*** file scope variables ************************************************************************/
  43
  44 /*** file scope functions ************************************************************************/
  45
  46 static GString *
  47 mc_search__glob_translate_to_regex (const GString * astr)
  48 {
  49     const char *str = astr->str;
  50     GString *buff;
  51     gsize loop;
  52     gboolean inside_group = FALSE;
  53
  54     buff = g_string_sized_new (32);
  55
  56     for (loop = 0; loop < astr->len; loop++)
  57         switch (str[loop])
  58         {
  59         case '*':
  60             if (!strutils_is_char_escaped (str, &(str[loop])))
  61                 g_string_append (buff, inside_group ? ".*" : "(.*)");
  62             break;
  63         case '?':
  64             if (!strutils_is_char_escaped (str, &(str[loop])))
  65                 g_string_append (buff, inside_group ? "." : "(.)");
  66             break;
  67         case ',':
  68             if (!strutils_is_char_escaped (str, &(str[loop])))
  69                 g_string_append_c (buff, '|');
  70             break;
  71         case '{':
  72             if (!strutils_is_char_escaped (str, &(str[loop])))
  73             {
  74                 g_string_append_c (buff, '(');
  75                 inside_group = TRUE;
  76             }
  77             break;
  78         case '}':
  79             if (!strutils_is_char_escaped (str, &(str[loop])))
  80             {
  81                 g_string_append_c (buff, ')');
  82                 inside_group = FALSE;
  83             }
  84             break;
  85         case '+':
  86         case '.':
  87         case '$':
  88         case '(':
  89         case ')':
  90         case '^':
  91             g_string_append_c (buff, '\\');
  92             /* fall through */
  93         default:
  94             g_string_append_c (buff, str[loop]);
  95             break;
  96         }
  97
  98     return buff;
  99 }
 100
 101 /* --------------------------------------------------------------------------------------------- */
 102
 103 static GString *
 104 mc_search__translate_replace_glob_to_regex (const char *str)
 105 {
 106     GString *buff;
 107     int cnt = '0';
 108     gboolean escaped_mode = FALSE;
 109
 110     buff = g_string_sized_new (32);
 111
 112     while (*str)
 113     {
 114         char c = *str++;
 115         switch (c)
 116         {
 117         case '\\':
 118             if (!escaped_mode)
 119             {
 120                 escaped_mode = TRUE;
 121                 g_string_append_c (buff, '\\');
 122                 continue;
 123             }
 124             break;
 125         case '*':
 126         case '?':
 127             if (!escaped_mode)
 128             {
 129                 g_string_append_c (buff, '\\');
 130                 c = ++cnt;
 131             }
 132             break;
 133         case '&':
 134             if (!escaped_mode)
 135                 g_string_append_c (buff, '\\');
 136             break;
 137         }
 138         g_string_append_c (buff, c);
 139         escaped_mode = FALSE;
 140     }
 141     return buff;
 142 }
 143
 144 /*** public functions ****************************************************************************/
 145
 146 void
 147 mc_search__cond_struct_new_init_glob (const char *charset, mc_search_t * lc_mc_search,
 148                                       mc_search_cond_t * mc_search_cond)
 149 {
 150     GString *tmp;
 151
 152     tmp = mc_search__glob_translate_to_regex (mc_search_cond->str);
 153     g_string_free (mc_search_cond->str, TRUE);
 154
 155     if (lc_mc_search->is_entire_line)
 156     {
 157         g_string_prepend_c (tmp, '^');
 158         g_string_append_c (tmp, '$');
 159     }
 160     mc_search_cond->str = tmp;
 161
 162     mc_search__cond_struct_new_init_regex (charset, lc_mc_search, mc_search_cond);
 163 }
 164
 165 /* --------------------------------------------------------------------------------------------- */
 166
 167 gboolean
 168 mc_search__run_glob (mc_search_t * lc_mc_search, const void *user_data,
 169                      gsize start_search, gsize end_search, gsize * found_len)
 170 {
 171     return mc_search__run_regex (lc_mc_search, user_data, start_search, end_search, found_len);
 172 }
 173
 174 /* --------------------------------------------------------------------------------------------- */
 175
 176 GString *
 177 mc_search_glob_prepare_replace_str (mc_search_t * lc_mc_search, GString * replace_str)
 178 {
 179     GString *repl = mc_search__translate_replace_glob_to_regex (replace_str->str);
 180     GString *res = mc_search_regex_prepare_replace_str (lc_mc_search, repl);
 181     g_string_free (repl, TRUE);
 182     return res;
 183 }
 184
 185 /* --------------------------------------------------------------------------------------------- */