@tellahq/rescript 10.1.0-alpha.1

package/lib/es6/digest.js

@@ -0,0 +1,118 @@
+
+
+import * as Char from "./char.js";
+import * as Bytes from "./bytes.js";
+import * as $$String from "./string.js";
+import * as Caml_md5 from "./caml_md5.js";
+import * as Caml_bytes from "./caml_bytes.js";
+import * as Caml_string from "./caml_string.js";
+
+function string(str) {
+  return Caml_md5.md5_string(str, 0, str.length);
+}
+
+function bytes(b) {
+  return string(Bytes.unsafe_to_string(b));
+}
+
+function substring(str, ofs, len) {
+  if (ofs < 0 || len < 0 || ofs > (str.length - len | 0)) {
+    throw {
+          RE_EXN_ID: "Invalid_argument",
+          _1: "Digest.substring",
+          Error: new Error()
+        };
+  }
+  return Caml_md5.md5_string(str, ofs, len);
+}
+
+function subbytes(b, ofs, len) {
+  return substring(Bytes.unsafe_to_string(b), ofs, len);
+}
+
+function char_hex(n) {
+  return n + (
+          n < 10 ? /* '0' */48 : 87
+        ) | 0;
+}
+
+function to_hex(d) {
+  if (d.length !== 16) {
+    throw {
+          RE_EXN_ID: "Invalid_argument",
+          _1: "Digest.to_hex",
+          Error: new Error()
+        };
+  }
+  var result = Caml_bytes.create(32);
+  for(var i = 0; i <= 15; ++i){
+    var x = Caml_string.get(d, i);
+    result[(i << 1)] = char_hex((x >>> 4));
+    result[(i << 1) + 1 | 0] = char_hex(x & 15);
+  }
+  return Bytes.unsafe_to_string(result);
+}
+
+function from_hex(s) {
+  if (s.length !== 32) {
+    throw {
+          RE_EXN_ID: "Invalid_argument",
+          _1: "Digest.from_hex",
+          Error: new Error()
+        };
+  }
+  var digit = function (c) {
+    if (c >= 65) {
+      if (c >= 97) {
+        if (c >= 103) {
+          throw {
+                RE_EXN_ID: "Invalid_argument",
+                _1: "Digest.from_hex",
+                Error: new Error()
+              };
+        }
+        return (c - /* 'a' */97 | 0) + 10 | 0;
+      }
+      if (c >= 71) {
+        throw {
+              RE_EXN_ID: "Invalid_argument",
+              _1: "Digest.from_hex",
+              Error: new Error()
+            };
+      }
+      return (c - /* 'A' */65 | 0) + 10 | 0;
+    }
+    if (c > 57 || c < 48) {
+      throw {
+            RE_EXN_ID: "Invalid_argument",
+            _1: "Digest.from_hex",
+            Error: new Error()
+          };
+    }
+    return c - /* '0' */48 | 0;
+  };
+  var $$byte = function (i) {
+    return (digit(Caml_string.get(s, i)) << 4) + digit(Caml_string.get(s, i + 1 | 0)) | 0;
+  };
+  var result = Caml_bytes.create(16);
+  for(var i = 0; i <= 15; ++i){
+    Caml_bytes.set(result, i, Char.chr($$byte((i << 1))));
+  }
+  return Bytes.unsafe_to_string(result);
+}
+
+var compare = $$String.compare;
+
+var equal = $$String.equal;
+
+export {
+  compare ,
+  equal ,
+  string ,
+  bytes ,
+  substring ,
+  subbytes ,
+  to_hex ,
+  from_hex ,
+}
+/* No side effect */

package/lib/es6/dom.js

@@ -0,0 +1,12 @@
+
+
+
+var $$Storage;
+
+var Storage2;
+
+export {
+  $$Storage ,
+  Storage2 ,
+}
+/* No side effect */

package/lib/es6/dom_storage.js

@@ -0,0 +1,27 @@
+
+
+import * as Caml_option from "./caml_option.js";
+
+function getItem(s, obj) {
+  return Caml_option.null_to_opt(obj.getItem(s));
+}
+
+function setItem(k, v, obj) {
+  obj.setItem(k, v);
+}
+
+function removeItem(s, obj) {
+  obj.removeItem(s);
+}
+
+function key(i, obj) {
+  return Caml_option.null_to_opt(obj.key(i));
+}
+
+export {
+  getItem ,
+  setItem ,
+  removeItem ,
+  key ,
+}
+/* No side effect */

package/lib/es6/dom_storage2.js

@@ -0,0 +1 @@
+/* This output is empty. Its source's type definitions, externals and/or unused code got optimized away. */

package/lib/es6/filename.js

