1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103

// Copied from nom master:
// https://github.com/Geal/nom/blob/a38188f333c29d00c32a3082bec5491d2eefa33f/src/sequence.rs#L591-L687
// Will be released in nom 2.0.

#![cfg(feature = "parsing")]

#[macro_export]
macro_rules! do_parse (
  ($i:expr, $($rest:tt)*) => (
    {
      do_parse_impl!($i, 0usize, $($rest)*)
    }
  );
);

/// Internal parser, do not use directly
#[doc(hidden)]
#[macro_export]
macro_rules! do_parse_impl (

  ($i:expr, $consumed:expr, ( $($rest:expr),* )) => (
    ::nom::IResult::Done($i, ( $($rest),* ))
  );

  ($i:expr, $consumed:expr, $e:ident >> $($rest:tt)*) => (
    do_parse_impl!($i, $consumed, call!($e) >> $($rest)*);
  );
  ($i:expr, $consumed:expr, $submac:ident!( $($args:tt)* ) >> $($rest:tt)*) => (
    {
      match $submac!($i, $($args)*) {
        ::nom::IResult::Error(e)      => ::nom::IResult::Error(e),
        ::nom::IResult::Incomplete(::nom::Needed::Unknown) =>
          ::nom::IResult::Incomplete(::nom::Needed::Unknown),
        ::nom::IResult::Incomplete(::nom::Needed::Size(i)) =>
          ::nom::IResult::Incomplete(::nom::Needed::Size($consumed + i)),
        ::nom::IResult::Done(i,_)     => {
          do_parse_impl!(i,
            $consumed + (::nom::InputLength::input_len(&($i)) -
                         ::nom::InputLength::input_len(&i)), $($rest)*)
        },
      }
    }
  );

  ($i:expr, $consumed:expr, $field:ident : $e:ident >> $($rest:tt)*) => (
    do_parse_impl!($i, $consumed, $field: call!($e) >> $($rest)*);
  );

  ($i:expr, $consumed:expr, $field:ident : $submac:ident!( $($args:tt)* ) >> $($rest:tt)*) => (
    {
      match  $submac!($i, $($args)*) {
        ::nom::IResult::Error(e)      => ::nom::IResult::Error(e),
        ::nom::IResult::Incomplete(::nom::Needed::Unknown) =>
          ::nom::IResult::Incomplete(::nom::Needed::Unknown),
        ::nom::IResult::Incomplete(::nom::Needed::Size(i)) =>
          ::nom::IResult::Incomplete(::nom::Needed::Size($consumed + i)),
        ::nom::IResult::Done(i,o)     => {
          let $field = o;
          do_parse_impl!(i,
            $consumed + (::nom::InputLength::input_len(&($i)) -
                         ::nom::InputLength::input_len(&i)), $($rest)*)
        },
      }
    }
  );

  // ending the chain
  ($i:expr, $consumed:expr, $e:ident >> ( $($rest:tt)* )) => (
    do_parse_impl!($i, $consumed, call!($e) >> ( $($rest)* ));
  );

  ($i:expr, $consumed:expr, $submac:ident!( $($args:tt)* ) >> ( $($rest:tt)* )) => (
    match $submac!($i, $($args)*) {
      ::nom::IResult::Error(e)      => ::nom::IResult::Error(e),
      ::nom::IResult::Incomplete(::nom::Needed::Unknown) =>
        ::nom::IResult::Incomplete(::nom::Needed::Unknown),
      ::nom::IResult::Incomplete(::nom::Needed::Size(i)) =>
        ::nom::IResult::Incomplete(::nom::Needed::Size($consumed + i)),
      ::nom::IResult::Done(i,_)     => {
        ::nom::IResult::Done(i, ( $($rest)* ))
      },
    }
  );

  ($i:expr, $consumed:expr, $field:ident : $e:ident >> ( $($rest:tt)* )) => (
    do_parse_impl!($i, $consumed, $field: call!($e) >> ( $($rest)* ) );
  );

  ($i:expr, $consumed:expr, $field:ident : $submac:ident!( $($args:tt)* ) >> ( $($rest:tt)* )) => (
    match $submac!($i, $($args)*) {
      ::nom::IResult::Error(e)      => ::nom::IResult::Error(e),
      ::nom::IResult::Incomplete(::nom::Needed::Unknown) =>
        ::nom::IResult::Incomplete(::nom::Needed::Unknown),
      ::nom::IResult::Incomplete(::nom::Needed::Size(i)) =>
        ::nom::IResult::Incomplete(::nom::Needed::Size($consumed + i)),
      ::nom::IResult::Done(i,o)     => {
        let $field = o;
        ::nom::IResult::Done(i, ( $($rest)* ))
      },
    }
  );

);