标签：style blog http io color ar os 使用 for
erlang更新到R17已有一段时间了，公司项目打算从旧版的erlang迁移到R17，却不料有不少的困扰，其中一个问题是中文问题。
这个问题很容易重现：新建一个文件t.erl，保存为utf-8无bom格式
-module(t). -export([test/0]). test() -> ["我", <<"我">>].在旧版的erlang中，下面的代码能正常工作，结果就是：
Eshell V5.9.1 (abort with ^G)
1> c(t).
{ok,t}
2> t:test().
[[230,136,145],<<230,136,145>>]R17编译后的运行结果为：Eshell V6.0 (abort with ^G)
1> c(t).
{ok,t}
2> t:test().
[[25105],<<17>>]找到erlang的文档，erlang更新到R17后，默认编码从Latin-1换成了utf8In Erlang/OTP 17.0, the encoding default for Erlang source files was switched to UTF-8 and in Erlang/OTP 18.0 Erlang will support atoms in the full Unicode range, meaning full Unicode function and module names
想让R17正确识别utf-8无bom格式的代码文件，方法就是在文件头部加上“%% coding: latin-1”，代码就变成这样：
%% coding: latin-1
-module(t).
-export([test/0]).
test() ->
["我", <<"我">>].问题是，写个脚本对旧的代码文件做修改虽然不麻烦，但新加进来的文件还要加上这个头部申明，确定有点坑爹。而且受影响的还有 file:consult/1 ，也是要加上头部申明最脑裂的是erlang没有提供启动参数，用来支持原来的latin-1模式。试过了erl +pc latin1还是无法解决问题，这里不知道是不是bug
所以，这里在erlang基础上重新实现erlang的编译，代码如下：
-module(test).
-compile(export_all).
compile(FileName) ->
compile(FileName, [verbose,report_errors,report_warnings]).
compile(FileName, Options) ->
Module = filename:basename(FileName),
{ok, Forms } = epp:parse_file(FileName, [{default_encoding, latin1}]) ,
{ok, Mod, Code} = compile:forms(Forms, Options),
{ok, Cwd} = file:get_cwd(),
code:load_binary(Mod, FileName, Code),
file:write_file(lists:concat([Cwd, Module, ".beam"]), Code, [write, binary]).注意了，以上代码不要在R17之前erlang使用，某些接口erlang还没提供支持。运行结果如下：14> c(test).
{ok,test}
15> test:compile("t.erl").
ok
16> t:test().
[[230,136,145],<<230,136,145>>]另外，也重新实现了file:consult/1，如下：consult(File) ->
case file:open(File, [read]) of
{ok, Fd} ->
R = consult_stream(Fd),
_ = file:close(Fd),
R;
Error ->
Error
end.
consult_stream(Fd) ->
_ = epp:set_encoding(Fd, latin1),
consult_stream(Fd, 1, []).
consult_stream(Fd, Line, Acc) ->
case io:read(Fd, ‘‘, Line) of
{ok,Term,EndLine} ->
consult_stream(Fd, EndLine, [Term|Acc]);
{error,Error,_Line} ->
{error,Error};
{eof,_Line} ->
{ok,lists:reverse(Acc)}
end.虽然这里能解决erlang R17无法识别中文问题， 但还是希望erlang在以后的版本能提供一个参数用以兼容latin的代码。标签：style blog http io color ar os 使用 for
原文地址：http://blog.csdn.net/mycwq/article/details/40718281
