Move sizeme_graph.pl to bin and the static files into lib so they're installed.

[p5sagit/Devel-Size.git] / lib / Devel / SizeMe / Graph / static / sprintf.js

// from https://raw.github.com/kvz/phpjs/master/functions/strings/sprintf.js\r
function sprintf () {\r
    // http://kevin.vanzonneveld.net\r
    // +   original by: Ash Searle (http://hexmen.com/blog/)\r
    // + namespaced by: Michael White (http://getsprink.com)\r
    // +    tweaked by: Jack\r
    // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)\r
    // +      input by: Paulo Freitas\r
    // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)\r
    // +      input by: Brett Zamir (http://brett-zamir.me)\r
    // +   improved by: Kevin van Zonneveld (http://kevin.vanzonneveld.net)\r
    // +   improved by: Dj\r
    // *     example 1: sprintf("%01.2f", 123.1);\r
    // *     returns 1: 123.10\r
    // *     example 2: sprintf("[%10s]", 'monkey');\r
    // *     returns 2: '[    monkey]'\r
    // *     example 3: sprintf("[%'#10s]", 'monkey');\r
    // *     returns 3: '[####monkey]'\r
    var regex = /%%|%(\d+\$)?([-+\'#0 ]*)(\*\d+\$|\*|\d+)?(\.(\*\d+\$|\*|\d+))?([scboxXuideEfFgG])/g;\r
    var a = arguments,\r
        i = 0,\r
        format = a[i++];\r
\r
    // pad()\r
    var pad = function (str, len, chr, leftJustify) {\r
        if (!chr) {\r
            chr = ' ';\r
        }\r
        var padding = (str.length >= len) ? '' : Array(1 + len - str.length >>> 0).join(chr);\r
        return leftJustify ? str + padding : padding + str;\r
    };\r
\r
    // justify()\r
    var justify = function (value, prefix, leftJustify, minWidth, zeroPad, customPadChar) {\r
        var diff = minWidth - value.length;\r
        if (diff > 0) {\r
            if (leftJustify || !zeroPad) {\r
                value = pad(value, minWidth, customPadChar, leftJustify);\r
            } else {\r
                value = value.slice(0, prefix.length) + pad('', diff, '0', true) + value.slice(prefix.length);\r
            }\r
        }\r
        return value;\r
    };\r
\r
    // formatBaseX()\r
    var formatBaseX = function (value, base, prefix, leftJustify, minWidth, precision, zeroPad) {\r
        // Note: casts negative numbers to positive ones\r
        var number = value >>> 0;\r
        prefix = prefix && number && {\r
            '2': '0b',\r
            '8': '0',\r
            '16': '0x'\r
        }[base] || '';\r
        value = prefix + pad(number.toString(base), precision || 0, '0', false);\r
        return justify(value, prefix, leftJustify, minWidth, zeroPad);\r
    };\r
\r
    // formatString()\r
    var formatString = function (value, leftJustify, minWidth, precision, zeroPad, customPadChar) {\r
        if (precision != null) {\r
            value = value.slice(0, precision);\r
        }\r
        return justify(value, '', leftJustify, minWidth, zeroPad, customPadChar);\r
    };\r
\r
    // doFormat()\r
    var doFormat = function (substring, valueIndex, flags, minWidth, _, precision, type) {\r
        var number;\r
        var prefix;\r
        var method;\r
        var textTransform;\r
        var value;\r
\r
        if (substring == '%%') {\r
            return '%';\r
        }\r
\r
        // parse flags\r
        var leftJustify = false,\r
            positivePrefix = '',\r
            zeroPad = false,\r
            prefixBaseX = false,\r
            customPadChar = ' ';\r
        var flagsl = flags.length;\r
        for (var j = 0; flags && j < flagsl; j++) {\r
            switch (flags.charAt(j)) {\r
            case ' ':\r
                positivePrefix = ' ';\r
                break;\r
            case '+':\r
                positivePrefix = '+';\r
                break;\r
            case '-':\r
                leftJustify = true;\r
                break;\r
            case "'":\r
                customPadChar = flags.charAt(j + 1);\r
                break;\r
            case '0':\r
                zeroPad = true;\r
                break;\r
            case '#':\r
                prefixBaseX = true;\r
                break;\r
            }\r
        }\r
\r
        // parameters may be null, undefined, empty-string or real valued\r
        // we want to ignore null, undefined and empty-string values\r
        if (!minWidth) {\r
            minWidth = 0;\r
        } else if (minWidth == '*') {\r
            minWidth = +a[i++];\r
        } else if (minWidth.charAt(0) == '*') {\r
            minWidth = +a[minWidth.slice(1, -1)];\r
        } else {\r
            minWidth = +minWidth;\r
        }\r
\r
        // Note: undocumented perl feature:\r
        if (minWidth < 0) {\r
            minWidth = -minWidth;\r
            leftJustify = true;\r
        }\r
\r
        if (!isFinite(minWidth)) {\r
            throw new Error('sprintf: (minimum-)width must be finite');\r
        }\r
\r
        if (!precision) {\r
            precision = 'fFeE'.indexOf(type) > -1 ? 6 : (type == 'd') ? 0 : undefined;\r
        } else if (precision == '*') {\r
            precision = +a[i++];\r
        } else if (precision.charAt(0) == '*') {\r
            precision = +a[precision.slice(1, -1)];\r
        } else {\r
            precision = +precision;\r
        }\r
\r
        // grab value using valueIndex if required?\r
        value = valueIndex ? a[valueIndex.slice(0, -1)] : a[i++];\r
\r
        switch (type) {\r
        case 's':\r
            return formatString(String(value), leftJustify, minWidth, precision, zeroPad, customPadChar);\r
        case 'c':\r
            return formatString(String.fromCharCode(+value), leftJustify, minWidth, precision, zeroPad);\r
        case 'b':\r
            return formatBaseX(value, 2, prefixBaseX, leftJustify, minWidth, precision, zeroPad);\r
        case 'o':\r
            return formatBaseX(value, 8, prefixBaseX, leftJustify, minWidth, precision, zeroPad);\r
        case 'x':\r
            return formatBaseX(value, 16, prefixBaseX, leftJustify, minWidth, precision, zeroPad);\r
        case 'X':\r
            return formatBaseX(value, 16, prefixBaseX, leftJustify, minWidth, precision, zeroPad).toUpperCase();\r
        case 'u':\r
            return formatBaseX(value, 10, prefixBaseX, leftJustify, minWidth, precision, zeroPad);\r
        case 'i':\r
        case 'd':\r
            number = (+value) | 0;\r
            prefix = number < 0 ? '-' : positivePrefix;\r
            value = prefix + pad(String(Math.abs(number)), precision, '0', false);\r
            return justify(value, prefix, leftJustify, minWidth, zeroPad);\r
        case 'e':\r
        case 'E':\r
        case 'f': // Should handle locales (as per setlocale)\r
        case 'F':\r
        case 'g':\r
        case 'G':\r
            number = +value;\r
            prefix = number < 0 ? '-' : positivePrefix;\r
            method = ['toExponential', 'toFixed', 'toPrecision']['efg'.indexOf(type.toLowerCase())];\r
            textTransform = ['toString', 'toUpperCase']['eEfFgG'.indexOf(type) % 2];\r
            value = prefix + Math.abs(number)[method](precision);\r
            return justify(value, prefix, leftJustify, minWidth, zeroPad)[textTransform]();\r
        default:\r
            return substring;\r
        }\r
    };\r
\r
    return format.replace(regex, doFormat);\r
}\r