Initially this only works for lists of individual terms, which is a
bit inconvenient. This will be improved in a following commit.
---
lib/parse-sexp.cc | 36 ++++++++++++++++++++++++++++++++++++
test/T081-sexpr-search.sh | 15 +++++++++++++++
2 files changed, 51 insertions(+)
diff --git a/lib/parse-sexp.cc b/lib/parse-sexp.cc
index eded98e7..4a2fac8b 100644
--- a/lib/parse-sexp.cc
+++ b/lib/parse-sexp.cc
@@ -16,6 +16,17 @@ static _sexp_op_t operations[] =
{ }
};
+typedef struct {
+ const char *name;
+ Xapian::Query::op xapian_op;
+} _sexp_field_t;
+
+static _sexp_field_t fields[] =
+{
+ { "subject", Xapian::Query::OP_PHRASE },
+ { }
+};
+
static Xapian::Query _sexp_to_xapian_query (sexp_t *sx);
static Xapian::Query
@@ -46,6 +57,26 @@ _notmuch_sexp_string_to_xapian_query (notmuch_database_t
*notmuch, const char *q
return _sexp_to_xapian_query (sx);
}
+static Xapian::Query
+_sexp_combine_field (const char *prefix,
+ Xapian::Query::op operation,
+ sexp_t *sx)
+{
+ std::vector<std::string> terms;
+
+ for (sexp_t *cur = sx; cur; cur = cur->next) {
+ std::string pref_str = prefix;
+ std::string word = cur->val;
+
+ if (operation == Xapian::Query::OP_PHRASE)
+ word = Xapian::Unicode::tolower (word);
+
+
+ terms.push_back (pref_str + word);
+ }
+ return Xapian::Query (operation, terms.begin (), terms.end ());
+}
+
/* Here we expect the s-expression to be a proper list, with first
* element defining and operation, or as a special case the empty
* list */
@@ -68,5 +99,10 @@ _sexp_to_xapian_query (sexp_t *sx)
return _sexp_combine_query (op->xapian_op, op->initial,
sx->list->next);
}
+ for (const _sexp_field_t *field = fields; field && field->name; field++) {
+ if (strcasecmp (field->name, hd_sexp (sx)->val) == 0)
+ return _sexp_combine_field (_find_prefix (field->name),
field->xapian_op, sx->list->next);
+ }
+
INTERNAL_ERROR ("unimplemented prefix %s\n", sx->list->val);
}
diff --git a/test/T081-sexpr-search.sh b/test/T081-sexpr-search.sh
index 0b75334a..1a80a133 100755
--- a/test/T081-sexpr-search.sh
+++ b/test/T081-sexpr-search.sh
@@ -19,4 +19,19 @@ for query in '(or)' '(not ())' '(not (not))' '(not (and))' \
test_expect_equal_file /dev/null OUTPUT
done
+test_begin_subtest "Search by subject"
+add_message [subject]=subjectsearchtest '[date]="Sat, 01 Jan 2000 12:00:00
-0000"'
+output=$(notmuch search --query-syntax=sexp '(subject subjectsearchtest)' |
notmuch_search_sanitize)
+test_expect_equal "$output" "thread:XXX 2000-01-01 [1/1] Notmuch Test Suite;
subjectsearchtest (inbox unread)"
+
+test_begin_subtest "Search by subject (case insensitive)"
+notmuch search tag:inbox and subject:maildir | notmuch_search_sanitize >
EXPECTED
+notmuch search --query-syntax=sexp '(subject Maildir)' |
notmuch_search_sanitize > OUTPUT
+test_expect_equal_file EXPECTED OUTPUT
+
+test_begin_subtest "Search by subject (utf-8):"
+add_message [subject]=utf8-sübjéct '[date]="Sat, 01 Jan 2000 12:00:00 -0000"'
+output=$(notmuch search --query-syntax=sexp '(subject utf8 sübjéct)' |
notmuch_search_sanitize)
+test_expect_equal "$output" "thread:XXX 2000-01-01 [1/1] Notmuch Test Suite;
utf8-sübjéct (inbox unread)"
+
test_done
--
2.30.2
_______________________________________________
notmuch mailing list -- notmuch@notmuchmail.org
To unsubscribe send an email to notmuch-le...@notmuchmail.org
