1use std::{2 cell::{Ref, RefCell, RefMut},3 collections::HashMap,4 rc::Rc,5};67use jrsonnet_evaluator::{8 error::{ErrorKind::*, Result},9 function::{builtin::Builtin, CallLocation, FuncVal, TlaArg},10 gc::{GcHashMap, TraceBox},11 tb,12 trace::PathResolver,13 Context, ContextBuilder, IStr, ObjValue, ObjValueBuilder, State, Thunk, Val,14};15use jrsonnet_gcmodule::{Cc, Trace};16use jrsonnet_parser::Source;1718mod expr;19mod types;20pub use types::*;21mod arrays;22pub use arrays::*;23mod math;24pub use math::*;25mod operator;26pub use operator::*;27mod sort;28pub use sort::*;29mod hash;30pub use hash::*;31mod encoding;32pub use encoding::*;33mod objects;34pub use objects::*;35mod manifest;36pub use manifest::*;37mod parse;38pub use parse::*;39mod strings;40pub use strings::*;41mod misc;42pub use misc::*;43mod sets;44pub use sets::*;45mod compat;46pub use compat::*;4748pub fn stdlib_uncached(settings: Rc<RefCell<Settings>>) -> ObjValue {49 let mut builder = ObjValueBuilder::new();5051 let expr = expr::stdlib_expr();52 let eval = jrsonnet_evaluator::evaluate(ContextBuilder::dangerous_empty_state().build(), &expr)53 .expect("stdlib.jsonnet should have no errors")54 .as_obj()55 .expect("stdlib.jsonnet should evaluate to object");5657 builder.with_super(eval);5859 for (name, builtin) in [60 61 ("type", builtin_type::INST),62 ("isString", builtin_is_string::INST),63 ("isNumber", builtin_is_number::INST),64 ("isBoolean", builtin_is_boolean::INST),65 ("isObject", builtin_is_object::INST),66 ("isArray", builtin_is_array::INST),67 ("isFunction", builtin_is_function::INST),68 69 ("makeArray", builtin_make_array::INST),70 ("repeat", builtin_repeat::INST),71 ("slice", builtin_slice::INST),72 ("map", builtin_map::INST),73 ("flatMap", builtin_flatmap::INST),74 ("filter", builtin_filter::INST),75 ("foldl", builtin_foldl::INST),76 ("foldr", builtin_foldr::INST),77 ("range", builtin_range::INST),78 ("join", builtin_join::INST),79 ("reverse", builtin_reverse::INST),80 ("any", builtin_any::INST),81 ("all", builtin_all::INST),82 ("member", builtin_member::INST),83 ("contains", builtin_member::INST),84 ("count", builtin_count::INST),85 ("avg", builtin_avg::INST),86 87 ("abs", builtin_abs::INST),88 ("sign", builtin_sign::INST),89 ("max", builtin_max::INST),90 ("min", builtin_min::INST),91 ("sum", builtin_sum::INST),92 ("modulo", builtin_modulo::INST),93 ("floor", builtin_floor::INST),94 ("ceil", builtin_ceil::INST),95 ("log", builtin_log::INST),96 ("pow", builtin_pow::INST),97 ("sqrt", builtin_sqrt::INST),98 ("sin", builtin_sin::INST),99 ("cos", builtin_cos::INST),100 ("tan", builtin_tan::INST),101 ("asin", builtin_asin::INST),102 ("acos", builtin_acos::INST),103 ("atan", builtin_atan::INST),104 ("exp", builtin_exp::INST),105 ("mantissa", builtin_mantissa::INST),106 ("exponent", builtin_exponent::INST),107 ("round", builtin_round::INST),108 109 ("mod", builtin_mod::INST),110 ("primitiveEquals", builtin_primitive_equals::INST),111 ("equals", builtin_equals::INST),112 ("xor", builtin_xor::INST),113 ("format", builtin_format::INST),114 115 ("sort", builtin_sort::INST),116 ("uniq", builtin_uniq::INST),117 ("set", builtin_set::INST),118 ("minArray", builtin_min_array::INST),119 ("maxArray", builtin_max_array::INST),120 121 ("md5", builtin_md5::INST),122 ("sha256", builtin_sha256::INST),123 ("sha512", builtin_sha512::INST),124 125 ("encodeUTF8", builtin_encode_utf8::INST),126 ("decodeUTF8", builtin_decode_utf8::INST),127 ("base64", builtin_base64::INST),128 ("base64Decode", builtin_base64_decode::INST),129 ("base64DecodeBytes", builtin_base64_decode_bytes::INST),130 131 ("objectFieldsEx", builtin_object_fields_ex::INST),132 ("objectHasEx", builtin_object_has_ex::INST),133 134 ("escapeStringJson", builtin_escape_string_json::INST),135 ("manifestJsonEx", builtin_manifest_json_ex::INST),136 ("manifestYamlDoc", builtin_manifest_yaml_doc::INST),137 ("manifestTomlEx", builtin_manifest_toml_ex::INST),138 139 ("parseJson", builtin_parse_json::INST),140 ("parseYaml", builtin_parse_yaml::INST),141 142 ("codepoint", builtin_codepoint::INST),143 ("substr", builtin_substr::INST),144 ("char", builtin_char::INST),145 ("strReplace", builtin_str_replace::INST),146 ("splitLimit", builtin_splitlimit::INST),147 ("asciiUpper", builtin_ascii_upper::INST),148 ("asciiLower", builtin_ascii_lower::INST),149 ("findSubstr", builtin_find_substr::INST),150 ("parseInt", builtin_parse_int::INST),151 #[cfg(feature = "exp-bigint")]152 ("bigint", builtin_bigint::INST),153 ("parseOctal", builtin_parse_octal::INST),154 ("parseHex", builtin_parse_hex::INST),155 156 ("length", builtin_length::INST),157 ("startsWith", builtin_starts_with::INST),158 ("endsWith", builtin_ends_with::INST),159 160 ("setMember", builtin_set_member::INST),161 ("setInter", builtin_set_inter::INST),162 163 ("__compare", builtin___compare::INST),164 ]165 .iter()166 .cloned()167 {168 builder169 .member(name.into())170 .hide()171 .value(Val::Func(FuncVal::StaticBuiltin(builtin)))172 .expect("no conflict");173 }174175 builder176 .member("extVar".into())177 .hide()178 .value(Val::Func(FuncVal::builtin(builtin_ext_var {179 settings: settings.clone(),180 })))181 .expect("no conflict");182 builder183 .member("native".into())184 .hide()185 .value(Val::Func(FuncVal::builtin(builtin_native {186 settings: settings.clone(),187 })))188 .expect("no conflict");189 builder190 .member("trace".into())191 .hide()192 .value(Val::Func(FuncVal::builtin(builtin_trace { settings })))193 .expect("no conflict");194195 builder196 .member("id".into())197 .hide()198 .value(Val::Func(FuncVal::Id))199 .expect("no conflict");200201 builder.build()202}203204pub trait TracePrinter {205 fn print_trace(&self, loc: CallLocation, value: IStr);206}207208pub struct StdTracePrinter {209 resolver: PathResolver,210}211impl StdTracePrinter {212 pub fn new(resolver: PathResolver) -> Self {213 Self { resolver }214 }215}216impl TracePrinter for StdTracePrinter {217 fn print_trace(&self, loc: CallLocation, value: IStr) {218 eprint!("TRACE:");219 if let Some(loc) = loc.0 {220 let locs = loc.0.map_source_locations(&[loc.1]);221 eprint!(222 " {}:{}",223 match loc.0.source_path().path() {224 Some(p) => self.resolver.resolve(p),225 None => loc.0.source_path().to_string(),226 },227 locs[0].line228 );229 }230 eprintln!(" {value}");231 }232}233234pub struct Settings {235 236 pub ext_vars: HashMap<IStr, TlaArg>,237 238 pub ext_natives: HashMap<IStr, Cc<TraceBox<dyn Builtin>>>,239 240 pub globals: GcHashMap<IStr, Thunk<Val>>,241 242 pub trace_printer: Box<dyn TracePrinter>,243 244 pub path_resolver: PathResolver,245}246247fn extvar_source(name: &str, code: impl Into<IStr>) -> Source {248 let source_name = format!("<extvar:{name}>");249 Source::new_virtual(source_name.into(), code.into())250}251252#[derive(Trace, Clone)]253pub struct ContextInitializer {254 255 #[cfg(not(feature = "legacy-this-file"))]256 context: Context,257 258 #[cfg(feature = "legacy-this-file")]259 stdlib_obj: ObjValue,260 settings: Rc<RefCell<Settings>>,261}262impl ContextInitializer {263 pub fn new(_s: State, resolver: PathResolver) -> Self {264 let settings = Settings {265 ext_vars: Default::default(),266 ext_natives: Default::default(),267 globals: Default::default(),268 trace_printer: Box::new(StdTracePrinter::new(resolver.clone())),269 path_resolver: resolver,270 };271 let settings = Rc::new(RefCell::new(settings));272 Self {273 #[cfg(not(feature = "legacy-this-file"))]274 context: {275 let mut context = ContextBuilder::with_capacity(_s, 1);276 context.bind(277 "std".into(),278 Thunk::evaluated(Val::Obj(stdlib_uncached(settings.clone()))),279 );280 context.build()281 },282 #[cfg(feature = "legacy-this-file")]283 stdlib_obj: stdlib_uncached(settings.clone()),284 settings,285 }286 }287 pub fn settings(&self) -> Ref<Settings> {288 self.settings.borrow()289 }290 pub fn settings_mut(&self) -> RefMut<Settings> {291 self.settings.borrow_mut()292 }293 pub fn add_ext_var(&self, name: IStr, value: Val) {294 self.settings_mut()295 .ext_vars296 .insert(name, TlaArg::Val(value));297 }298 pub fn add_ext_str(&self, name: IStr, value: IStr) {299 self.settings_mut()300 .ext_vars301 .insert(name, TlaArg::String(value));302 }303 pub fn add_ext_code(&self, name: &str, code: impl Into<IStr>) -> Result<()> {304 let code = code.into();305 let source = extvar_source(name, code.clone());306 let parsed = jrsonnet_parser::parse(307 &code,308 &jrsonnet_parser::ParserSettings {309 source: source.clone(),310 },311 )312 .map_err(|e| ImportSyntaxError {313 path: source,314 error: Box::new(e),315 })?;316 317 self.settings_mut()318 .ext_vars319 .insert(name.into(), TlaArg::Code(parsed));320 Ok(())321 }322 pub fn add_native(&self, name: IStr, cb: impl Builtin) {323 self.settings_mut()324 .ext_natives325 .insert(name, Cc::new(tb!(cb)));326 }327}328impl jrsonnet_evaluator::ContextInitializer for ContextInitializer {329 #[cfg(not(feature = "legacy-this-file"))]330 fn initialize(&self, _s: State, _source: Source) -> jrsonnet_evaluator::Context {331 let out = self.context.clone();332 let globals = &self.settings().globals;333 if globals.is_empty() {334 return out;335 }336337 let mut out = ContextBuilder::extend(out);338 for (k, v) in globals.iter() {339 out.bind(k.clone(), v.clone());340 }341 out.build()342 }343 #[cfg(feature = "legacy-this-file")]344 fn initialize(&self, s: State, source: Source) -> Context {345 use jrsonnet_evaluator::val::StrValue;346347 let mut builder = ObjValueBuilder::new();348 builder.with_super(self.stdlib_obj.clone());349 builder350 .member("thisFile".into())351 .hide()352 .value(Val::Str(StrValue::Flat(353 match source.source_path().path() {354 Some(p) => self.settings().path_resolver.resolve(p).into(),355 None => source.source_path().to_string().into(),356 },357 )))358 .expect("this object builder is empty");359 let stdlib_with_this_file = builder.build();360361 let mut context = ContextBuilder::with_capacity(s, 1);362 context.bind(363 "std".into(),364 Thunk::evaluated(Val::Obj(stdlib_with_this_file)),365 );366 for (k, v) in self.settings().globals.iter() {367 context.bind(k.clone(), v.clone());368 }369 context.build()370 }371 fn as_any(&self) -> &dyn std::any::Any {372 self373 }374}375376pub trait StateExt {377 378 fn with_stdlib(&self);379 fn add_global(&self, name: IStr, value: Thunk<Val>);380}381382impl StateExt for State {383 fn with_stdlib(&self) {384 let initializer = ContextInitializer::new(self.clone(), PathResolver::new_cwd_fallback());385 self.settings_mut().context_initializer = tb!(initializer)386 }387 fn add_global(&self, name: IStr, value: Thunk<Val>) {388 self.settings()389 .context_initializer390 .as_any()391 .downcast_ref::<ContextInitializer>()392 .expect("not standard context initializer")393 .settings_mut()394 .globals395 .insert(name, value);396 }397}