time-to-botec/squiggle/node_modules/@rescript/std/lib/es6/digest.js
NunoSempere b6addc7f05 feat: add the node modules
Necessary in order to clearly see the squiggle hotwiring.
2022-12-03 12:44:49 +00:00

119 lines
2.6 KiB
JavaScript

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 */