search.c 13 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433
  1. /*
  2. Search text engine.
  3. Interface functions
  4. Copyright (C) 2009 The Free Software Foundation, Inc.
  5. Written by:
  6. Slava Zanko <slavazanko@gmail.com>, 2009.
  7. This file is part of the Midnight Commander.
  8. The Midnight Commander is free software; you can redistribute it
  9. and/or modify it under the terms of the GNU General Public License as
  10. published by the Free Software Foundation; either version 2 of the
  11. License, or (at your option) any later version.
  12. The Midnight Commander is distributed in the hope that it will be
  13. useful, but WITHOUT ANY WARRANTY; without even the implied warranty
  14. of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  15. General Public License for more details.
  16. You should have received a copy of the GNU General Public License
  17. along with this program; if not, write to the Free Software
  18. Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
  19. MA 02110-1301, USA.
  20. */
  21. #include <config.h>
  22. #include <stdlib.h>
  23. #include <sys/types.h>
  24. #include "lib/global.h"
  25. #include "lib/strutil.h"
  26. #include "lib/search.h"
  27. #include "src/charsets.h"
  28. #include "internal.h"
  29. /*** global variables ****************************************************************************/
  30. /*** file scope macro definitions ****************************************************************/
  31. /*** file scope type declarations ****************************************************************/
  32. /*** file scope variables ************************************************************************/
  33. static const mc_search_type_str_t mc_search__list_types[] = {
  34. {N_("Normal"), MC_SEARCH_T_NORMAL},
  35. {N_("&Regular expression"), MC_SEARCH_T_REGEX},
  36. {N_("Hexadecimal"), MC_SEARCH_T_HEX},
  37. {N_("Wildcard search"), MC_SEARCH_T_GLOB},
  38. {NULL, -1}
  39. };
  40. /*** file scope functions ************************************************************************/
  41. static mc_search_cond_t *
  42. mc_search__cond_struct_new (mc_search_t * lc_mc_search, const char *str,
  43. gsize str_len, const char *charset)
  44. {
  45. mc_search_cond_t *mc_search_cond;
  46. mc_search_cond = g_malloc0 (sizeof (mc_search_cond_t));
  47. mc_search_cond->str = g_string_new_len (str, str_len);
  48. mc_search_cond->len = str_len;
  49. mc_search_cond->charset = g_strdup (charset);
  50. switch (lc_mc_search->search_type) {
  51. case MC_SEARCH_T_GLOB:
  52. mc_search__cond_struct_new_init_glob (charset, lc_mc_search, mc_search_cond);
  53. break;
  54. case MC_SEARCH_T_NORMAL:
  55. mc_search__cond_struct_new_init_normal (charset, lc_mc_search, mc_search_cond);
  56. break;
  57. case MC_SEARCH_T_REGEX:
  58. mc_search__cond_struct_new_init_regex (charset, lc_mc_search, mc_search_cond);
  59. break;
  60. case MC_SEARCH_T_HEX:
  61. mc_search__cond_struct_new_init_hex (charset, lc_mc_search, mc_search_cond);
  62. break;
  63. default:
  64. break;
  65. }
  66. return mc_search_cond;
  67. }
  68. /* --------------------------------------------------------------------------------------------- */
  69. static void
  70. mc_search__cond_struct_free (mc_search_cond_t * mc_search_cond)
  71. {
  72. if (mc_search_cond->upper)
  73. g_string_free (mc_search_cond->upper, TRUE);
  74. if (mc_search_cond->lower)
  75. g_string_free (mc_search_cond->lower, TRUE);
  76. g_string_free (mc_search_cond->str, TRUE);
  77. g_free (mc_search_cond->charset);
  78. #ifdef SEARCH_TYPE_GLIB
  79. if (mc_search_cond->regex_handle)
  80. g_regex_unref (mc_search_cond->regex_handle);
  81. #else /* SEARCH_TYPE_GLIB */
  82. g_free (mc_search_cond->regex_handle);
  83. #endif /* SEARCH_TYPE_GLIB */
  84. g_free (mc_search_cond);
  85. }
  86. /* --------------------------------------------------------------------------------------------- */
  87. static void
  88. mc_search__conditions_free (GPtrArray * array)
  89. {
  90. gsize loop1;
  91. mc_search_cond_t *lc_mc_search;
  92. for (loop1 = 0; loop1 < array->len; loop1++) {
  93. lc_mc_search = (mc_search_cond_t *) g_ptr_array_index (array, loop1);
  94. mc_search__cond_struct_free (lc_mc_search);
  95. }
  96. g_ptr_array_free (array, TRUE);
  97. }
  98. /* --------------------------------------------------------------------------------------------- */
  99. /*** public functions ****************************************************************************/
  100. mc_search_t *
  101. mc_search_new (const gchar * original, gsize str_len)
  102. {
  103. mc_search_t *lc_mc_search;
  104. if (!original)
  105. return NULL;
  106. if ((gssize) str_len == -1) {
  107. str_len = strlen (original);
  108. if (str_len == 0)
  109. return NULL;
  110. }
  111. lc_mc_search = g_malloc0 (sizeof (mc_search_t));
  112. lc_mc_search->original = g_strndup (original, str_len);
  113. lc_mc_search->original_len = str_len;
  114. return lc_mc_search;
  115. }
  116. /* --------------------------------------------------------------------------------------------- */
  117. void
  118. mc_search_free (mc_search_t * lc_mc_search)
  119. {
  120. if (!lc_mc_search)
  121. return;
  122. g_free (lc_mc_search->original);
  123. g_free (lc_mc_search->error_str);
  124. if (lc_mc_search->conditions)
  125. mc_search__conditions_free (lc_mc_search->conditions);
  126. #ifdef SEARCH_TYPE_GLIB
  127. if (lc_mc_search->regex_match_info)
  128. g_match_info_free (lc_mc_search->regex_match_info);
  129. #else /* SEARCH_TYPE_GLIB */
  130. g_free (lc_mc_search->regex_match_info);
  131. #endif /* SEARCH_TYPE_GLIB */
  132. if (lc_mc_search->regex_buffer != NULL)
  133. g_string_free (lc_mc_search->regex_buffer, TRUE);
  134. g_free (lc_mc_search);
  135. }
  136. /* --------------------------------------------------------------------------------------------- */
  137. gboolean
  138. mc_search_prepare (mc_search_t * lc_mc_search)
  139. {
  140. GPtrArray *ret;
  141. ret = g_ptr_array_new ();
  142. #ifdef HAVE_CHARSET
  143. if (lc_mc_search->is_all_charsets) {
  144. gsize loop1, recoded_str_len;
  145. gchar *buffer;
  146. for (loop1 = 0; loop1 < (gsize) n_codepages; loop1++) {
  147. if (!g_ascii_strcasecmp (codepages[loop1].id, cp_source)) {
  148. g_ptr_array_add (ret,
  149. mc_search__cond_struct_new (lc_mc_search, lc_mc_search->original,
  150. lc_mc_search->original_len, cp_source));
  151. continue;
  152. }
  153. buffer =
  154. mc_search__recode_str (lc_mc_search->original, lc_mc_search->original_len, cp_source,
  155. codepages[loop1].id, &recoded_str_len);
  156. g_ptr_array_add (ret,
  157. mc_search__cond_struct_new (lc_mc_search, buffer,
  158. recoded_str_len, codepages[loop1].id));
  159. g_free (buffer);
  160. }
  161. } else {
  162. g_ptr_array_add (ret,
  163. (gpointer) mc_search__cond_struct_new (lc_mc_search, lc_mc_search->original,
  164. lc_mc_search->original_len,
  165. cp_source));
  166. }
  167. #else
  168. g_ptr_array_add (ret,
  169. (gpointer) mc_search__cond_struct_new (lc_mc_search, lc_mc_search->original,
  170. lc_mc_search->original_len,
  171. str_detect_termencoding ()));
  172. #endif
  173. lc_mc_search->conditions = ret;
  174. return (lc_mc_search->error == MC_SEARCH_E_OK);
  175. }
  176. /* --------------------------------------------------------------------------------------------- */
  177. gboolean
  178. mc_search_run (mc_search_t * lc_mc_search, const void *user_data,
  179. gsize start_search, gsize end_search, gsize * found_len)
  180. {
  181. gboolean ret = FALSE;
  182. if (!lc_mc_search)
  183. return FALSE;
  184. if (!mc_search_is_type_avail (lc_mc_search->search_type)) {
  185. lc_mc_search->error = MC_SEARCH_E_INPUT;
  186. lc_mc_search->error_str = g_strdup (_(STR_E_UNKNOWN_TYPE));
  187. return FALSE;
  188. }
  189. #ifdef SEARCH_TYPE_GLIB
  190. if (lc_mc_search->regex_match_info) {
  191. g_match_info_free (lc_mc_search->regex_match_info);
  192. lc_mc_search->regex_match_info = NULL;
  193. }
  194. #endif /* SEARCH_TYPE_GLIB */
  195. lc_mc_search->error = MC_SEARCH_E_OK;
  196. g_free (lc_mc_search->error_str);
  197. lc_mc_search->error_str = NULL;
  198. if ((lc_mc_search->conditions == NULL) && !mc_search_prepare (lc_mc_search))
  199. return FALSE;
  200. switch (lc_mc_search->search_type) {
  201. case MC_SEARCH_T_NORMAL:
  202. ret = mc_search__run_normal (lc_mc_search, user_data, start_search, end_search, found_len);
  203. break;
  204. case MC_SEARCH_T_REGEX:
  205. ret = mc_search__run_regex (lc_mc_search, user_data, start_search, end_search, found_len);
  206. break;
  207. case MC_SEARCH_T_GLOB:
  208. ret = mc_search__run_glob (lc_mc_search, user_data, start_search, end_search, found_len);
  209. break;
  210. case MC_SEARCH_T_HEX:
  211. ret = mc_search__run_hex (lc_mc_search, user_data, start_search, end_search, found_len);
  212. break;
  213. default:
  214. break;
  215. }
  216. return ret;
  217. }
  218. /* --------------------------------------------------------------------------------------------- */
  219. gboolean
  220. mc_search_is_type_avail (mc_search_type_t search_type)
  221. {
  222. switch (search_type) {
  223. case MC_SEARCH_T_GLOB:
  224. case MC_SEARCH_T_NORMAL:
  225. case MC_SEARCH_T_REGEX:
  226. case MC_SEARCH_T_HEX:
  227. return TRUE;
  228. break;
  229. default:
  230. break;
  231. }
  232. return FALSE;
  233. }
  234. /* --------------------------------------------------------------------------------------------- */
  235. const mc_search_type_str_t *
  236. mc_search_types_list_get (size_t *num)
  237. {
  238. /* don't count last NULL item */
  239. if (num != NULL)
  240. *num = sizeof (mc_search__list_types) / sizeof (mc_search__list_types[0]) - 1;
  241. return mc_search__list_types;
  242. }
  243. /* --------------------------------------------------------------------------------------------- */
  244. GString *
  245. mc_search_prepare_replace_str (mc_search_t * lc_mc_search, GString * replace_str)
  246. {
  247. GString *ret;
  248. if (lc_mc_search == NULL)
  249. return g_string_new_len (replace_str->str, replace_str->len);
  250. if (replace_str == NULL || replace_str->str == NULL || replace_str->len == 0)
  251. return g_string_new ("");
  252. switch (lc_mc_search->search_type) {
  253. case MC_SEARCH_T_REGEX:
  254. ret = mc_search_regex_prepare_replace_str (lc_mc_search, replace_str);
  255. break;
  256. case MC_SEARCH_T_GLOB:
  257. ret = mc_search_glob_prepare_replace_str (lc_mc_search, replace_str);
  258. break;
  259. case MC_SEARCH_T_NORMAL:
  260. ret = mc_search_normal_prepare_replace_str (lc_mc_search, replace_str);
  261. break;
  262. case MC_SEARCH_T_HEX:
  263. ret = mc_search_hex_prepare_replace_str (lc_mc_search, replace_str);
  264. break;
  265. default:
  266. ret = g_string_new_len (replace_str->str, replace_str->len);
  267. break;
  268. }
  269. return ret;
  270. }
  271. /* --------------------------------------------------------------------------------------------- */
  272. char *
  273. mc_search_prepare_replace_str2 (mc_search_t * lc_mc_search, char *replace_str)
  274. {
  275. GString *ret;
  276. GString *replace_str2 = g_string_new (replace_str);
  277. ret = mc_search_prepare_replace_str (lc_mc_search, replace_str2);
  278. g_string_free (replace_str2, TRUE);
  279. if (ret)
  280. return g_string_free (ret, FALSE);
  281. return NULL;
  282. }
  283. /* --------------------------------------------------------------------------------------------- */
  284. gboolean
  285. mc_search_is_fixed_search_str (mc_search_t * lc_mc_search)
  286. {
  287. if (lc_mc_search == NULL)
  288. return FALSE;
  289. switch (lc_mc_search->search_type) {
  290. case MC_SEARCH_T_REGEX:
  291. case MC_SEARCH_T_GLOB:
  292. return FALSE;
  293. break;
  294. default:
  295. return TRUE;
  296. break;
  297. }
  298. }
  299. /* --------------------------------------------------------------------------------------------- */
  300. gboolean
  301. mc_search (const gchar * pattern, const gchar * str, mc_search_type_t type)
  302. {
  303. gboolean ret;
  304. mc_search_t *search = mc_search_new (pattern, -1);
  305. if (search == NULL)
  306. return FALSE;
  307. search->search_type = type;
  308. search->is_case_sensitive = TRUE;
  309. if (type == MC_SEARCH_T_GLOB)
  310. search->is_entire_line = TRUE;
  311. ret = mc_search_run (search, str, 0, strlen (str), NULL);
  312. mc_search_free (search);
  313. return ret;
  314. }
  315. /* --------------------------------------------------------------------------------------------- */
  316. int
  317. mc_search_getstart_result_by_num (mc_search_t * lc_mc_search, int lc_index)
  318. {
  319. if (!lc_mc_search)
  320. return 0;
  321. if (lc_mc_search->search_type == MC_SEARCH_T_NORMAL)
  322. return 0;
  323. #ifdef SEARCH_TYPE_GLIB
  324. {
  325. gint start_pos;
  326. gint end_pos;
  327. g_match_info_fetch_pos (lc_mc_search->regex_match_info, lc_index, &start_pos, &end_pos);
  328. return (int) start_pos;
  329. }
  330. #else /* SEARCH_TYPE_GLIB */
  331. return lc_mc_search->iovector[lc_index * 2];
  332. #endif /* SEARCH_TYPE_GLIB */
  333. }
  334. /* --------------------------------------------------------------------------------------------- */
  335. int
  336. mc_search_getend_result_by_num (mc_search_t * lc_mc_search, int lc_index)
  337. {
  338. if (!lc_mc_search)
  339. return 0;
  340. if (lc_mc_search->search_type == MC_SEARCH_T_NORMAL)
  341. return 0;
  342. #ifdef SEARCH_TYPE_GLIB
  343. {
  344. gint start_pos;
  345. gint end_pos;
  346. g_match_info_fetch_pos (lc_mc_search->regex_match_info, lc_index, &start_pos, &end_pos);
  347. return (int) end_pos;
  348. }
  349. #else /* SEARCH_TYPE_GLIB */
  350. return lc_mc_search->iovector[lc_index * 2 + 1];
  351. #endif /* SEARCH_TYPE_GLIB */
  352. }
  353. /* --------------------------------------------------------------------------------------------- */