lib/search/hex.c

   1 /*
   2    Search text engine.
   3    HEX-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 <stdio.h>
  30
  31 #include "lib/global.h"
  32 #include "lib/strutil.h"
  33 #include "lib/search.h"
  34 #include "lib/strescape.h"
  35
  36 #include "internal.h"
  37
  38 /*** global variables ****************************************************************************/
  39
  40 /*** file scope macro definitions ****************************************************************/
  41
  42 /*** file scope type declarations ****************************************************************/
  43
  44 /*** file scope variables ************************************************************************/
  45
  46 /*** file scope functions ************************************************************************/
  47
  48 static GString *
  49 mc_search__hex_translate_to_regex (const GString * astr)
  50 {
  51     GString *buff;
  52     gchar *tmp_str, *tmp_str2;
  53     gsize tmp_str_len;
  54     gsize loop = 0;
  55
  56     buff = g_string_sized_new (64);
  57     tmp_str = g_strndup (astr->str, astr->len);
  58     tmp_str2 = tmp_str;
  59
  60     /* remove 0x prefices */
  61     while (TRUE)
  62     {
  63         tmp_str2 = strstr (tmp_str2, "0x");
  64         if (tmp_str2 == NULL)
  65             break;
  66
  67         *tmp_str2++ = ' ';
  68         *tmp_str2++ = ' ';
  69     }
  70
  71     g_strchug (tmp_str);        /* trim leadind whitespaces */
  72     tmp_str_len = strlen (tmp_str);
  73
  74     while (loop < tmp_str_len)
  75     {
  76         int val, ptr;
  77
  78         if (sscanf (tmp_str + loop, "%x%n", &val, &ptr))
  79         {
  80             if (val < -128 || val > 255)
  81                 loop++;
  82             else
  83             {
  84                 g_string_append_printf (buff, "\\x%02X", (unsigned char) val);
  85                 loop += ptr;
  86             }
  87         }
  88         else if (*(tmp_str + loop) == '"')
  89         {
  90             gsize loop2 = 0;
  91
  92             loop++;
  93             while (loop + loop2 < tmp_str_len)
  94             {
  95                 if (*(tmp_str + loop + loop2) == '"' &&
  96                     !strutils_is_char_escaped (tmp_str, tmp_str + loop + loop2))
  97                     break;
  98                 loop2++;
  99             }
 100
 101             g_string_append_len (buff, tmp_str + loop, loop2 - 1);
 102             loop += loop2;
 103         }
 104         else
 105             loop++;
 106     }
 107
 108     g_free (tmp_str);
 109
 110     return buff;
 111 }
 112
 113 /*** public functions ****************************************************************************/
 114
 115 void
 116 mc_search__cond_struct_new_init_hex (const char *charset, mc_search_t * lc_mc_search,
 117                                      mc_search_cond_t * mc_search_cond)
 118 {
 119     GString *tmp;
 120
 121     g_string_ascii_down (mc_search_cond->str);
 122     tmp = mc_search__hex_translate_to_regex (mc_search_cond->str);
 123     g_string_free (mc_search_cond->str, TRUE);
 124     mc_search_cond->str = tmp;
 125
 126     mc_search__cond_struct_new_init_regex (charset, lc_mc_search, mc_search_cond);
 127 }
 128
 129 /* --------------------------------------------------------------------------------------------- */
 130
 131 gboolean
 132 mc_search__run_hex (mc_search_t * lc_mc_search, const void *user_data,
 133                     gsize start_search, gsize end_search, gsize * found_len)
 134 {
 135     return mc_search__run_regex (lc_mc_search, user_data, start_search, end_search, found_len);
 136 }
 137
 138 /* --------------------------------------------------------------------------------------------- */
 139
 140 GString *
 141 mc_search_hex_prepare_replace_str (mc_search_t * lc_mc_search, GString * replace_str)
 142 {
 143     (void) lc_mc_search;
 144     return g_string_new_len (replace_str->str, replace_str->len);
 145 }
 146
 147 /* --------------------------------------------------------------------------------------------- */