Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-24 16:23:40 +01:00
Code Releases Activity

apply string optimizations

Browse Source
This commit is contained in:
Christophe Romain 2014-06-16 19:49:08 +02:00
parent 909e0eb5dd
commit 2b93de6912
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/str.erl
View File

@ -93,7 +93,10 @@ rchr(B, C) ->
-spec str(binary(), binary()) -> non_neg_integer().
str(B1, B2) ->
string:str(binary_to_list(B1), binary_to_list(B2)).
case binary:match(B1, B2) of
{R, _Len} -> R+1;
_ -> 0
end.
-spec rstr(binary(), binary()) -> non_neg_integer().
@ -113,7 +116,7 @@ cspan(B1, B2) ->
-spec copies(binary(), non_neg_integer()) -> binary().
copies(B, N) ->
iolist_to_binary(string:copies(binary_to_list(B), N)).
binary:copy(B, N).
-spec words(binary()) -> pos_integer().
@ -201,7 +204,7 @@ join(L, Sep) ->
-spec substr(binary(), pos_integer()) -> binary().
substr(B, N) ->
iolist_to_binary(string:substr(binary_to_list(B), N)).
binary_part(B, N-1, byte_size(B)-N+1).
-spec chr(binary(), char()) -> non_neg_integer().
@ -221,7 +224,7 @@ chars(C, N) ->
-spec substr(binary(), pos_integer(), non_neg_integer()) -> binary().
substr(B, S, E) ->
iolist_to_binary(string:substr(binary_to_list(B), S, E)).
binary_part(B, S-1, E).
-spec strip(binary(), both | left | right, char()) -> binary().