aboutsummaryrefslogtreecommitdiffstats
path: root/src/document_tree
diff options
context:
space:
mode:
Diffstat (limited to 'src/document_tree')
-rw-r--r--src/document_tree/element_categories.rs42
-rw-r--r--src/document_tree/macro_util.rs42
2 files changed, 67 insertions, 17 deletions
diff --git a/src/document_tree/element_categories.rs b/src/document_tree/element_categories.rs
index 1cf259d..5d0cecf 100644
--- a/src/document_tree/element_categories.rs
+++ b/src/document_tree/element_categories.rs
@@ -20,24 +20,33 @@ pub trait HasChildren<C> {
}
}
-macro_rules! synonymous_enum {
- ( $name:ident : $super1:ident + $super2:ident { $( $entry:ident ),* $(,)* } ) => {
- synonymous_enum!($name: $super1 { $( $entry, )* });
- $( impl Into<$super2> for $entry {
- fn into(self) -> $super2 {
- $super2::$super1($name::$entry(self).into())
+macro_rules! impl_into {
+ ([ $( ($subentry:tt, $supcat:tt), )+ ]) => {
+ $( impl_into!($subentry => $supcat); )+
+ };
+ ( ($subcat:ident :: $entry:ident) => $supcat:ident ) => {
+ impl Into<$supcat> for $entry {
+ fn into(self) -> $supcat {
+ $supcat::$subcat($subcat::$entry(self))
}
- } )*
+ }
};
- ( $name:ident : $super:ident { $( $entry:ident ),* $(,)* } ) => {
- synonymous_enum!($name { $( $entry, )* });
- $( impl Into<$super> for $entry {
- fn into(self) -> $super {
- $super::$name($name::$entry(self).into())
+}
+
+macro_rules! synonymous_enum {
+ ( $subcat:ident : $($supcat:ident),+ ; $midcat:ident : $supsupcat:ident { $($entry:ident),+ $(,)* } ) => {
+ synonymous_enum!($subcat : $( $supcat ),+ , $midcat { $($entry,)* });
+ $( impl Into<$supsupcat> for $entry {
+ fn into(self) -> $supsupcat {
+ $supsupcat::$midcat($midcat::$subcat($subcat::$entry(self)))
}
- } )*
+ } )+
+ };
+ ( $subcat:ident : $($supcat:ident),+ { $($entry:ident),+ $(,)* } ) => {
+ synonymous_enum!($subcat { $( $entry, )* });
+ cartesian!(impl_into, [ $( ($subcat::$entry) ),+ ], [ $($supcat),+ ]);
};
- ( $name:ident { $( $entry:ident ),* $(,)* } ) => {
+ ( $name:ident { $( $entry:ident ),+ $(,)* } ) => {
#[derive(Serialize)]
pub enum $name {
$( $entry($entry), )*
@@ -61,8 +70,7 @@ macro_rules! synonymous_enum {
synonymous_enum!(StructuralSubElement { Title, Subtitle, Decoration, Docinfo, SubStructure });
synonymous_enum!(SubStructure: StructuralSubElement { Topic, Sidebar, Transition, Section, BodyElement });
-//TODO: also implement into: SubTopic, SubSidebar, SubBlockQuote, SubFootnote, SubFigure
-synonymous_enum!(BodyElement: SubStructure + StructuralSubElement {
+synonymous_enum!(BodyElement: SubTopic, SubSidebar, SubBlockQuote, SubFootnote, SubFigure; SubStructure: StructuralSubElement {
//Simple
Paragraph, LiteralBlock, DoctestBlock, MathBlock, Rubric, SubstitutionDefinition, Comment, Pending, Target, Raw, Image,
//Compound
@@ -95,7 +103,7 @@ synonymous_enum!(SubOption { OptionString, OptionArgument });
synonymous_enum!(SubLineBlock { LineBlock, Line });
synonymous_enum!(SubBlockQuote { Attribution, BodyElement });
synonymous_enum!(SubFootnote { Label, BodyElement });
-synonymous_enum!(SubFigure { Image, Caption, Legend, BodyElement });
+synonymous_enum!(SubFigure { Caption, Legend, BodyElement });
#[cfg(test)]
mod test {
diff --git a/src/document_tree/macro_util.rs b/src/document_tree/macro_util.rs
new file mode 100644
index 0000000..84e1b29
--- /dev/null
+++ b/src/document_tree/macro_util.rs
@@ -0,0 +1,42 @@
+macro_rules! cartesian_impl {
+ ($out:tt [] $b:tt $init_b:tt $submacro:tt) => {
+ $submacro!{$out}
+ };
+ ($out:tt [$a:tt, $($at:tt)*] [] $init_b:tt $submacro:tt) => {
+ cartesian_impl!{$out [$($at)*] $init_b $init_b $submacro}
+ };
+ ([$($out:tt)*] [$a:tt, $($at:tt)*] [$b:tt, $($bt:tt)*] $init_b:tt $submacro:tt) => {
+ cartesian_impl!{[$($out)* ($a, $b),] [$a, $($at)*] [$($bt)*] $init_b $submacro}
+ };
+}
+
+macro_rules! cartesian {
+ ( $submacro:tt, [$($a:tt)*], [$($b:tt)*]) => {
+ cartesian_impl!{[] [$($a)*,] [$($b)*,] [$($b)*,] $submacro}
+ };
+}
+
+
+#[cfg(test)]
+mod test {
+ macro_rules! print_cartesian {
+ ( [ $(($a1:tt, $a2:tt)),* , ] ) => {
+ fn test_f(x:i64, y:i64) -> Result<(i64, i64), ()> {
+ match (x, y) {
+ $(
+ ($a1, $a2) => { Ok(($a1, $a2)) }
+ )*
+ _ => { Err(()) }
+ }
+ }
+ };
+ }
+
+ #[test]
+ fn test_print_cartesian() {
+ cartesian!(print_cartesian, [1, 2, 3], [4, 5, 6]);
+ assert_eq!(test_f(1, 4), Ok((1, 4)));
+ assert_eq!(test_f(1, 3), Err(()));
+ assert_eq!(test_f(3, 5), Ok((3, 5)));
+ }
+}