lib/search/hex.c

   1 /*
   2    Search text engine.
   3    HEX-style pattern matching
   4
   5    Copyright (C) 2009 The Free Software Foundation, Inc.
   6
   7    Written by:
   8    Slava Zanko <slavazanko@gmail.com>, 2009.
   9
  10    This file is part of the Midnight Commander.
  11
  12    The Midnight Commander is free software; you can redistribute it
  13    and/or modify it under the terms of the GNU General Public License as
  14    published by the Free Software Foundation; either version 2 of the
  15    License, or (at your option) any later version.
  16
  17    The Midnight Commander is distributed in the hope that it will be
  18    useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  19    of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20    General Public License for more details.
  21
  22    You should have received a copy of the GNU General Public License
  23    along with this program; if not, write to the Free Software
  24    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  25    MA 02110-1301, USA.
  26  */
  27
  28 #include <config.h>
  29
  30 #include <stdio.h>
  31
  32 #include "lib/global.h"
  33 #include "lib/strutil.h"
  34 #include "lib/search.h"
  35 #include "lib/strescape.h"
  36
  37 #include "lib/charsets.h"
  38
  39 #include "internal.h"
  40
  41 /*** global variables ****************************************************************************/
  42
  43 /*** file scope macro definitions ****************************************************************/
  44
  45 /*** file scope type declarations ****************************************************************/
  46
  47 /*** file scope variables ************************************************************************/
  48
  49 /*** file scope functions ************************************************************************/
  50
  51 static GString *
  52 mc_search__hex_translate_to_regex (const GString * astr)
  53 {
  54     const char *str = astr->str;
  55     GString *buff;
  56     gchar *tmp_str;
  57     gsize loop = 0;
  58     int val, ptr;
  59
  60     buff = g_string_sized_new (64);
  61     tmp_str = g_strndup (str, astr->len);
  62     g_strchug (tmp_str);        /* trim leadind whitespaces */
  63
  64     while (loop < astr->len)
  65     {
  66         if (sscanf (tmp_str + loop, "%i%n", &val, &ptr))
  67         {
  68             gchar *tmp_str2;
  69
  70             if (val < -128 || val > 255)
  71             {
  72                 loop++;
  73                 continue;
  74             }
  75
  76             tmp_str2 = g_strdup_printf ("\\x%02X", (unsigned char) val);
  77             g_string_append (buff, tmp_str2);
  78             g_free (tmp_str2);
  79             loop += ptr;
  80         }
  81         else if (*(tmp_str + loop) == '"')
  82         {
  83             gsize loop2 = 0;
  84
  85             loop++;
  86             while (loop + loop2 < astr->len)
  87             {
  88                 if (*(tmp_str + loop + loop2) == '"' &&
  89                     !strutils_is_char_escaped (tmp_str, tmp_str + loop + loop2))
  90                     break;
  91                 loop2++;
  92             }
  93
  94             g_string_append_len (buff, tmp_str + loop, loop2 - 1);
  95             loop += loop2;
  96         }
  97         else
  98             loop++;
  99     }
 100
 101     g_free (tmp_str);
 102
 103     return buff;
 104 }
 105
 106 /*** public functions ****************************************************************************/
 107
 108 void
 109 mc_search__cond_struct_new_init_hex (const char *charset, mc_search_t * lc_mc_search,
 110                                      mc_search_cond_t * mc_search_cond)
 111 {
 112     GString *tmp;
 113
 114     tmp = mc_search__hex_translate_to_regex (mc_search_cond->str);
 115     g_string_free (mc_search_cond->str, TRUE);
 116     mc_search_cond->str = tmp;
 117
 118     mc_search__cond_struct_new_init_regex (charset, lc_mc_search, mc_search_cond);
 119 }
 120
 121 /* --------------------------------------------------------------------------------------------- */
 122
 123 gboolean
 124 mc_search__run_hex (mc_search_t * lc_mc_search, const void *user_data,
 125                     gsize start_search, gsize end_search, gsize * found_len)
 126 {
 127     return mc_search__run_regex (lc_mc_search, user_data, start_search, end_search, found_len);
 128 }
 129
 130 /* --------------------------------------------------------------------------------------------- */
 131
 132 GString *
 133 mc_search_hex_prepare_replace_str (mc_search_t * lc_mc_search, GString * replace_str)
 134 {
 135     (void) lc_mc_search;
 136     return g_string_new_len (replace_str->str, replace_str->len);
 137 }
 138
 139 /* --------------------------------------------------------------------------------------------- */