478 lines
14 KiB
JavaScript
478 lines
14 KiB
JavaScript
// Compiled by ClojureScript 1.10.439 {}
|
|
goog.provide('clojure.string');
|
|
goog.require('cljs.core');
|
|
goog.require('goog.string');
|
|
goog.require('goog.string.StringBuffer');
|
|
clojure.string.seq_reverse = (function clojure$string$seq_reverse(coll){
|
|
return cljs.core.reduce.call(null,cljs.core.conj,cljs.core.List.EMPTY,coll);
|
|
});
|
|
clojure.string.re_surrogate_pair = (new RegExp("([\\uD800-\\uDBFF])([\\uDC00-\\uDFFF])","g"));
|
|
/**
|
|
* Returns s with its characters reversed.
|
|
*/
|
|
clojure.string.reverse = (function clojure$string$reverse(s){
|
|
return s.replace(clojure.string.re_surrogate_pair,"$2$1").split("").reverse().join("");
|
|
});
|
|
clojure.string.replace_all = (function clojure$string$replace_all(s,re,replacement){
|
|
var r = (new RegExp(re.source,(function (){var G__1125 = "g";
|
|
var G__1125__$1 = (cljs.core.truth_(re.ignoreCase)?[cljs.core.str.cljs$core$IFn$_invoke$arity$1(G__1125),"i"].join(''):G__1125);
|
|
var G__1125__$2 = (cljs.core.truth_(re.multiline)?[cljs.core.str.cljs$core$IFn$_invoke$arity$1(G__1125__$1),"m"].join(''):G__1125__$1);
|
|
if(cljs.core.truth_(re.unicode)){
|
|
return [cljs.core.str.cljs$core$IFn$_invoke$arity$1(G__1125__$2),"u"].join('');
|
|
} else {
|
|
return G__1125__$2;
|
|
}
|
|
})()));
|
|
return s.replace(r,replacement);
|
|
});
|
|
clojure.string.replace_with = (function clojure$string$replace_with(f){
|
|
return (function() {
|
|
var G__1126__delegate = function (args){
|
|
var matches = cljs.core.drop_last.call(null,(2),args);
|
|
if(cljs.core._EQ_.call(null,cljs.core.count.call(null,matches),(1))){
|
|
return f.call(null,cljs.core.first.call(null,matches));
|
|
} else {
|
|
return f.call(null,cljs.core.vec.call(null,matches));
|
|
}
|
|
};
|
|
var G__1126 = function (var_args){
|
|
var args = null;
|
|
if (arguments.length > 0) {
|
|
var G__1127__i = 0, G__1127__a = new Array(arguments.length - 0);
|
|
while (G__1127__i < G__1127__a.length) {G__1127__a[G__1127__i] = arguments[G__1127__i + 0]; ++G__1127__i;}
|
|
args = new cljs.core.IndexedSeq(G__1127__a,0,null);
|
|
}
|
|
return G__1126__delegate.call(this,args);};
|
|
G__1126.cljs$lang$maxFixedArity = 0;
|
|
G__1126.cljs$lang$applyTo = (function (arglist__1128){
|
|
var args = cljs.core.seq(arglist__1128);
|
|
return G__1126__delegate(args);
|
|
});
|
|
G__1126.cljs$core$IFn$_invoke$arity$variadic = G__1126__delegate;
|
|
return G__1126;
|
|
})()
|
|
;
|
|
});
|
|
/**
|
|
* Replaces all instance of match with replacement in s.
|
|
*
|
|
* match/replacement can be:
|
|
*
|
|
* string / string
|
|
* pattern / (string or function of match).
|
|
*
|
|
* See also replace-first.
|
|
*
|
|
* The replacement is literal (i.e. none of its characters are treated
|
|
* specially) for all cases above except pattern / string.
|
|
*
|
|
* For pattern / string, $1, $2, etc. in the replacement string are
|
|
* substituted with the string that matched the corresponding
|
|
* parenthesized group in the pattern.
|
|
*
|
|
* Example:
|
|
* (clojure.string/replace "Almost Pig Latin" #"\b(\w)(\w+)\b" "$2$1ay")
|
|
* -> "lmostAay igPay atinLay"
|
|
*/
|
|
clojure.string.replace = (function clojure$string$replace(s,match,replacement){
|
|
if(typeof match === 'string'){
|
|
return s.replace((new RegExp(goog.string.regExpEscape(match),"g")),replacement);
|
|
} else {
|
|
if((match instanceof RegExp)){
|
|
if(typeof replacement === 'string'){
|
|
return clojure.string.replace_all.call(null,s,match,replacement);
|
|
} else {
|
|
return clojure.string.replace_all.call(null,s,match,clojure.string.replace_with.call(null,replacement));
|
|
}
|
|
} else {
|
|
throw ["Invalid match arg: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(match)].join('');
|
|
|
|
}
|
|
}
|
|
});
|
|
/**
|
|
* Replaces the first instance of match with replacement in s.
|
|
*
|
|
* match/replacement can be:
|
|
*
|
|
* string / string
|
|
* pattern / (string or function of match).
|
|
*
|
|
* See also replace.
|
|
*
|
|
* The replacement is literal (i.e. none of its characters are treated
|
|
* specially) for all cases above except pattern / string.
|
|
*
|
|
* For pattern / string, $1, $2, etc. in the replacement string are
|
|
* substituted with the string that matched the corresponding
|
|
* parenthesized group in the pattern.
|
|
*
|
|
* Example:
|
|
* (clojure.string/replace-first "swap first two words"
|
|
* #"(\w+)(\s+)(\w+)" "$3$2$1")
|
|
* -> "first swap two words"
|
|
*/
|
|
clojure.string.replace_first = (function clojure$string$replace_first(s,match,replacement){
|
|
return s.replace(match,replacement);
|
|
});
|
|
/**
|
|
* Returns a string of all elements in coll, as returned by (seq coll),
|
|
* separated by an optional separator.
|
|
*/
|
|
clojure.string.join = (function clojure$string$join(var_args){
|
|
var G__1130 = arguments.length;
|
|
switch (G__1130) {
|
|
case 1:
|
|
return clojure.string.join.cljs$core$IFn$_invoke$arity$1((arguments[(0)]));
|
|
|
|
break;
|
|
case 2:
|
|
return clojure.string.join.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
|
|
|
|
break;
|
|
default:
|
|
throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
|
|
|
|
}
|
|
});
|
|
|
|
clojure.string.join.cljs$core$IFn$_invoke$arity$1 = (function (coll){
|
|
var sb = (new goog.string.StringBuffer());
|
|
var coll__$1 = cljs.core.seq.call(null,coll);
|
|
while(true){
|
|
if((!((coll__$1 == null)))){
|
|
var G__1132 = sb.append(cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.first.call(null,coll__$1)));
|
|
var G__1133 = cljs.core.next.call(null,coll__$1);
|
|
sb = G__1132;
|
|
coll__$1 = G__1133;
|
|
continue;
|
|
} else {
|
|
return sb.toString();
|
|
}
|
|
break;
|
|
}
|
|
});
|
|
|
|
clojure.string.join.cljs$core$IFn$_invoke$arity$2 = (function (separator,coll){
|
|
var sb = (new goog.string.StringBuffer());
|
|
var coll__$1 = cljs.core.seq.call(null,coll);
|
|
while(true){
|
|
if((!((coll__$1 == null)))){
|
|
sb.append(cljs.core.str.cljs$core$IFn$_invoke$arity$1(cljs.core.first.call(null,coll__$1)));
|
|
|
|
var coll__$2 = cljs.core.next.call(null,coll__$1);
|
|
if((coll__$2 == null)){
|
|
} else {
|
|
sb.append(separator);
|
|
}
|
|
|
|
var G__1134 = sb;
|
|
var G__1135 = coll__$2;
|
|
sb = G__1134;
|
|
coll__$1 = G__1135;
|
|
continue;
|
|
} else {
|
|
return sb.toString();
|
|
}
|
|
break;
|
|
}
|
|
});
|
|
|
|
clojure.string.join.cljs$lang$maxFixedArity = 2;
|
|
|
|
/**
|
|
* Converts string to all upper-case.
|
|
*/
|
|
clojure.string.upper_case = (function clojure$string$upper_case(s){
|
|
return s.toUpperCase();
|
|
});
|
|
/**
|
|
* Converts string to all lower-case.
|
|
*/
|
|
clojure.string.lower_case = (function clojure$string$lower_case(s){
|
|
return s.toLowerCase();
|
|
});
|
|
/**
|
|
* Converts first character of the string to upper-case, all other
|
|
* characters to lower-case.
|
|
*/
|
|
clojure.string.capitalize = (function clojure$string$capitalize(s){
|
|
return goog.string.capitalize(s);
|
|
});
|
|
clojure.string.pop_last_while_empty = (function clojure$string$pop_last_while_empty(v){
|
|
var v__$1 = v;
|
|
while(true){
|
|
if(("" === cljs.core.peek.call(null,v__$1))){
|
|
var G__1136 = cljs.core.pop.call(null,v__$1);
|
|
v__$1 = G__1136;
|
|
continue;
|
|
} else {
|
|
return v__$1;
|
|
}
|
|
break;
|
|
}
|
|
});
|
|
clojure.string.discard_trailing_if_needed = (function clojure$string$discard_trailing_if_needed(limit,v){
|
|
if(((((0) === limit)) && (((1) < cljs.core.count.call(null,v))))){
|
|
return clojure.string.pop_last_while_empty.call(null,v);
|
|
} else {
|
|
return v;
|
|
}
|
|
});
|
|
clojure.string.split_with_empty_regex = (function clojure$string$split_with_empty_regex(s,limit){
|
|
if((((limit <= (0))) || ((limit >= ((2) + cljs.core.count.call(null,s)))))){
|
|
return cljs.core.conj.call(null,cljs.core.vec.call(null,cljs.core.cons.call(null,"",cljs.core.map.call(null,cljs.core.str,cljs.core.seq.call(null,s)))),"");
|
|
} else {
|
|
var pred__1137 = cljs.core._EQ__EQ_;
|
|
var expr__1138 = limit;
|
|
if(cljs.core.truth_(pred__1137.call(null,(1),expr__1138))){
|
|
return (new cljs.core.PersistentVector(null,1,(5),cljs.core.PersistentVector.EMPTY_NODE,[s],null));
|
|
} else {
|
|
if(cljs.core.truth_(pred__1137.call(null,(2),expr__1138))){
|
|
return (new cljs.core.PersistentVector(null,2,(5),cljs.core.PersistentVector.EMPTY_NODE,["",s],null));
|
|
} else {
|
|
var c = (limit - (2));
|
|
return cljs.core.conj.call(null,cljs.core.vec.call(null,cljs.core.cons.call(null,"",cljs.core.subvec.call(null,cljs.core.vec.call(null,cljs.core.map.call(null,cljs.core.str,cljs.core.seq.call(null,s))),(0),c))),cljs.core.subs.call(null,s,c));
|
|
}
|
|
}
|
|
}
|
|
});
|
|
/**
|
|
* Splits string on a regular expression. Optional argument limit is
|
|
* the maximum number of splits. Not lazy. Returns vector of the splits.
|
|
*/
|
|
clojure.string.split = (function clojure$string$split(var_args){
|
|
var G__1141 = arguments.length;
|
|
switch (G__1141) {
|
|
case 2:
|
|
return clojure.string.split.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
|
|
|
|
break;
|
|
case 3:
|
|
return clojure.string.split.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)]));
|
|
|
|
break;
|
|
default:
|
|
throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
|
|
|
|
}
|
|
});
|
|
|
|
clojure.string.split.cljs$core$IFn$_invoke$arity$2 = (function (s,re){
|
|
return clojure.string.split.call(null,s,re,(0));
|
|
});
|
|
|
|
clojure.string.split.cljs$core$IFn$_invoke$arity$3 = (function (s,re,limit){
|
|
return clojure.string.discard_trailing_if_needed.call(null,limit,((("/(?:)/" === cljs.core.str.cljs$core$IFn$_invoke$arity$1(re)))?clojure.string.split_with_empty_regex.call(null,s,limit):(((limit < (1)))?cljs.core.vec.call(null,cljs.core.str.cljs$core$IFn$_invoke$arity$1(s).split(re)):(function (){var s__$1 = s;
|
|
var limit__$1 = limit;
|
|
var parts = cljs.core.PersistentVector.EMPTY;
|
|
while(true){
|
|
if(((1) === limit__$1)){
|
|
return cljs.core.conj.call(null,parts,s__$1);
|
|
} else {
|
|
var m = cljs.core.re_find.call(null,re,s__$1);
|
|
if((!((m == null)))){
|
|
var index = s__$1.indexOf(m);
|
|
var G__1143 = s__$1.substring((index + cljs.core.count.call(null,m)));
|
|
var G__1144 = (limit__$1 - (1));
|
|
var G__1145 = cljs.core.conj.call(null,parts,s__$1.substring((0),index));
|
|
s__$1 = G__1143;
|
|
limit__$1 = G__1144;
|
|
parts = G__1145;
|
|
continue;
|
|
} else {
|
|
return cljs.core.conj.call(null,parts,s__$1);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
})())));
|
|
});
|
|
|
|
clojure.string.split.cljs$lang$maxFixedArity = 3;
|
|
|
|
/**
|
|
* Splits s on \n or \r\n.
|
|
*/
|
|
clojure.string.split_lines = (function clojure$string$split_lines(s){
|
|
return clojure.string.split.call(null,s,/\n|\r\n/);
|
|
});
|
|
/**
|
|
* Removes whitespace from both ends of string.
|
|
*/
|
|
clojure.string.trim = (function clojure$string$trim(s){
|
|
return goog.string.trim(s);
|
|
});
|
|
/**
|
|
* Removes whitespace from the left side of string.
|
|
*/
|
|
clojure.string.triml = (function clojure$string$triml(s){
|
|
return goog.string.trimLeft(s);
|
|
});
|
|
/**
|
|
* Removes whitespace from the right side of string.
|
|
*/
|
|
clojure.string.trimr = (function clojure$string$trimr(s){
|
|
return goog.string.trimRight(s);
|
|
});
|
|
/**
|
|
* Removes all trailing newline \n or return \r characters from
|
|
* string. Similar to Perl's chomp.
|
|
*/
|
|
clojure.string.trim_newline = (function clojure$string$trim_newline(s){
|
|
var index = s.length;
|
|
while(true){
|
|
if((index === (0))){
|
|
return "";
|
|
} else {
|
|
var ch = cljs.core.get.call(null,s,(index - (1)));
|
|
if(((("\n" === ch)) || (("\r" === ch)))){
|
|
var G__1146 = (index - (1));
|
|
index = G__1146;
|
|
continue;
|
|
} else {
|
|
return s.substring((0),index);
|
|
}
|
|
}
|
|
break;
|
|
}
|
|
});
|
|
/**
|
|
* True is s is nil, empty, or contains only whitespace.
|
|
*/
|
|
clojure.string.blank_QMARK_ = (function clojure$string$blank_QMARK_(s){
|
|
return goog.string.isEmptySafe(s);
|
|
});
|
|
/**
|
|
* Return a new string, using cmap to escape each character ch
|
|
* from s as follows:
|
|
*
|
|
* If (cmap ch) is nil, append ch to the new string.
|
|
* If (cmap ch) is non-nil, append (str (cmap ch)) instead.
|
|
*/
|
|
clojure.string.escape = (function clojure$string$escape(s,cmap){
|
|
var buffer = (new goog.string.StringBuffer());
|
|
var length = s.length;
|
|
var index = (0);
|
|
while(true){
|
|
if((length === index)){
|
|
return buffer.toString();
|
|
} else {
|
|
var ch = s.charAt(index);
|
|
var replacement = cljs.core.get.call(null,cmap,ch);
|
|
if((!((replacement == null)))){
|
|
buffer.append(cljs.core.str.cljs$core$IFn$_invoke$arity$1(replacement));
|
|
} else {
|
|
buffer.append(ch);
|
|
}
|
|
|
|
var G__1147 = (index + (1));
|
|
index = G__1147;
|
|
continue;
|
|
}
|
|
break;
|
|
}
|
|
});
|
|
/**
|
|
* Return index of value (string or char) in s, optionally searching
|
|
* forward from from-index or nil if not found.
|
|
*/
|
|
clojure.string.index_of = (function clojure$string$index_of(var_args){
|
|
var G__1149 = arguments.length;
|
|
switch (G__1149) {
|
|
case 2:
|
|
return clojure.string.index_of.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
|
|
|
|
break;
|
|
case 3:
|
|
return clojure.string.index_of.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)]));
|
|
|
|
break;
|
|
default:
|
|
throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
|
|
|
|
}
|
|
});
|
|
|
|
clojure.string.index_of.cljs$core$IFn$_invoke$arity$2 = (function (s,value){
|
|
var result = s.indexOf(value);
|
|
if((result < (0))){
|
|
return null;
|
|
} else {
|
|
return result;
|
|
}
|
|
});
|
|
|
|
clojure.string.index_of.cljs$core$IFn$_invoke$arity$3 = (function (s,value,from_index){
|
|
var result = s.indexOf(value,from_index);
|
|
if((result < (0))){
|
|
return null;
|
|
} else {
|
|
return result;
|
|
}
|
|
});
|
|
|
|
clojure.string.index_of.cljs$lang$maxFixedArity = 3;
|
|
|
|
/**
|
|
* Return last index of value (string or char) in s, optionally
|
|
* searching backward from from-index or nil if not found.
|
|
*/
|
|
clojure.string.last_index_of = (function clojure$string$last_index_of(var_args){
|
|
var G__1152 = arguments.length;
|
|
switch (G__1152) {
|
|
case 2:
|
|
return clojure.string.last_index_of.cljs$core$IFn$_invoke$arity$2((arguments[(0)]),(arguments[(1)]));
|
|
|
|
break;
|
|
case 3:
|
|
return clojure.string.last_index_of.cljs$core$IFn$_invoke$arity$3((arguments[(0)]),(arguments[(1)]),(arguments[(2)]));
|
|
|
|
break;
|
|
default:
|
|
throw (new Error(["Invalid arity: ",cljs.core.str.cljs$core$IFn$_invoke$arity$1(arguments.length)].join('')));
|
|
|
|
}
|
|
});
|
|
|
|
clojure.string.last_index_of.cljs$core$IFn$_invoke$arity$2 = (function (s,value){
|
|
var result = s.lastIndexOf(value);
|
|
if((result < (0))){
|
|
return null;
|
|
} else {
|
|
return result;
|
|
}
|
|
});
|
|
|
|
clojure.string.last_index_of.cljs$core$IFn$_invoke$arity$3 = (function (s,value,from_index){
|
|
var result = s.lastIndexOf(value,from_index);
|
|
if((result < (0))){
|
|
return null;
|
|
} else {
|
|
return result;
|
|
}
|
|
});
|
|
|
|
clojure.string.last_index_of.cljs$lang$maxFixedArity = 3;
|
|
|
|
/**
|
|
* True if s starts with substr.
|
|
*/
|
|
clojure.string.starts_with_QMARK_ = (function clojure$string$starts_with_QMARK_(s,substr){
|
|
return goog.string.startsWith(s,substr);
|
|
});
|
|
/**
|
|
* True if s ends with substr.
|
|
*/
|
|
clojure.string.ends_with_QMARK_ = (function clojure$string$ends_with_QMARK_(s,substr){
|
|
return goog.string.endsWith(s,substr);
|
|
});
|
|
/**
|
|
* True if s includes substr.
|
|
*/
|
|
clojure.string.includes_QMARK_ = (function clojure$string$includes_QMARK_(s,substr){
|
|
return goog.string.contains(s,substr);
|
|
});
|
|
|
|
//# sourceMappingURL=string.js.map
|