prelude.js

// A function for Funk Function Application (required to support methods on primitive types in JavaScript)
function _A(f, x) {
    if(typeof f === 'function') {
        return f(x);
    } else if(typeof f === 'string') {
        switch(x) {
            case 'Show': return JSON.stringify(f);
            case 'Size': return f.length;
            case 'CharAt': return function(i) { return f.charAt(i); };
            case 'CharCodeAt': return function(i) { return f.charCodeAt(i); };
            case 'Slice': return function(b) { return function(e) { return f.substring(b, e); }; };
            case 'ToUpper': return f.toUpperCase();
            case 'ToLower': return f.toLowerCase();
            case 'Trim': return f.trim();
            case 'IndexOf': return function(v) { return f.indexOf(v); };
            case '==': return function(v) { return f == v; };
            case '!=': return function(v) { return f != v; };
            case '+': return function(v) { return f + v; };
            case '!_': return function(v) { return (v === true || v === 'True') ? 'False' : 'True'; };
            default: throw "Unexpected argument: " + x;
        }
    } else if(typeof f === 'number') {
        switch(x) {
            case 'Show': return "" + f;
            case '==': return function(v) { return f == v; };
            case '!=': return function(v) { return f != v; };
            case '>': return function(v) { return f > v; };
            case '>=': return function(v) { return f >= v; };
            case '<': return function(v) { return f < v; };
            case '<=': return function(v) { return f <= v; };
            case '-_': return -f; // Unary operator -
            case '+_': return +f; // Unary operator +
            case '+': return function(v) { return f + v; };
            case '-': return function(v) { return f - v; };
            case '*': return function(v) { return f * v; };
            case '/': return function(v) { return f / v; };
            default: throw "Unexpected argument: " + x;
        }
    } else if(f === true) {
        return _A('True', x);
    } else if(f === false) {
        return _A('False', x);
    } else if(f == null) {
        return _A('Unit', x);
    } else {
        throw "Unexpected argument: " + x;
    }
}

// Global variables can be exposed to funk simply by giving them a "_" suffix:
var system_ = function(x) {
    switch(x) {
        case 'Log': return function(v) { console.log(v) };
        case 'Dir': return function(v) { console.dir(v) };
        case 'SetText': return function(v) { document.getElementById("result").textContent = v; };
        case 'SetHtml': return function(v) { document.getElementById("result").innerHTML = v; };
        default: throw "Unexpected argument: " + x;
    }
}

// Mutable "variables" as a library function. Read with unit application, eg. "foo()".
var new_ = function(x) {
    return function(t) {
        if(t == null) return x;
        switch(t) {
            case 'Show': return 'new(' + _A(x, 'Show') + ')';
            case '*_': return x;
            case '=': return function(y) { x = y; };
            case '+=': return function(y) { x += y; };
            case '-=': return function(y) { x -= y; };
            case '*=': return function(y) { x *= y; };
            throw "Unexpected argument: " + t;
        }
    }
}