bs-ajv
Version:
BucklesScript bindings to Ajv (Another JSON Validator)
46 lines (38 loc) • 1.17 kB
JavaScript
;
define(["exports", "./caml_obj.js", "./caml_array.js", "./js_primitive.js"],
function(exports, Caml_obj, Caml_array, Js_primitive){
'use strict';
function caml_weak_create(n) {
return new Array(n);
}
function caml_weak_set(xs, i, v) {
if (v) {
xs[i] = v[0];
return /* () */0;
} else {
return /* () */0;
}
}
function caml_weak_get(xs, i) {
return Js_primitive.undefined_to_opt(xs[i]);
}
function caml_weak_get_copy(xs, i) {
var match = xs[i];
if (match !== undefined) {
return /* Some */[Caml_obj.caml_obj_dup(match)];
} else {
return /* None */0;
}
}
function caml_weak_check(xs, i) {
return +(xs[i] !== undefined);
}
var caml_weak_blit = Caml_array.caml_array_blit;
exports.caml_weak_create = caml_weak_create;
exports.caml_weak_set = caml_weak_set;
exports.caml_weak_get = caml_weak_get;
exports.caml_weak_get_copy = caml_weak_get_copy;
exports.caml_weak_check = caml_weak_check;
exports.caml_weak_blit = caml_weak_blit;
})
/* No side effect */