bs-ajv/node_modules.lol/bs-platform/lib/amdjs/caml_oo.js

BucklesScript bindings to Ajv (Another JSON Validator)

'use strict';
define(["exports", "./caml_array.js", "./caml_builtin_exceptions.js"],
  function(exports, Caml_array, Caml_builtin_exceptions){
    'use strict';
    var caml_methods_cache = Caml_array.caml_make_vect(1000, 0);
    
    function caml_get_public_method(obj, tag, cacheid) {
      var meths = obj[0];
      var offs = caml_methods_cache[cacheid];
      if (meths[offs] === tag) {
        return meths[offs - 1 | 0];
      } else {
        var aux = function (_i) {
          while(true) {
            var i = _i;
            if (i < 3) {
              throw [
                    Caml_builtin_exceptions.assert_failure,
                    [
                      "caml_oo.ml",
                      59,
                      20
                    ]
                  ];
            } else if (meths[i] === tag) {
              caml_methods_cache[cacheid] = i;
              return i;
            } else {
              _i = i - 2 | 0;
              continue ;
              
            }
          };
        };
        return meths[aux((meths[0] << 1) + 1 | 0) - 1 | 0];
      }
    }
    
    exports.caml_get_public_method = caml_get_public_method;
    
  })
/* No side effect */