talexander/organic
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Switch to using AsRef<str> to make compare_property_quoted_string generic.

Browse Source
This commit is contained in:
Tom Alexander 2023-10-06 19:49:06 -04:00
parent 89fcf6cb54
commit 4716e1ce5b
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE
2 changed files with 12 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
src/compare/compare_field.rs
View File

@ -56,7 +56,14 @@ pub(crate) fn compare_property_always_nil<'b, 's, 'x, R, RG>(
}
}
pub(crate) fn compare_property_quoted_string<'b, 's, 'x, R, RG: Fn(R) -> Option<&'s str>>(
pub(crate) fn compare_property_quoted_string<
'b,
's,
'x,
R,
RV: AsRef<str> + std::fmt::Debug,
RG: Fn(R) -> Option<RV>,
>(
emacs: &'b Token<'s>,
rust_node: R,
emacs_field: &'x str,
@ -64,27 +71,7 @@ pub(crate) fn compare_property_quoted_string<'b, 's, 'x, R, RG: Fn(R) -> Option<
) -> Result<Option<(DiffStatus, Option<String>)>, Box<dyn std::error::Error>> {
let value = get_property_quoted_string(emacs, emacs_field)?;
let rust_value = rust_value_getter(rust_node);
if rust_value != value.as_ref().map(String::as_str) {
let this_status = DiffStatus::Bad;
let message = Some(format!(
"{} mismatch (emacs != rust) {:?} != {:?}",
emacs_field, value, rust_value
));
Ok(Some((this_status, message)))
} else {
Ok(None)
}
}
pub(crate) fn compare_property_quoted_string_owned<'b, 's, 'x, R, RG: Fn(R) -> Option<String>>(
emacs: &'b Token<'s>,
rust_node: R,
emacs_field: &'x str,
rust_value_getter: RG,
) -> Result<Option<(DiffStatus, Option<String>)>, Box<dyn std::error::Error>> {
let value = get_property_quoted_string(emacs, emacs_field)?;
let rust_value = rust_value_getter(rust_node);
if rust_value != value {
if rust_value.as_ref().map(|s| s.as_ref()) != value.as_ref().map(String::as_str) {
let this_status = DiffStatus::Bad;
let message = Some(format!(
"{} mismatch (emacs != rust) {:?} != {:?}",

7
src/compare/diff.rs
View File

@ -6,7 +6,6 @@ use std::collections::HashSet;
use super::compare_field::compare_identity;
use super::compare_field::compare_property_always_nil;
use super::compare_field::compare_property_quoted_string;
use super::compare_field::compare_property_quoted_string_owned;
use super::compare_field::compare_property_unquoted_atom;
use super::elisp_fact::ElispFact;
use super::elisp_fact::GetElispFact;
@ -2786,7 +2785,7 @@ fn compare_regular_link<'b, 's>(
(
EmacsField::Required(":path"),
|r| Some(r.get_path()),
compare_property_quoted_string_owned
compare_property_quoted_string
),
(
EmacsField::Required(":format"),
@ -2796,7 +2795,7 @@ fn compare_regular_link<'b, 's>(
(
EmacsField::Required(":raw-link"),
|r| Some(r.get_raw_link()),
compare_property_quoted_string_owned
compare_property_quoted_string
),
(
EmacsField::Required(":application"),
@ -2806,7 +2805,7 @@ fn compare_regular_link<'b, 's>(
(
EmacsField::Required(":search-option"),
|r| r.get_search_option(),
compare_property_quoted_string_owned
compare_property_quoted_string
)
)? {
this_status = new_status;