git.delta.rocks / jrsonnet / refs/commits / fda6372e4ce3

1#![allow(clippy::redundant_closure_call)]23use peg::parser;4use std::{5	path::{Path, PathBuf},6	rc::Rc,7};8mod expr;9pub use expr::*;10pub use jrsonnet_interner::IStr;11pub use peg;1213pub struct ParserSettings {14	pub loc_data: bool,15	pub file_name: Rc<Path>,16}1718macro_rules! expr_bin {19	($a:ident $op:ident $b:ident) => {20		Expr::BinaryOp($a, $op, $b)21	};22}23macro_rules! expr_un {24	($op:ident $a:ident) => {25		Expr::UnaryOp($op, $a)26	};27}2829parser! {30	grammar jsonnet_parser() for str {31		use peg::ParseLiteral;3233		/// Standard C-like comments34		rule comment()35			= "//" (!['\n'][_])* "\n"36			/ "/*" ("\\*/" / "\\\\" / (!("*/")[_]))* "*/"37			/ "#" (!['\n'][_])* "\n"3839		rule single_whitespace() = quiet!{([' ' | '\r' | '\n' | '\t'] / comment())} / expected!("<whitespace>")40		rule _() = single_whitespace()*4142		/// For comma-delimited elements43		rule comma() = quiet!{_ "," _} / expected!("<comma>")44		rule alpha() -> char = c:$(['_' | 'a'..='z' | 'A'..='Z']) {c.chars().next().unwrap()}45		rule digit() -> char = d:$(['0'..='9']) {d.chars().next().unwrap()}46		rule end_of_ident() = !['0'..='9' | '_' | 'a'..='z' | 'A'..='Z']47		/// Sequence of digits48		rule uint_str() -> &'input str = a:$(digit()+) { a }49		/// Number in scientific notation format50		rule number() -> f64 = quiet!{a:$(uint_str() ("." uint_str())? (['e'|'E'] (s:['+'|'-'])? uint_str())?) {? a.parse().map_err(|_| "<number>") }} / expected!("<number>")5152		/// Reserved word followed by any non-alphanumberic53		rule reserved() = ("assert" / "else" / "error" / "false" / "for" / "function" / "if" / "import" / "importstr" / "in" / "local" / "null" / "tailstrict" / "then" / "self" / "super" / "true") end_of_ident()54		rule id() = quiet!{ !reserved() alpha() (alpha() / digit())*} / expected!("<identifier>")5556		rule keyword(id: &'static str) -> ()57			= ##parse_string_literal(id) end_of_ident()5859		pub rule param(s: &ParserSettings) -> expr::Param = name:$(id()) expr:(_ "=" _ expr:expr(s){expr})? { expr::Param(name.into(), expr) }60		pub rule params(s: &ParserSettings) -> expr::ParamsDesc61			= params:param(s) ** comma() comma()? {62				let mut defaults_started = false;63				for param in &params {64					defaults_started = defaults_started || param.1.is_some();65					assert_eq!(defaults_started, param.1.is_some(), "defauld parameters should be used after all positionals. Misplaced default parameter: {:?}", param.0);66				}67				expr::ParamsDesc(Rc::new(params))68			}69			/ { expr::ParamsDesc(Rc::new(Vec::new())) }7071		pub rule arg(s: &ParserSettings) -> (Option<IStr>, LocExpr)72			= quiet! { name:(s:$(id()) _ "=" _ {s})? expr:expr(s) {(name.map(Into::into), expr)} }73			/ expected!("<argument>")7475		pub rule args(s: &ParserSettings) -> expr::ArgsDesc76			= args:arg(s)**comma() comma()? {?77				let unnamed_count = args.iter().take_while(|(n, _)| n.is_none()).count();78				let mut unnamed = Vec::with_capacity(unnamed_count);79				let mut named = Vec::with_capacity(args.len() - unnamed_count);80				let mut named_started = false;81				for (name, value) in args {82					if let Some(name) = name {83						named_started = true;84						named.push((name, value));85					} else {86						if named_started {87							return Err("<named argument>")88						}89						unnamed.push(value);90					}91				}92				Ok(expr::ArgsDesc::new(unnamed, named))93			}9495		pub rule bind(s: &ParserSettings) -> expr::BindSpec96			= name:$(id()) _ "=" _ expr:expr(s) {expr::BindSpec{name:name.into(), params: None, value: expr}}97			/ name:$(id()) _ "(" _ params:params(s) _ ")" _ "=" _ expr:expr(s) {expr::BindSpec{name:name.into(), params: Some(params), value: expr}}98		pub rule assertion(s: &ParserSettings) -> expr::AssertStmt99			= keyword("assert") _ cond:expr(s) msg:(_ ":" _ e:expr(s) {e})? { expr::AssertStmt(cond, msg) }100101		pub rule whole_line() -> &'input str102			= str:$((!['\n'][_])* "\n") {str}103		pub rule string_block() -> String104			= "|||" (!['\n']single_whitespace())* "\n"105			  empty_lines:$(['\n']*)106			  prefix:[' ' | '\t']+ first_line:whole_line()107			  lines:("\n" {"\n"} / [' ' | '\t']*<{prefix.len()}> s:whole_line() {s})*108			  [' ' | '\t']*<, {prefix.len() - 1}> "|||"109			  {let mut l = empty_lines.to_owned(); l.push_str(first_line); l.extend(lines); l}110		pub rule string() -> String111			= quiet!{ "\"" str:$(("\\\"" / "\\\\" / (!['"'][_]))*) "\"" {unescape::unescape(str).unwrap()}112			/ "'" str:$(("\\'" / "\\\\" / (!['\''][_]))*) "'" {unescape::unescape(str).unwrap()}113			/ "@'" str:$(("''" / (!['\''][_]))*) "'" {str.replace("''", "'")}114			/ "@\"" str:$(("\"\"" / (!['"'][_]))*) "\"" {str.replace("\"\"", "\"")}115			/ string_block() } / expected!("<string>")116117		pub rule field_name(s: &ParserSettings) -> expr::FieldName118			= name:$(id()) {expr::FieldName::Fixed(name.into())}119			/ name:string() {expr::FieldName::Fixed(name.into())}120			/ "[" _ expr:expr(s) _ "]" {expr::FieldName::Dyn(expr)}121		pub rule visibility() -> expr::Visibility122			= ":::" {expr::Visibility::Unhide}123			/ "::" {expr::Visibility::Hidden}124			/ ":" {expr::Visibility::Normal}125		pub rule field(s: &ParserSettings) -> expr::FieldMember126			= name:field_name(s) _ plus:"+"? _ visibility:visibility() _ value:expr(s) {expr::FieldMember{127				name,128				plus: plus.is_some(),129				params: None,130				visibility,131				value,132			}}133			/ name:field_name(s) _ "(" _ params:params(s) _ ")" _ visibility:visibility() _ value:expr(s) {expr::FieldMember{134				name,135				plus: false,136				params: Some(params),137				visibility,138				value,139			}}140		pub rule obj_local(s: &ParserSettings) -> BindSpec141			= keyword("local") _ bind:bind(s) {bind}142		pub rule member(s: &ParserSettings) -> expr::Member143			= bind:obj_local(s) {expr::Member::BindStmt(bind)}144			/ assertion:assertion(s) {expr::Member::AssertStmt(assertion)}145			/ field:field(s) {expr::Member::Field(field)}146		pub rule objinside(s: &ParserSettings) -> expr::ObjBody147			= pre_locals:(b: obj_local(s) comma() {b})* "[" _ key:expr(s) _ "]" _ plus:"+"? _ ":" _ value:expr(s) post_locals:(comma() b:obj_local(s) {b})* _ forspec:forspec(s) others:(_ rest:compspec(s) {rest})? {148				let mut compspecs = vec![CompSpec::ForSpec(forspec)];149				compspecs.extend(others.unwrap_or_default());150				expr::ObjBody::ObjComp(expr::ObjComp{151					pre_locals,152					key,153					plus: plus.is_some(),154					value,155					post_locals,156					compspecs,157				})158			}159			/ members:(member(s) ** comma()) comma()? {expr::ObjBody::MemberList(members)}160		pub rule ifspec(s: &ParserSettings) -> IfSpecData161			= keyword("if") _ expr:expr(s) {IfSpecData(expr)}162		pub rule forspec(s: &ParserSettings) -> ForSpecData163			= keyword("for") _ id:$(id()) _ keyword("in") _ cond:expr(s) {ForSpecData(id.into(), cond)}164		pub rule compspec(s: &ParserSettings) -> Vec<expr::CompSpec>165			= s:(i:ifspec(s) { expr::CompSpec::IfSpec(i) } / f:forspec(s) {expr::CompSpec::ForSpec(f)} ) ** _ {s}166		pub rule local_expr(s: &ParserSettings) -> Expr167			= keyword("local") _ binds:bind(s) ** comma() _ ";" _ expr:expr(s) { Expr::LocalExpr(binds, expr) }168		pub rule string_expr(s: &ParserSettings) -> Expr169			= s:string() {Expr::Str(s.into())}170		pub rule obj_expr(s: &ParserSettings) -> Expr171			= "{" _ body:objinside(s) _ "}" {Expr::Obj(body)}172		pub rule array_expr(s: &ParserSettings) -> Expr173			= "[" _ elems:(expr(s) ** comma()) _ comma()? "]" {Expr::Arr(elems)}174		pub rule array_comp_expr(s: &ParserSettings) -> Expr175			= "[" _ expr:expr(s) _ comma()? _ forspec:forspec(s) _ others:(others: compspec(s) _ {others})? "]" {176				let mut specs = vec![CompSpec::ForSpec(forspec)];177				specs.extend(others.unwrap_or_default());178				Expr::ArrComp(expr, specs)179			}180		pub rule number_expr(s: &ParserSettings) -> Expr181			= n:number() { expr::Expr::Num(n) }182		pub rule var_expr(s: &ParserSettings) -> Expr183			= n:$(id()) { expr::Expr::Var(n.into()) }184		pub rule if_then_else_expr(s: &ParserSettings) -> Expr185			= cond:ifspec(s) _ keyword("then") _ cond_then:expr(s) cond_else:(_ keyword("else") _ e:expr(s) {e})? {Expr::IfElse{186				cond,187				cond_then,188				cond_else,189			}}190191		pub rule literal(s: &ParserSettings) -> Expr192			= v:(193				keyword("null") {LiteralType::Null}194				/ keyword("true") {LiteralType::True}195				/ keyword("false") {LiteralType::False}196				/ keyword("self") {LiteralType::This}197				/ keyword("$") {LiteralType::Dollar}198				/ keyword("super") {LiteralType::Super}199			) {Expr::Literal(v)}200201		pub rule expr_basic(s: &ParserSettings) -> Expr202			= literal(s)203204			/ quiet!{"$intrinsic(" name:$(id()) ")" {Expr::Intrinsic(name.into())}}205206			/ string_expr(s) / number_expr(s)207			/ array_expr(s)208			/ obj_expr(s)209			/ array_expr(s)210			/ array_comp_expr(s)211212			/ keyword("importstr") _ path:string() {Expr::ImportStr(PathBuf::from(path))}213			/ keyword("import") _ path:string() {Expr::Import(PathBuf::from(path))}214215			/ var_expr(s)216			/ local_expr(s)217			/ if_then_else_expr(s)218219			/ keyword("function") _ "(" _ params:params(s) _ ")" _ expr:expr(s) {Expr::Function(params, expr)}220			/ assertion:assertion(s) _ ";" _ expr:expr(s) { Expr::AssertExpr(assertion, expr) }221222			/ keyword("error") _ expr:expr(s) { Expr::ErrorStmt(expr) }223224		rule slice_part(s: &ParserSettings) -> Option<LocExpr>225			= e:(_ e:expr(s) _{e})? {e}226		pub rule slice_desc(s: &ParserSettings) -> SliceDesc227			= start:slice_part(s) ":" pair:(end:slice_part(s) step:(":" e:slice_part(s){e})? {(end, step.flatten())})? {228				let (end, step) = if let Some((end, step)) = pair {229					(end, step)230				}else{231					(None, None)232				};233234				SliceDesc { start, end, step }235			}236237		rule binop(x: rule<()>) -> ()238			= quiet!{ x() } / expected!("<binary op>")239		rule unaryop(x: rule<()>) -> ()240			= quiet!{ x() } / expected!("<unary op>")241242243		use BinaryOpType::*;244		use UnaryOpType::*;245		rule expr(s: &ParserSettings) -> LocExpr246			= precedence! {247				start:position!() v:@ end:position!() { loc_expr!(v, s.loc_data, (s.file_name.clone(), start, end)) }248				--249				a:(@) _ binop(<"||">) _ b:@ {expr_bin!(a Or b)}250				--251				a:(@) _ binop(<"&&">) _ b:@ {expr_bin!(a And b)}252				--253				a:(@) _ binop(<"|">) _ b:@ {expr_bin!(a BitOr b)}254				--255				a:@ _ binop(<"^">) _ b:(@) {expr_bin!(a BitXor b)}256				--257				a:(@) _ binop(<"&">) _ b:@ {expr_bin!(a BitAnd b)}258				--259				a:(@) _ binop(<"==">) _ b:@ {expr_bin!(a Eq b)}260				a:(@) _ binop(<"!=">) _ b:@ {expr_bin!(a Neq b)}261				--262				a:(@) _ binop(<"<">) _ b:@ {expr_bin!(a Lt b)}263				a:(@) _ binop(<">">) _ b:@ {expr_bin!(a Gt b)}264				a:(@) _ binop(<"<=">) _ b:@ {expr_bin!(a Lte b)}265				a:(@) _ binop(<">=">) _ b:@ {expr_bin!(a Gte b)}266				a:(@) _ binop(<keyword("in")>) _ b:@ {expr_bin!(a In b)}267				--268				a:(@) _ binop(<"<<">) _ b:@ {expr_bin!(a Lhs b)}269				a:(@) _ binop(<">>">) _ b:@ {expr_bin!(a Rhs b)}270				--271				a:(@) _ binop(<"+">) _ b:@ {expr_bin!(a Add b)}272				a:(@) _ binop(<"-">) _ b:@ {expr_bin!(a Sub b)}273				--274				a:(@) _ binop(<"*">) _ b:@ {expr_bin!(a Mul b)}275				a:(@) _ binop(<"/">) _ b:@ {expr_bin!(a Div b)}276				a:(@) _ binop(<"%">) _ b:@ {expr_bin!(a Mod b)}277				--278						unaryop(<"-">) _ b:@ {expr_un!(Minus b)}279						unaryop(<"!">) _ b:@ {expr_un!(Not b)}280						unaryop(<"~">) _ b:@ {expr_un!(BitNot b)}281				--282				a:(@) _ "[" _ e:slice_desc(s) _ "]" {Expr::Slice(a, e)}283				a:(@) _ "." _ e:$(id()) {Expr::Index(a, el!(Expr::Str(e.into())))}284				a:(@) _ "[" _ e:expr(s) _ "]" {Expr::Index(a, e)}285				a:(@) _ "(" _ args:args(s) _ ")" ts:(_ keyword("tailstrict"))? {Expr::Apply(a, args, ts.is_some())}286				a:(@) _ "{" _ body:objinside(s) _ "}" {Expr::ObjExtend(a, body)}287				--288				e:expr_basic(s) {e}289				"(" _ e:expr(s) _ ")" {Expr::Parened(e)}290			}291292		pub rule jsonnet(s: &ParserSettings) -> LocExpr = _ e:expr(s) _ {e}293	}294}295296pub type ParseError = peg::error::ParseError<peg::str::LineCol>;297pub fn parse(str: &str, settings: &ParserSettings) -> Result<LocExpr, ParseError> {298	jsonnet_parser::jsonnet(str, settings)299}300301#[macro_export]302macro_rules! el {303	($expr:expr) => {304		LocExpr(std::rc::Rc::new($expr), None)305	};306}307308#[cfg(test)]309pub mod tests {310	use super::{expr::*, parse};311	use crate::ParserSettings;312	use std::path::PathBuf;313	use BinaryOpType::*;314315	macro_rules! parse {316		($s:expr) => {317			parse(318				$s,319				&ParserSettings {320					loc_data: false,321					file_name: PathBuf::from("/test.jsonnet").into(),322				},323			)324			.unwrap()325		};326	}327328	macro_rules! el_loc {329		($expr:expr, $loc:expr$(,)?) => {330			LocExpr(std::rc::Rc::new($expr), Some($loc))331		};332	}333334	mod expressions {335		use super::*;336337		pub fn basic_math() -> LocExpr {338			el!(Expr::BinaryOp(339				el!(Expr::Num(2.0)),340				Add,341				el!(Expr::BinaryOp(342					el!(Expr::Num(2.0)),343					Mul,344					el!(Expr::Num(2.0)),345				)),346			))347		}348	}349350	#[test]351	fn multiline_string() {352		assert_eq!(353			parse!("|||\n    Hello world!\n     a\n|||"),354			el!(Expr::Str("Hello world!\n a\n".into())),355		);356		assert_eq!(357			parse!("|||\n  Hello world!\n   a\n|||"),358			el!(Expr::Str("Hello world!\n a\n".into())),359		);360		assert_eq!(361			parse!("|||\n\t\tHello world!\n\t\t\ta\n|||"),362			el!(Expr::Str("Hello world!\n\ta\n".into())),363		);364		assert_eq!(365			parse!("|||\n   Hello world!\n    a\n |||"),366			el!(Expr::Str("Hello world!\n a\n".into())),367		);368	}369370	#[test]371	fn slice() {372		parse!("a[1:]");373		parse!("a[1::]");374		parse!("a[:1:]");375		parse!("a[::1]");376		parse!("str[:len - 1]");377	}378379	#[test]380	fn string_escaping() {381		assert_eq!(382			parse!(r#""Hello, \"world\"!""#),383			el!(Expr::Str(r#"Hello, "world"!"#.into())),384		);385		assert_eq!(386			parse!(r#"'Hello \'world\'!'"#),387			el!(Expr::Str("Hello 'world'!".into())),388		);389		assert_eq!(parse!(r#"'\\\\'"#), el!(Expr::Str("\\\\".into())),);390	}391392	#[test]393	fn string_unescaping() {394		assert_eq!(395			parse!(r#""Hello\nWorld""#),396			el!(Expr::Str("Hello\nWorld".into())),397		);398	}399400	#[test]401	fn string_verbantim() {402		assert_eq!(403			parse!(r#"@"Hello\n""World""""#),404			el!(Expr::Str("Hello\\n\"World\"".into())),405		);406	}407408	#[test]409	fn imports() {410		assert_eq!(411			parse!("import \"hello\""),412			el!(Expr::Import(PathBuf::from("hello"))),413		);414		assert_eq!(415			parse!("importstr \"garnish.txt\""),416			el!(Expr::ImportStr(PathBuf::from("garnish.txt")))417		);418	}419420	#[test]421	fn empty_object() {422		assert_eq!(parse!("{}"), el!(Expr::Obj(ObjBody::MemberList(vec![]))));423	}424425	#[test]426	fn basic_math() {427		assert_eq!(428			parse!("2+2*2"),429			el!(Expr::BinaryOp(430				el!(Expr::Num(2.0)),431				Add,432				el!(Expr::BinaryOp(433					el!(Expr::Num(2.0)),434					Mul,435					el!(Expr::Num(2.0))436				))437			))438		);439	}440441	#[test]442	fn basic_math_with_indents() {443		assert_eq!(parse!("2	+ 	  2	  *	2   	"), expressions::basic_math());444	}445446	#[test]447	fn basic_math_parened() {448		assert_eq!(449			parse!("2+(2+2*2)"),450			el!(Expr::BinaryOp(451				el!(Expr::Num(2.0)),452				Add,453				el!(Expr::Parened(expressions::basic_math())),454			))455		);456	}457458	/// Comments should not affect parsing459	#[test]460	fn comments() {461		assert_eq!(462			parse!("2//comment\n+//comment\n3/*test*/*/*test*/4"),463			el!(Expr::BinaryOp(464				el!(Expr::Num(2.0)),465				Add,466				el!(Expr::BinaryOp(467					el!(Expr::Num(3.0)),468					Mul,469					el!(Expr::Num(4.0))470				))471			))472		);473	}474475	/// Comments should be able to be escaped476	#[test]477	fn comment_escaping() {478		assert_eq!(479			parse!("2/*\\*/+*/ - 22"),480			el!(Expr::BinaryOp(481				el!(Expr::Num(2.0)),482				Sub,483				el!(Expr::Num(22.0))484			))485		);486	}487488	#[test]489	fn suffix() {490		// assert_eq!(parse!("std.test"), el!(Expr::Num(2.2)));491		// assert_eq!(parse!("std(2)"), el!(Expr::Num(2.2)));492		// assert_eq!(parse!("std.test(2)"), el!(Expr::Num(2.2)));493		// assert_eq!(parse!("a[b]"), el!(Expr::Num(2.2)))494	}495496	#[test]497	fn array_comp() {498		use Expr::*;499		assert_eq!(500			parse!("[std.deepJoin(x) for x in arr]"),501			el!(ArrComp(502				el!(Apply(503					el!(Index(el!(Var("std".into())), el!(Str("deepJoin".into())))),504					ArgsDesc::new(vec![el!(Var("x".into()))], vec![]),505					false,506				)),507				vec![CompSpec::ForSpec(ForSpecData(508					"x".into(),509					el!(Var("arr".into()))510				))]511			)),512		)513	}514515	#[test]516	fn reserved() {517		use Expr::*;518		assert_eq!(parse!("null"), el!(Literal(LiteralType::Null)));519		assert_eq!(parse!("nulla"), el!(Var("nulla".into())));520	}521522	#[test]523	fn multiple_args_buf() {524		parse!("a(b, null_fields)");525	}526527	#[test]528	fn infix_precedence() {529		use Expr::*;530		assert_eq!(531			parse!("!a && !b"),532			el!(BinaryOp(533				el!(UnaryOp(UnaryOpType::Not, el!(Var("a".into())))),534				And,535				el!(UnaryOp(UnaryOpType::Not, el!(Var("b".into()))))536			))537		);538	}539540	#[test]541	fn infix_precedence_division() {542		use Expr::*;543		assert_eq!(544			parse!("!a / !b"),545			el!(BinaryOp(546				el!(UnaryOp(UnaryOpType::Not, el!(Var("a".into())))),547				Div,548				el!(UnaryOp(UnaryOpType::Not, el!(Var("b".into()))))549			))550		);551	}552553	#[test]554	fn double_negation() {555		use Expr::*;556		assert_eq!(557			parse!("!!a"),558			el!(UnaryOp(559				UnaryOpType::Not,560				el!(UnaryOp(UnaryOpType::Not, el!(Var("a".into()))))561			))562		)563	}564565	#[test]566	fn array_test_error() {567		parse!("[a for a in b if c for e in f]");568		//                    ^^^^ failed code569	}570571	#[test]572	fn can_parse_stdlib() {573		parse!(jrsonnet_stdlib::STDLIB_STR);574	}575576	#[test]577	fn add_location_info_to_all_sub_expressions() {578		use Expr::*;579580		let file_name: std::rc::Rc<std::path::Path> = PathBuf::from("/test.jsonnet").into();581		let expr = parse(582			"{} { local x = 1, x: x } + {}",583			&ParserSettings {584				loc_data: true,585				file_name: file_name.clone(),586			},587		)588		.unwrap();589		assert_eq!(590			expr,591			el_loc!(592				BinaryOp(593					el_loc!(594						ObjExtend(595							el_loc!(596								Obj(ObjBody::MemberList(vec![])),597								ExprLocation(file_name.clone(), 0, 2)598							),599							ObjBody::MemberList(vec![600								Member::BindStmt(BindSpec {601									name: "x".into(),602									params: None,603									value: el_loc!(604										Num(1.0),605										ExprLocation(file_name.clone(), 15, 16)606									)607								}),608								Member::Field(FieldMember {609									name: FieldName::Fixed("x".into()),610									plus: false,611									params: None,612									visibility: Visibility::Normal,613									value: el_loc!(614										Var("x".into()),615										ExprLocation(file_name.clone(), 21, 22)616									),617								})618							])619						),620						ExprLocation(file_name.clone(), 0, 24)621					),622					BinaryOpType::Add,623					el_loc!(624						Obj(ObjBody::MemberList(vec![])),625						ExprLocation(file_name.clone(), 27, 29)626					),627				),628				ExprLocation(file_name.clone(), 0, 29),629			),630		);631	}632	// From source code633	/*634	#[bench]635	fn bench_parse_peg(b: &mut Bencher) {636		b.iter(|| parse!(jrsonnet_stdlib::STDLIB_STR))637	}638	*/639}