retoor/orchid
1
0
Fork 0
forked from Orchid/orchid
Code Pull Requests 1 Activity

Interning Orchid string literals

Browse Source
This commit is contained in:
Lawrence Bethlenfalvy
2023-08-19 14:35:24 +01:00
parent 0b887ced70
commit 6693d93944
10 changed files with 96 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/parse/lexer.rs
View File

@@ -185,12 +185,12 @@ fn paren_parser(lp: char, rp: char) -> impl SimpleParser<char, Lexeme> {
just(lp).to(Lexeme::LP(lp)).or(just(rp).to(Lexeme::RP(lp)))
}
pub fn literal_parser() -> impl SimpleParser<char, Literal> {
pub fn literal_parser<'a>(ctx: impl Context + 'a) -> impl SimpleParser<char, Literal> + 'a {
choice((
// all ints are valid floats so it takes precedence
number::int_parser().map(Literal::Uint),
number::float_parser().map(Literal::Num),
string::str_parser().map(Literal::Str),
string::str_parser().map(move |s| Literal::Str(ctx.interner().i(&s).into())),
))
}
@@ -229,7 +229,7 @@ pub fn lexer<'a>(
just(':').to(Lexeme::Type),
just('\n').to(Lexeme::BR),
just('.').to(Lexeme::Dot),
literal_parser().map(Lexeme::Literal),
literal_parser(ctx.clone()).map(Lexeme::Literal),
name::name_parser(&all_ops).map({
let ctx = ctx.clone();
move |n| Lexeme::Name(ctx.interner().i(&n))