diff --git a/compiler/cl-parser/src/parser.rs b/compiler/cl-parser/src/parser.rs index 452cf3b..eb627f8 100644 --- a/compiler/cl-parser/src/parser.rs +++ b/compiler/cl-parser/src/parser.rs @@ -36,7 +36,7 @@ impl<'t> Parser<'t> { } /// Constructs an [Error] - fn error(&self, reason: ErrorKind, while_parsing: Parsing) -> Error { + pub fn error(&self, reason: ErrorKind, while_parsing: Parsing) -> Error { Error { reason, while_parsing, loc: self.loc } } @@ -191,6 +191,7 @@ macro path_like() { } pub trait Parse<'t>: Sized { + /// Parses a Self from the provided [Parser] fn parse(p: &mut Parser<'t>) -> PResult; } @@ -881,7 +882,7 @@ impl Parse<'_> for StmtKind { impl Parse<'_> for Expr { /// Parses an [Expr] /// - /// See also: [Parser::exprkind] + /// See also: [ExprKind::parse] fn parse(p: &mut Parser) -> PResult { let start = p.loc(); Ok(Expr { kind: ExprKind::parse(p)?, extents: Span(start, p.loc()) }) @@ -892,242 +893,396 @@ impl Parse<'_> for ExprKind { /// Parses an [ExprKind] at the lowest precedence level // Implementer's note: Do not call this from within [Parser::exprkind] fn parse(p: &mut Parser<'_>) -> PResult { - exprkind(p, 0) + prec::exprkind(p, 0) } } -/// Parses an [ExprKind] -/// -/// See also: [Expr::parse] -// Implementer's note: [ExprKind::parse] is the public API for parsing ExprKinds. -// Do not call it from within this function. -fn exprkind(p: &mut Parser, power: u8) -> PResult { - let parsing = Parsing::ExprKind; +mod prec { + //! Parses an [ExprKind] using a modified pratt parser + //! + //! See also: [Expr::parse], [ExprKind::parse] + //! + //! Implementer's note: [ExprKind::parse] is the public API for parsing [ExprKind]s. + //! Do not call it from within this function. - // Prefix expressions - let mut head = match p.peek_kind(Parsing::Unary)? { - literal_like!() => Literal::parse(p)?.into(), - path_like!() => exprkind_pathlike(p)?, - TokenKind::Amp | TokenKind::AmpAmp => AddrOf::parse(p)?.into(), - TokenKind::LCurly => Block::parse(p)?.into(), - TokenKind::LBrack => exprkind_arraylike(p)?, - TokenKind::LParen => exprkind_tuplelike(p)?, - TokenKind::Let => Let::parse(p)?.into(), - TokenKind::While => ExprKind::While(While::parse(p)?), - TokenKind::If => ExprKind::If(If::parse(p)?), - TokenKind::For => ExprKind::For(For::parse(p)?), - TokenKind::Break => ExprKind::Break(Break::parse(p)?), - TokenKind::Return => ExprKind::Return(Return::parse(p)?), - TokenKind::Continue => { - p.consume_peeked(); - ExprKind::Continue + use super::{Parse, *}; + + /// Parses an [ExprKind] + pub fn exprkind(p: &mut Parser, power: u8) -> PResult { + let parsing = Parsing::ExprKind; + + // Prefix expressions + let mut head = match p.peek_kind(Parsing::Unary)? { + literal_like!() => Literal::parse(p)?.into(), + path_like!() => exprkind_pathlike(p)?, + TokenKind::Amp | TokenKind::AmpAmp => AddrOf::parse(p)?.into(), + TokenKind::LCurly => Block::parse(p)?.into(), + TokenKind::LBrack => exprkind_arraylike(p)?, + TokenKind::LParen => exprkind_tuplelike(p)?, + TokenKind::Let => Let::parse(p)?.into(), + TokenKind::While => ExprKind::While(While::parse(p)?), + TokenKind::If => ExprKind::If(If::parse(p)?), + TokenKind::For => ExprKind::For(For::parse(p)?), + TokenKind::Break => ExprKind::Break(Break::parse(p)?), + TokenKind::Return => ExprKind::Return(Return::parse(p)?), + TokenKind::Continue => { + p.consume_peeked(); + ExprKind::Continue + } + + op => { + let (kind, prec) = + from_prefix(op).ok_or_else(|| p.error(Unexpected(op), parsing))?; + let ((), after) = prec.prefix().expect("should have a precedence"); + p.consume_peeked(); + Unary { kind, tail: exprkind(p, after)?.into() }.into() + } + }; + + fn from_postfix(op: TokenKind) -> Option { + Some(match op { + TokenKind::LBrack => Precedence::Index, + TokenKind::LParen => Precedence::Call, + TokenKind::Dot => Precedence::Member, + _ => None?, + }) } - op => { - let (kind, prec) = from_prefix(op).ok_or_else(|| p.error(Unexpected(op), parsing))?; - let ((), after) = prec.prefix().expect("should have a precedence"); - p.consume_peeked(); - Unary { kind, tail: exprkind(p, after)?.into() }.into() - } - }; + while let Ok(op) = p.peek_kind(parsing) { + // Postfix expressions + if let Some((before, ())) = from_postfix(op).and_then(Precedence::postfix) { + if before < power { + break; + } + p.consume_peeked(); - fn from_postfix(op: TokenKind) -> Option { - Some(match op { - TokenKind::LBrack => Precedence::Index, - TokenKind::LParen => Precedence::Call, - TokenKind::Dot => Precedence::Member, - _ => None?, + head = match op { + TokenKind::LBrack => { + let indices = + sep(Expr::parse, TokenKind::Comma, TokenKind::RBrack, parsing)(p)?; + p.match_type(TokenKind::RBrack, parsing)?; + ExprKind::Index(Index { head: head.into(), indices }) + } + TokenKind::LParen => { + let exprs = + sep(Expr::parse, TokenKind::Comma, TokenKind::RParen, parsing)(p)?; + p.match_type(TokenKind::RParen, parsing)?; + Binary { + kind: BinaryKind::Call, + parts: (head, Tuple { exprs }.into()).into(), + } + .into() + } + TokenKind::Dot => { + let kind = MemberKind::parse(p)?; + Member { head: Box::new(head), kind }.into() + } + _ => Err(p.error(Unexpected(op), parsing))?, + }; + continue; + } + // infix expressions + if let Some((kind, prec)) = from_infix(op) { + let (before, after) = prec.infix().expect("should have a precedence"); + if before < power { + break; + } + p.consume_peeked(); + + let tail = exprkind(p, after)?; + head = Binary { kind, parts: (head, tail).into() }.into(); + continue; + } + + if let Some((kind, prec)) = from_modify(op) { + let (before, after) = prec.infix().expect("should have a precedence"); + if before < power { + break; + } + p.consume_peeked(); + + let tail = exprkind(p, after)?; + head = Modify { kind, parts: (head, tail).into() }.into(); + continue; + } + + if let TokenKind::Eq = op { + let (before, after) = Precedence::Assign + .infix() + .expect("should have a precedence"); + if before < power { + break; + } + p.consume_peeked(); + + let tail = exprkind(p, after)?; + head = Assign { parts: (head, tail).into() }.into(); + continue; + } + + if let TokenKind::As = op { + let before = Precedence::Cast.level(); + if before < power { + break; + } + p.consume_peeked(); + + let ty = Ty::parse(p)?; + head = Cast { head: head.into(), ty }.into(); + continue; + } + + break; + } + + Ok(head) + } + + /// [Array] = '[' ([Expr] ',')* [Expr]? ']' + /// + /// Array and ArrayRef are ambiguous until the second token, + /// so they can't be independent subexpressions + fn exprkind_arraylike(p: &mut Parser) -> PResult { + const P: Parsing = Parsing::Array; + const START: TokenKind = TokenKind::LBrack; + const END: TokenKind = TokenKind::RBrack; + + p.match_type(START, P)?; + let out = match p.peek_kind(P)? { + END => Array { values: vec![] }.into(), + _ => exprkind_array_rep(p)?, + }; + p.match_type(END, P)?; + Ok(out) + } + + /// [ArrayRep] = `[` [Expr] `;` [Expr] `]` + fn exprkind_array_rep(p: &mut Parser) -> PResult { + const P: Parsing = Parsing::Array; + const END: TokenKind = TokenKind::RBrack; + + let first = Expr::parse(p)?; + Ok(match p.peek_kind(P)? { + TokenKind::Semi => ArrayRep { + value: first.kind.into(), + repeat: { + p.consume_peeked(); + Box::new(exprkind(p, 0)?) + }, + } + .into(), + TokenKind::RBrack => Array { values: vec![first] }.into(), + TokenKind::Comma => Array { + values: { + p.consume_peeked(); + let mut out = vec![first]; + out.extend(sep(Expr::parse, TokenKind::Comma, END, P)(p)?); + out + }, + } + .into(), + ty => Err(p.error(Unexpected(ty), P))?, }) } - while let Ok(op) = p.peek_kind(parsing) { - // Postfix expressions - if let Some((before, ())) = from_postfix(op).and_then(Precedence::postfix) { - if before < power { - break; - } - p.consume_peeked(); - - head = match op { - TokenKind::LBrack => { - let indices = - sep(Expr::parse, TokenKind::Comma, TokenKind::RBrack, parsing)(p)?; - p.match_type(TokenKind::RBrack, parsing)?; - ExprKind::Index(Index { head: head.into(), indices }) - } - TokenKind::LParen => { - let exprs = sep(Expr::parse, TokenKind::Comma, TokenKind::RParen, parsing)(p)?; - p.match_type(TokenKind::RParen, parsing)?; - Binary { kind: BinaryKind::Call, parts: (head, Tuple { exprs }.into()).into() } - .into() - } - TokenKind::Dot => { - let kind = MemberKind::parse(p)?; - Member { head: Box::new(head), kind }.into() - } - _ => Err(p.error(Unexpected(op), parsing))?, - }; - continue; - } - // infix expressions - if let Some((kind, prec)) = from_infix(op) { - let (before, after) = prec.infix().expect("should have a precedence"); - if before < power { - break; - } - p.consume_peeked(); - - let tail = exprkind(p, after)?; - head = Binary { kind, parts: (head, tail).into() }.into(); - continue; - } - - if let Some((kind, prec)) = from_modify(op) { - let (before, after) = prec.infix().expect("should have a precedence"); - if before < power { - break; - } - p.consume_peeked(); - - let tail = exprkind(p, after)?; - head = Modify { kind, parts: (head, tail).into() }.into(); - continue; - } - - if let TokenKind::Eq = op { - let (before, after) = Precedence::Assign - .infix() - .expect("should have a precedence"); - if before < power { - break; - } - p.consume_peeked(); - - let tail = exprkind(p, after)?; - head = Assign { parts: (head, tail).into() }.into(); - continue; - } - - if let TokenKind::As = op { - let before = Precedence::Cast.level(); - if before < power { - break; - } - p.consume_peeked(); - let ty = Ty::parse(p)?; - head = Cast { head: head.into(), ty }.into(); - continue; - } - - break; + /// [Group] = `(`([Empty](ExprKind::Empty)|[Expr]|[Tuple])`)` + /// + /// [ExprKind::Empty] and [Group] are special cases of [Tuple] + fn exprkind_tuplelike(p: &mut Parser) -> PResult { + p.match_type(TokenKind::LParen, Parsing::Group)?; + let out = match p.peek_kind(Parsing::Group)? { + TokenKind::RParen => Ok(ExprKind::Empty), + _ => exprkind_group(p), + }; + p.match_type(TokenKind::RParen, Parsing::Group)?; + out } - Ok(head) -} - -/// [Array] = '[' ([Expr] ',')* [Expr]? ']' -/// -/// Array and ArrayRef are ambiguous until the second token, -/// so they can't be independent subexpressions -fn exprkind_arraylike(p: &mut Parser) -> PResult { - const P: Parsing = Parsing::Array; - const START: TokenKind = TokenKind::LBrack; - const END: TokenKind = TokenKind::RBrack; - - p.match_type(START, P)?; - let out = match p.peek_kind(P)? { - END => Array { values: vec![] }.into(), - _ => exprkind_array_rep(p)?, - }; - p.match_type(END, P)?; - Ok(out) -} - -/// [ArrayRep] = `[` [Expr] `;` [Expr] `]` -fn exprkind_array_rep(p: &mut Parser) -> PResult { - const P: Parsing = Parsing::Array; - const END: TokenKind = TokenKind::RBrack; - - let first = Expr::parse(p)?; - Ok(match p.peek_kind(P)? { - TokenKind::Semi => ArrayRep { - value: first.kind.into(), - repeat: { + /// [Group] = `(`([Empty](ExprKind::Empty)|[Expr]|[Tuple])`)` + fn exprkind_group(p: &mut Parser) -> PResult { + let first = Expr::parse(p)?; + match p.peek_kind(Parsing::Group)? { + TokenKind::Comma => { + let mut exprs = vec![first]; p.consume_peeked(); - Box::new(exprkind(p, 0)?) - }, - } - .into(), - TokenKind::RBrack => Array { values: vec![first] }.into(), - TokenKind::Comma => Array { - values: { - p.consume_peeked(); - let mut out = vec![first]; - out.extend(sep(Expr::parse, TokenKind::Comma, END, P)(p)?); - out - }, - } - .into(), - ty => Err(p.error(Unexpected(ty), P))?, - }) -} - -/// [Group] = `(`([Empty](ExprKind::Empty)|[Expr]|[Tuple])`)` -/// -/// [ExprKind::Empty] and [Group] are special cases of [Tuple] -fn exprkind_tuplelike(p: &mut Parser) -> PResult { - p.match_type(TokenKind::LParen, Parsing::Group)?; - let out = match p.peek_kind(Parsing::Group)? { - TokenKind::RParen => Ok(ExprKind::Empty), - _ => exprkind_group(p), - }; - p.match_type(TokenKind::RParen, Parsing::Group)?; - out -} - -/// [Group] = `(`([Empty](ExprKind::Empty)|[Expr]|[Tuple])`)` -fn exprkind_group(p: &mut Parser) -> PResult { - let first = Expr::parse(p)?; - match p.peek_kind(Parsing::Group)? { - TokenKind::Comma => { - let mut exprs = vec![first]; - p.consume_peeked(); - while TokenKind::RParen != p.peek_kind(Parsing::Tuple)? { - exprs.push(Expr::parse(p)?); - match p.peek_kind(Parsing::Tuple)? { - TokenKind::Comma => p.consume_peeked(), - _ => break, - }; + while TokenKind::RParen != p.peek_kind(Parsing::Tuple)? { + exprs.push(Expr::parse(p)?); + match p.peek_kind(Parsing::Tuple)? { + TokenKind::Comma => p.consume_peeked(), + _ => break, + }; + } + Ok(Tuple { exprs }.into()) } - Ok(Tuple { exprs }.into()) + _ => Ok(Group { expr: first.kind.into() }.into()), } - _ => Ok(Group { expr: first.kind.into() }.into()), } -} -/// Parses an expression beginning with a [Path] (i.e. [Path] or [Structor]) -fn exprkind_pathlike(p: &mut Parser) -> PResult { - let head = Path::parse(p)?; - Ok(match p.match_type(TokenKind::Colon, Parsing::Path) { - Ok(_) => ExprKind::Structor(structor_body(p, head)?), - Err(_) => ExprKind::Path(head), - }) -} + /// Parses an expression beginning with a [Path] (i.e. [Path] or [Structor]) + fn exprkind_pathlike(p: &mut Parser) -> PResult { + let head = Path::parse(p)?; + Ok(match p.match_type(TokenKind::Colon, Parsing::Path) { + Ok(_) => ExprKind::Structor(structor_body(p, head)?), + Err(_) => ExprKind::Path(head), + }) + } -/// [Structor]Body = `{` ([Fielder] `,`)* [Fielder]? `}` -fn structor_body(p: &mut Parser, to: Path) -> PResult { - let init = delim( - sep( - Fielder::parse, - TokenKind::Comma, - CURLIES.1, + /// [Structor]Body = `{` ([Fielder] `,`)* [Fielder]? `}` + fn structor_body(p: &mut Parser, to: Path) -> PResult { + let init = delim( + sep( + Fielder::parse, + TokenKind::Comma, + CURLIES.1, + Parsing::Structor, + ), + CURLIES, Parsing::Structor, - ), - CURLIES, - Parsing::Structor, - )(p)?; + )(p)?; - Ok(Structor { to, init }) + Ok(Structor { to, init }) + } + + /// Precedence provides a total ordering among operators + #[derive(Clone, Copy, Debug, PartialEq, Eq, Hash)] + pub enum Precedence { + Assign, + Compare, + Range, + Logic, + Bitwise, + Shift, + Factor, + Term, + Unary, + Index, + Cast, + Member, // left-associative + Call, + } + + impl Precedence { + #[inline] + pub const fn level(self) -> u8 { + (self as u8) << 1 + } + + pub fn prefix(self) -> Option<((), u8)> { + match self { + Self::Assign => Some(((), self.level())), + Self::Unary => Some(((), self.level())), + _ => None, + } + } + + pub fn infix(self) -> Option<(u8, u8)> { + let level = self.level(); + match self { + Self::Unary => None, + Self::Assign => Some((level + 1, level)), + _ => Some((level, level + 1)), + } + } + + pub fn postfix(self) -> Option<(u8, ())> { + match self { + Self::Index | Self::Call | Self::Member => Some((self.level(), ())), + _ => None, + } + } + } + + impl From for Precedence { + fn from(_value: ModifyKind) -> Self { + Precedence::Assign + } + } + + impl From for Precedence { + fn from(value: BinaryKind) -> Self { + use BinaryKind as Op; + match value { + Op::Call => Precedence::Call, + Op::Mul | Op::Div | Op::Rem => Precedence::Term, + Op::Add | Op::Sub => Precedence::Factor, + Op::Shl | Op::Shr => Precedence::Shift, + Op::BitAnd | Op::BitOr | Op::BitXor => Precedence::Bitwise, + Op::LogAnd | Op::LogOr | Op::LogXor => Precedence::Logic, + Op::RangeExc | Op::RangeInc => Precedence::Range, + Op::Lt | Op::LtEq | Op::Equal | Op::NotEq | Op::GtEq | Op::Gt => { + Precedence::Compare + } + } + } + } + + impl From for Precedence { + fn from(value: UnaryKind) -> Self { + use UnaryKind as Op; + match value { + Op::Loop => Precedence::Assign, + Op::Deref | Op::Neg | Op::Not | Op::At | Op::Tilde => Precedence::Unary, + } + } + } + + /// Creates helper functions for turning TokenKinds into AST operators + macro operator($($name:ident ($takes:ident => $returns:ident) {$($t:ident => $p:ident),*$(,)?};)*) {$( + pub fn $name (value: $takes) -> Option<($returns, Precedence)> { + match value { + $($takes::$t => Some(($returns::$p, Precedence::from($returns::$p))),)* + _ => None?, + } + })* + } + + operator! { + from_prefix (TokenKind => UnaryKind) { + Loop => Loop, + Star => Deref, + Minus => Neg, + Bang => Not, + At => At, + Tilde => Tilde, + }; + + from_modify(TokenKind => ModifyKind) { + AmpEq => And, + BarEq => Or, + XorEq => Xor, + LtLtEq => Shl, + GtGtEq => Shr, + PlusEq => Add, + MinusEq => Sub, + StarEq => Mul, + SlashEq => Div, + RemEq => Rem, + }; + + from_infix (TokenKind => BinaryKind) { + Lt => Lt, + LtEq => LtEq, + EqEq => Equal, + BangEq => NotEq, + GtEq => GtEq, + Gt => Gt, + DotDot => RangeExc, + DotDotEq => RangeInc, + AmpAmp => LogAnd, + BarBar => LogOr, + XorXor => LogXor, + Amp => BitAnd, + Bar => BitOr, + Xor => BitXor, + LtLt => Shl, + GtGt => Shr, + Plus => Add, + Minus => Sub, + Star => Mul, + Slash => Div, + Rem => Rem, + }; + } } impl Parse<'_> for Let { @@ -1297,142 +1452,3 @@ fn ret_body(p: &mut Parser, while_parsing: Parsing) -> PResult> _ => Some(Expr::parse(p)?.into()), }) } - -/// Precedence provides a total ordering among operators -#[derive(Clone, Copy, Debug, PartialEq, Eq, Hash)] -pub enum Precedence { - Assign, - Compare, - Range, - Logic, - Bitwise, - Shift, - Factor, - Term, - Unary, - Index, - Cast, - Member, // left-associative - Call, -} - -impl Precedence { - #[inline] - pub const fn level(self) -> u8 { - (self as u8) << 1 - } - - pub fn prefix(self) -> Option<((), u8)> { - match self { - Self::Assign => Some(((), self.level())), - Self::Unary => Some(((), self.level())), - _ => None, - } - } - - pub fn infix(self) -> Option<(u8, u8)> { - let level = self.level(); - match self { - Self::Unary => None, - Self::Assign => Some((level + 1, level)), - _ => Some((level, level + 1)), - } - } - - pub fn postfix(self) -> Option<(u8, ())> { - match self { - Self::Index | Self::Call | Self::Member => Some((self.level(), ())), - _ => None, - } - } -} - -impl From for Precedence { - fn from(_value: ModifyKind) -> Self { - Precedence::Assign - } -} - -impl From for Precedence { - fn from(value: BinaryKind) -> Self { - use BinaryKind as Op; - match value { - Op::Call => Precedence::Call, - Op::Mul | Op::Div | Op::Rem => Precedence::Term, - Op::Add | Op::Sub => Precedence::Factor, - Op::Shl | Op::Shr => Precedence::Shift, - Op::BitAnd | Op::BitOr | Op::BitXor => Precedence::Bitwise, - Op::LogAnd | Op::LogOr | Op::LogXor => Precedence::Logic, - Op::RangeExc | Op::RangeInc => Precedence::Range, - Op::Lt | Op::LtEq | Op::Equal | Op::NotEq | Op::GtEq | Op::Gt => Precedence::Compare, - } - } -} - -impl From for Precedence { - fn from(value: UnaryKind) -> Self { - use UnaryKind as Op; - match value { - Op::Loop => Precedence::Assign, - Op::Deref | Op::Neg | Op::Not | Op::At | Op::Tilde => Precedence::Unary, - } - } -} - -/// Creates helper functions for turning TokenKinds into AST operators -macro operator($($name:ident ($takes:ident => $returns:ident) {$($t:ident => $p:ident),*$(,)?};)*) {$( - pub fn $name (value: $takes) -> Option<($returns, Precedence)> { - match value { - $($takes::$t => Some(($returns::$p, Precedence::from($returns::$p))),)* - _ => None?, - } - })* -} - -operator! { - from_prefix (TokenKind => UnaryKind) { - Loop => Loop, - Star => Deref, - Minus => Neg, - Bang => Not, - At => At, - Tilde => Tilde, - }; - - from_modify(TokenKind => ModifyKind) { - AmpEq => And, - BarEq => Or, - XorEq => Xor, - LtLtEq => Shl, - GtGtEq => Shr, - PlusEq => Add, - MinusEq => Sub, - StarEq => Mul, - SlashEq => Div, - RemEq => Rem, - }; - - from_infix (TokenKind => BinaryKind) { - Lt => Lt, - LtEq => LtEq, - EqEq => Equal, - BangEq => NotEq, - GtEq => GtEq, - Gt => Gt, - DotDot => RangeExc, - DotDotEq => RangeInc, - AmpAmp => LogAnd, - BarBar => LogOr, - XorXor => LogXor, - Amp => BitAnd, - Bar => BitOr, - Xor => BitXor, - LtLt => Shl, - GtGt => Shr, - Plus => Add, - Minus => Sub, - Star => Mul, - Slash => Div, - Rem => Rem, - }; -}