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::*;4344pub fn stdlib_uncached(settings: Rc<RefCell<Settings>>) -> ObjValue {45 let mut builder = ObjValueBuilder::new();4647 let expr = expr::stdlib_expr();48 let eval = jrsonnet_evaluator::evaluate(ContextBuilder::dangerous_empty_state().build(), &expr)49 .expect("stdlib.jsonnet should have no errors")50 .as_obj()51 .expect("stdlib.jsonnet should evaluate to object");5253 builder.with_super(eval);5455 for (name, builtin) in [56 57 ("type", builtin_type::INST),58 ("isString", builtin_is_string::INST),59 ("isNumber", builtin_is_number::INST),60 ("isBoolean", builtin_is_boolean::INST),61 ("isObject", builtin_is_object::INST),62 ("isArray", builtin_is_array::INST),63 ("isFunction", builtin_is_function::INST),64 65 ("makeArray", builtin_make_array::INST),66 ("repeat", builtin_repeat::INST),67 ("slice", builtin_slice::INST),68 ("map", builtin_map::INST),69 ("flatMap", builtin_flatmap::INST),70 ("filter", builtin_filter::INST),71 ("foldl", builtin_foldl::INST),72 ("foldr", builtin_foldr::INST),73 ("range", builtin_range::INST),74 ("join", builtin_join::INST),75 ("reverse", builtin_reverse::INST),76 ("any", builtin_any::INST),77 ("all", builtin_all::INST),78 ("member", builtin_member::INST),79 ("count", builtin_count::INST),80 81 ("abs", builtin_abs::INST),82 ("sign", builtin_sign::INST),83 ("max", builtin_max::INST),84 ("min", builtin_min::INST),85 ("modulo", builtin_modulo::INST),86 ("floor", builtin_floor::INST),87 ("ceil", builtin_ceil::INST),88 ("log", builtin_log::INST),89 ("pow", builtin_pow::INST),90 ("sqrt", builtin_sqrt::INST),91 ("sin", builtin_sin::INST),92 ("cos", builtin_cos::INST),93 ("tan", builtin_tan::INST),94 ("asin", builtin_asin::INST),95 ("acos", builtin_acos::INST),96 ("atan", builtin_atan::INST),97 ("exp", builtin_exp::INST),98 ("mantissa", builtin_mantissa::INST),99 ("exponent", builtin_exponent::INST),100 101 ("mod", builtin_mod::INST),102 ("primitiveEquals", builtin_primitive_equals::INST),103 ("equals", builtin_equals::INST),104 ("format", builtin_format::INST),105 106 ("sort", builtin_sort::INST),107 108 ("md5", builtin_md5::INST),109 #[cfg(feature = "exp-more-hashes")]110 ("sha256", builtin_sha256::INST),111 112 ("encodeUTF8", builtin_encode_utf8::INST),113 ("decodeUTF8", builtin_decode_utf8::INST),114 ("base64", builtin_base64::INST),115 ("base64Decode", builtin_base64_decode::INST),116 ("base64DecodeBytes", builtin_base64_decode_bytes::INST),117 118 ("objectFieldsEx", builtin_object_fields_ex::INST),119 ("objectHasEx", builtin_object_has_ex::INST),120 121 ("escapeStringJson", builtin_escape_string_json::INST),122 ("manifestJsonEx", builtin_manifest_json_ex::INST),123 ("manifestYamlDoc", builtin_manifest_yaml_doc::INST),124 ("manifestTomlEx", builtin_manifest_toml_ex::INST),125 126 ("parseJson", builtin_parse_json::INST),127 ("parseYaml", builtin_parse_yaml::INST),128 129 ("codepoint", builtin_codepoint::INST),130 ("substr", builtin_substr::INST),131 ("char", builtin_char::INST),132 ("strReplace", builtin_str_replace::INST),133 ("splitLimit", builtin_splitlimit::INST),134 ("asciiUpper", builtin_ascii_upper::INST),135 ("asciiLower", builtin_ascii_lower::INST),136 ("findSubstr", builtin_find_substr::INST),137 ("parseInt", builtin_parse_int::INST),138 ("parseOctal", builtin_parse_octal::INST),139 ("parseHex", builtin_parse_hex::INST),140 141 ("length", builtin_length::INST),142 ("startsWith", builtin_starts_with::INST),143 ("endsWith", builtin_ends_with::INST),144 ]145 .iter()146 .cloned()147 {148 builder149 .member(name.into())150 .hide()151 .value(Val::Func(FuncVal::StaticBuiltin(builtin)))152 .expect("no conflict");153 }154155 builder156 .member("extVar".into())157 .hide()158 .value(Val::Func(FuncVal::Builtin(Cc::new(tb!(builtin_ext_var {159 settings: settings.clone()160 })))))161 .expect("no conflict");162 builder163 .member("native".into())164 .hide()165 .value(Val::Func(FuncVal::Builtin(Cc::new(tb!(builtin_native {166 settings: settings.clone()167 })))))168 .expect("no conflict");169 builder170 .member("trace".into())171 .hide()172 .value(Val::Func(FuncVal::Builtin(Cc::new(tb!(builtin_trace {173 settings174 })))))175 .expect("no conflict");176177 builder178 .member("id".into())179 .hide()180 .value(Val::Func(FuncVal::Id))181 .expect("no conflict");182183 builder.build()184}185186pub trait TracePrinter {187 fn print_trace(&self, loc: CallLocation, value: IStr);188}189190pub struct StdTracePrinter {191 resolver: PathResolver,192}193impl StdTracePrinter {194 pub fn new(resolver: PathResolver) -> Self {195 Self { resolver }196 }197}198impl TracePrinter for StdTracePrinter {199 fn print_trace(&self, loc: CallLocation, value: IStr) {200 eprint!("TRACE:");201 if let Some(loc) = loc.0 {202 let locs = loc.0.map_source_locations(&[loc.1]);203 eprint!(204 " {}:{}",205 match loc.0.source_path().path() {206 Some(p) => self.resolver.resolve(p),207 None => loc.0.source_path().to_string(),208 },209 locs[0].line210 );211 }212 eprintln!(" {}", value);213 }214}215216pub struct Settings {217 218 pub ext_vars: HashMap<IStr, TlaArg>,219 220 pub ext_natives: HashMap<IStr, Cc<TraceBox<dyn Builtin>>>,221 222 pub globals: GcHashMap<IStr, Thunk<Val>>,223 224 pub trace_printer: Box<dyn TracePrinter>,225 226 pub path_resolver: PathResolver,227}228229fn extvar_source(name: &str, code: impl Into<IStr>) -> Source {230 let source_name = format!("<extvar:{}>", name);231 Source::new_virtual(source_name.into(), code.into())232}233234#[derive(Trace)]235pub struct ContextInitializer {236 237 #[cfg(not(feature = "legacy-this-file"))]238 context: Context,239 240 #[cfg(feature = "legacy-this-file")]241 stdlib_obj: ObjValue,242 settings: Rc<RefCell<Settings>>,243}244impl ContextInitializer {245 pub fn new(s: State, resolver: PathResolver) -> Self {246 let settings = Settings {247 ext_vars: Default::default(),248 ext_natives: Default::default(),249 globals: Default::default(),250 trace_printer: Box::new(StdTracePrinter::new(resolver.clone())),251 path_resolver: resolver,252 };253 let settings = Rc::new(RefCell::new(settings));254 Self {255 #[cfg(not(feature = "legacy-this-file"))]256 context: {257 let mut context = ContextBuilder::with_capacity(s, 1);258 context.bind(259 "std".into(),260 Thunk::evaluated(Val::Obj(stdlib_uncached(settings.clone()))),261 );262 context.build()263 },264 #[cfg(feature = "legacy-this-file")]265 stdlib_obj: stdlib_uncached(settings.clone()),266 settings,267 }268 }269 pub fn settings(&self) -> Ref<Settings> {270 self.settings.borrow()271 }272 pub fn settings_mut(&self) -> RefMut<Settings> {273 self.settings.borrow_mut()274 }275 pub fn add_ext_var(&self, name: IStr, value: Val) {276 self.settings_mut()277 .ext_vars278 .insert(name, TlaArg::Val(value));279 }280 pub fn add_ext_str(&self, name: IStr, value: IStr) {281 self.settings_mut()282 .ext_vars283 .insert(name, TlaArg::String(value));284 }285 pub fn add_ext_code(&self, name: &str, code: impl Into<IStr>) -> Result<()> {286 let code = code.into();287 let source = extvar_source(name, code.clone());288 let parsed = jrsonnet_parser::parse(289 &code,290 &jrsonnet_parser::ParserSettings {291 source: source.clone(),292 },293 )294 .map_err(|e| ImportSyntaxError {295 path: source,296 error: Box::new(e),297 })?;298 299 self.settings_mut()300 .ext_vars301 .insert(name.into(), TlaArg::Code(parsed));302 Ok(())303 }304 pub fn add_native(&self, name: IStr, cb: Cc<TraceBox<dyn Builtin>>) {305 self.settings_mut().ext_natives.insert(name, cb);306 }307}308impl jrsonnet_evaluator::ContextInitializer for ContextInitializer {309 #[cfg(not(feature = "legacy-this-file"))]310 fn initialize(&self, _s: State, _source: Source) -> jrsonnet_evaluator::Context {311 let out = self.context.clone();312 let globals = &self.settings().globals;313 if globals.is_empty() {314 return out;315 }316317 let mut out = ContextBuilder::extend(out);318 for (k, v) in globals.iter() {319 out.bind(k.clone(), v.clone());320 }321 out.build()322 }323 #[cfg(feature = "legacy-this-file")]324 fn initialize(&self, s: State, source: Source) -> Context {325 use jrsonnet_evaluator::val::StrValue;326327 let mut builder = ObjValueBuilder::new();328 builder.with_super(self.stdlib_obj.clone());329 builder330 .member("thisFile".into())331 .hide()332 .value(Val::Str(StrValue::Flat(333 match source.source_path().path() {334 Some(p) => self.settings().path_resolver.resolve(p).into(),335 None => source.source_path().to_string().into(),336 },337 )))338 .expect("this object builder is empty");339 let stdlib_with_this_file = builder.build();340341 let mut context = ContextBuilder::with_capacity(s, 1);342 context.bind(343 "std".into(),344 Thunk::evaluated(Val::Obj(stdlib_with_this_file)),345 );346 for (k, v) in self.settings().globals.iter() {347 context.bind(k.clone(), v.clone());348 }349 context.build()350 }351 fn as_any(&self) -> &dyn std::any::Any {352 self353 }354}355356pub trait StateExt {357 358 fn with_stdlib(&self);359 fn add_global(&self, name: IStr, value: Thunk<Val>);360}361362impl StateExt for State {363 fn with_stdlib(&self) {364 let initializer = ContextInitializer::new(self.clone(), PathResolver::new_cwd_fallback());365 self.settings_mut().context_initializer = tb!(initializer)366 }367 fn add_global(&self, name: IStr, value: Thunk<Val>) {368 self.settings()369 .context_initializer370 .as_any()371 .downcast_ref::<ContextInitializer>()372 .expect("not standard context initializer")373 .settings_mut()374 .globals375 .insert(name, value);376 }377}