87 lines
1.3 KiB
JavaScript
87 lines
1.3 KiB
JavaScript
'use strict';
|
|
|
|
var List = require("./list.js");
|
|
var Caml_exceptions = require("./caml_exceptions.js");
|
|
|
|
var Empty = /* @__PURE__ */Caml_exceptions.create("Stack.Empty");
|
|
|
|
function create(param) {
|
|
return {
|
|
c: /* [] */0,
|
|
len: 0
|
|
};
|
|
}
|
|
|
|
function clear(s) {
|
|
s.c = /* [] */0;
|
|
s.len = 0;
|
|
}
|
|
|
|
function copy(s) {
|
|
return {
|
|
c: s.c,
|
|
len: s.len
|
|
};
|
|
}
|
|
|
|
function push(x, s) {
|
|
s.c = {
|
|
hd: x,
|
|
tl: s.c
|
|
};
|
|
s.len = s.len + 1 | 0;
|
|
}
|
|
|
|
function pop(s) {
|
|
var match = s.c;
|
|
if (match) {
|
|
s.c = match.tl;
|
|
s.len = s.len - 1 | 0;
|
|
return match.hd;
|
|
}
|
|
throw {
|
|
RE_EXN_ID: Empty,
|
|
Error: new Error()
|
|
};
|
|
}
|
|
|
|
function top(s) {
|
|
var match = s.c;
|
|
if (match) {
|
|
return match.hd;
|
|
}
|
|
throw {
|
|
RE_EXN_ID: Empty,
|
|
Error: new Error()
|
|
};
|
|
}
|
|
|
|
function is_empty(s) {
|
|
return s.c === /* [] */0;
|
|
}
|
|
|
|
function length(s) {
|
|
return s.len;
|
|
}
|
|
|
|
function iter(f, s) {
|
|
List.iter(f, s.c);
|
|
}
|
|
|
|
function fold(f, acc, s) {
|
|
return List.fold_left(f, acc, s.c);
|
|
}
|
|
|
|
exports.Empty = Empty;
|
|
exports.create = create;
|
|
exports.push = push;
|
|
exports.pop = pop;
|
|
exports.top = top;
|
|
exports.clear = clear;
|
|
exports.copy = copy;
|
|
exports.is_empty = is_empty;
|
|
exports.length = length;
|
|
exports.iter = iter;
|
|
exports.fold = fold;
|
|
/* No side effect */
|