Current section
Files
Jump to
Current section
Files
src/swidden_misc.erl
-module(swidden_misc).
-export([pascal2snake/1]).
-spec pascal2snake(binary()) -> no_pascalcase | binary().
pascal2snake(<<C:8, _/binary>> = Binary) when $A =< C andalso C =< $Z ->
%% 大文字が２個以上 + 小文字 みたいなパターンの最後の大文字のまえに "_" を入れる
Binary2 = re:replace(Binary, "([A-Z]+)([A-Z][a-z])", "\\1_\\2", [{return, binary}, global]),
%% "小文字または数字"と大文字の間に "_" を入れる
Binary3 = re:replace(Binary2, "([a-z\\d])([A-Z])", "\\1_\\2", [{return, binary}, global]),
%% すべて小文字にする
iolist_to_binary(string:lowercase(Binary3));
pascal2snake(_Binary) ->
no_pascalcase.