};

    // Take out any of the separating '_' characters

    buffer.clear();

    for char_idx in input_offset..integer_text.len() {

        let char = integer_text[char_idx];

        if char == b'_' {

            continue;

        }

        if !((char >= b'0' && char <= b'9') || (char >= b'A' && char <= b'F') || (char >= b'a' || char <= b'f')) {

            return Err(ParseError::new_error_at_span(

                source, integer_span,

                format!("incorrectly formatted {} number", radix_name)

            ));

        }

        buffer.push(char::from(char));

    }

    // Use the cleaned up string to convert to integer

    match u64::from_str_radix(&buffer, radix) {

        Ok(number) => Ok((number, integer_span)),

        Err(_) => Err(ParseError::new_error_at_span(

            source, integer_span,

            format!("incorrectly formatted {} number", radix_name)

        )),

    }

}

/// Consumes a character literal. We currently support a limited number of

/// backslash-escaped characters

pub(crate) fn consume_character_literal(

    source: &InputSource, iter: &mut TokenIter

) -> Result<(char, InputSpan), ParseError> {

    if Some(TokenKind::Character) != iter.next() {

        return Err(ParseError::new_error_str_at_pos(source, iter.last_valid_pos(), "expected a character literal"));

    }

    let span = iter.next_span();

    iter.consume();

    let char_text = source.section_at_span(span);

    if !char_text.is_ascii() {

        return Err(ParseError::new_error_str_at_span(

            source, span, "expected an ASCII character literal"

        ));

    }

    match char_text.len() {

        0 => return Err(ParseError::new_error_str_at_span(source, span, "too little characters in character literal")),

        1 => {

            // We already know the text is ascii, so just throw an error if we have the escape

            // character.

            if char_text[0] == b'\\' {

                return Err(ParseError::new_error_str_at_span(source, span, "escape character without subsequent character"));

            }

            return Ok((char_text[0] as char, span));

        },

        2 => {

            if char_text[0] == b'\\' {

                let result = parse_escaped_character(source, span, char_text[1])?;

                return Ok((result, span))

            }

        },

        _ => {}

    }

    return Err(ParseError::new_error_str_at_span(source, span, "too many characters in character literal"))

}

/// Consumes a string literal. We currently support a limited number of

/// backslash-escaped characters. Note that the result is stored in the

/// buffer.

pub(crate) fn consume_string_literal(

    source: &InputSource, iter: &mut TokenIter, buffer: &mut String

) -> Result<InputSpan, ParseError> {

    if Some(TokenKind::String) != iter.next() {

        return Err(ParseError::new_error_str_at_pos(source, iter.last_valid_pos(), "expected a string literal"));

    }

    buffer.clear();

    let span = iter.next_span();

    iter.consume();

    let text = source.section_at_span(span);

    if !text.is_ascii() {

        return Err(ParseError::new_error_str_at_span(source, span, "expected an ASCII string literal"));

    }

    debug_assert_eq!(text[0], b'"'); // here as kind of a reminder: the span includes the bounding quotation marks

    debug_assert_eq!(text[text.len() - 1], b'"');

    buffer.reserve(text.len() - 2);

    let mut was_escape = false;

    for idx in 1..text.len() - 1 {

        let cur = text[idx];

        if was_escape {

            let to_push = parse_escaped_character(source, span, cur)?;

            buffer.push(to_push);

        } else {

            buffer.push(cur as char);

        }

            was_escape = false;

        } else {

        }

    }

    debug_assert!(!was_escape); // because otherwise we couldn't have ended the string literal

    Ok(span)

}

fn parse_escaped_character(source: &InputSource, literal_span: InputSpan, v: u8) -> Result<char, ParseError> {

    let result = match v {

        b'r' => '\r',

        b'n' => '\n',

        b't' => '\t',

        b'0' => '\0',

        b'\\' => '\\',

        b'\'' => '\'',

        b'"' => '"',

        v => {

            let msg = if v.is_ascii_graphic() {

                format!("unsupported escape character '{}'", v as char)

            } else {

                format!("unsupported escape character with (unsigned) byte value {}", v)

            };

            return Err(ParseError::new_error_at_span(source, literal_span, msg))

        },

    };

    Ok(result)

}

pub(crate) fn consume_pragma<'a>(source: &'a InputSource, iter: &mut TokenIter) -> Result<(&'a [u8], InputPosition, InputPosition), ParseError> {

    if Some(TokenKind::Pragma) != iter.next() {

        return Err(ParseError::new_error_str_at_pos(source, iter.last_valid_pos(), "expected a pragma"));

    }

    let (pragma_start, pragma_end) = iter.next_positions();

    iter.consume();

    Ok((source.section_at_pos(pragma_start, pragma_end), pragma_start, pragma_end))

}

pub(crate) fn has_ident(source: &InputSource, iter: &mut TokenIter, expected: &[u8]) -> bool {

    peek_ident(source, iter).map_or(false, |section| section == expected)

}

pub(crate) fn peek_ident<'a>(source: &'a InputSource, iter: &mut TokenIter) -> Option<&'a [u8]> {

    if Some(TokenKind::Ident) == iter.next() {

        let (start, end) = iter.next_positions();

        return Some(source.section_at_pos(start, end))

    }

    None

}

/// Consumes any identifier and returns it together with its span. Does not

/// check if the identifier is a reserved keyword.

pub(crate) fn consume_any_ident<'a>(

    source: &'a InputSource, iter: &mut TokenIter

) -> Result<(&'a [u8], InputSpan), ParseError> {

    if Some(TokenKind::Ident) != iter.next() {

        return Err(ParseError::new_error_str_at_pos(source, iter.last_valid_pos(), "expected an identifier"));

    }

    let (ident_start, ident_end) = iter.next_positions();

    iter.consume();

    Ok((source.section_at_pos(ident_start, ident_end), InputSpan::from_positions(ident_start, ident_end)))

}

/// Consumes a specific identifier. May or may not be a reserved keyword.

pub(crate) fn consume_exact_ident(source: &InputSource, iter: &mut TokenIter, expected: &[u8]) -> Result<InputSpan, ParseError> {

    let (ident, pos) = consume_any_ident(source, iter)?;

    if ident != expected {

        debug_assert!(expected.is_ascii());

        return Err(ParseError::new_error_at_pos(

            source, iter.last_valid_pos(),

            format!("expected the text '{}'", &String::from_utf8_lossy(expected))

        ));

    }

    Ok(pos)

}

/// Consumes an identifier that is not a reserved keyword and returns it

/// together with its span.

pub(crate) fn consume_ident<'a>(

    source: &'a InputSource, iter: &mut TokenIter

) -> Result<(&'a [u8], InputSpan), ParseError> {

    let (ident, span) = consume_any_ident(source, iter)?;

    if is_reserved_keyword(ident) {

        return Err(ParseError::new_error_str_at_span(source, span, "encountered reserved keyword"));

    }

    Ok((ident, span))

}

/// Consumes an identifier and immediately intern it into the `StringPool`

pub(crate) fn consume_ident_interned(

    source: &InputSource, iter: &mut TokenIter, ctx: &mut PassCtx

) -> Result<Identifier, ParseError> {

    let (value, span) = consume_ident(source, iter)?;

    let value = ctx.pool.intern(value);