Remove lifetimes from wasm ast nodes.
This commit is contained in:
File diff suppressed because it is too large
Load Diff
@@ -1,10 +0,0 @@
|
||||
use super::diff::WasmDiffResult;
|
||||
use crate::compare::Token;
|
||||
|
||||
pub trait WasmElispCompare<'s, 'p> {
|
||||
fn compare_ast_node<'b>(
|
||||
&self,
|
||||
source: &'s str,
|
||||
emacs: &'b Token<'s>,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>>;
|
||||
}
|
||||
@@ -1,6 +1,5 @@
|
||||
use super::diff::WasmDiffResult;
|
||||
use super::diff::WasmDiffStatus;
|
||||
use super::elisp_compare::WasmElispCompare;
|
||||
use crate::compare::get_emacs_standard_properties;
|
||||
use crate::compare::get_property;
|
||||
use crate::compare::get_property_quoted_string;
|
||||
@@ -10,378 +9,378 @@ use crate::wasm::AdditionalProperties;
|
||||
use crate::wasm::AdditionalPropertyValue;
|
||||
use crate::wasm::WasmStandardProperties;
|
||||
|
||||
pub(crate) fn wasm_compare_list<'b, 's: 'b, 'p, EI, WI, WC>(
|
||||
source: &'s str,
|
||||
emacs: EI,
|
||||
wasm: WI,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>>
|
||||
where
|
||||
EI: Iterator<Item = &'b Token<'s>> + ExactSizeIterator,
|
||||
WI: Iterator<Item = WC> + ExactSizeIterator,
|
||||
WC: WasmElispCompare<'s, 'p>,
|
||||
{
|
||||
let status = Vec::new();
|
||||
let emacs_length = emacs.len();
|
||||
let wasm_length = wasm.len();
|
||||
if emacs_length != wasm_length {
|
||||
return Ok(WasmDiffResult {
|
||||
status: vec![WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Child length mismatch (emacs != rust) {:?} != {:?}",
|
||||
emacs_length, wasm_length
|
||||
)
|
||||
.into(),
|
||||
)],
|
||||
children: Vec::new(),
|
||||
name: "".into(),
|
||||
});
|
||||
}
|
||||
// pub(crate) fn wasm_compare_list<'b, 's: 'b, 'p, EI, WI, WC>(
|
||||
// source: &'s str,
|
||||
// emacs: EI,
|
||||
// wasm: WI,
|
||||
// ) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>>
|
||||
// where
|
||||
// EI: Iterator<Item = &'b Token<'s>> + ExactSizeIterator,
|
||||
// WI: Iterator<Item = WC> + ExactSizeIterator,
|
||||
// WC: WasmElispCompare<'s, 'p>,
|
||||
// {
|
||||
// let status = Vec::new();
|
||||
// let emacs_length = emacs.len();
|
||||
// let wasm_length = wasm.len();
|
||||
// if emacs_length != wasm_length {
|
||||
// return Ok(WasmDiffResult {
|
||||
// status: vec![WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Child length mismatch (emacs != rust) {:?} != {:?}",
|
||||
// emacs_length, wasm_length
|
||||
// )
|
||||
// .into(),
|
||||
// )],
|
||||
// children: Vec::new(),
|
||||
// name: "".into(),
|
||||
// });
|
||||
// }
|
||||
|
||||
let mut child_status = Vec::with_capacity(emacs_length);
|
||||
for (emacs_child, wasm_child) in emacs.zip(wasm) {
|
||||
child_status.push(wasm_child.compare_ast_node(source, emacs_child)?);
|
||||
}
|
||||
Ok(WasmDiffResult {
|
||||
status,
|
||||
children: child_status,
|
||||
name: "".into(),
|
||||
})
|
||||
}
|
||||
// let mut child_status = Vec::with_capacity(emacs_length);
|
||||
// for (emacs_child, wasm_child) in emacs.zip(wasm) {
|
||||
// child_status.push(wasm_child.compare_ast_node(source, emacs_child)?);
|
||||
// }
|
||||
// Ok(WasmDiffResult {
|
||||
// status,
|
||||
// children: child_status,
|
||||
// name: "".into(),
|
||||
// })
|
||||
// }
|
||||
|
||||
pub(crate) fn wasm_compare_property_quoted_string<
|
||||
'b,
|
||||
's,
|
||||
W,
|
||||
WV: AsRef<str> + std::fmt::Debug,
|
||||
WG: Fn(W) -> Option<WV>,
|
||||
>(
|
||||
_source: &'s str,
|
||||
emacs: &'b Token<'s>,
|
||||
wasm_node: W,
|
||||
emacs_field: &str,
|
||||
wasm_value_getter: WG,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
let mut result = WasmDiffResult::default();
|
||||
let emacs_value = get_property_quoted_string(emacs, emacs_field)?;
|
||||
let wasm_value = wasm_value_getter(wasm_node);
|
||||
if wasm_value.as_ref().map(|s| s.as_ref()) != emacs_value.as_deref() {
|
||||
result.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = emacs_field,
|
||||
emacs = emacs_value,
|
||||
wasm = wasm_value,
|
||||
)
|
||||
.into(),
|
||||
))
|
||||
}
|
||||
Ok(result)
|
||||
}
|
||||
// pub(crate) fn wasm_compare_property_quoted_string<
|
||||
// 'b,
|
||||
// 's,
|
||||
// W,
|
||||
// WV: AsRef<str> + std::fmt::Debug,
|
||||
// WG: Fn(W) -> Option<WV>,
|
||||
// >(
|
||||
// _source: &'s str,
|
||||
// emacs: &'b Token<'s>,
|
||||
// wasm_node: W,
|
||||
// emacs_field: &str,
|
||||
// wasm_value_getter: WG,
|
||||
// ) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
// let mut result = WasmDiffResult::default();
|
||||
// let emacs_value = get_property_quoted_string(emacs, emacs_field)?;
|
||||
// let wasm_value = wasm_value_getter(wasm_node);
|
||||
// if wasm_value.as_ref().map(|s| s.as_ref()) != emacs_value.as_deref() {
|
||||
// result.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = emacs_field,
|
||||
// emacs = emacs_value,
|
||||
// wasm = wasm_value,
|
||||
// )
|
||||
// .into(),
|
||||
// ))
|
||||
// }
|
||||
// Ok(result)
|
||||
// }
|
||||
|
||||
pub(crate) fn wasm_compare_property_list_of_quoted_string<
|
||||
'b,
|
||||
's,
|
||||
WI: Iterator<Item = WV> + ExactSizeIterator,
|
||||
W,
|
||||
WV: AsRef<str> + std::fmt::Debug,
|
||||
WG: Fn(W) -> Option<WI>,
|
||||
>(
|
||||
_source: &'s str,
|
||||
emacs: &'b Token<'s>,
|
||||
wasm_node: W,
|
||||
emacs_field: &str,
|
||||
wasm_value_getter: WG,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
let mut result = WasmDiffResult::default();
|
||||
let emacs_value = get_property(emacs, emacs_field)?
|
||||
.map(Token::as_list)
|
||||
.map_or(Ok(None), |r| r.map(Some))?;
|
||||
let wasm_value = wasm_value_getter(wasm_node);
|
||||
match (emacs_value, wasm_value) {
|
||||
(None, None) => {}
|
||||
(None, Some(_)) | (Some(_), None) => {
|
||||
return Ok(WasmDiffResult {
|
||||
status: vec![WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = emacs_field,
|
||||
emacs = if emacs_value.is_some() {"Some"} else {"None"},
|
||||
wasm = if !emacs_value.is_some() {"Some"} else {"None"}
|
||||
)
|
||||
.into(),
|
||||
)],
|
||||
children: Vec::new(),
|
||||
name: "".into(),
|
||||
});
|
||||
}
|
||||
(Some(el), Some(wl)) if el.len() != wl.len() => {
|
||||
return Ok(WasmDiffResult {
|
||||
status: vec![WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = emacs_field,
|
||||
emacs = el.len(),
|
||||
wasm = wl.len()
|
||||
)
|
||||
.into(),
|
||||
)],
|
||||
children: Vec::new(),
|
||||
name: "".into(),
|
||||
});
|
||||
}
|
||||
(Some(el), Some(wl)) => {
|
||||
for (e, w) in el.iter().zip(wl) {
|
||||
let e = unquote(e.as_atom()?)?;
|
||||
let w = w.as_ref();
|
||||
if e != w {
|
||||
result.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property list value mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = emacs_field,
|
||||
emacs = e,
|
||||
wasm = w
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
}
|
||||
}
|
||||
};
|
||||
// pub(crate) fn wasm_compare_property_list_of_quoted_string<
|
||||
// 'b,
|
||||
// 's,
|
||||
// WI: Iterator<Item = WV> + ExactSizeIterator,
|
||||
// W,
|
||||
// WV: AsRef<str> + std::fmt::Debug,
|
||||
// WG: Fn(W) -> Option<WI>,
|
||||
// >(
|
||||
// _source: &'s str,
|
||||
// emacs: &'b Token<'s>,
|
||||
// wasm_node: W,
|
||||
// emacs_field: &str,
|
||||
// wasm_value_getter: WG,
|
||||
// ) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
// let mut result = WasmDiffResult::default();
|
||||
// let emacs_value = get_property(emacs, emacs_field)?
|
||||
// .map(Token::as_list)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?;
|
||||
// let wasm_value = wasm_value_getter(wasm_node);
|
||||
// match (emacs_value, wasm_value) {
|
||||
// (None, None) => {}
|
||||
// (None, Some(_)) | (Some(_), None) => {
|
||||
// return Ok(WasmDiffResult {
|
||||
// status: vec![WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = emacs_field,
|
||||
// emacs = if emacs_value.is_some() {"Some"} else {"None"},
|
||||
// wasm = if !emacs_value.is_some() {"Some"} else {"None"}
|
||||
// )
|
||||
// .into(),
|
||||
// )],
|
||||
// children: Vec::new(),
|
||||
// name: "".into(),
|
||||
// });
|
||||
// }
|
||||
// (Some(el), Some(wl)) if el.len() != wl.len() => {
|
||||
// return Ok(WasmDiffResult {
|
||||
// status: vec![WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = emacs_field,
|
||||
// emacs = el.len(),
|
||||
// wasm = wl.len()
|
||||
// )
|
||||
// .into(),
|
||||
// )],
|
||||
// children: Vec::new(),
|
||||
// name: "".into(),
|
||||
// });
|
||||
// }
|
||||
// (Some(el), Some(wl)) => {
|
||||
// for (e, w) in el.iter().zip(wl) {
|
||||
// let e = unquote(e.as_atom()?)?;
|
||||
// let w = w.as_ref();
|
||||
// if e != w {
|
||||
// result.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property list value mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = emacs_field,
|
||||
// emacs = e,
|
||||
// wasm = w
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// }
|
||||
// }
|
||||
// };
|
||||
|
||||
Ok(result)
|
||||
}
|
||||
// Ok(result)
|
||||
// }
|
||||
|
||||
pub(crate) fn wasm_compare_property_optional_pair<
|
||||
'b,
|
||||
's,
|
||||
W,
|
||||
WV: AsRef<str> + std::fmt::Debug,
|
||||
WOV: AsRef<str> + std::fmt::Debug,
|
||||
WG: Fn(W) -> Option<(Option<WOV>, WV)>,
|
||||
>(
|
||||
_source: &'s str,
|
||||
emacs: &'b Token<'s>,
|
||||
wasm_node: W,
|
||||
emacs_field: &str,
|
||||
wasm_value_getter: WG,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
let mut result = WasmDiffResult::default();
|
||||
let emacs_value = get_property(emacs, emacs_field)?
|
||||
.map(Token::as_list)
|
||||
.map_or(Ok(None), |r| r.map(Some))?;
|
||||
let wasm_value = wasm_value_getter(wasm_node);
|
||||
match (emacs_value, &wasm_value) {
|
||||
(None, None) => {}
|
||||
(None, Some(_)) | (Some(_), None) => {
|
||||
return Ok(WasmDiffResult {
|
||||
status: vec![WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = emacs_field,
|
||||
emacs = if emacs_value.is_some() {"Some"} else {"None"},
|
||||
wasm = if !emacs_value.is_some() {"Some"} else {"None"}
|
||||
)
|
||||
.into(),
|
||||
)],
|
||||
children: Vec::new(),
|
||||
name: "".into(),
|
||||
});
|
||||
}
|
||||
(Some(el), Some((Some(owl), wl))) if el.len() == 3 => {
|
||||
let e = el
|
||||
.first()
|
||||
.map(Token::as_atom)
|
||||
.map_or(Ok(None), |r| r.map(Some))?
|
||||
.map(unquote)
|
||||
.map_or(Ok(None), |r| r.map(Some))?
|
||||
.expect("Above match proved length to be 3.");
|
||||
let oe = el
|
||||
.get(2)
|
||||
.map(Token::as_atom)
|
||||
.map_or(Ok(None), |r| r.map(Some))?
|
||||
.map(unquote)
|
||||
.map_or(Ok(None), |r| r.map(Some))?
|
||||
.expect("Above match proved length to be 3.");
|
||||
let w = wl.as_ref();
|
||||
let ow = owl.as_ref();
|
||||
if e != w {
|
||||
result.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "end",
|
||||
emacs = e,
|
||||
wasm = w,
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
if oe != ow {
|
||||
result.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "end",
|
||||
emacs = oe,
|
||||
wasm = ow,
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
}
|
||||
(Some(el), Some((None, wl))) if el.len() == 1 => {
|
||||
let e = el
|
||||
.first()
|
||||
.map(Token::as_atom)
|
||||
.map_or(Ok(None), |r| r.map(Some))?
|
||||
.map(unquote)
|
||||
.map_or(Ok(None), |r| r.map(Some))?
|
||||
.expect("Above match proved length to be 3.");
|
||||
let w = wl.as_ref();
|
||||
if e != w {
|
||||
result.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "end",
|
||||
emacs = e,
|
||||
wasm = w,
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
}
|
||||
(Some(el), Some(_)) => {
|
||||
return Ok(WasmDiffResult {
|
||||
status: vec![WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = emacs_field,
|
||||
emacs = el.len(),
|
||||
wasm = wasm_value
|
||||
)
|
||||
.into(),
|
||||
)],
|
||||
children: Vec::new(),
|
||||
name: "".into(),
|
||||
});
|
||||
}
|
||||
}
|
||||
Ok(result)
|
||||
}
|
||||
// pub(crate) fn wasm_compare_property_optional_pair<
|
||||
// 'b,
|
||||
// 's,
|
||||
// W,
|
||||
// WV: AsRef<str> + std::fmt::Debug,
|
||||
// WOV: AsRef<str> + std::fmt::Debug,
|
||||
// WG: Fn(W) -> Option<(Option<WOV>, WV)>,
|
||||
// >(
|
||||
// _source: &'s str,
|
||||
// emacs: &'b Token<'s>,
|
||||
// wasm_node: W,
|
||||
// emacs_field: &str,
|
||||
// wasm_value_getter: WG,
|
||||
// ) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
// let mut result = WasmDiffResult::default();
|
||||
// let emacs_value = get_property(emacs, emacs_field)?
|
||||
// .map(Token::as_list)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?;
|
||||
// let wasm_value = wasm_value_getter(wasm_node);
|
||||
// match (emacs_value, &wasm_value) {
|
||||
// (None, None) => {}
|
||||
// (None, Some(_)) | (Some(_), None) => {
|
||||
// return Ok(WasmDiffResult {
|
||||
// status: vec![WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = emacs_field,
|
||||
// emacs = if emacs_value.is_some() {"Some"} else {"None"},
|
||||
// wasm = if !emacs_value.is_some() {"Some"} else {"None"}
|
||||
// )
|
||||
// .into(),
|
||||
// )],
|
||||
// children: Vec::new(),
|
||||
// name: "".into(),
|
||||
// });
|
||||
// }
|
||||
// (Some(el), Some((Some(owl), wl))) if el.len() == 3 => {
|
||||
// let e = el
|
||||
// .first()
|
||||
// .map(Token::as_atom)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?
|
||||
// .map(unquote)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?
|
||||
// .expect("Above match proved length to be 3.");
|
||||
// let oe = el
|
||||
// .get(2)
|
||||
// .map(Token::as_atom)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?
|
||||
// .map(unquote)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?
|
||||
// .expect("Above match proved length to be 3.");
|
||||
// let w = wl.as_ref();
|
||||
// let ow = owl.as_ref();
|
||||
// if e != w {
|
||||
// result.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "end",
|
||||
// emacs = e,
|
||||
// wasm = w,
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// if oe != ow {
|
||||
// result.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "end",
|
||||
// emacs = oe,
|
||||
// wasm = ow,
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// }
|
||||
// (Some(el), Some((None, wl))) if el.len() == 1 => {
|
||||
// let e = el
|
||||
// .first()
|
||||
// .map(Token::as_atom)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?
|
||||
// .map(unquote)
|
||||
// .map_or(Ok(None), |r| r.map(Some))?
|
||||
// .expect("Above match proved length to be 3.");
|
||||
// let w = wl.as_ref();
|
||||
// if e != w {
|
||||
// result.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "end",
|
||||
// emacs = e,
|
||||
// wasm = w,
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// }
|
||||
// (Some(el), Some(_)) => {
|
||||
// return Ok(WasmDiffResult {
|
||||
// status: vec![WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property list length mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = emacs_field,
|
||||
// emacs = el.len(),
|
||||
// wasm = wasm_value
|
||||
// )
|
||||
// .into(),
|
||||
// )],
|
||||
// children: Vec::new(),
|
||||
// name: "".into(),
|
||||
// });
|
||||
// }
|
||||
// }
|
||||
// Ok(result)
|
||||
// }
|
||||
|
||||
pub(crate) fn wasm_compare_standard_properties<'b, 's>(
|
||||
_source: &'s str,
|
||||
emacs: &'b Token<'s>,
|
||||
wasm: &WasmStandardProperties,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
let mut result = WasmDiffResult::default();
|
||||
let mut layer = WasmDiffResult::default();
|
||||
layer.name = "standard-properties".into();
|
||||
let standard_properties = get_emacs_standard_properties(emacs)?;
|
||||
// pub(crate) fn wasm_compare_standard_properties<'b, 's>(
|
||||
// _source: &'s str,
|
||||
// emacs: &'b Token<'s>,
|
||||
// wasm: &WasmStandardProperties,
|
||||
// ) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
// let mut result = WasmDiffResult::default();
|
||||
// let mut layer = WasmDiffResult::default();
|
||||
// layer.name = "standard-properties".into();
|
||||
// let standard_properties = get_emacs_standard_properties(emacs)?;
|
||||
|
||||
if Some(wasm.begin) != standard_properties.begin {
|
||||
layer.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "begin",
|
||||
emacs = standard_properties.begin,
|
||||
wasm = Some(wasm.begin),
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
if Some(wasm.end) != standard_properties.end {
|
||||
layer.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "end",
|
||||
emacs = standard_properties.end,
|
||||
wasm = Some(wasm.end),
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
if wasm.contents_begin != standard_properties.contents_begin {
|
||||
layer.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "contents-begin",
|
||||
emacs = standard_properties.contents_begin,
|
||||
wasm = wasm.contents_begin,
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
if wasm.contents_end != standard_properties.contents_end {
|
||||
layer.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "contents-end",
|
||||
emacs = standard_properties.contents_end,
|
||||
wasm = wasm.contents_end,
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
if Some(wasm.post_blank).map(|post_blank| post_blank as usize) != standard_properties.post_blank
|
||||
{
|
||||
layer.status.push(WasmDiffStatus::Bad(
|
||||
format!(
|
||||
"Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
property = "post-blank",
|
||||
emacs = standard_properties.post_blank,
|
||||
wasm = Some(wasm.post_blank),
|
||||
)
|
||||
.into(),
|
||||
));
|
||||
}
|
||||
// if Some(wasm.begin) != standard_properties.begin {
|
||||
// layer.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "begin",
|
||||
// emacs = standard_properties.begin,
|
||||
// wasm = Some(wasm.begin),
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// if Some(wasm.end) != standard_properties.end {
|
||||
// layer.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "end",
|
||||
// emacs = standard_properties.end,
|
||||
// wasm = Some(wasm.end),
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// if wasm.contents_begin != standard_properties.contents_begin {
|
||||
// layer.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "contents-begin",
|
||||
// emacs = standard_properties.contents_begin,
|
||||
// wasm = wasm.contents_begin,
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// if wasm.contents_end != standard_properties.contents_end {
|
||||
// layer.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "contents-end",
|
||||
// emacs = standard_properties.contents_end,
|
||||
// wasm = wasm.contents_end,
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
// if Some(wasm.post_blank).map(|post_blank| post_blank as usize) != standard_properties.post_blank
|
||||
// {
|
||||
// layer.status.push(WasmDiffStatus::Bad(
|
||||
// format!(
|
||||
// "Property mismatch. Property=({property}) Emacs=({emacs:?}) Wasm=({wasm:?}).",
|
||||
// property = "post-blank",
|
||||
// emacs = standard_properties.post_blank,
|
||||
// wasm = Some(wasm.post_blank),
|
||||
// )
|
||||
// .into(),
|
||||
// ));
|
||||
// }
|
||||
|
||||
result.children.push(layer);
|
||||
Ok(result)
|
||||
}
|
||||
// result.children.push(layer);
|
||||
// Ok(result)
|
||||
// }
|
||||
|
||||
pub(crate) fn wasm_compare_additional_properties<'b, 's>(
|
||||
source: &'s str,
|
||||
emacs: &'b Token<'s>,
|
||||
wasm: &AdditionalProperties<'_, '_>,
|
||||
) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
let mut result = WasmDiffResult::default();
|
||||
let mut layer = WasmDiffResult::default();
|
||||
layer.name = "additional-properties".into();
|
||||
// pub(crate) fn wasm_compare_additional_properties<'b, 's>(
|
||||
// source: &'s str,
|
||||
// emacs: &'b Token<'s>,
|
||||
// wasm: &AdditionalProperties<'_, '_>,
|
||||
// ) -> Result<WasmDiffResult<'s>, Box<dyn std::error::Error>> {
|
||||
// let mut result = WasmDiffResult::default();
|
||||
// let mut layer = WasmDiffResult::default();
|
||||
// layer.name = "additional-properties".into();
|
||||
|
||||
for (property_name, property_value) in wasm.properties.iter() {
|
||||
let emacs_property_name = format!(":{property_name}", property_name = property_name);
|
||||
match property_value {
|
||||
AdditionalPropertyValue::SingleString(wasm_value) => {
|
||||
layer.extend(wasm_compare_property_quoted_string(
|
||||
source,
|
||||
emacs,
|
||||
wasm,
|
||||
&emacs_property_name,
|
||||
|_| Some(wasm_value),
|
||||
)?)?;
|
||||
}
|
||||
AdditionalPropertyValue::ListOfStrings(wasm_value) => {
|
||||
layer.extend(wasm_compare_property_list_of_quoted_string(
|
||||
source,
|
||||
emacs,
|
||||
wasm,
|
||||
&emacs_property_name,
|
||||
|_| Some(wasm_value.iter()),
|
||||
)?)?;
|
||||
}
|
||||
// TODO: similar to compare_affiliated_keywords
|
||||
AdditionalPropertyValue::OptionalPair { optval, val } => {
|
||||
layer.extend(wasm_compare_property_optional_pair(
|
||||
source,
|
||||
emacs,
|
||||
wasm,
|
||||
&emacs_property_name,
|
||||
|_| Some((*optval, *val)),
|
||||
)?)?;
|
||||
}
|
||||
AdditionalPropertyValue::ObjectTree(_) => todo!(),
|
||||
}
|
||||
}
|
||||
// for (property_name, property_value) in wasm.properties.iter() {
|
||||
// let emacs_property_name = format!(":{property_name}", property_name = property_name);
|
||||
// match property_value {
|
||||
// AdditionalPropertyValue::SingleString(wasm_value) => {
|
||||
// layer.extend(wasm_compare_property_quoted_string(
|
||||
// source,
|
||||
// emacs,
|
||||
// wasm,
|
||||
// &emacs_property_name,
|
||||
// |_| Some(wasm_value),
|
||||
// )?)?;
|
||||
// }
|
||||
// AdditionalPropertyValue::ListOfStrings(wasm_value) => {
|
||||
// layer.extend(wasm_compare_property_list_of_quoted_string(
|
||||
// source,
|
||||
// emacs,
|
||||
// wasm,
|
||||
// &emacs_property_name,
|
||||
// |_| Some(wasm_value.iter()),
|
||||
// )?)?;
|
||||
// }
|
||||
// // TODO: similar to compare_affiliated_keywords
|
||||
// AdditionalPropertyValue::OptionalPair { optval, val } => {
|
||||
// layer.extend(wasm_compare_property_optional_pair(
|
||||
// source,
|
||||
// emacs,
|
||||
// wasm,
|
||||
// &emacs_property_name,
|
||||
// |_| Some((*optval, *val)),
|
||||
// )?)?;
|
||||
// }
|
||||
// AdditionalPropertyValue::ObjectTree(_) => todo!(),
|
||||
// }
|
||||
// }
|
||||
|
||||
result.children.push(layer);
|
||||
Ok(result)
|
||||
}
|
||||
// result.children.push(layer);
|
||||
// Ok(result)
|
||||
// }
|
||||
|
||||
@@ -1,6 +1,5 @@
|
||||
mod compare;
|
||||
mod diff;
|
||||
mod elisp_compare;
|
||||
mod logic;
|
||||
mod macros;
|
||||
mod runner;
|
||||
|
||||
@@ -47,7 +47,7 @@ pub async fn wasm_run_anonymous_compare_with_settings<'g, 's, P: AsRef<str>>(
|
||||
}
|
||||
|
||||
// We do the diffing after printing out both parsed forms in case the diffing panics
|
||||
let diff_result = wasm_compare_document(org_contents, &parsed_sexp, wasm_parsed)?;
|
||||
let diff_result = wasm_compare_document(org_contents, &parsed_sexp, &wasm_parsed)?;
|
||||
if !silent {
|
||||
diff_result.print(org_contents)?;
|
||||
}
|
||||
@@ -112,7 +112,7 @@ pub async fn wasm_run_compare_on_file_with_settings<'g, 's, P: AsRef<Path>>(
|
||||
}
|
||||
|
||||
// We do the diffing after printing out both parsed forms in case the diffing panics
|
||||
let diff_result = wasm_compare_document(org_contents, &parsed_sexp, wasm_parsed)?;
|
||||
let diff_result = wasm_compare_document(org_contents, &parsed_sexp, &wasm_parsed)?;
|
||||
if !silent {
|
||||
diff_result.print(org_contents)?;
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user