aiken-lang 1.1.23

Cardano smart contract language and toolchain
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

use chumsky::prelude::*;

use super::Chain;
use crate::parser::{ParseError, token::Token};

pub(crate) fn parser() -> impl Parser<Token, Chain, Error = ParseError> {
    just(Token::Dot)
        .ignore_then(select! {
            Token::Ordinal { index } => index,
        })
        .validate(|index, span, emit| {
            if index < 1 {
                emit(ParseError::invalid_tuple_index(
                    span,
                    index.to_string(),
                    None,
                ));
                Chain::TupleIndex(0, span)
            } else {
                Chain::TupleIndex(index as usize - 1, span)
            }
        })
}