difftreelog
feat lazy values in builtin
in: master
8 files changed
crates/jrsonnet-evaluator/src/builtin/mod.rsdiffbeforeafterboth--- a/crates/jrsonnet-evaluator/src/builtin/mod.rs
+++ b/crates/jrsonnet-evaluator/src/builtin/mod.rs
@@ -1,4 +1,4 @@
-use crate::function::StaticBuiltin;
+use crate::function::{CallLocation, StaticBuiltin};
use crate::typed::{Any, PositiveF64, VecVal, M1};
use crate::{
builtin::manifest::{manifest_yaml_ex, ManifestYamlOptions},
@@ -12,7 +12,6 @@
use crate::{Either, ObjValue};
use format::{format_arr, format_obj};
use jrsonnet_interner::IStr;
-use jrsonnet_parser::ExprLocation;
use serde::Deserialize;
use serde_yaml::DeserializingQuirks;
use std::collections::HashMap;
@@ -29,7 +28,7 @@
pub fn std_format(str: IStr, vals: Val) -> Result<String> {
push_frame(
- None,
+ CallLocation::native(),
|| format!("std.format of {}", str),
|| {
Ok(match vals {
@@ -467,9 +466,9 @@
}
#[jrsonnet_macros::builtin]
-fn builtin_trace(#[location] loc: Option<&ExprLocation>, str: IStr, rest: Any) -> Result<Any> {
+fn builtin_trace(loc: CallLocation, str: IStr, rest: Any) -> Result<Any> {
eprint!("TRACE:");
- if let Some(loc) = loc {
+ if let Some(loc) = loc.0 {
with_state(|s| {
let locs = s.map_source_locations(&loc.0, &[loc.1]);
eprint!(
crates/jrsonnet-evaluator/src/evaluate/mod.rsdiffbeforeafterboth--- a/crates/jrsonnet-evaluator/src/evaluate/mod.rs
+++ b/crates/jrsonnet-evaluator/src/evaluate/mod.rs
@@ -4,6 +4,7 @@
builtin::{std_slice, BUILTINS},
error::Error::*,
evaluate::operator::{evaluate_add_op, evaluate_binary_op_special, evaluate_unary_op},
+ function::CallLocation,
gc::TraceBox,
push_frame, throw, with_state, ArrValue, Bindable, Context, ContextCreator, FuncDesc, FuncVal,
FutureWrapper, GcHashMap, LazyBinding, LazyVal, LazyValValue, ObjValue, ObjValueBuilder,
@@ -12,8 +13,8 @@
use gcmodule::{Cc, Trace};
use jrsonnet_interner::IStr;
use jrsonnet_parser::{
- ArgsDesc, AssertStmt, BindSpec, CompSpec, Expr, ExprLocation, FieldMember, ForSpecData,
- IfSpecData, LiteralType, LocExpr, Member, ObjBody, ParamsDesc,
+ ArgsDesc, AssertStmt, BindSpec, CompSpec, Expr, FieldMember, ForSpecData, IfSpecData,
+ LiteralType, LocExpr, Member, ObjBody, ParamsDesc,
};
use jrsonnet_types::ValType;
pub mod operator;
@@ -192,7 +193,7 @@
Ok(match field_name {
jrsonnet_parser::FieldName::Fixed(n) => Some(n.clone()),
jrsonnet_parser::FieldName::Dyn(expr) => push_frame(
- Some(&expr.1),
+ CallLocation::new(&expr.1),
|| "evaluating field name".to_string(),
|| {
let value = evaluate(context, expr)?;
@@ -442,7 +443,7 @@
context: Context,
value: &LocExpr,
args: &ArgsDesc,
- loc: Option<&ExprLocation>,
+ loc: CallLocation,
tailstrict: bool,
) -> Result<Val> {
let value = evaluate(context.clone(), value)?;
@@ -463,13 +464,13 @@
let value = &assertion.0;
let msg = &assertion.1;
let assertion_result = push_frame(
- Some(&value.1),
+ CallLocation::new(&value.1),
|| "assertion condition".to_owned(),
|| bool::try_from(evaluate(context.clone(), value)?),
)?;
if !assertion_result {
push_frame(
- Some(&value.1),
+ CallLocation::new(&value.1),
|| "assertion failure".to_owned(),
|| {
if let Some(msg) = msg {
@@ -519,7 +520,7 @@
BinaryOp(v1, o, v2) => evaluate_binary_op_special(context, v1, *o, v2)?,
UnaryOp(o, v) => evaluate_unary_op(*o, &evaluate(context, v)?)?,
Var(name) => push_frame(
- Some(loc),
+ CallLocation::new(loc),
|| format!("variable <{}> access", name),
|| context.binding(name.clone())?.evaluate(),
)?,
@@ -528,7 +529,7 @@
(Val::Obj(v), Val::Str(s)) => {
let sn = s.clone();
push_frame(
- Some(loc),
+ CallLocation::new(loc),
|| format!("field <{}> access", sn),
|| {
if let Some(v) = v.get(s.clone())? {
@@ -625,7 +626,7 @@
&Val::Obj(evaluate_object(context, t)?),
)?,
Apply(value, args, tailstrict) => {
- evaluate_apply(context, value, args, Some(loc), *tailstrict)?
+ evaluate_apply(context, value, args, CallLocation::new(loc), *tailstrict)?
}
Function(params, body) => {
evaluate_method(context, "anonymous".into(), params.clone(), body.clone())
@@ -640,7 +641,7 @@
evaluate(context, returned)?
}
ErrorStmt(e) => push_frame(
- Some(loc),
+ CallLocation::new(loc),
|| "error statement".to_owned(),
|| throw!(RuntimeError(IStr::try_from(evaluate(context, e)?)?,)),
)?,
@@ -650,7 +651,7 @@
cond_else,
} => {
if push_frame(
- Some(loc),
+ CallLocation::new(loc),
|| "if condition".to_owned(),
|| bool::try_from(evaluate(context.clone(), &cond.0)?),
)? {
@@ -689,7 +690,7 @@
let mut import_location = tmp.to_path_buf();
import_location.pop();
push_frame(
- Some(loc),
+ CallLocation::new(loc),
|| format!("import {:?}", path),
|| with_state(|s| s.import_file(&import_location, path)),
)?
crates/jrsonnet-evaluator/src/function.rsdiffbeforeafterboth1use crate::{2 error::{Error::*, LocError},3 evaluate, evaluate_named,4 gc::TraceBox,5 throw,6 typed::Typed,7 Context, FutureWrapper, GcHashMap, LazyVal, LazyValValue, Result, Val,8};9use gcmodule::Trace;10use jrsonnet_interner::IStr;11pub use jrsonnet_macros::builtin;12use jrsonnet_parser::{ArgsDesc, ExprLocation, LocExpr, ParamsDesc};13use std::{borrow::Cow, collections::HashMap, convert::TryFrom};1415#[derive(Trace)]16struct EvaluateLazyVal {17 context: Context,18 expr: LocExpr,19}20impl LazyValValue for EvaluateLazyVal {21 fn get(self: Box<Self>) -> Result<Val> {22 evaluate(self.context, &self.expr)23 }24}2526#[derive(Trace)]27struct EvaluateNamedLazyVal {28 future_context: FutureWrapper<Context>,29 name: IStr,30 value: LocExpr,31}32impl LazyValValue for EvaluateNamedLazyVal {33 fn get(self: Box<Self>) -> Result<Val> {34 evaluate_named(self.future_context.unwrap(), &self.value, self.name)35 }36}3738pub trait ArgLike {39 fn evaluate_arg(&self, ctx: Context, tailstrict: bool) -> Result<LazyVal>;40}41impl ArgLike for &LocExpr {42 fn evaluate_arg(&self, ctx: Context, tailstrict: bool) -> Result<LazyVal> {43 Ok(if tailstrict {44 LazyVal::new_resolved(evaluate(ctx, self)?)45 } else {46 LazyVal::new(TraceBox(Box::new(EvaluateLazyVal {47 context: ctx,48 expr: (*self).clone(),49 })))50 })51 }52}53impl<T> ArgLike for T54where55 T: Typed + Clone,56 Val: TryFrom<T, Error = LocError>,57{58 fn evaluate_arg(&self, _ctx: Context, _tailstrict: bool) -> Result<LazyVal> {59 let val: Val = Val::try_from(self.clone())?;60 Ok(LazyVal::new_resolved(val))61 }62}63pub enum TlaArg {64 String(IStr),65 Code(LocExpr),66 Val(Val),67}68impl ArgLike for TlaArg {69 fn evaluate_arg(&self, ctx: Context, tailstrict: bool) -> Result<LazyVal> {70 match self {71 TlaArg::String(s) => Ok(LazyVal::new_resolved(Val::Str(s.clone()))),72 TlaArg::Code(code) => Ok(if tailstrict {73 LazyVal::new_resolved(evaluate(ctx, code)?)74 } else {75 LazyVal::new(TraceBox(Box::new(EvaluateLazyVal {76 context: ctx,77 expr: code.clone(),78 })))79 }),80 TlaArg::Val(val) => Ok(LazyVal::new_resolved(val.clone())),81 }82 }83}8485pub trait ArgsLike {86 fn unnamed_len(&self) -> usize;87 fn unnamed_iter(88 &self,89 ctx: Context,90 tailstrict: bool,91 handler: &mut dyn FnMut(usize, LazyVal) -> Result<()>,92 ) -> Result<()>;93 fn named_iter(94 &self,95 ctx: Context,96 tailstrict: bool,97 handler: &mut dyn FnMut(&IStr, LazyVal) -> Result<()>,98 ) -> Result<()>;99 fn named_names(&self, handler: &mut dyn FnMut(&IStr));100}101102impl ArgsLike for ArgsDesc {103 fn unnamed_len(&self) -> usize {104 self.unnamed.len()105 }106107 fn unnamed_iter(108 &self,109 ctx: Context,110 tailstrict: bool,111 handler: &mut dyn FnMut(usize, LazyVal) -> Result<()>,112 ) -> Result<()> {113 for (id, arg) in self.unnamed.iter().enumerate() {114 handler(115 id,116 if tailstrict {117 LazyVal::new_resolved(evaluate(ctx.clone(), arg)?)118 } else {119 LazyVal::new(TraceBox(Box::new(EvaluateLazyVal {120 context: ctx.clone(),121 expr: arg.clone(),122 })))123 },124 )?;125 }126 Ok(())127 }128129 fn named_iter(130 &self,131 ctx: Context,132 tailstrict: bool,133 handler: &mut dyn FnMut(&IStr, LazyVal) -> Result<()>,134 ) -> Result<()> {135 for (name, arg) in self.named.iter() {136 handler(137 name,138 if tailstrict {139 LazyVal::new_resolved(evaluate(ctx.clone(), arg)?)140 } else {141 LazyVal::new(TraceBox(Box::new(EvaluateLazyVal {142 context: ctx.clone(),143 expr: arg.clone(),144 })))145 },146 )?;147 }148 Ok(())149 }150151 fn named_names(&self, handler: &mut dyn FnMut(&IStr)) {152 for (name, _) in self.named.iter() {153 handler(name)154 }155 }156}157158impl<A: ArgLike> ArgsLike for [(IStr, A)] {159 fn unnamed_len(&self) -> usize {160 0161 }162163 fn unnamed_iter(164 &self,165 _ctx: Context,166 _tailstrict: bool,167 _handler: &mut dyn FnMut(usize, LazyVal) -> Result<()>,168 ) -> Result<()> {169 Ok(())170 }171172 fn named_iter(173 &self,174 ctx: Context,175 tailstrict: bool,176 handler: &mut dyn FnMut(&IStr, LazyVal) -> Result<()>,177 ) -> Result<()> {178 for (name, val) in self.iter() {179 handler(name, val.evaluate_arg(ctx.clone(), tailstrict)?)?;180 }181 Ok(())182 }183184 fn named_names(&self, handler: &mut dyn FnMut(&IStr)) {185 for (name, _) in self.iter() {186 handler(name);187 }188 }189}190191impl<A: ArgLike> ArgsLike for HashMap<IStr, A> {192 fn unnamed_len(&self) -> usize {193 0194 }195196 fn unnamed_iter(197 &self,198 _ctx: Context,199 _tailstrict: bool,200 _handler: &mut dyn FnMut(usize, LazyVal) -> Result<()>,201 ) -> Result<()> {202 Ok(())203 }204205 fn named_iter(206 &self,207 ctx: Context,208 tailstrict: bool,209 handler: &mut dyn FnMut(&IStr, LazyVal) -> Result<()>,210 ) -> Result<()> {211 for (name, value) in self.iter() {212 handler(name, value.evaluate_arg(ctx.clone(), tailstrict)?)?;213 }214 Ok(())215 }216217 fn named_names(&self, handler: &mut dyn FnMut(&IStr)) {218 for (name, _) in self.iter() {219 handler(name);220 }221 }222}223224impl<A: ArgLike> ArgsLike for [A] {225 fn unnamed_len(&self) -> usize {226 self.len()227 }228229 fn unnamed_iter(230 &self,231 ctx: Context,232 tailstrict: bool,233 handler: &mut dyn FnMut(usize, LazyVal) -> Result<()>,234 ) -> Result<()> {235 for (i, arg) in self.iter().enumerate() {236 handler(i, arg.evaluate_arg(ctx.clone(), tailstrict)?)?;237 }238 Ok(())239 }240241 fn named_iter(242 &self,243 _ctx: Context,244 _tailstrict: bool,245 _handler: &mut dyn FnMut(&IStr, LazyVal) -> Result<()>,246 ) -> Result<()> {247 Ok(())248 }249250 fn named_names(&self, _handler: &mut dyn FnMut(&IStr)) {}251}252impl<A: ArgLike> ArgsLike for &[A] {253 fn unnamed_len(&self) -> usize {254 (*self).unnamed_len()255 }256257 fn unnamed_iter(258 &self,259 ctx: Context,260 tailstrict: bool,261 handler: &mut dyn FnMut(usize, LazyVal) -> Result<()>,262 ) -> Result<()> {263 (*self).unnamed_iter(ctx, tailstrict, handler)264 }265266 fn named_iter(267 &self,268 ctx: Context,269 tailstrict: bool,270 handler: &mut dyn FnMut(&IStr, LazyVal) -> Result<()>,271 ) -> Result<()> {272 (*self).named_iter(ctx, tailstrict, handler)273 }274275 fn named_names(&self, handler: &mut dyn FnMut(&IStr)) {276 (*self).named_names(handler)277 }278}279280/// Creates correct [context](Context) for function body evaluation returning error on invalid call.281///282/// ## Parameters283/// * `ctx`: used for passed argument expressions' execution and for body execution (if `body_ctx` is not set)284/// * `body_ctx`: used for default parameter values' execution and for body execution (if set)285/// * `params`: function parameters' definition286/// * `args`: passed function arguments287/// * `tailstrict`: if set to `true` function arguments are eagerly executed, otherwise - lazily288pub fn parse_function_call(289 ctx: Context,290 body_ctx: Context,291 params: &ParamsDesc,292 args: &dyn ArgsLike,293 tailstrict: bool,294) -> Result<Context> {295 let mut passed_args = GcHashMap::with_capacity(params.len());296 if args.unnamed_len() > params.len() {297 throw!(TooManyArgsFunctionHas(params.len()))298 }299300 let mut filled_args = 0;301302 args.unnamed_iter(ctx.clone(), tailstrict, &mut |id, arg| {303 let name = params[id].0.clone();304 passed_args.insert(name, arg);305 filled_args += 1;306 Ok(())307 })?;308309 args.named_iter(ctx, tailstrict, &mut |name, value| {310 // FIXME: O(n) for arg existence check311 if !params.iter().any(|p| &p.0 == name) {312 throw!(UnknownFunctionParameter((name as &str).to_owned()));313 }314 if passed_args.insert(name.clone(), value).is_some() {315 throw!(BindingParameterASecondTime(name.clone()));316 }317 filled_args += 1;318 Ok(())319 })?;320321 if filled_args < params.len() {322 // Some args are unset, but maybe we have defaults for them323 // Default values should be created in newly created context324 let future_context = Context::new_future();325 let mut defaults = GcHashMap::with_capacity(params.len() - filled_args);326327 for param in params.iter().filter(|p| p.1.is_some()) {328 if passed_args.contains_key(¶m.0.clone()) {329 continue;330 }331 LazyVal::new(TraceBox(Box::new(EvaluateNamedLazyVal {332 future_context: future_context.clone(),333 name: param.0.clone(),334 value: param.1.clone().unwrap(),335 })));336337 defaults.insert(338 param.0.clone(),339 LazyVal::new(TraceBox(Box::new(EvaluateNamedLazyVal {340 future_context: future_context.clone(),341 name: param.0.clone(),342 value: param.1.clone().unwrap(),343 }))),344 );345 filled_args += 1;346 }347348 // Some args still wasn't filled349 if filled_args != params.len() {350 for param in params.iter().skip(args.unnamed_len()) {351 let mut found = false;352 args.named_names(&mut |name| {353 if name == ¶m.0 {354 found = true;355 }356 });357 if !found {358 throw!(FunctionParameterNotBoundInCall(param.0.clone()));359 }360 }361 unreachable!();362 }363364 Ok(body_ctx365 .extend(passed_args, None, None, None)366 .extend_bound(defaults)367 .into_future(future_context))368 } else {369 let body_ctx = body_ctx.extend(passed_args, None, None, None);370 Ok(body_ctx)371 }372}373374type BuiltinParamName = Cow<'static, str>;375376#[derive(Clone, Trace)]377pub struct BuiltinParam {378 pub name: BuiltinParamName,379 pub has_default: bool,380}381382/// Do not implement it directly, instead use #[builtin] macro383pub trait Builtin: Trace {384 fn name(&self) -> &str;385 fn params(&self) -> &[BuiltinParam];386 fn call(387 &self,388 context: Context,389 loc: Option<&ExprLocation>,390 args: &dyn ArgsLike,391 ) -> Result<Val>;392}393394pub trait StaticBuiltin: Builtin + Send + Sync395where396 Self: 'static,397{398 // In impl, to make it object safe:399 // const INST: &'static Self;400}401402/// You shouldn't probally use this function, use jrsonnet_macros::builtin instead403///404/// ## Parameters405/// * `ctx`: used for passed argument expressions' execution and for body execution (if `body_ctx` is not set)406/// * `params`: function parameters' definition407/// * `args`: passed function arguments408/// * `tailstrict`: if set to `true` function arguments are eagerly executed, otherwise - lazily409pub fn parse_builtin_call(410 ctx: Context,411 params: &[BuiltinParam],412 args: &dyn ArgsLike,413 tailstrict: bool,414) -> Result<GcHashMap<BuiltinParamName, LazyVal>> {415 let mut passed_args = GcHashMap::with_capacity(params.len());416 if args.unnamed_len() > params.len() {417 throw!(TooManyArgsFunctionHas(params.len()))418 }419420 let mut filled_args = 0;421422 args.unnamed_iter(ctx.clone(), tailstrict, &mut |id, arg| {423 let name = params[id].name.clone();424 passed_args.insert(name, arg);425 filled_args += 1;426 Ok(())427 })?;428429 args.named_iter(ctx, tailstrict, &mut |name, arg| {430 // FIXME: O(n) for arg existence check431 let p = params432 .iter()433 .find(|p| p.name == name as &str)434 .ok_or_else(|| UnknownFunctionParameter((name as &str).to_owned()))?;435 if passed_args.insert(p.name.clone(), arg).is_some() {436 throw!(BindingParameterASecondTime(name.clone()));437 }438 filled_args += 1;439 Ok(())440 })?;441442 if filled_args < params.len() {443 for param in params.iter().filter(|p| p.has_default) {444 if passed_args.contains_key(¶m.name) {445 continue;446 }447 filled_args += 1;448 }449450 // Some args still wasn't filled451 if filled_args != params.len() {452 for param in params.iter().skip(args.unnamed_len()) {453 let mut found = false;454 args.named_names(&mut |name| {455 if name as &str == ¶m.name as &str {456 found = true;457 }458 });459 if !found {460 throw!(FunctionParameterNotBoundInCall(param.name.clone().into()));461 }462 }463 unreachable!();464 }465 }466 Ok(passed_args)467}468469/// Creates Context, which has all argument default values applied470/// and with unbound values causing error to be returned471pub fn parse_default_function_call(body_ctx: Context, params: &ParamsDesc) -> Context {472 let ctx = Context::new_future();473474 let mut bindings = GcHashMap::new();475476 #[derive(Trace)]477 struct DependsOnUnbound(IStr);478 impl LazyValValue for DependsOnUnbound {479 fn get(self: Box<Self>) -> Result<Val> {480 Err(FunctionParameterNotBoundInCall(self.0.clone()).into())481 }482 }483484 for param in params.iter() {485 if let Some(v) = ¶m.1 {486 bindings.insert(487 param.0.clone(),488 LazyVal::new(TraceBox(Box::new(EvaluateNamedLazyVal {489 future_context: ctx.clone(),490 name: param.0.clone(),491 value: v.clone(),492 }))),493 );494 } else {495 bindings.insert(496 param.0.clone(),497 LazyVal::new(TraceBox(Box::new(DependsOnUnbound(param.0.clone())))),498 );499 }500 }501502 body_ctx.extend(bindings, None, None, None).into_future(ctx)503}crates/jrsonnet-evaluator/src/lib.rsdiffbeforeafterboth--- a/crates/jrsonnet-evaluator/src/lib.rs
+++ b/crates/jrsonnet-evaluator/src/lib.rs
@@ -28,7 +28,7 @@
pub use dynamic::*;
use error::{Error::*, LocError, Result, StackTraceElement};
pub use evaluate::*;
-use function::{Builtin, TlaArg};
+use function::{Builtin, CallLocation, TlaArg};
use gc::{GcHashMap, TraceBox};
use gcmodule::{Cc, Trace, Weak};
pub use import::*;
@@ -173,6 +173,7 @@
/// Global state is fine here.
pub(crate) static EVAL_STATE: RefCell<Option<EvaluationState>> = RefCell::new(None)
}
+
pub(crate) fn with_state<T>(f: impl FnOnce(&EvaluationState) -> T) -> T {
EVAL_STATE.with(|s| {
f(s.borrow().as_ref().expect(
@@ -181,7 +182,7 @@
})
}
pub fn push_frame<T>(
- e: Option<&ExprLocation>,
+ e: CallLocation,
frame_desc: impl FnOnce() -> String,
f: impl FnOnce() -> Result<T>,
) -> Result<T> {
@@ -345,7 +346,7 @@
/// Executes code creating a new stack frame
pub fn push<T>(
&self,
- e: Option<&ExprLocation>,
+ e: CallLocation,
frame_desc: impl FnOnce() -> String,
f: impl FnOnce() -> Result<T>,
) -> Result<T> {
@@ -368,7 +369,7 @@
}
if let Err(mut err) = result {
err.trace_mut().0.push(StackTraceElement {
- location: e.cloned(),
+ location: e.0.cloned(),
desc: frame_desc(),
});
return Err(err);
@@ -512,7 +513,7 @@
|| {
func.evaluate(
self.create_default_context(),
- None,
+ CallLocation::native(),
&self.settings().tla_vars,
true,
)
crates/jrsonnet-evaluator/src/native.rsdiffbeforeafterboth--- a/crates/jrsonnet-evaluator/src/native.rs
+++ b/crates/jrsonnet-evaluator/src/native.rs
@@ -1,11 +1,10 @@
#![allow(clippy::type_complexity)]
-use crate::function::{parse_builtin_call, ArgsLike, Builtin, BuiltinParam};
+use crate::function::{parse_builtin_call, ArgsLike, Builtin, BuiltinParam, CallLocation};
use crate::gc::TraceBox;
use crate::Context;
use crate::{error::Result, Val};
use gcmodule::Trace;
-use jrsonnet_parser::ExprLocation;
use std::path::Path;
use std::rc::Rc;
@@ -32,18 +31,13 @@
&self.params
}
- fn call(
- &self,
- context: Context,
- loc: Option<&ExprLocation>,
- args: &dyn ArgsLike,
- ) -> Result<Val> {
+ fn call(&self, context: Context, loc: CallLocation, args: &dyn ArgsLike) -> Result<Val> {
let args = parse_builtin_call(context, &self.params, args, true)?;
let mut out_args = Vec::with_capacity(self.params.len());
for p in self.params.iter() {
out_args.push(args[&p.name].evaluate()?);
}
- self.handler.call(loc.map(|l| l.0.clone()), &out_args)
+ self.handler.call(loc.0.map(|l| l.0.clone()), &out_args)
}
}
crates/jrsonnet-evaluator/src/typed/conversions.rsdiffbeforeafterboth--- a/crates/jrsonnet-evaluator/src/typed/conversions.rs
+++ b/crates/jrsonnet-evaluator/src/typed/conversions.rs
@@ -1,5 +1,6 @@
use std::convert::{TryFrom, TryInto};
+use gcmodule::Cc;
use jrsonnet_interner::IStr;
pub use jrsonnet_macros::Typed;
use jrsonnet_types::{ComplexValType, ValType};
@@ -8,7 +9,7 @@
error::{Error::*, LocError, Result},
throw,
typed::CheckType,
- ArrValue, FuncVal, IndexableVal, ObjValue, ObjValueBuilder, Val,
+ ArrValue, FuncDesc, FuncVal, IndexableVal, ObjValue, ObjValueBuilder, Val,
};
pub trait TypedObj: Typed {
@@ -431,6 +432,30 @@
Ok(Self::Func(value))
}
}
+
+impl Typed for Cc<FuncDesc> {
+ const TYPE: &'static ComplexValType = &ComplexValType::Simple(ValType::Func);
+}
+impl TryFrom<Val> for Cc<FuncDesc> {
+ type Error = LocError;
+
+ fn try_from(value: Val) -> Result<Self, Self::Error> {
+ <Self as Typed>::TYPE.check(&value)?;
+ match value {
+ Val::Func(FuncVal::Normal(desc)) => Ok(desc.clone()),
+ Val::Func(_) => throw!(RuntimeError("expected normal function, not builtin".into())),
+ _ => unreachable!(),
+ }
+ }
+}
+impl TryFrom<Cc<FuncDesc>> for Val {
+ type Error = LocError;
+
+ fn try_from(value: Cc<FuncDesc>) -> Result<Self, Self::Error> {
+ Ok(Self::Func(FuncVal::Normal(value)))
+ }
+}
+
impl Typed for ObjValue {
const TYPE: &'static ComplexValType = &ComplexValType::Simple(ValType::Obj);
}
crates/jrsonnet-evaluator/src/val.rsdiffbeforeafterboth--- a/crates/jrsonnet-evaluator/src/val.rs
+++ b/crates/jrsonnet-evaluator/src/val.rs
@@ -6,14 +6,15 @@
error::{Error::*, LocError},
evaluate,
function::{
- parse_default_function_call, parse_function_call, ArgsLike, Builtin, StaticBuiltin,
+ parse_default_function_call, parse_function_call, ArgsLike, Builtin, CallLocation,
+ StaticBuiltin,
},
gc::TraceBox,
throw, Context, ObjValue, Result,
};
use gcmodule::{Cc, Trace};
use jrsonnet_interner::IStr;
-use jrsonnet_parser::{ExprLocation, LocExpr, ParamsDesc};
+use jrsonnet_parser::{LocExpr, ParamsDesc};
use jrsonnet_types::ValType;
use std::{cell::RefCell, fmt::Debug, rc::Rc};
@@ -152,7 +153,7 @@
pub fn evaluate(
&self,
call_ctx: Context,
- loc: Option<&ExprLocation>,
+ loc: CallLocation,
args: &dyn ArgsLike,
tailstrict: bool,
) -> Result<Val> {
@@ -166,7 +167,7 @@
}
}
pub fn evaluate_simple(&self, args: &dyn ArgsLike) -> Result<Val> {
- self.evaluate(Context::default(), None, args, true)
+ self.evaluate(Context::default(), CallLocation::native(), args, true)
}
}
crates/jrsonnet-macros/src/lib.rsdiffbeforeafterboth--- a/crates/jrsonnet-macros/src/lib.rs
+++ b/crates/jrsonnet-macros/src/lib.rs
@@ -1,5 +1,5 @@
use proc_macro2::TokenStream;
-use quote::{quote, quote_spanned};
+use quote::quote;
use syn::{
parenthesized,
parse::{Parse, ParseStream},
@@ -7,8 +7,8 @@
punctuated::Punctuated,
spanned::Spanned,
token::Comma,
- Attribute, DeriveInput, Error, FnArg, GenericArgument, Ident, ItemFn, LitStr, Pat, PatType,
- Path, PathArguments, Result, Token, Type,
+ Attribute, DeriveInput, Error, FnArg, GenericArgument, Ident, ItemFn, LitStr, Pat, Path,
+ PathArguments, Result, ReturnType, Token, Type,
};
fn parse_attr<A: Parse, I>(attrs: &[Attribute], ident: I) -> Result<Option<A>>
@@ -33,49 +33,42 @@
Ok(Some(attr))
}
-fn is_location_arg(t: &PatType) -> bool {
- t.attrs.iter().any(|a| a.path.is_ident("location"))
-}
-fn is_self_arg(t: &PatType) -> bool {
- t.attrs.iter().any(|a| a.path.is_ident("self"))
+fn path_is(path: &Path, needed: &str) -> bool {
+ path.leading_colon.is_none()
+ && path.segments.len() >= 1
+ && path.segments.iter().last().unwrap().ident == needed
}
-trait RetainHad<T> {
- fn retain_had(&mut self, h: impl FnMut(&T) -> bool) -> bool;
-}
-impl<T> RetainHad<T> for Vec<T> {
- fn retain_had(&mut self, h: impl FnMut(&T) -> bool) -> bool {
- let before = self.len();
- self.retain(h);
- let after = self.len();
- before != after
+fn type_is_path<'ty>(ty: &'ty Type, needed: &str) -> Option<&'ty PathArguments> {
+ match ty {
+ Type::Path(path) if path.qself.is_none() && path_is(&path.path, needed) => {
+ let args = &path.path.segments.iter().last().unwrap().arguments;
+ Some(args)
+ }
+ _ => None,
}
}
-fn extract_type_from_option(ty: &Type) -> Option<&Type> {
- fn path_is_option(path: &Path) -> bool {
- path.leading_colon.is_none()
- && path.segments.len() == 1
- && path.segments.iter().next().unwrap().ident == "Option"
- }
-
- match ty {
- Type::Path(typepath) if typepath.qself.is_none() && path_is_option(&typepath.path) => {
- // Get the first segment of the path (there is only one, in fact: "Option"):
- let type_params = &typepath.path.segments.iter().next().unwrap().arguments;
- // It should have only on angle-bracketed param ("<String>"):
- let generic_arg = match type_params {
- PathArguments::AngleBracketed(params) => params.args.iter().next().unwrap(),
- _ => panic!("missing option generic"),
- };
- // This argument must be a type:
- match generic_arg {
- GenericArgument::Type(ty) => Some(ty),
- _ => panic!("option generic should be a type"),
+fn extract_type_from_option(ty: &Type) -> Result<Option<&Type>> {
+ Ok(if let Some(args) = type_is_path(ty, "Option") {
+ // It should have only on angle-bracketed param ("<String>"):
+ let generic_arg = match args {
+ PathArguments::AngleBracketed(params) => params.args.iter().next().unwrap(),
+ _ => return Err(Error::new(args.span(), "missing option generic")),
+ };
+ // This argument must be a type:
+ match generic_arg {
+ GenericArgument::Type(ty) => Some(ty),
+ _ => {
+ return Err(Error::new(
+ generic_arg.span(),
+ "option generic should be a type",
+ ))
}
}
- _ => None,
- }
+ } else {
+ None
+ })
}
struct Field {
@@ -101,7 +94,7 @@
struct EmptyAttr;
impl Parse for EmptyAttr {
- fn parse(input: ParseStream) -> Result<Self> {
+ fn parse(_input: ParseStream) -> Result<Self> {
Ok(Self)
}
}
@@ -124,107 +117,158 @@
}
}
+enum ArgInfo {
+ Normal {
+ ty: Type,
+ is_option: bool,
+ name: String,
+ // ident: Ident,
+ },
+ Lazy {
+ is_option: bool,
+ name: String,
+ },
+ Location,
+ This,
+}
+
+impl ArgInfo {
+ fn parse(arg: &FnArg) -> Result<Self> {
+ let typed = match arg {
+ FnArg::Receiver(_) => unreachable!(),
+ FnArg::Typed(a) => a,
+ };
+ let ident = match &typed.pat as &Pat {
+ Pat::Ident(i) => i.ident.clone(),
+ _ => {
+ return Err(Error::new(
+ typed.pat.span(),
+ "arg should be plain identifier",
+ ))
+ }
+ };
+ let ty = &typed.ty as &Type;
+ if type_is_path(&ty, "CallLocation").is_some() {
+ return Ok(Self::Location);
+ } else if type_is_path(&ty, "Self").is_some() {
+ return Ok(Self::This);
+ } else if type_is_path(&ty, "LazyVal").is_some() {
+ return Ok(Self::Lazy {
+ is_option: false,
+ name: ident.to_string(),
+ });
+ }
+
+ let (is_option, ty) = if let Some(ty) = extract_type_from_option(&ty)? {
+ if type_is_path(&ty, "LazyVal").is_some() {
+ return Ok(Self::Lazy {
+ is_option: true,
+ name: ident.to_string(),
+ });
+ }
+
+ (true, ty.clone())
+ } else {
+ (false, ty.clone())
+ };
+
+ Ok(Self::Normal {
+ ty,
+ is_option,
+ name: ident.to_string(),
+ // ident,
+ })
+ }
+}
+
#[proc_macro_attribute]
pub fn builtin(
attr: proc_macro::TokenStream,
item: proc_macro::TokenStream,
) -> proc_macro::TokenStream {
- let attrs = parse_macro_input!(attr as BuiltinAttrs);
- let mut fun: ItemFn = parse_macro_input!(item);
+ let attr = parse_macro_input!(attr as BuiltinAttrs);
+ let item: ItemFn = parse_macro_input!(item);
+
+ match builtin_inner(attr, item) {
+ Ok(v) => v.into(),
+ Err(e) => e.into_compile_error().into(),
+ }
+}
+fn builtin_inner(attr: BuiltinAttrs, fun: ItemFn) -> syn::Result<TokenStream> {
let result = match fun.sig.output {
- syn::ReturnType::Default => {
- return quote_spanned! { fun.sig.span() =>
- compile_error!("builtins should return something");
- }
- .into()
+ ReturnType::Default => {
+ return Err(Error::new(
+ fun.sig.span(),
+ "builtin should return something",
+ ))
}
- syn::ReturnType::Type(_, ref ty) => ty.clone(),
+ ReturnType::Type(_, ref ty) => ty.clone(),
};
- let params = fun
+ let args = fun
.sig
.inputs
.iter()
- .map(|i| match i {
- FnArg::Receiver(_) => unreachable!(),
- FnArg::Typed(t) => t,
- })
- .filter(|a| !is_location_arg(a) && !is_self_arg(a))
- .map(|t| {
- let ident = match &t.pat as &Pat {
- Pat::Ident(i) => i.ident.to_string(),
- _ => {
- return quote_spanned! { t.pat.span() =>
- compile_error!("args should be plain identifiers")
- }
- .into()
- }
- };
- let optional = extract_type_from_option(&t.ty).is_some();
- quote! {
- BuiltinParam {
- name: std::borrow::Cow::Borrowed(#ident),
- has_default: #optional,
- }
+ .map(|a| ArgInfo::parse(a))
+ .collect::<Result<Vec<_>>>()?;
+
+ let params_desc = args.iter().flat_map(|a| match a {
+ ArgInfo::Normal {
+ is_option, name, ..
+ }
+ | ArgInfo::Lazy { is_option, name } => Some(quote! {
+ BuiltinParam {
+ name: std::borrow::Cow::Borrowed(#name),
+ has_default: #is_option,
}
- })
- .collect::<Vec<_>>();
+ }),
+ ArgInfo::Location => None,
+ ArgInfo::This => None,
+ });
- let args = fun
- .sig
- .inputs
- .iter_mut()
- .map(|i| match i {
- FnArg::Receiver(_) => unreachable!(),
- FnArg::Typed(t) => t,
- })
- .map(|t| {
- if t.attrs.retain_had(|a| !a.path.is_ident("location")) {
- quote! {{
- loc
+ let pass = args.iter().map(|a| match a {
+ ArgInfo::Normal {
+ ty,
+ is_option,
+ name,
+ // ident,
+ } => {
+ let eval = quote! {::jrsonnet_evaluator::push_description_frame(
+ || format!("argument <{}> evaluation", #name),
+ || <#ty>::try_from(value.evaluate()?),
+ )?};
+ if *is_option {
+ quote! {if let Some(value) = parsed.get(#name) {
+ Some(#eval)
+ } else {
+ None
}}
- } else if t.attrs.retain_had(|a| !a.path.is_ident("self")) {
+ } else {
quote! {{
- self
+ let value = parsed.get(#name).expect("args shape is checked");
+ #eval
}}
- } else {
- let ident = match &t.pat as &Pat {
- Pat::Ident(i) => i.ident.to_string(),
- _ => {
- return quote_spanned! { t.pat.span() =>
- compile_error!("args should be plain identifiers")
- }
- .into()
- }
- };
- let ty = &t.ty;
- if let Some(opt_ty) = extract_type_from_option(&t.ty) {
- quote! {{
- if let Some(value) = parsed.get(#ident) {
- Some(::jrsonnet_evaluator::push_description_frame(
- || format!("argument <{}> evaluation", #ident),
- || <#opt_ty>::try_from(value.evaluate()?),
- )?)
- } else {
- None
- }
- }}
+ }
+ }
+ ArgInfo::Lazy { is_option, name } => {
+ if *is_option {
+ quote! {if let Some(value) = parsed.get(#name) {
+ Some(value.clone())
} else {
- quote! {{
- let value = parsed.get(#ident).unwrap();
-
- ::jrsonnet_evaluator::push_description_frame(
- || format!("argument <{}> evaluation", #ident),
- || <#ty>::try_from(value.evaluate()?),
- )?
- }}
+ None
+ }}
+ } else {
+ quote! {
+ parsed.get(#name).expect("args shape is correct").clone()
}
}
- })
- .collect::<Vec<_>>();
+ }
+ ArgInfo::Location => quote! {location},
+ ArgInfo::This => quote! {self},
+ });
- let fields = attrs.fields.iter().map(|field| {
+ let fields = attr.fields.iter().map(|field| {
let name = &field.name;
let ty = &field.ty;
quote! {
@@ -234,7 +278,7 @@
let name = &fun.sig.ident;
let vis = &fun.vis;
- let static_ext = if attrs.fields.is_empty() {
+ let static_ext = if attr.fields.is_empty() {
quote! {
impl #name {
pub const INST: &'static dyn StaticBuiltin = &#name {};
@@ -244,13 +288,13 @@
} else {
quote! {}
};
- let static_derive_copy = if attrs.fields.is_empty() {
+ let static_derive_copy = if attr.fields.is_empty() {
quote! {, Copy}
} else {
quote! {}
};
- (quote! {
+ Ok(quote! {
#fun
#[doc(hidden)]
#[allow(non_camel_case_types)]
@@ -260,12 +304,12 @@
}
const _: () = {
use ::jrsonnet_evaluator::{
- function::{Builtin, StaticBuiltin, BuiltinParam, ArgsLike, parse_builtin_call},
+ function::{Builtin, CallLocation, StaticBuiltin, BuiltinParam, ArgsLike, parse_builtin_call},
error::Result, Context,
parser::ExprLocation,
};
const PARAMS: &'static [BuiltinParam] = &[
- #(#params),*
+ #(#params_desc),*
];
#static_ext
@@ -279,17 +323,16 @@
fn params(&self) -> &[BuiltinParam] {
PARAMS
}
- fn call(&self, context: Context, loc: Option<&ExprLocation>, args: &dyn ArgsLike) -> Result<Val> {
+ fn call(&self, context: Context, location: CallLocation, args: &dyn ArgsLike) -> Result<Val> {
let parsed = parse_builtin_call(context, &PARAMS, args, false)?;
- let result: #result = #name(#(#args),*);
+ let result: #result = #name(#(#pass),*);
let result = result?;
result.try_into()
}
}
};
})
- .into()
}
#[derive(Default)]
@@ -366,15 +409,6 @@
)
}
- fn expand_shallow_field(&self) -> Option<TokenStream> {
- if self.is_option() {
- return None;
- }
- let name = self.name()?;
- Some(quote! {
- (#name, ComplexValType::Any)
- })
- }
fn expand_field(&self) -> Option<TokenStream> {
if self.is_option() {
return None;
@@ -450,7 +484,7 @@
}
fn as_option(&self) -> Option<&Type> {
- extract_type_from_option(&self.0.ty)
+ extract_type_from_option(&self.0.ty).unwrap()
}
fn is_option(&self) -> bool {
self.as_option().is_some()
@@ -460,25 +494,25 @@
#[proc_macro_derive(Typed, attributes(typed))]
pub fn derive_typed(item: proc_macro::TokenStream) -> proc_macro::TokenStream {
let input = parse_macro_input!(item as DeriveInput);
+
+ match derive_typed_inner(input) {
+ Ok(v) => v.into(),
+ Err(e) => e.to_compile_error().into(),
+ }
+}
+
+fn derive_typed_inner(input: DeriveInput) -> Result<TokenStream> {
let data = match &input.data {
syn::Data::Struct(s) => s,
- _ => {
- return syn::Error::new(input.span(), "only structs supported")
- .to_compile_error()
- .into()
- }
+ _ => return Err(Error::new(input.span(), "only structs supported")),
};
let ident = &input.ident;
- let fields = match data
+ let fields = data
.fields
.iter()
.map(TypedField::try_new)
- .collect::<Result<Vec<_>>>()
- {
- Ok(v) => v,
- Err(e) => return e.to_compile_error().into(),
- };
+ .collect::<Result<Vec<_>>>()?;
let typed = {
let fields = fields
@@ -499,7 +533,7 @@
let fields_parse = fields.iter().map(TypedField::expand_parse);
let fields_serialize = fields.iter().map(TypedField::expand_serialize);
- quote! {
+ Ok(quote! {
const _: () = {
use ::jrsonnet_evaluator::{
typed::{ComplexValType, Typed, TypedObj, CheckType},
@@ -540,6 +574,5 @@
}
()
};
- }
- .into()
+ })
}