neith/dist_node/walk.js

Javascript Zipper Library

/*
 * THIS FILE IS AUTO GENERATED FROM 'lib/walk.kep'
 * DO NOT EDIT
*/
"use strict";
var __o = require("./zipper"),
    forChildren, walk, postWalk, preWalk, isLeaf = __o["isLeaf"],
    up = __o["up"],
    down = __o["down"],
    right = __o["right"],
    seq = __o["seq"],
    whilst = __o["whilst"],
    id = (function(x) {
        return x;
    });
(forChildren = (function(f, ctx) {
    return (((!ctx) || isLeaf(ctx)) ? ctx : up(f(whilst(right, seq(f, right), down(ctx)))));
}));
(walk = (function(pre, post, ctx) {
    var walkImpl = (function(ctx0) {
        return post(forChildren(walkImpl, pre(ctx0)));
    });
    return post(forChildren(walkImpl, pre(ctx)));
}));
(postWalk = (function(post, ctx) {
    return walk(id, post, ctx);
}));
(preWalk = (function(pre, ctx) {
    return walk(pre, id, ctx);
}));
(exports["forChildren"] = forChildren);
(exports["walk"] = walk);
(exports["postWalk"] = postWalk);
(exports["preWalk"] = preWalk);