waalge/aiken
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add all but data parsing

Browse Source 
Updates the parsing to the standard, *except* for Data, since that'll be more involved
This commit is contained in:
Pi Lanningham
2023-07-04 01:26:03 -04:00
committed by Lucas
parent a48c45b737
commit 6d9a95ef2d
2 changed files with 130 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
crates/uplc/src/parser.rs
View File

@@ -158,17 +158,17 @@ peg::parser! {
= "data" _+ d:data() { Constant::Data(d) }
rule constant_list() -> Constant
= "list" _* "<" _* t:type_info() _* ">" _+ ls:list(Some(&t)) {
= "(" _* "list" _* t:type_info() _* ")" _+ ls:list(Some(&t)) {
Constant::ProtoList(t, ls)
}
rule constant_pair() -> Constant
= "pair" _* "<" _* l:type_info() _* "," r:type_info() _* ">" _+ p:pair(Some((&l, &r))) {
= "(" _* "pair" _+ l:type_info() _+ r:type_info() _* ")" _+ p:pair(Some((&l, &r))) {
Constant::ProtoPair(l, r, p.0.into(), p.1.into())
}
rule pair(type_info: Option<(&Type, &Type)>) -> (Constant, Constant)
= "[" _* x:typed_constant(type_info.map(|t| t.0)) _* "," _* y:typed_constant(type_info.map(|t| t.1)) _* "]" { (x, y) }
= "(" _* x:typed_constant(type_info.map(|t| t.0)) _* "," _* y:typed_constant(type_info.map(|t| t.1)) _* ")" { (x, y) }
rule number() -> isize
= n:$("-"* ['0'..='9']+) {? n.parse().or(Err("isize")) }
@@ -262,10 +262,10 @@ peg::parser! {
/ _* "bytestring" { Type::ByteString }
/ _* "string" { Type::String }
/ _* "data" { Type::Data }
/ _* "list" _* "<" _* t:type_info() _* ">" {
/ _* "(" _* "list" _+ t:type_info() _* ")" _* {
Type::List(t.into())
}
/ _* "pair" _* "<" l:type_info() "," r:type_info() ">" {
/ _* "(" _* "pair" _+ l:type_info() _+ r:type_info() _* ")" _* {
Type::Pair(l.into(), r.into())
}