git.delta.rocks / jrsonnet / refs/commits / 5eebad49b82e

1use std::{2	cell::RefCell,3	cmp::Ordering,4	fmt::{self, Debug, Display},5	marker::PhantomData,6	mem::replace,7	num::NonZeroU32,8	rc::Rc,9};1011use jrsonnet_gcmodule::{Acyclic, Cc, Trace, cc_dyn};12use jrsonnet_interner::IStr;13use jrsonnet_ir::BinaryOpType;14pub use jrsonnet_macros::Thunk;15use jrsonnet_types::ValType;16use rustc_hash::FxHashMap;1718pub use crate::arr::{ArrValue, ArrayLike};19use crate::{20	NumValue, ObjValue, Result, SupThis, Unbound, WeakSupThis, bail,21	error::{Error, ErrorKind::*},22	evaluate::operator::{evaluate_compare_op, evaluate_mod_op},23	function::FuncVal,24	gc::WithCapacityExt as _,25	manifest::{ManifestFormat, ToStringFormat},26	typed::BoundedUsize,27};2829pub trait ThunkValue: Trace {30	type Output;31	fn get(&self) -> Result<Self::Output>;32}3334#[derive(Trace)]35enum MemoizedClusureThunkInner<D: Trace, T: Trace> {36	Computed(T),37	Errored(Error),38	Waiting {39		env: D,40		// Carries no data, as it is not a real closure, all the41		// captured environment is stored in `env` field.42		#[trace(skip)]43		closure: fn(D) -> Result<T>,44	},45	Pending,46}47#[derive(Trace)]48pub struct MemoizedClosureThunk<D: Trace, T: Trace>(RefCell<MemoizedClusureThunkInner<D, T>>);49impl<D: Trace, T: Trace> MemoizedClosureThunk<D, T> {50	pub fn new(env: D, closure: fn(D) -> Result<T>) -> Self {51		Self(RefCell::new(MemoizedClusureThunkInner::Waiting {52			env,53			closure,54		}))55	}56}5758impl<D: Trace, T: Trace + Clone> ThunkValue for MemoizedClosureThunk<D, T> {59	type Output = T;6061	fn get(&self) -> Result<Self::Output> {62		match &*self.0.borrow() {63			MemoizedClusureThunkInner::Computed(v) => return Ok(v.clone()),64			MemoizedClusureThunkInner::Errored(e) => return Err(e.clone()),65			MemoizedClusureThunkInner::Pending => return Err(InfiniteRecursionDetected.into()),66			MemoizedClusureThunkInner::Waiting { .. } => (),67		}68		let MemoizedClusureThunkInner::Waiting { env, closure } = replace(69			&mut *self.0.borrow_mut(),70			MemoizedClusureThunkInner::Pending,71		) else {72			unreachable!();73		};74		let new_value = match closure(env) {75			Ok(v) => v,76			Err(e) => {77				*self.0.borrow_mut() = MemoizedClusureThunkInner::Errored(e.clone());78				return Err(e);79			}80		};81		*self.0.borrow_mut() = MemoizedClusureThunkInner::Computed(new_value.clone());82		Ok(new_value)83	}84}8586cc_dyn!(87	/// Lazily evaluated value88	#[derive(Clone)] Thunk<V: Trace>,89	ThunkValue<Output = V>,90	pub fn new() {...}91);9293impl<T: Trace> Thunk<T> {94	pub fn evaluated(val: T) -> Self95	where96		T: Clone,97	{98		#[derive(Trace)]99		struct EvaluatedThunk<T: Trace>(T);100		impl<T> ThunkValue for EvaluatedThunk<T>101		where102			T: Clone + Trace,103		{104			type Output = T;105106			fn get(&self) -> Result<Self::Output> {107				Ok(self.0.clone())108			}109		}110		Self::new(EvaluatedThunk(val))111	}112	pub fn errored(e: Error) -> Self {113		#[derive(Trace)]114		struct ErroredThunk<T: Trace>(Error, PhantomData<T>);115		impl<T> ThunkValue for ErroredThunk<T>116		where117			T: Trace,118		{119			type Output = T;120121			fn get(&self) -> Result<Self::Output> {122				Err(self.0.clone())123			}124		}125		Self::new(ErroredThunk(e, PhantomData))126	}127	pub fn result(res: Result<T, Error>) -> Self128	where129		T: Clone,130	{131		match res {132			Ok(o) => Self::evaluated(o),133			Err(e) => Self::errored(e),134		}135	}136}137138impl<T> Thunk<T>139where140	T: Trace,141{142	pub fn force(&self) -> Result<()> {143		self.evaluate()?;144		Ok(())145	}146147	/// Evaluate thunk, or return cached value148	///149	/// # Errors150	///151	/// - Lazy value evaluation returned error152	/// - This method was called during inner value evaluation153	pub fn evaluate(&self) -> Result<T> {154		self.0.get()155	}156}157158pub trait ThunkMapper<Input>: Trace {159	type Output;160	fn map(self, from: Input) -> Result<Self::Output>;161}162impl<Input> Thunk<Input>163where164	Input: Trace,165{166	pub fn map<M>(self, mapper: M) -> Thunk<M::Output>167	where168		M: ThunkMapper<Input>,169		M::Output: Trace + Clone,170	{171		let inner = self;172		Thunk!(move || {173			let value = inner.evaluate()?;174			let mapped = mapper.map(value)?;175			Ok(mapped)176		})177	}178}179180impl<T: Trace + Clone> From<Result<T>> for Thunk<T> {181	fn from(value: Result<T>) -> Self {182		match value {183			Ok(o) => Self::evaluated(o),184			Err(e) => Self::errored(e),185		}186	}187}188impl<T, V: Trace> From<T> for Thunk<V>189where190	T: ThunkValue<Output = V>,191{192	fn from(value: T) -> Self {193		Self::new(value)194	}195}196197impl<T: Trace + Default + Clone> Default for Thunk<T> {198	fn default() -> Self {199		Self::evaluated(T::default())200	}201}202203#[derive(Trace, Clone)]204pub struct CachedUnbound<I, T>205where206	I: Unbound<Bound = T>,207	T: Trace,208{209	cache: Cc<RefCell<FxHashMap<WeakSupThis, T>>>,210	value: I,211}212impl<I: Unbound<Bound = T>, T: Trace> CachedUnbound<I, T> {213	pub fn new(value: I) -> Self {214		Self {215			cache: Cc::new(RefCell::new(FxHashMap::new())),216			value,217		}218	}219}220impl<I: Unbound<Bound = T>, T: Clone + Trace> Unbound for CachedUnbound<I, T> {221	type Bound = T;222	fn bind(&self, sup_this: SupThis) -> Result<T> {223		let cache_key = sup_this.clone().downgrade();224		{225			if let Some(t) = self.cache.borrow().get(&cache_key) {226				return Ok(t.clone());227			}228		}229		let bound = self.value.bind(sup_this)?;230231		{232			let mut cache = self.cache.borrow_mut();233			cache.insert(cache_key, bound.clone());234		}235236		Ok(bound)237	}238}239240impl<T: Debug + Trace> Debug for Thunk<T> {241	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {242		write!(f, "Lazy")243	}244}245impl<T: Trace> PartialEq for Thunk<T> {246	fn eq(&self, other: &Self) -> bool {247		Cc::ptr_eq(&self.0, &other.0)248	}249}250251/// Represents a Jsonnet value, which can be sliced or indexed (string or array).252#[allow(clippy::module_name_repetitions)]253pub enum IndexableVal {254	/// String.255	Str(IStr),256	/// Array.257	Arr(ArrValue),258}259impl IndexableVal {260	pub fn is_empty(&self) -> bool {261		match self {262			Self::Str(s) => s.is_empty(),263			Self::Arr(s) => s.is_empty(),264		}265	}266267	pub fn to_array(self) -> ArrValue {268		match self {269			Self::Str(s) => s.chars().collect(),270			Self::Arr(arr) => arr,271		}272	}273	/// Slice the value.274	///275	/// # Implementation276	///277	/// For strings, will create a copy of specified interval.278	///279	/// For arrays, nothing will be copied on this call, instead [`ArrValue::Slice`] view will be returned.280	pub fn slice(281		self,282		index: Option<i32>,283		end: Option<i32>,284		step: Option<BoundedUsize<1, { i32::MAX as usize }>>,285	) -> Result<Self> {286		match &self {287			Self::Str(s) => {288				let mut computed_len = None;289				let mut get_len = || {290					computed_len.unwrap_or_else(|| {291						let len = s.chars().count();292						let _ = computed_len.insert(len);293						len294					})295				};296				let mut get_idx = |pos: Option<i32>, default| {297					match pos {298						#[expect(clippy::cast_sign_loss, reason = "abs value is used")]299						Some(v) if v < 0 => get_len().saturating_sub((-v as isize) as usize),300						// No need to clamp, as iterator interface is used301						#[expect(clippy::cast_sign_loss, reason = "abs value is used")]302						Some(v) => v as usize,303						None => default,304					}305				};306307				let index = get_idx(index, 0);308				let end = get_idx(end, usize::MAX);309				let step = step.as_deref().copied().unwrap_or(1);310311				if index >= end {312					return Ok(Self::Str("".into()));313				}314315				Ok(Self::Str(316					(s.chars()317						.skip(index)318						.take(end - index)319						.step_by(step)320						.collect::<String>())321					.into(),322				))323			}324			Self::Arr(arr) => Ok(Self::Arr(arr.clone().slice(325				index,326				end,327				#[expect(328					clippy::cast_possible_truncation,329					reason = "overflow will result with skip too large which would be equivalent"330				)]331				step.map(|v| NonZeroU32::new(v.value() as u32).expect("bounded != 0")),332			))),333		}334	}335}336337#[derive(Debug, Clone, Acyclic)]338pub enum StrValue {339	Flat(IStr),340	Tree(Rc<(StrValue, StrValue, usize)>),341}342impl StrValue {343	pub fn concat(a: Self, b: Self) -> Self {344		// TODO: benchmark for an optimal value, currently just a arbitrary choice345		const STRING_EXTEND_THRESHOLD: usize = 100;346347		if a.is_empty() {348			b349		} else if b.is_empty() {350			a351		} else if a.len() + b.len() < STRING_EXTEND_THRESHOLD {352			Self::Flat(format!("{a}{b}").into())353		} else {354			let len = a.len() + b.len();355			Self::Tree(Rc::new((a, b, len)))356		}357	}358	pub fn chunks(&self, c: &mut impl FnMut(&IStr)) {359		fn write_buf(s: &StrValue, c: &mut impl FnMut(&IStr)) {360			match s {361				StrValue::Flat(f) => c(f),362				StrValue::Tree(t) => {363					write_buf(&t.0, c);364					write_buf(&t.1, c);365				}366			}367		}368		write_buf(self, c);369	}370	pub fn into_flat(&self) -> IStr {371		fn write_buf(s: &StrValue, out: &mut String) {372			match s {373				StrValue::Flat(f) => out.push_str(f),374				StrValue::Tree(t) => {375					write_buf(&t.0, out);376					write_buf(&t.1, out);377				}378			}379		}380		match self {381			Self::Flat(f) => f.clone(),382			Self::Tree(_) => {383				let mut buf = String::with_capacity(self.len());384				write_buf(self, &mut buf);385				buf.into()386			}387		}388	}389	pub fn len(&self) -> usize {390		match self {391			Self::Flat(v) => v.len(),392			Self::Tree(t) => t.2,393		}394	}395	pub fn is_empty(&self) -> bool {396		match self {397			Self::Flat(v) => v.is_empty(),398			// Can't create non-flat empty string399			Self::Tree(_) => false,400		}401	}402}403impl<T> From<T> for StrValue404where405	IStr: From<T>,406{407	fn from(value: T) -> Self {408		Self::Flat(IStr::from(value))409	}410}411impl Display for StrValue {412	fn fmt(&self, f: &mut fmt::Formatter<'_>) -> fmt::Result {413		match self {414			Self::Flat(v) => write!(f, "{v}"),415			Self::Tree(t) => {416				write!(f, "{}", t.0)?;417				write!(f, "{}", t.1)418			}419		}420	}421}422impl PartialEq for StrValue {423	// False positive, into_flat returns not StrValue, but IStr, thus no infinite recursion here.424	#[allow(clippy::unconditional_recursion)]425	fn eq(&self, other: &Self) -> bool {426		let a = self.clone().into_flat();427		let b = other.clone().into_flat();428		a == b429	}430}431impl Eq for StrValue {}432impl PartialOrd for StrValue {433	fn partial_cmp(&self, other: &Self) -> Option<Ordering> {434		Some(self.cmp(other))435	}436}437impl Ord for StrValue {438	fn cmp(&self, other: &Self) -> Ordering {439		let a = self.clone().into_flat();440		let b = other.clone().into_flat();441		a.cmp(&b)442	}443}444445/// Represents any valid Jsonnet value.446#[derive(Debug, Clone, Trace, Default)]447pub enum Val {448	/// Represents a Jsonnet boolean.449	Bool(bool),450	/// Represents a Jsonnet null value.451	#[default]452	Null,453	/// Represents a Jsonnet string.454	Str(StrValue),455	/// Represents a Jsonnet number.456	/// Should be finite, and not NaN457	/// This restriction isn't enforced by enum, as enum field can't be marked as private458	Num(NumValue),459	/// Experimental bigint460	#[cfg(feature = "exp-bigint")]461	BigInt(#[trace(skip)] Box<num_bigint::BigInt>),462	/// Represents a Jsonnet array.463	Arr(ArrValue),464	/// Represents a Jsonnet object.465	Obj(ObjValue),466	/// Represents a Jsonnet function.467	Func(FuncVal),468}469470#[cfg(target_pointer_width = "64")]471static_assertions::assert_eq_size!(Val, [u8; 24]);472473impl From<IndexableVal> for Val {474	fn from(v: IndexableVal) -> Self {475		match v {476			IndexableVal::Str(s) => Self::string(s),477			IndexableVal::Arr(a) => Self::Arr(a),478		}479	}480}481482impl Val {483	pub const fn as_bool(&self) -> Option<bool> {484		match self {485			Self::Bool(v) => Some(*v),486			_ => None,487		}488	}489	pub const fn as_null(&self) -> Option<()> {490		match self {491			Self::Null => Some(()),492			_ => None,493		}494	}495	pub fn as_str(&self) -> Option<IStr> {496		match self {497			Self::Str(s) => Some(s.clone().into_flat()),498			_ => None,499		}500	}501	pub const fn as_num(&self) -> Option<f64> {502		match self {503			Self::Num(n) => Some(n.get()),504			_ => None,505		}506	}507	#[cfg(feature = "exp-bigint")]508	pub fn as_bigint(&self) -> Option<num_bigint::BigInt> {509		match self {510			Self::BigInt(n) => Some(*n.clone()),511			_ => None,512		}513	}514	pub fn as_arr(&self) -> Option<ArrValue> {515		match self {516			Self::Arr(a) => Some(a.clone()),517			_ => None,518		}519	}520	pub fn as_obj(&self) -> Option<ObjValue> {521		match self {522			Self::Obj(o) => Some(o.clone()),523			_ => None,524		}525	}526	pub fn as_func(&self) -> Option<FuncVal> {527		match self {528			Self::Func(f) => Some(f.clone()),529			_ => None,530		}531	}532533	pub const fn value_type(&self) -> ValType {534		match self {535			Self::Str(..) => ValType::Str,536			Self::Num(..) => ValType::Num,537			#[cfg(feature = "exp-bigint")]538			Self::BigInt(..) => ValType::BigInt,539			Self::Arr(..) => ValType::Arr,540			Self::Obj(..) => ValType::Obj,541			Self::Bool(_) => ValType::Bool,542			Self::Null => ValType::Null,543			Self::Func(..) => ValType::Func,544		}545	}546547	pub fn manifest(&self, format: impl ManifestFormat) -> Result<String> {548		fn manifest_dyn(val: &Val, manifest: &dyn ManifestFormat) -> Result<String> {549			manifest.manifest(val.clone())550		}551		manifest_dyn(self, &format)552	}553554	pub fn to_string(&self) -> Result<IStr> {555		Ok(match self {556			Self::Bool(true) => "true".into(),557			Self::Bool(false) => "false".into(),558			Self::Null => "null".into(),559			Self::Str(s) => s.clone().into_flat(),560			_ => self.manifest(ToStringFormat).map(IStr::from)?,561		})562	}563564	pub fn into_indexable(self) -> Result<IndexableVal> {565		Ok(match self {566			Self::Str(s) => IndexableVal::Str(s.into_flat()),567			Self::Arr(arr) => IndexableVal::Arr(arr),568			_ => bail!(ValueIsNotIndexable(self.value_type())),569		})570	}571572	pub fn function(function: impl Into<FuncVal>) -> Self {573		Self::Func(function.into())574	}575	pub fn string(string: impl Into<StrValue>) -> Self {576		Self::Str(string.into())577	}578	pub fn num(num: impl Into<NumValue>) -> Self {579		Self::Num(num.into())580	}581	pub fn try_num<V, E>(num: V) -> Result<Self, E>582	where583		NumValue: TryFrom<V, Error = E>,584	{585		Ok(Self::Num(num.try_into()?))586	}587	pub fn arr(a: impl ArrayLike) -> Self {588		Self::Arr(ArrValue::new(a))589	}590591	pub fn try_cmp(a: &Val, b: &Val) -> Result<Ordering> {592		evaluate_compare_op(a, b, BinaryOpType::Lt)593	}594	pub fn try_mod(a: &Val, b: &Val) -> Result<Val> {595		evaluate_mod_op(a, b)596	}597}598599impl From<IStr> for Val {600	fn from(value: IStr) -> Self {601		Self::string(value)602	}603}604impl From<String> for Val {605	fn from(value: String) -> Self {606		Self::string(value)607	}608}609impl From<&str> for Val {610	fn from(value: &str) -> Self {611		Self::string(value)612	}613}614impl From<ObjValue> for Val {615	fn from(value: ObjValue) -> Self {616		Self::Obj(value)617	}618}619620const fn is_function_like(val: &Val) -> bool {621	matches!(val, Val::Func(_))622}623624/// Native implementation of `std.primitiveEquals`625pub fn primitive_equals(val_a: &Val, val_b: &Val) -> Result<bool> {626	Ok(match (val_a, val_b) {627		(Val::Bool(a), Val::Bool(b)) => a == b,628		(Val::Null, Val::Null) => true,629		(Val::Str(a), Val::Str(b)) => a == b,630		(Val::Num(a), Val::Num(b)) => (a.get() - b.get()).abs() <= f64::EPSILON,631		#[cfg(feature = "exp-bigint")]632		(Val::BigInt(a), Val::BigInt(b)) => a == b,633		(Val::Arr(_), Val::Arr(_)) => {634			bail!("primitiveEquals operates on primitive types, got array")635		}636		(Val::Obj(_), Val::Obj(_)) => {637			bail!("primitiveEquals operates on primitive types, got object")638		}639		(a, b) if is_function_like(a) && is_function_like(b) => {640			bail!("cannot test equality of functions")641		}642		(_, _) => false,643	})644}645646/// Native implementation of `std.equals`647pub fn equals(val_a: &Val, val_b: &Val) -> Result<bool> {648	if val_a.value_type() != val_b.value_type() {649		return Ok(false);650	}651	match (val_a, val_b) {652		(Val::Arr(a), Val::Arr(b)) => {653			if ArrValue::ptr_eq(a, b) {654				return Ok(true);655			}656			if a.len() != b.len() {657				return Ok(false);658			}659			for (a, b) in a.iter().zip(b.iter()) {660				if !equals(&a?, &b?)? {661					return Ok(false);662				}663			}664			Ok(true)665		}666		(Val::Obj(a), Val::Obj(b)) => {667			if ObjValue::ptr_eq(a, b) {668				return Ok(true);669			}670			let fields = a.fields(671				#[cfg(feature = "exp-preserve-order")]672				false,673			);674			if fields675				!= b.fields(676					#[cfg(feature = "exp-preserve-order")]677					false,678				) {679				return Ok(false);680			}681			for field in fields {682				if !equals(683					&a.get(field.clone())?.expect("field exists"),684					&b.get(field)?.expect("field exists"),685				)? {686					return Ok(false);687				}688			}689			Ok(true)690		}691		(a, b) => Ok(primitive_equals(a, b)?),692	}693}