bs-platform/lib/es6/stack.js

bucklescript compiler, ocaml standard libary by bucklescript and its required runtime support

import * as List from "./list.js";
import * as Caml_exceptions from "./caml_exceptions.js";

var Empty = 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 = /* :: */[
    x,
    s.c
  ];
  s.len = s.len + 1 | 0;
  
}

function pop(s) {
  var match = s.c;
  if (match) {
    s.c = match[1];
    s.len = s.len - 1 | 0;
    return match[0];
  }
  throw Empty;
}

function top(s) {
  var match = s.c;
  if (match) {
    return match[0];
  }
  throw Empty;
}

function is_empty(s) {
  return s.c === /* [] */0;
}

function length(s) {
  return s.len;
}

function iter(f, s) {
  return 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 */