89 lines
1.1 KiB
JavaScript
89 lines
1.1 KiB
JavaScript
|
|
|
|
import * as List from "./list.js";
|
|
import * as Caml_exceptions from "./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);
|
|
}
|
|
|
|
export {
|
|
Empty ,
|
|
create ,
|
|
push ,
|
|
pop ,
|
|
top ,
|
|
clear ,
|
|
copy ,
|
|
is_empty ,
|
|
length ,
|
|
iter ,
|
|
fold ,
|
|
}
|
|
/* No side effect */
|