70 lines
2.2 KiB
Rust
70 lines
2.2 KiB
Rust
|
macro_rules! wasm_compare {
|
||
|
|
($source:expr, $emacs:expr, $wasm:expr, $(($emacs_field:expr, $wasm_value_getter:expr, $compare_fn: expr)),*) => {{
|
||
|
|
let mut result = WasmDiffResult::default();
|
||
|
|
let emacs_list = $emacs.as_list()?;
|
||
|
|
let mut emacs_list_iter = emacs_list.iter();
|
||
|
|
let emacs_name = emacs_list_iter
|
||
|
|
.next()
|
||
|
|
.ok_or("Should have an attributes child.")?
|
||
|
|
.as_atom()?;
|
||
|
|
let emacs_attributes_map = emacs_list_iter
|
||
|
|
.next()
|
||
|
|
.ok_or("Should have an attributes child.")?
|
||
|
|
.as_map()?;
|
||
|
|
let mut emacs_keys: std::collections::BTreeSet<&str> =
|
||
|
|
emacs_attributes_map.keys().map(|s| *s).collect();
|
||
|
|
|
||
|
|
{
|
||
|
|
// Compare name
|
||
|
|
let wasm_name = $wasm.get_elisp_name();
|
||
|
|
|
||
|
|
if emacs_name != wasm_name {
|
||
|
|
result.status.push(WasmDiffStatus::Bad(
|
||
|
|
format!(
|
||
|
|
"AST node name mismatch. Emacs=({emacs}) Wasm=({wasm}).",
|
||
|
|
emacs = emacs_name,
|
||
|
|
wasm = wasm_name,
|
||
|
|
)
|
||
|
|
.into(),
|
||
|
|
));
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
// Compare children
|
||
|
|
result.extend(wasm_compare_list(
|
||
|
|
$source,
|
||
|
|
emacs_list_iter,
|
||
|
|
$wasm.children.iter(),
|
||
|
|
)?)?;
|
||
|
|
}
|
||
|
|
|
||
|
|
{
|
||
|
|
// Compare fields
|
||
|
|
$(
|
||
|
|
match $emacs_field {
|
||
|
|
EmacsField::Required(name) if emacs_keys.contains(name) => {
|
||
|
|
emacs_keys.remove(name);
|
||
|
|
}
|
||
|
|
EmacsField::Optional(name) if emacs_keys.contains(name) => {
|
||
|
|
emacs_keys.remove(name);
|
||
|
|
}
|
||
|
|
EmacsField::Required(name) => {
|
||
|
|
result.status.push(WasmDiffStatus::Bad(
|
||
|
|
format!(
|
||
|
|
"Emacs node lacked required field ({name}).",
|
||
|
|
name = name,
|
||
|
|
)
|
||
|
|
.into(),
|
||
|
|
));
|
||
|
|
}
|
||
|
|
EmacsField::Optional(_name) => {}
|
||
|
|
}
|
||
|
|
)*
|
||
|
|
}
|
||
|
|
|
||
|
|
result
|
||
|
|
}};
|
||
|
|
}
|
||
|
|
pub(crate) use wasm_compare;
|