git.delta.rocks / jrsonnet / refs/commits / 62c9d0dad748

difftreelog

Merge pull request #62 from CertainLach/fix/missing-language-features

Yaroslav Bolyukin2021-08-20parents: #7084037 #b543496.patch.diff
in: master
Missing language features

9 files changed

modifiedcrates/jrsonnet-evaluator/src/builtin/mod.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/builtin/mod.rs
+++ b/crates/jrsonnet-evaluator/src/builtin/mod.rs
@@ -518,7 +518,7 @@
 	], {
 		let mut acc = init;
 		for i in arr.iter().rev() {
-			acc = func.evaluate_values(context.clone(), &[acc, i?])?;
+			acc = func.evaluate_values(context.clone(), &[i?, acc])?;
 		}
 		Ok(acc)
 	})
modifiedcrates/jrsonnet-evaluator/src/ctx.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/ctx.rs
+++ b/crates/jrsonnet-evaluator/src/ctx.rs
@@ -73,6 +73,9 @@
 			.cloned()
 			.ok_or(VariableIsNotDefined(name))?)
 	}
+	pub fn contains_binding(&self, name: IStr) -> bool {
+		self.0.bindings.contains_key(&name)
+	}
 	pub fn into_future(self, ctx: FutureWrapper<Self>) -> Self {
 		{
 			ctx.0.borrow_mut().replace(self);
modifiedcrates/jrsonnet-evaluator/src/error.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/error.rs
+++ b/crates/jrsonnet-evaluator/src/error.rs
@@ -56,7 +56,7 @@
 	BindingParameterASecondTime(IStr),
 	#[error("too many args, function has {0}")]
 	TooManyArgsFunctionHas(usize),
-	#[error("founction argument is not passed: {0}")]
+	#[error("function argument is not passed: {0}")]
 	FunctionParameterNotBoundInCall(IStr),
 
 	#[error("external variable is not defined: {0}")]
modifiedcrates/jrsonnet-evaluator/src/evaluate/mod.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/evaluate/mod.rs
+++ b/crates/jrsonnet-evaluator/src/evaluate/mod.rs
@@ -431,6 +431,7 @@
 						builder
 							.member(n)
 							.with_location(obj.value.1.clone())
+							.with_add(obj.plus)
 							.bindable(Box::new(ObjCompBinding {
 								context: ctx,
 								value: obj.value.clone(),
modifiedcrates/jrsonnet-evaluator/src/function.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/function.rs
+++ b/crates/jrsonnet-evaluator/src/function.rs
@@ -1,4 +1,7 @@
-use crate::{error::Error::*, evaluate, throw, Context, LazyVal, LazyValValue, Result, Val};
+use crate::{
+	error::Error::*, evaluate, evaluate_named, throw, Context, FutureWrapper, LazyVal,
+	LazyValValue, Result, Val,
+};
 use jrsonnet_gc::Trace;
 use jrsonnet_interner::IStr;
 use jrsonnet_parser::{ArgsDesc, LocExpr, ParamsDesc};
@@ -8,6 +11,18 @@
 const NO_DEFAULT_CONTEXT: &str =
 	"no default context set for call with defined default parameter value";
 
+#[derive(Trace)]
+#[trivially_drop]
+struct EvaluateLazyVal {
+	context: Context,
+	expr: LocExpr,
+}
+impl LazyValValue for EvaluateLazyVal {
+	fn get(self: Box<Self>) -> Result<Val> {
+		evaluate(self.context, &self.expr)
+	}
+}
+
 /// Creates correct [context](Context) for function body evaluation returning error on invalid call.
 ///
 /// ## Parameters
@@ -18,64 +33,119 @@
 /// * `tailstrict`: if set to `true` function arguments are eagerly executed, otherwise - lazily
 pub fn parse_function_call(
 	ctx: Context,
-	body_ctx: Option<Context>,
+	body_ctx: Context,
 	params: &ParamsDesc,
 	args: &ArgsDesc,
 	tailstrict: bool,
 ) -> Result<Context> {
-	let mut out = HashMap::with_capacity_and_hasher(params.len(), BuildHasherDefault::default());
-	let mut positioned_args = vec![None; params.0.len()];
-	for (id, arg) in args.iter().enumerate() {
-		let idx = if let Some(name) = &arg.0 {
-			params
-				.iter()
-				.position(|p| *p.0 == *name)
-				.ok_or_else(|| UnknownFunctionParameter(name.clone()))?
-		} else {
-			id
-		};
+	let mut passed_args =
+		HashMap::with_capacity_and_hasher(params.len(), BuildHasherDefault::default());
+	if args.unnamed.len() > params.len() {
+		throw!(TooManyArgsFunctionHas(params.len()))
+	}
+
+	let mut filled_args = 0;
 
-		if idx >= params.len() {
-			throw!(TooManyArgsFunctionHas(params.len()));
+	for (id, arg) in args.unnamed.iter().enumerate() {
+		let name = params[id].0.clone();
+		passed_args.insert(
+			name,
+			if tailstrict {
+				LazyVal::new_resolved(evaluate(ctx.clone(), arg)?)
+			} else {
+				LazyVal::new(Box::new(EvaluateLazyVal {
+					context: ctx.clone(),
+					expr: arg.clone(),
+				}))
+			},
+		);
+		filled_args += 1;
+	}
+
+	for (name, value) in args.named.iter() {
+		// FIXME: O(n) for arg existence check
+		if !params.iter().any(|p| &p.0 == name) {
+			throw!(UnknownFunctionParameter((name as &str).to_owned()));
 		}
-		if positioned_args[idx].is_some() {
-			throw!(BindingParameterASecondTime(params[idx].0.clone()));
+		if passed_args
+			.insert(
+				name.clone(),
+				if tailstrict {
+					LazyVal::new_resolved(evaluate(ctx.clone(), value)?)
+				} else {
+					LazyVal::new(Box::new(EvaluateLazyVal {
+						context: ctx.clone(),
+						expr: value.clone(),
+					}))
+				},
+			)
+			.is_some()
+		{
+			throw!(BindingParameterASecondTime(name.clone()));
 		}
-		positioned_args[idx] = Some(arg.1.clone());
+		filled_args += 1;
 	}
-	// Fill defaults
-	for (id, p) in params.iter().enumerate() {
-		let (ctx, expr) = if let Some(arg) = &positioned_args[id] {
-			(ctx.clone(), arg)
-		} else if let Some(default) = &p.1 {
-			(body_ctx.clone().expect(NO_DEFAULT_CONTEXT), default)
-		} else {
-			throw!(FunctionParameterNotBoundInCall(p.0.clone()));
-		};
-		let val = if tailstrict {
-			LazyVal::new_resolved(evaluate(ctx, expr)?)
-		} else {
+
+	if filled_args < params.len() {
+		// Some args are unset, but maybe we have defaults for them
+		// Default values should be created in newly created context
+		let future_context = FutureWrapper::<Context>::new();
+		let mut defaults = HashMap::with_capacity_and_hasher(
+			params.len() - filled_args,
+			BuildHasherDefault::default(),
+		);
+
+		for param in params.iter().filter(|p| p.1.is_some()) {
+			if passed_args.contains_key(&param.0.clone()) {
+				continue;
+			}
 			#[derive(Trace)]
 			#[trivially_drop]
-			struct EvaluateLazyVal {
-				context: Context,
-				expr: LocExpr,
+			struct LazyNamedBinding {
+				future_context: FutureWrapper<Context>,
+				name: IStr,
+				value: LocExpr,
 			}
-			impl LazyValValue for EvaluateLazyVal {
+			impl LazyValValue for LazyNamedBinding {
 				fn get(self: Box<Self>) -> Result<Val> {
-					evaluate(self.context, &self.expr)
+					evaluate_named(self.future_context.unwrap(), &self.value, self.name)
 				}
 			}
+			LazyVal::new(Box::new(LazyNamedBinding {
+				future_context: future_context.clone(),
+				name: param.0.clone(),
+				value: param.1.clone().unwrap(),
+			}));
 
-			LazyVal::new(Box::new(EvaluateLazyVal {
-				context: ctx.clone(),
-				expr: expr.clone(),
-			}))
-		};
-		out.insert(p.0.clone(), val);
-	}
+			defaults.insert(
+				param.0.clone(),
+				LazyVal::new(Box::new(LazyNamedBinding {
+					future_context: future_context.clone(),
+					name: param.0.clone(),
+					value: param.1.clone().unwrap(),
+				})),
+			);
+			filled_args += 1;
+		}
+
+		// Some args still wasn't filled
+		if filled_args != params.len() {
+			for param in params.iter().skip(args.unnamed.len()) {
+				if !args.named.iter().any(|a| a.0 == param.0) {
+					throw!(FunctionParameterNotBoundInCall(param.0.clone()));
+				}
+			}
+			unreachable!();
+		}
 
-	Ok(body_ctx.unwrap_or(ctx).extend(out, None, None, None))
+		Ok(body_ctx
+			.extend(passed_args, None, None, None)
+			.extend_bound(defaults)
+			.into_future(future_context))
+	} else {
+		let body_ctx = body_ctx.extend(passed_args, None, None, None);
+		Ok(body_ctx)
+	}
 }
 
 pub fn parse_function_call_map(
@@ -176,21 +246,25 @@
 		use $crate::{error::Error::*, throw, evaluate, push_stack_frame, typed::CheckType};
 
 		let args = $args;
-		if args.len() > $total_args {
+		if args.unnamed.len() + args.named.len() > $total_args {
 			throw!(TooManyArgsFunctionHas($total_args));
 		}
 		$(
-			if args.len() <= $id {
+			if args.unnamed.len() + args.named.len() <= $id {
 				throw!(FunctionParameterNotBoundInCall(stringify!($name).into()));
 			}
-			let $name = &args[$id];
-			if $name.0.is_some() {
-				if $name.0.as_ref().unwrap() != stringify!($name) {
+			// Is named
+			let $name = if $id >= $args.unnamed.len() {
+				let named = &args.named[$id - $args.unnamed.len()];
+				if &named.0 != stringify!($name) {
 					throw!(IntrinsicArgumentReorderingIsNotSupportedYet);
 				}
-			}
+				&named.1
+			} else {
+				&$args.unnamed[$id]
+			};
 			let $name = push_stack_frame(None, || format!("evaluating argument"), || {
-				let value = evaluate($ctx.clone(), &$name.1)?;
+				let value = evaluate($ctx.clone(), &$name)?;
 				$ty.check(&value)?;
 				Ok(value)
 			})?;
modifiedcrates/jrsonnet-evaluator/src/map.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/map.rs
+++ b/crates/jrsonnet-evaluator/src/map.rs
@@ -29,6 +29,16 @@
 			.get(key)
 			.or_else(|| self.0.parent.as_ref().and_then(|p| p.get(key)))
 	}
+
+	pub fn contains_key(&self, key: &IStr) -> bool {
+		(self.0).current.contains_key(key)
+			|| self
+				.0
+				.parent
+				.as_ref()
+				.map(|p| p.contains_key(key))
+				.unwrap_or(false)
+	}
 }
 
 impl Clone for LayeredHashMap {
modifiedcrates/jrsonnet-evaluator/src/val.rsdiffbeforeafterboth
--- a/crates/jrsonnet-evaluator/src/val.rs
+++ b/crates/jrsonnet-evaluator/src/val.rs
@@ -11,7 +11,7 @@
 };
 use jrsonnet_gc::{Gc, GcCell, Trace};
 use jrsonnet_interner::IStr;
-use jrsonnet_parser::{el, Arg, ArgsDesc, Expr, ExprLocation, LiteralType, LocExpr, ParamsDesc};
+use jrsonnet_parser::{el, ArgsDesc, Expr, ExprLocation, LiteralType, LocExpr, ParamsDesc};
 use jrsonnet_types::ValType;
 use std::{collections::HashMap, fmt::Debug, rc::Rc};
 
@@ -127,7 +127,7 @@
 			Self::Normal(func) => {
 				let ctx = parse_function_call(
 					call_ctx,
-					Some(func.ctx.clone()),
+					func.ctx.clone(),
 					&func.params,
 					args,
 					tailstrict,
@@ -136,7 +136,8 @@
 			}
 			Self::Intrinsic(name) => call_builtin(call_ctx, loc, name, args),
 			Self::NativeExt(_name, handler) => {
-				let args = parse_function_call(call_ctx, None, &handler.params, args, true)?;
+				let args =
+					parse_function_call(call_ctx, Context::new(), &handler.params, args, true)?;
 				let mut out_args = Vec::with_capacity(handler.params.len());
 				for p in handler.params.0.iter() {
 					out_args.push(args.binding(p.0.clone())?.evaluate()?);
@@ -554,17 +555,17 @@
 						el!(Expr::Var("std".into())),
 						el!(Expr::Str("manifestYamlDoc".into()))
 					)),
-					ArgsDesc(vec![
-						Arg(None, el!(Expr::Var("__tmp__to_json__".into()))),
-						Arg(
-							None,
+					ArgsDesc::new(
+						vec![
+							el!(Expr::Var("__tmp__to_json__".into())),
 							el!(Expr::Literal(if padding != 0 {
 								LiteralType::True
 							} else {
 								LiteralType::False
-							}))
-						)
-					]),
+							})),
+						],
+						vec![]
+					),
 					false
 				)),
 			)?
modifiedcrates/jrsonnet-parser/src/expr.rsdiffbeforeafterboth
--- a/crates/jrsonnet-parser/src/expr.rs
+++ b/crates/jrsonnet-parser/src/expr.rs
@@ -194,18 +194,13 @@
 #[cfg_attr(feature = "deserialize", derive(Deserialize))]
 #[derive(Debug, PartialEq, Trace)]
 #[trivially_drop]
-pub struct Arg(pub Option<String>, pub LocExpr);
-
-#[cfg_attr(feature = "serialize", derive(Serialize))]
-#[cfg_attr(feature = "deserialize", derive(Deserialize))]
-#[derive(Debug, PartialEq, Trace)]
-#[trivially_drop]
-pub struct ArgsDesc(pub Vec<Arg>);
-
-impl Deref for ArgsDesc {
-	type Target = Vec<Arg>;
-	fn deref(&self) -> &Self::Target {
-		&self.0
+pub struct ArgsDesc {
+	pub unnamed: Vec<LocExpr>,
+	pub named: Vec<(IStr, LocExpr)>,
+}
+impl ArgsDesc {
+	pub fn new(unnamed: Vec<LocExpr>, named: Vec<(IStr, LocExpr)>) -> Self {
+		Self { unnamed, named }
 	}
 }
 
@@ -247,6 +242,7 @@
 pub struct ObjComp {
 	pub pre_locals: Vec<BindSpec>,
 	pub key: LocExpr,
+	pub plus: bool,
 	pub value: LocExpr,
 	pub post_locals: Vec<BindSpec>,
 	pub compspecs: Vec<CompSpec>,
modifiedcrates/jrsonnet-parser/src/lib.rsdiffbeforeafterboth
before · crates/jrsonnet-parser/src/lib.rs
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 peg;1112pub struct ParserSettings {13	pub loc_data: bool,14	pub file_name: Rc<Path>,15}1617macro_rules! expr_bin {18	($a:ident $op:ident $b:ident) => {19		loc_expr_todo!(Expr::BinaryOp($a, $op, $b))20	};21}22macro_rules! expr_un {23	($op:ident $a:ident) => {24		loc_expr_todo!(Expr::UnaryOp($op, $a))25	};26}2728parser! {29	grammar jsonnet_parser() for str {30		use peg::ParseLiteral;3132		/// Standard C-like comments33		rule comment()34			= "//" (!['\n'][_])* "\n"35			/ "/*" ("\\*/" / "\\\\" / (!("*/")[_]))* "*/"36			/ "#" (!['\n'][_])* "\n"3738		rule single_whitespace() = quiet!{([' ' | '\r' | '\n' | '\t'] / comment())} / expected!("<whitespace>")39		rule _() = single_whitespace()*4041		/// For comma-delimited elements42		rule comma() = quiet!{_ "," _} / expected!("<comma>")43		rule alpha() -> char = c:$(['_' | 'a'..='z' | 'A'..='Z']) {c.chars().next().unwrap()}44		rule digit() -> char = d:$(['0'..='9']) {d.chars().next().unwrap()}45		rule end_of_ident() = !['0'..='9' | '_' | 'a'..='z' | 'A'..='Z']46		/// Sequence of digits47		rule uint_str() -> &'input str = a:$(digit()+) { a }48		/// Number in scientific notation format49		rule number() -> f64 = quiet!{a:$(uint_str() ("." uint_str())? (['e'|'E'] (s:['+'|'-'])? uint_str())?) {? a.parse().map_err(|_| "<number>") }} / expected!("<number>")5051		/// Reserved word followed by any non-alphanumberic52		rule reserved() = ("assert" / "else" / "error" / "false" / "for" / "function" / "if" / "import" / "importstr" / "in" / "local" / "null" / "tailstrict" / "then" / "self" / "super" / "true") end_of_ident()53		rule id() = quiet!{ !reserved() alpha() (alpha() / digit())*} / expected!("<identifier>")5455		rule keyword(id: &'static str) -> ()56			= ##parse_string_literal(id) end_of_ident()57		// Adds location data information to existing expression58		rule l(s: &ParserSettings, x: rule<Expr>) -> LocExpr59			= start:position!() v:x() end:position!() {loc_expr!(v, s.loc_data, (s.file_name.clone(), start, end))}6061		pub rule param(s: &ParserSettings) -> expr::Param = name:$(id()) expr:(_ "=" _ expr:expr(s){expr})? { expr::Param(name.into(), expr) }62		pub rule params(s: &ParserSettings) -> expr::ParamsDesc63			= params:param(s) ** comma() comma()? {64				let mut defaults_started = false;65				for param in &params {66					defaults_started = defaults_started || param.1.is_some();67					assert_eq!(defaults_started, param.1.is_some(), "defauld parameters should be used after all positionals");68				}69				expr::ParamsDesc(Rc::new(params))70			}71			/ { expr::ParamsDesc(Rc::new(Vec::new())) }7273		pub rule arg(s: &ParserSettings) -> expr::Arg74			= name:$(id()) _ "=" _ expr:expr(s) {expr::Arg(Some(name.into()), expr)}75			/ expr:expr(s) {expr::Arg(None, expr)}76		pub rule args(s: &ParserSettings) -> expr::ArgsDesc77			= args:arg(s) ** comma() comma()? {78				let mut named_started = false;79				for arg in &args {80					named_started = named_started || arg.0.is_some();81					assert_eq!(named_started, arg.0.is_some(), "named args should be used after all positionals");82				}83				expr::ArgsDesc(args)84			}85			/ { expr::ArgsDesc(Vec::new()) }8687		pub rule bind(s: &ParserSettings) -> expr::BindSpec88			= name:$(id()) _ "=" _ expr:expr(s) {expr::BindSpec{name:name.into(), params: None, value: expr}}89			/ name:$(id()) _ "(" _ params:params(s) _ ")" _ "=" _ expr:expr(s) {expr::BindSpec{name:name.into(), params: Some(params), value: expr}}90		pub rule assertion(s: &ParserSettings) -> expr::AssertStmt91			= keyword("assert") _ cond:expr(s) msg:(_ ":" _ e:expr(s) {e})? { expr::AssertStmt(cond, msg) }9293		pub rule whole_line() -> &'input str94			= str:$((!['\n'][_])* "\n") {str}95		pub rule string_block() -> String96			= "|||" (!['\n']single_whitespace())* "\n"97			  empty_lines:$(['\n']*)98			  prefix:[' ' | '\t']+ first_line:whole_line()99			  lines:("\n" {"\n"} / [' ' | '\t']*<{prefix.len()}> s:whole_line() {s})*100			  [' ' | '\t']*<, {prefix.len() - 1}> "|||"101			  {let mut l = empty_lines.to_owned(); l.push_str(first_line); l.extend(lines); l}102		pub rule string() -> String103			= quiet!{ "\"" str:$(("\\\"" / "\\\\" / (!['"'][_]))*) "\"" {unescape::unescape(str).unwrap()}104			/ "'" str:$(("\\'" / "\\\\" / (!['\''][_]))*) "'" {unescape::unescape(str).unwrap()}105			/ "@'" str:$(("''" / (!['\''][_]))*) "'" {str.replace("''", "'")}106			/ "@\"" str:$(("\"\"" / (!['"'][_]))*) "\"" {str.replace("\"\"", "\"")}107			/ string_block() } / expected!("<string>")108109		pub rule field_name(s: &ParserSettings) -> expr::FieldName110			= name:$(id()) {expr::FieldName::Fixed(name.into())}111			/ name:string() {expr::FieldName::Fixed(name.into())}112			/ "[" _ expr:expr(s) _ "]" {expr::FieldName::Dyn(expr)}113		pub rule visibility() -> expr::Visibility114			= ":::" {expr::Visibility::Unhide}115			/ "::" {expr::Visibility::Hidden}116			/ ":" {expr::Visibility::Normal}117		pub rule field(s: &ParserSettings) -> expr::FieldMember118			= name:field_name(s) _ plus:"+"? _ visibility:visibility() _ value:expr(s) {expr::FieldMember{119				name,120				plus: plus.is_some(),121				params: None,122				visibility,123				value,124			}}125			/ name:field_name(s) _ "(" _ params:params(s) _ ")" _ visibility:visibility() _ value:expr(s) {expr::FieldMember{126				name,127				plus: false,128				params: Some(params),129				visibility,130				value,131			}}132		pub rule obj_local(s: &ParserSettings) -> BindSpec133			= keyword("local") _ bind:bind(s) {bind}134		pub rule member(s: &ParserSettings) -> expr::Member135			= bind:obj_local(s) {expr::Member::BindStmt(bind)}136			/ assertion:assertion(s) {expr::Member::AssertStmt(assertion)}137			/ field:field(s) {expr::Member::Field(field)}138		pub rule objinside(s: &ParserSettings) -> expr::ObjBody139			= pre_locals:(b: obj_local(s) comma() {b})* "[" _ key:expr(s) _ "]" _ ":" _ value:expr(s) post_locals:(comma() b:obj_local(s) {b})* _ forspec:forspec(s) others:(_ rest:compspec(s) {rest})? {140				let mut compspecs = vec![CompSpec::ForSpec(forspec)];141				compspecs.extend(others.unwrap_or_default());142				expr::ObjBody::ObjComp(expr::ObjComp{143					pre_locals,144					key,145					value,146					post_locals,147					compspecs,148				})149			}150			/ members:(member(s) ** comma()) comma()? {expr::ObjBody::MemberList(members)}151		pub rule ifspec(s: &ParserSettings) -> IfSpecData152			= keyword("if") _ expr:expr(s) {IfSpecData(expr)}153		pub rule forspec(s: &ParserSettings) -> ForSpecData154			= keyword("for") _ id:$(id()) _ keyword("in") _ cond:expr(s) {ForSpecData(id.into(), cond)}155		pub rule compspec(s: &ParserSettings) -> Vec<expr::CompSpec>156			= s:(i:ifspec(s) { expr::CompSpec::IfSpec(i) } / f:forspec(s) {expr::CompSpec::ForSpec(f)} ) ** _ {s}157		pub rule local_expr(s: &ParserSettings) -> LocExpr158			= l(s,<keyword("local") _ binds:bind(s) ** comma() _ ";" _ expr:expr(s) { Expr::LocalExpr(binds, expr) }>)159		pub rule string_expr(s: &ParserSettings) -> LocExpr160			= l(s, <s:string() {Expr::Str(s.into())}>)161		pub rule obj_expr(s: &ParserSettings) -> LocExpr162			= l(s,<"{" _ body:objinside(s) _ "}" {Expr::Obj(body)}>)163		pub rule array_expr(s: &ParserSettings) -> LocExpr164			= l(s,<"[" _ elems:(expr(s) ** comma()) _ comma()? "]" {Expr::Arr(elems)}>)165		pub rule array_comp_expr(s: &ParserSettings) -> LocExpr166			= l(s,<"[" _ expr:expr(s) _ comma()? _ forspec:forspec(s) _ others:(others: compspec(s) _ {others})? "]" {167				let mut specs = vec![CompSpec::ForSpec(forspec)];168				specs.extend(others.unwrap_or_default());169				Expr::ArrComp(expr, specs)170			}>)171		pub rule number_expr(s: &ParserSettings) -> LocExpr172			= l(s,<n:number() { expr::Expr::Num(n) }>)173		pub rule var_expr(s: &ParserSettings) -> LocExpr174			= l(s,<n:$(id()) { expr::Expr::Var(n.into()) }>)175		pub rule if_then_else_expr(s: &ParserSettings) -> LocExpr176			= l(s,<cond:ifspec(s) _ keyword("then") _ cond_then:expr(s) cond_else:(_ keyword("else") _ e:expr(s) {e})? {Expr::IfElse{177				cond,178				cond_then,179				cond_else,180			}}>)181182		pub rule literal(s: &ParserSettings) -> LocExpr183			= l(s,<v:(184				keyword("null") {LiteralType::Null}185				/ keyword("true") {LiteralType::True}186				/ keyword("false") {LiteralType::False}187				/ keyword("self") {LiteralType::This}188				/ keyword("$") {LiteralType::Dollar}189				/ keyword("super") {LiteralType::Super}190			) {Expr::Literal(v)}>)191192		pub rule expr_basic(s: &ParserSettings) -> LocExpr193			= literal(s)194195			/ quiet!{l(s,<"$intrinsic(" name:$(id()) ")" {Expr::Intrinsic(name.into())}>)}196197			/ string_expr(s) / number_expr(s)198			/ array_expr(s)199			/ obj_expr(s)200			/ array_expr(s)201			/ array_comp_expr(s)202203			/ l(s,<keyword("importstr") _ path:string() {Expr::ImportStr(PathBuf::from(path))}>)204			/ l(s,<keyword("import") _ path:string() {Expr::Import(PathBuf::from(path))}>)205206			/ var_expr(s)207			/ local_expr(s)208			/ if_then_else_expr(s)209210			/ l(s,<keyword("function") _ "(" _ params:params(s) _ ")" _ expr:expr(s) {Expr::Function(params, expr)}>)211			/ l(s,<assertion:assertion(s) _ ";" _ expr:expr(s) { Expr::AssertExpr(assertion, expr) }>)212213			/ l(s,<keyword("error") _ expr:expr(s) { Expr::ErrorStmt(expr) }>)214215		rule slice_part(s: &ParserSettings) -> Option<LocExpr>216			= e:(_ e:expr(s) _{e})? {e}217		pub rule slice_desc(s: &ParserSettings) -> SliceDesc218			= start:slice_part(s) ":" pair:(end:slice_part(s) step:(":" e:slice_part(s){e})? {(end, step.flatten())})? {219				let (end, step) = if let Some((end, step)) = pair {220					(end, step)221				}else{222					(None, None)223				};224225				SliceDesc { start, end, step }226			}227228		rule binop(x: rule<()>) -> ()229			= quiet!{ x() } / expected!("<binary op>")230		rule unaryop(x: rule<()>) -> ()231			= quiet!{ x() } / expected!("<unary op>")232233234		use BinaryOpType::*;235		use UnaryOpType::*;236		rule expr(s: &ParserSettings) -> LocExpr237			= start:position!() a:precedence! {238				a:(@) _ binop(<"||">) _ b:@ {expr_bin!(a Or b)}239				--240				a:(@) _ binop(<"&&">) _ b:@ {expr_bin!(a And b)}241				--242				a:(@) _ binop(<"|">) _ b:@ {expr_bin!(a BitOr b)}243				--244				a:@ _ binop(<"^">) _ b:(@) {expr_bin!(a BitXor b)}245				--246				a:(@) _ binop(<"&">) _ b:@ {expr_bin!(a BitAnd b)}247				--248				a:(@) _ binop(<"==">) _ b:@ {expr_bin!(a Eq b)}249				a:(@) _ binop(<"!=">) _ b:@ {expr_bin!(a Neq b)}250				--251				a:(@) _ binop(<"<">) _ b:@ {expr_bin!(a Lt b)}252				a:(@) _ binop(<">">) _ b:@ {expr_bin!(a Gt b)}253				a:(@) _ binop(<"<=">) _ b:@ {expr_bin!(a Lte b)}254				a:(@) _ binop(<">=">) _ b:@ {expr_bin!(a Gte b)}255				a:(@) _ binop(<keyword("in")>) _ b:@ {expr_bin!(a In b)}256				--257				a:(@) _ binop(<"<<">) _ b:@ {expr_bin!(a Lhs b)}258				a:(@) _ binop(<">>">) _ b:@ {expr_bin!(a Rhs b)}259				--260				a:(@) _ binop(<"+">) _ b:@ {expr_bin!(a Add b)}261				a:(@) _ binop(<"-">) _ b:@ {expr_bin!(a Sub b)}262				--263				a:(@) _ binop(<"*">) _ b:@ {expr_bin!(a Mul b)}264				a:(@) _ binop(<"/">) _ b:@ {expr_bin!(a Div b)}265				a:(@) _ binop(<"%">) _ b:@ {expr_bin!(a Mod b)}266				--267						unaryop(<"-">) _ b:@ {expr_un!(Minus b)}268						unaryop(<"!">) _ b:@ {expr_un!(Not b)}269						unaryop(<"~">) _ b:@ {expr_un!(BitNot b)}270				--271				a:(@) _ "[" _ s:slice_desc(s) _ "]" {loc_expr_todo!(Expr::Slice(a, s))}272				a:(@) _ "." _ s:$(id()) {loc_expr_todo!(Expr::Index(a, el!(Expr::Str(s.into()))))}273				a:(@) _ "[" _ s:expr(s) _ "]" {loc_expr_todo!(Expr::Index(a, s))}274				a:(@) _ "(" _ args:args(s) _ ")" ts:(_ keyword("tailstrict"))? {loc_expr_todo!(Expr::Apply(a, args, ts.is_some()))}275				a:(@) _ "{" _ body:objinside(s) _ "}" {loc_expr_todo!(Expr::ObjExtend(a, body))}276				--277				e:expr_basic(s) {e}278				"(" _ e:expr(s) _ ")" {loc_expr_todo!(Expr::Parened(e))}279			} end:position!() {280				let LocExpr(e, _) = a;281				LocExpr(e, if s.loc_data {282					Some(ExprLocation(s.file_name.clone(), start, end))283				} else {284					None285				})286			}287			/ e:expr_basic(s) {e}288289		pub rule jsonnet(s: &ParserSettings) -> LocExpr = _ e:expr(s) _ {e}290	}291}292293pub type ParseError = peg::error::ParseError<peg::str::LineCol>;294pub fn parse(str: &str, settings: &ParserSettings) -> Result<LocExpr, ParseError> {295	jsonnet_parser::jsonnet(str, settings)296}297298#[macro_export]299macro_rules! el {300	($expr:expr) => {301		LocExpr(std::rc::Rc::new($expr), None)302	};303}304305#[cfg(test)]306pub mod tests {307	use super::{expr::*, parse};308	use crate::ParserSettings;309	use std::path::PathBuf;310	use BinaryOpType::*;311312	macro_rules! parse {313		($s:expr) => {314			parse(315				$s,316				&ParserSettings {317					loc_data: false,318					file_name: PathBuf::from("/test.jsonnet").into(),319				},320			)321			.unwrap()322		};323	}324325	mod expressions {326		use super::*;327328		pub fn basic_math() -> LocExpr {329			el!(Expr::BinaryOp(330				el!(Expr::Num(2.0)),331				Add,332				el!(Expr::BinaryOp(333					el!(Expr::Num(2.0)),334					Mul,335					el!(Expr::Num(2.0)),336				)),337			))338		}339	}340341	#[test]342	fn multiline_string() {343		assert_eq!(344			parse!("|||\n    Hello world!\n     a\n|||"),345			el!(Expr::Str("Hello world!\n a\n".into())),346		);347		assert_eq!(348			parse!("|||\n  Hello world!\n   a\n|||"),349			el!(Expr::Str("Hello world!\n a\n".into())),350		);351		assert_eq!(352			parse!("|||\n\t\tHello world!\n\t\t\ta\n|||"),353			el!(Expr::Str("Hello world!\n\ta\n".into())),354		);355		assert_eq!(356			parse!("|||\n   Hello world!\n    a\n |||"),357			el!(Expr::Str("Hello world!\n a\n".into())),358		);359	}360361	#[test]362	fn slice() {363		parse!("a[1:]");364		parse!("a[1::]");365		parse!("a[:1:]");366		parse!("a[::1]");367		parse!("str[:len - 1]");368	}369370	#[test]371	fn string_escaping() {372		assert_eq!(373			parse!(r#""Hello, \"world\"!""#),374			el!(Expr::Str(r#"Hello, "world"!"#.into())),375		);376		assert_eq!(377			parse!(r#"'Hello \'world\'!'"#),378			el!(Expr::Str("Hello 'world'!".into())),379		);380		assert_eq!(parse!(r#"'\\\\'"#), el!(Expr::Str("\\\\".into())),);381	}382383	#[test]384	fn string_unescaping() {385		assert_eq!(386			parse!(r#""Hello\nWorld""#),387			el!(Expr::Str("Hello\nWorld".into())),388		);389	}390391	#[test]392	fn string_verbantim() {393		assert_eq!(394			parse!(r#"@"Hello\n""World""""#),395			el!(Expr::Str("Hello\\n\"World\"".into())),396		);397	}398399	#[test]400	fn imports() {401		assert_eq!(402			parse!("import \"hello\""),403			el!(Expr::Import(PathBuf::from("hello"))),404		);405		assert_eq!(406			parse!("importstr \"garnish.txt\""),407			el!(Expr::ImportStr(PathBuf::from("garnish.txt")))408		);409	}410411	#[test]412	fn empty_object() {413		assert_eq!(parse!("{}"), el!(Expr::Obj(ObjBody::MemberList(vec![]))));414	}415416	#[test]417	fn basic_math() {418		assert_eq!(419			parse!("2+2*2"),420			el!(Expr::BinaryOp(421				el!(Expr::Num(2.0)),422				Add,423				el!(Expr::BinaryOp(424					el!(Expr::Num(2.0)),425					Mul,426					el!(Expr::Num(2.0))427				))428			))429		);430	}431432	#[test]433	fn basic_math_with_indents() {434		assert_eq!(parse!("2	+ 	  2	  *	2   	"), expressions::basic_math());435	}436437	#[test]438	fn basic_math_parened() {439		assert_eq!(440			parse!("2+(2+2*2)"),441			el!(Expr::BinaryOp(442				el!(Expr::Num(2.0)),443				Add,444				el!(Expr::Parened(expressions::basic_math())),445			))446		);447	}448449	/// Comments should not affect parsing450	#[test]451	fn comments() {452		assert_eq!(453			parse!("2//comment\n+//comment\n3/*test*/*/*test*/4"),454			el!(Expr::BinaryOp(455				el!(Expr::Num(2.0)),456				Add,457				el!(Expr::BinaryOp(458					el!(Expr::Num(3.0)),459					Mul,460					el!(Expr::Num(4.0))461				))462			))463		);464	}465466	/// Comments should be able to be escaped467	#[test]468	fn comment_escaping() {469		assert_eq!(470			parse!("2/*\\*/+*/ - 22"),471			el!(Expr::BinaryOp(472				el!(Expr::Num(2.0)),473				Sub,474				el!(Expr::Num(22.0))475			))476		);477	}478479	#[test]480	fn suffix() {481		// assert_eq!(parse!("std.test"), el!(Expr::Num(2.2)));482		// assert_eq!(parse!("std(2)"), el!(Expr::Num(2.2)));483		// assert_eq!(parse!("std.test(2)"), el!(Expr::Num(2.2)));484		// assert_eq!(parse!("a[b]"), el!(Expr::Num(2.2)))485	}486487	#[test]488	fn array_comp() {489		use Expr::*;490		assert_eq!(491			parse!("[std.deepJoin(x) for x in arr]"),492			el!(ArrComp(493				el!(Apply(494					el!(Index(el!(Var("std".into())), el!(Str("deepJoin".into())))),495					ArgsDesc(vec![Arg(None, el!(Var("x".into())))]),496					false,497				)),498				vec![CompSpec::ForSpec(ForSpecData(499					"x".into(),500					el!(Var("arr".into()))501				))]502			)),503		)504	}505506	#[test]507	fn reserved() {508		use Expr::*;509		assert_eq!(parse!("null"), el!(Literal(LiteralType::Null)));510		assert_eq!(parse!("nulla"), el!(Var("nulla".into())));511	}512513	#[test]514	fn multiple_args_buf() {515		parse!("a(b, null_fields)");516	}517518	#[test]519	fn infix_precedence() {520		use Expr::*;521		assert_eq!(522			parse!("!a && !b"),523			el!(BinaryOp(524				el!(UnaryOp(UnaryOpType::Not, el!(Var("a".into())))),525				And,526				el!(UnaryOp(UnaryOpType::Not, el!(Var("b".into()))))527			))528		);529	}530531	#[test]532	fn infix_precedence_division() {533		use Expr::*;534		assert_eq!(535			parse!("!a / !b"),536			el!(BinaryOp(537				el!(UnaryOp(UnaryOpType::Not, el!(Var("a".into())))),538				Div,539				el!(UnaryOp(UnaryOpType::Not, el!(Var("b".into()))))540			))541		);542	}543544	#[test]545	fn double_negation() {546		use Expr::*;547		assert_eq!(548			parse!("!!a"),549			el!(UnaryOp(550				UnaryOpType::Not,551				el!(UnaryOp(UnaryOpType::Not, el!(Var("a".into()))))552			))553		)554	}555556	#[test]557	fn array_test_error() {558		parse!("[a for a in b if c for e in f]");559		//                    ^^^^ failed code560	}561562	#[test]563	fn can_parse_stdlib() {564		parse!(jrsonnet_stdlib::STDLIB_STR);565	}566567	// From source code568	/*569	#[bench]570	fn bench_parse_peg(b: &mut Bencher) {571		b.iter(|| parse!(jrsonnet_stdlib::STDLIB_STR))572	}573	*/574}