|
|
@ -68,7 +68,7 @@ doDelFile(CodeBin, SrcBin) -> |
|
|
|
<<SrcBin/binary, Part1/binary>>; |
|
|
|
[Part1, Part2] -> |
|
|
|
[_, LeftPart] = binary:split(Part2, <<").">>), |
|
|
|
delFile(LeftPart, <<SrcBin/binary, Part1/binary>>) |
|
|
|
doDelFile(LeftPart, <<SrcBin/binary, Part1/binary>>) |
|
|
|
end. |
|
|
|
|
|
|
|
%% 检查源码中是否存在unicode字符 主要是为了检查是否存在中文 |
|
|
@ -88,7 +88,7 @@ isHasUnicode(SrcDir) -> |
|
|
|
end |
|
|
|
end, |
|
|
|
AllMods = filelib:fold_files(SrcDir, "\\.erl$", true, FunDeal, []), |
|
|
|
ModStr = <<<<(atom_to_binary(OneMod))/binary, "\n">> || OneMod <- AllMods>>, |
|
|
|
ModStr = <<<<(erlang:atom_to_binary(OneMod))/binary, "\n">> || OneMod <- AllMods>>, |
|
|
|
file:write_file("hasUnicodeMod.txt", ModStr). |
|
|
|
|
|
|
|
checkUnicode(<<>>) -> |
|
|
|