146 lines
No EOL
3.4 KiB
JavaScript
146 lines
No EOL
3.4 KiB
JavaScript
Elm.Native.String = {};
|
|
Elm.Native.String.make = function(elm) {
|
|
elm.Native = elm.Native || {};
|
|
elm.Native.String = elm.Native.String || {};
|
|
if (elm.Native.String.values) return elm.Native.String.values;
|
|
if ('values' in Elm.Native.String)
|
|
return elm.Native.String.values = Elm.Native.String.values;
|
|
|
|
var Maybe = Elm.Maybe.make(elm);
|
|
var Tuple2 = Elm.Native.Utils.make(elm).Tuple2;
|
|
|
|
function isEmpty(str) {
|
|
return str.length === 0;
|
|
}
|
|
function cons(chr,str) {
|
|
return chr + str;
|
|
}
|
|
function uncons(str) {
|
|
var chr;
|
|
return (chr = str[0]) ? Maybe.Just(Tuple2(chr, str.slice(1)))
|
|
: Maybe.Nothing;
|
|
}
|
|
function map(f,str) {
|
|
return str.map(f);
|
|
}
|
|
function filter(pred,str) {
|
|
return str.filter(pred);
|
|
}
|
|
function reverse(str) {
|
|
return str.reverse();
|
|
}
|
|
function foldl(f,b,str) {
|
|
var len = str.length;
|
|
for (var i = 0; i < len; ++i) {
|
|
b = A2(f, str[i], b);
|
|
}
|
|
return b;
|
|
}
|
|
function foldr(f,b,str) {
|
|
for (var i = str.length; i--; ) {
|
|
b = A2(f, str[i], b);
|
|
}
|
|
return b;
|
|
}
|
|
|
|
function split(sep, str) {
|
|
return str.split(sep);
|
|
}
|
|
function join(sep, strs) {
|
|
return strs.join(sep);
|
|
}
|
|
function repeat(n, chr) {
|
|
var result = '';
|
|
while (n > 0) {
|
|
if (n & 1) result += chr;
|
|
n >>= 1, chr += chr;
|
|
}
|
|
return result;
|
|
}
|
|
function center(n,chr,str) {
|
|
var half = n - str.length / 2;
|
|
return repeat(Math.ceil(half),chr) + str + repeat(half|0,chr);
|
|
}
|
|
function justifyLeft(n,chr,str) {
|
|
return str + repeat(n - str.length, chr);
|
|
}
|
|
function justifyRight(n,chr,str) {
|
|
return repeat(n - str.length, chr) + str;
|
|
}
|
|
|
|
function trim(str) {
|
|
return str.trim();
|
|
}
|
|
function trimLeft(str) {
|
|
return str.trimLeft();
|
|
}
|
|
function trimRight(str) {
|
|
return str.trimRight();
|
|
}
|
|
|
|
function words(str) {
|
|
return str.split(/\s+/g);
|
|
}
|
|
function unwords(str) {
|
|
return str.join(' ');
|
|
}
|
|
function lines(str) {
|
|
return str.split(/\r\n|\r|\n/g);
|
|
}
|
|
function unlines(str) {
|
|
return str.join('\n');
|
|
}
|
|
|
|
function toUpper(str) {
|
|
return str.toUpperCase();
|
|
}
|
|
function toLower(str) {
|
|
return str.toLowerCase();
|
|
}
|
|
|
|
function any(pred, str) {
|
|
for (var i = str.length; i--; ) {
|
|
if (pred(str[i])) return true;
|
|
}
|
|
return false;
|
|
}
|
|
function all(pred, str) {
|
|
for (var i = str.length; i--; ) {
|
|
if (!pred(str[i])) return false;
|
|
}
|
|
return true;
|
|
}
|
|
|
|
return Elm.Native.String.values = {
|
|
isEmpty: isEmpty,
|
|
cons: F2(cons),
|
|
uncons: uncons,
|
|
map: F2(map),
|
|
filter: F2(filter),
|
|
reverse: reverse,
|
|
foldl: F3(foldl),
|
|
foldr: F3(foldr),
|
|
|
|
split: F2(split),
|
|
join: F2(join),
|
|
repeat: F2(repeat),
|
|
center: F3(center),
|
|
justifyLeft: F3(justifyLeft),
|
|
justifyRight: F3(justifyRight),
|
|
|
|
trim: trim,
|
|
trimLeft: trimLeft,
|
|
trimRight: trimRight,
|
|
|
|
words: words,
|
|
unwords: unwords,
|
|
lines: lines,
|
|
unlines: unlines,
|
|
|
|
toUpper: toUpper,
|
|
toLower: toLower,
|
|
|
|
any: F2(any),
|
|
all: F2(all)
|
|
};
|
|
}; |