@@ -0,0 +1,496 @@
+
+
+import * as Sys from "./sys.js";
+import * as Bytes from "./bytes.js";
+import * as Curry from "./curry.js";
+import * as $$Buffer from "./buffer.js";
+import * as $$String from "./string.js";
+import * as Caml_sys from "./caml_sys.js";
+import * as Caml_string from "./caml_string.js";
+import * as Caml_js_exceptions from "./caml_js_exceptions.js";
+
+function generic_basename(is_dir_sep, current_dir_name, name) {
+  if (name === "") {
+    return current_dir_name;
+  } else {
+    var _n = name.length - 1 | 0;
+    while(true) {
+      var n = _n;
+      if (n < 0) {
+        return $$String.sub(name, 0, 1);
+      }
+      if (!Curry._2(is_dir_sep, name, n)) {
+        var _n$1 = n;
+        var p = n + 1 | 0;
+        while(true) {
+          var n$1 = _n$1;
+          if (n$1 < 0) {
+            return $$String.sub(name, 0, p);
+          }
+          if (Curry._2(is_dir_sep, name, n$1)) {
+            return $$String.sub(name, n$1 + 1 | 0, (p - n$1 | 0) - 1 | 0);
+          }
+          _n$1 = n$1 - 1 | 0;
+          continue ;
+        };
+      }
+      _n = n - 1 | 0;
+      continue ;
+    };
+  }
+}
+
+function generic_dirname(is_dir_sep, current_dir_name, name) {
+  if (name === "") {
+    return current_dir_name;
+  } else {
+    var _n = name.length - 1 | 0;
+    while(true) {
+      var n = _n;
+      if (n < 0) {
+        return $$String.sub(name, 0, 1);
+      }
+      if (!Curry._2(is_dir_sep, name, n)) {
+        var _n$1 = n;
+        while(true) {
+          var n$1 = _n$1;
+          if (n$1 < 0) {
+            return current_dir_name;
+          }
+          if (Curry._2(is_dir_sep, name, n$1)) {
+            var _n$2 = n$1;
+            while(true) {
+              var n$2 = _n$2;
+              if (n$2 < 0) {
+                return $$String.sub(name, 0, 1);
+              }
+              if (!Curry._2(is_dir_sep, name, n$2)) {
+                return $$String.sub(name, 0, n$2 + 1 | 0);
+              }
+              _n$2 = n$2 - 1 | 0;
+              continue ;
+            };
+          }
+          _n$1 = n$1 - 1 | 0;
+          continue ;
+        };
+      }
+      _n = n - 1 | 0;
+      continue ;
+    };
+  }
+}
+
+var current_dir_name = ".";
+
+function is_dir_sep(s, i) {
+  return Caml_string.get(s, i) === /* '/' */47;
+}
+
+function is_relative(n) {
+  if (n.length < 1) {
+    return true;
+  } else {
+    return Caml_string.get(n, 0) !== /* '/' */47;
+  }
+}
+
+function is_implicit(n) {
+  if (is_relative(n) && (n.length < 2 || $$String.sub(n, 0, 2) !== "./")) {
+    if (n.length < 3) {
+      return true;
+    } else {
+      return $$String.sub(n, 0, 3) !== "../";
+    }
+  } else {
+    return false;
+  }
+}
+
+function check_suffix(name, suff) {
+  if (name.length >= suff.length) {
+    return $$String.sub(name, name.length - suff.length | 0, suff.length) === suff;
+  } else {
+    return false;
+  }
+}
+
+var temp_dir_name;
+
+try {
+  temp_dir_name = Caml_sys.sys_getenv("TMPDIR");
+}
+catch (raw_exn){
+  var exn = Caml_js_exceptions.internalToOCamlException(raw_exn);
+  if (exn.RE_EXN_ID === "Not_found") {
+    temp_dir_name = "/tmp";
+  } else {
+    throw exn;
+  }
+}
+
+function quote(param) {
+  var quotequote = "'\\''";
+  var l = param.length;
+  var b = $$Buffer.create(l + 20 | 0);
+  $$Buffer.add_char(b, /* '\'' */39);
+  for(var i = 0; i < l; ++i){
+    if (Caml_string.get(param, i) === /* '\'' */39) {
+      $$Buffer.add_string(b, quotequote);
+    } else {
+      $$Buffer.add_char(b, Caml_string.get(param, i));
+    }
+  }
+  $$Buffer.add_char(b, /* '\'' */39);
+  return $$Buffer.contents(b);
+}
+
+function basename(param) {
+  return generic_basename(is_dir_sep, current_dir_name, param);
+}
+
+function dirname(param) {
+  return generic_dirname(is_dir_sep, current_dir_name, param);
+}
+
+var current_dir_name$1 = ".";
+
+function is_dir_sep$1(s, i) {
+  var c = Caml_string.get(s, i);
+  if (c === /* '/' */47 || c === /* '\\' */92) {
+    return true;
+  } else {
+    return c === /* ':' */58;
+  }
+}
+
+function is_relative$1(n) {
+  if ((n.length < 1 || Caml_string.get(n, 0) !== /* '/' */47) && (n.length < 1 || Caml_string.get(n, 0) !== /* '\\' */92)) {
+    if (n.length < 2) {
+      return true;
+    } else {
+      return Caml_string.get(n, 1) !== /* ':' */58;
+    }
+  } else {
+    return false;
+  }
+}
+
+function is_implicit$1(n) {
+  if (is_relative$1(n) && (n.length < 2 || $$String.sub(n, 0, 2) !== "./") && (n.length < 2 || $$String.sub(n, 0, 2) !== ".\\") && (n.length < 3 || $$String.sub(n, 0, 3) !== "../")) {
+    if (n.length < 3) {
+      return true;
+    } else {
+      return $$String.sub(n, 0, 3) !== "..\\";
+    }
+  } else {
+    return false;
+  }
+}
+
+function check_suffix$1(name, suff) {
+  if (name.length < suff.length) {
+    return false;
+  }
+  var s = $$String.sub(name, name.length - suff.length | 0, suff.length);
+  return Bytes.unsafe_to_string(Bytes.lowercase_ascii(Bytes.unsafe_of_string(s))) === Bytes.unsafe_to_string(Bytes.lowercase_ascii(Bytes.unsafe_of_string(suff)));
+}
+
+var temp_dir_name$1;
+
+try {
+  temp_dir_name$1 = Caml_sys.sys_getenv("TEMP");
+}
+catch (raw_exn$1){
+  var exn$1 = Caml_js_exceptions.internalToOCamlException(raw_exn$1);
+  if (exn$1.RE_EXN_ID === "Not_found") {
+    temp_dir_name$1 = ".";
+  } else {
+    throw exn$1;
+  }
+}
+
+function quote$1(s) {
+  var l = s.length;
+  var b = $$Buffer.create(l + 20 | 0);
+  $$Buffer.add_char(b, /* '"' */34);
+  var loop = function (_i) {
+    while(true) {
+      var i = _i;
+      if (i === l) {
+        return $$Buffer.add_char(b, /* '"' */34);
+      }
+      var c = Caml_string.get(s, i);
+      if (c === 34) {
+        return loop_bs(0, i);
+      }
+      if (c === 92) {
+        return loop_bs(0, i);
+      }
+      $$Buffer.add_char(b, c);
+      _i = i + 1 | 0;
+      continue ;
+    };
+  };
+  var loop_bs = function (_n, _i) {
+    while(true) {
+      var i = _i;
+      var n = _n;
+      if (i === l) {
+        $$Buffer.add_char(b, /* '"' */34);
+        return add_bs(n);
+      }
+      var match = Caml_string.get(s, i);
+      if (match !== 34) {
+        if (match !== 92) {
+          add_bs(n);
+          return loop(i);
+        }
+        _i = i + 1 | 0;
+        _n = n + 1 | 0;
+        continue ;
+      }
+      add_bs((n << 1) + 1 | 0);
+      $$Buffer.add_char(b, /* '"' */34);
+      return loop(i + 1 | 0);
+    };
+  };
+  var add_bs = function (n) {
+    for(var _j = 1; _j <= n; ++_j){
+      $$Buffer.add_char(b, /* '\\' */92);
+    }
+  };
+  loop(0);
+  return $$Buffer.contents(b);
+}
+
+function has_drive(s) {
+  var is_letter = function (param) {
+    if (param >= 91) {
+      return !(param > 122 || param < 97);
+    } else {
+      return param >= 65;
+    }
+  };
+  if (s.length >= 2 && is_letter(Caml_string.get(s, 0))) {
+    return Caml_string.get(s, 1) === /* ':' */58;
+  } else {
+    return false;
+  }
+}
+
+function drive_and_path(s) {
+  if (has_drive(s)) {
+    return [
+            $$String.sub(s, 0, 2),
+            $$String.sub(s, 2, s.length - 2 | 0)
+          ];
+  } else {
+    return [
+            "",
+            s
+          ];
+  }
+}
+
+function dirname$1(s) {
+  var match = drive_and_path(s);
+  var dir = generic_dirname(is_dir_sep$1, current_dir_name$1, match[1]);
+  return match[0] + dir;
+}
+
+function basename$1(s) {
+  var match = drive_and_path(s);
+  return generic_basename(is_dir_sep$1, current_dir_name$1, match[1]);
+}
+
+var current_dir_name$2 = ".";
+
+function basename$2(param) {
+  return generic_basename(is_dir_sep$1, current_dir_name$2, param);
+}
+
+function dirname$2(param) {
+  return generic_dirname(is_dir_sep$1, current_dir_name$2, param);
+}
+
+var match;
+
+switch (Sys.os_type) {
+  case "Cygwin" :
+      match = [
+        current_dir_name$2,
+        "..",
+        "/",
+        is_dir_sep$1,
+        is_relative$1,
+        is_implicit$1,
+        check_suffix$1,
+        temp_dir_name,
+        quote,
+        basename$2,
+        dirname$2
+      ];
+      break;
+  case "Win32" :
+      match = [
+        current_dir_name$1,
+        "..",
+        "\\",
+        is_dir_sep$1,
+        is_relative$1,
+        is_implicit$1,
+        check_suffix$1,
+        temp_dir_name$1,
+        quote$1,
+        basename$1,
+        dirname$1
+      ];
+      break;
+  default:
+    match = [
+      current_dir_name,
+      "..",
+      "/",
+      is_dir_sep,
+      is_relative,
+      is_implicit,
+      check_suffix,
+      temp_dir_name,
+      quote,
+      basename,
+      dirname
+    ];
+}
+
+var temp_dir_name$2 = match[7];
+
+var is_dir_sep$2 = match[3];
+
+var dir_sep = match[2];
+
+function concat(dirname, filename) {
+  var l = dirname.length;
+  if (l === 0 || Curry._2(is_dir_sep$2, dirname, l - 1 | 0)) {
+    return dirname + filename;
+  } else {
+    return dirname + (dir_sep + filename);
+  }
+}
+
+function chop_suffix(name, suff) {
+  var n = name.length - suff.length | 0;
+  if (n < 0) {
+    throw {
+          RE_EXN_ID: "Invalid_argument",
+          _1: "Filename.chop_suffix",
+          Error: new Error()
+        };
+  }
+  return $$String.sub(name, 0, n);
+}
+
+function extension_len(name) {
+  var _i = name.length - 1 | 0;
+  while(true) {
+    var i = _i;
+    if (i < 0 || Curry._2(is_dir_sep$2, name, i)) {
+      return 0;
+    }
+    if (Caml_string.get(name, i) === /* '.' */46) {
+      var _i$1 = i - 1 | 0;
+      while(true) {
+        var i$1 = _i$1;
+        if (i$1 < 0 || Curry._2(is_dir_sep$2, name, i$1)) {
+          return 0;
+        }
+        if (Caml_string.get(name, i$1) !== /* '.' */46) {
+          return name.length - i | 0;
+        }
+        _i$1 = i$1 - 1 | 0;
+        continue ;
+      };
+    }
+    _i = i - 1 | 0;
+    continue ;
+  };
+}
+
+function extension(name) {
+  var l = extension_len(name);
+  if (l === 0) {
+    return "";
+  } else {
+    return $$String.sub(name, name.length - l | 0, l);
+  }
+}
+
+function chop_extension(name) {
+  var l = extension_len(name);
+  if (l === 0) {
+    throw {
+          RE_EXN_ID: "Invalid_argument",
+          _1: "Filename.chop_extension",
+          Error: new Error()
+        };
+  }
+  return $$String.sub(name, 0, name.length - l | 0);
+}
+
+function remove_extension(name) {
+  var l = extension_len(name);
+  if (l === 0) {
+    return name;
+  } else {
+    return $$String.sub(name, 0, name.length - l | 0);
+  }
+}
+
+var current_temp_dir_name = {
+  contents: temp_dir_name$2
+};
+
+function set_temp_dir_name(s) {
+  current_temp_dir_name.contents = s;
+}
+
+function get_temp_dir_name(param) {
+  return current_temp_dir_name.contents;
+}
+
+var current_dir_name$3 = match[0];
+
+var parent_dir_name = match[1];
+
+var is_relative$2 = match[4];
+
+var is_implicit$2 = match[5];
+
+var check_suffix$2 = match[6];
+
+var basename$3 = match[9];
+
+var dirname$3 = match[10];
+
+var quote$2 = match[8];
+
+export {
+  current_dir_name$3 as current_dir_name,
+  parent_dir_name ,
+  dir_sep ,
+  concat ,
+  is_relative$2 as is_relative,
+  is_implicit$2 as is_implicit,
+  check_suffix$2 as check_suffix,
+  chop_suffix ,
+  extension ,
+  remove_extension ,
+  chop_extension ,
+  basename$3 as basename,
+  dirname$3 as dirname,
+  get_temp_dir_name ,
+  set_temp_dir_name ,
+  temp_dir_name$2 as temp_dir_name,
+  quote$2 as quote,
+}
+/* temp_dir_name Not a pure module */