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

Compare label format, retain labels, and use labels.

Browse Source
This commit is contained in:
Tom Alexander 2023-10-04 12:36:38 -04:00
parent 1503054994
commit b56d847cfa
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE
4 changed files with 135 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
org_mode_samples/lesser_element/lesser_block/example/switches_with_label.org
View File

@ -1,3 +1,3 @@
#+BEGIN_SRC elisp -n -r -l "((%s))"
foo
foo
#+END_SRC

45
src/compare/diff.rs
View File

@ -1547,8 +1547,6 @@ fn compare_example_block<'b, 's>(
let mut this_status = DiffStatus::Good;
let mut message = None;
// TODO: Compare :preserve-indent :retain-labels :use-labels :label-fmt
// Compare value
let contents = get_property_quoted_string(emacs, ":value")?.unwrap_or(String::new());
if contents != rust.contents {
@ -1609,6 +1607,49 @@ fn compare_example_block<'b, 's>(
}
};
// Compare preserve-indent
let preserve_indent = get_property_boolean(emacs, ":preserve-indent")?;
if preserve_indent {
// I don't know what :preserve-indent is for, but it seems to always be nil. This is here to alert me to value being non-nil so I can investigate.
this_status = DiffStatus::Bad;
message = Some(format!("Non-nil :preserve-indent {:?}", preserve_indent));
}
// Compare retain-labels
let retain_labels = get_property_boolean(emacs, ":retain-labels")?;
if retain_labels != rust.retain_labels {
this_status = DiffStatus::Bad;
message = Some(format!(
"Retain labels mismatch (emacs != rust) {:?} != {:?}",
retain_labels, rust.retain_labels
));
}
// Compare use-labels
let use_labels = get_property_boolean(emacs, ":use-labels")?;
if use_labels != rust.use_labels {
this_status = DiffStatus::Bad;
message = Some(format!(
"Use labels mismatch (emacs != rust) {:?} != {:?}",
use_labels, rust.use_labels
));
}
// Compare label-fmt
let label_format = get_property_quoted_string(emacs, ":label-fmt")?;
match (label_format.as_ref(), rust.label_format) {
(None, None) => {}
(Some(emacs_label_format), Some(rust_label_format))
if emacs_label_format == rust_label_format => {}
_ => {
this_status = DiffStatus::Bad;
message = Some(format!(
"Label format mismatch (emacs != rust) {:?} != {:?}",
label_format, rust.label_format
));
}
}
Ok(DiffResult {
status: this_status,
name: rust.get_elisp_name(),

124
src/parser/lesser_block.rs
View File

@ -1,5 +1,6 @@
use nom::branch::alt;
use nom::bytes::complete::is_not;
use nom::bytes::complete::tag;
use nom::bytes::complete::tag_no_case;
use nom::character::complete::line_ending;
use nom::character::complete::space0;
@ -154,11 +155,17 @@ pub(crate) fn example_block<'b, 'g, 'r, 's>(
let (remaining, _end) = lesser_block_end_specialized(&parser_context, remaining)?;
let source = get_consumed(input, remaining);
let (switches, number_lines) = {
let (switches, number_lines, retain_labels, use_labels, label_format) = {
if let Some(parameters) = parameters {
(Some(parameters.source), parameters.number_lines)
(
Some(parameters.source),
parameters.number_lines,
parameters.retain_labels,
parameters.use_labels,
parameters.label_format,
)
} else {
(None, None)
(None, None, true, true, None)
}
};
Ok((
@ -168,6 +175,9 @@ pub(crate) fn example_block<'b, 'g, 'r, 's>(
name: source.into(),
switches,
number_lines,
retain_labels,
use_labels,
label_format,
contents: contents.into(),
},
))
@ -317,58 +327,86 @@ fn _lesser_block_begin<'b, 'g, 'r, 's, 'c>(
struct ExampleSwitches<'s> {
source: &'s str,
number_lines: Option<SwitchNumberLines>,
retain_labels: bool,
use_labels: bool,
label_format: Option<&'s str>,
}
enum SwitchState {
Normal,
NewLineNumber,
ContinuedLineNumber,
LabelFormat,
}
#[cfg_attr(feature = "tracing", tracing::instrument(ret, level = "debug"))]
fn example_switches<'s>(input: OrgSource<'s>) -> Res<OrgSource<'s>, ExampleSwitches<'s>> {
let mut number_lines = None;
let mut retain_labels = true;
let mut use_labels = true;
let mut label_format = None;
let (remaining, (source, (words, _))) = consumed(tuple((
separated_list1(
space1,
map(is_not(" \t\r\n"), |val| Into::<&str>::into(val)),
),
separated_list1(space1, map(switch_word, |val| Into::<&str>::into(val))),
space0,
)))(input)?;
let mut state = SwitchState::Normal;
for word in words {
state = match (state, word) {
(SwitchState::Normal, "-n") => SwitchState::NewLineNumber,
(SwitchState::Normal, "+n") => SwitchState::ContinuedLineNumber,
(SwitchState::NewLineNumber, _) => {
let val = match word.parse::<LineNumber>() {
Ok(val) => val,
Err(_) => 1,
};
if val < 0 {
number_lines = Some(SwitchNumberLines::New(0));
} else {
// Note that this can result in a negative 1 if the val is originally 0.
number_lines = Some(SwitchNumberLines::New(val - 1));
loop {
match (&state, word) {
(SwitchState::Normal, "-n") => {
state = SwitchState::NewLineNumber;
}
SwitchState::Normal
}
(SwitchState::ContinuedLineNumber, _) => {
let val = match word.parse::<LineNumber>() {
Ok(val) => val,
Err(_) => 1,
};
if val < 0 {
number_lines = Some(SwitchNumberLines::Continued(0));
} else {
// Note that this can result in a negative 1 if the val is originally 0.
number_lines = Some(SwitchNumberLines::Continued(val - 1));
(SwitchState::Normal, "+n") => {
state = SwitchState::ContinuedLineNumber;
}
SwitchState::Normal
}
(state @ SwitchState::Normal, _) => state,
};
(SwitchState::Normal, "-r") => {
retain_labels = false;
use_labels = false;
}
(SwitchState::Normal, "-l") => {
state = SwitchState::LabelFormat;
}
(SwitchState::NewLineNumber, _) => {
let val = word.parse::<LineNumber>();
if let Ok(val) = val {
if val < 0 {
number_lines = Some(SwitchNumberLines::New(0));
} else {
// Note that this can result in a negative 1 if the val is originally 0.
number_lines = Some(SwitchNumberLines::New(val - 1));
}
state = SwitchState::Normal;
} else {
number_lines = Some(SwitchNumberLines::New(0));
state = SwitchState::Normal;
continue; // Re-processes the word
}
}
(SwitchState::ContinuedLineNumber, _) => {
let val = word.parse::<LineNumber>();
if let Ok(val) = val {
if val < 0 {
number_lines = Some(SwitchNumberLines::Continued(0));
} else {
// Note that this can result in a negative 1 if the val is originally 0.
number_lines = Some(SwitchNumberLines::Continued(val - 1));
}
state = SwitchState::Normal;
} else {
number_lines = Some(SwitchNumberLines::Continued(0));
state = SwitchState::Normal;
continue; // Re-processes the word
}
}
(SwitchState::LabelFormat, _) => {
label_format = Some(word);
state = SwitchState::Normal;
}
(SwitchState::Normal, _) => {}
};
break;
}
}
Ok((
@ -376,6 +414,20 @@ fn example_switches<'s>(input: OrgSource<'s>) -> Res<OrgSource<'s>, ExampleSwitc
ExampleSwitches {
source: Into::<&str>::into(source),
number_lines,
retain_labels,
use_labels,
label_format,
},
))
}
#[cfg_attr(feature = "tracing", tracing::instrument(ret, level = "debug"))]
fn switch_word<'s>(input: OrgSource<'s>) -> Res<OrgSource<'s>, OrgSource<'s>> {
alt((
map(
tuple((tag(r#"""#), is_not("\"\r\n"), tag(r#"""#))),
|(_, contents, _)| contents,
),
is_not(" \t\r\n"),
))(input)
}

3
src/types/lesser_element.rs
View File

@ -42,6 +42,9 @@ pub struct ExampleBlock<'s> {
pub name: &'s str,
pub switches: Option<&'s str>,
pub number_lines: Option<SwitchNumberLines>,
pub retain_labels: bool,
pub use_labels: bool,
pub label_format: Option<&'s str>,
pub contents: &'s str,
}