diff options
| author | Hans Bolinder <[email protected]> | 2012-12-18 16:19:24 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-01-02 10:15:18 +0100 |
| commit | 567115dab453dd05b74b28c5130582c14fe67bc5 (patch) | |
| tree | 672c4a46f5426a14069d3c7a5821498e27e8db98 | |
| parent | 7dec166430582f864e5afb6cc58b52679840e203 (diff) | |
| download | otp-567115dab453dd05b74b28c5130582c14fe67bc5.tar.gz otp-567115dab453dd05b74b28c5130582c14fe67bc5.tar.bz2 otp-567115dab453dd05b74b28c5130582c14fe67bc5.zip | |
[test_server] Add Unicode support to module listing
Code written by Siri Hansen.
| -rw-r--r-- | lib/test_server/src/erl2html2.erl | 29 |
1 files changed, 26 insertions, 3 deletions
diff --git a/lib/test_server/src/erl2html2.erl b/lib/test_server/src/erl2html2.erl index 9c459c05d4..1729257809 100644 --- a/lib/test_server/src/erl2html2.erl +++ b/lib/test_server/src/erl2html2.erl @@ -34,11 +34,17 @@ convert(File, Dest) -> %% %% FIXME: The colours should *really* be set with %% stylesheets... + Encoding = encoding(File), Header = ["<!DOCTYPE HTML PUBLIC " "\"-//W3C//DTD HTML 3.2 Final//EN\">\n" "<!-- autogenerated by '"++atom_to_list(?MODULE)++"'. -->\n" "<html>\n" - "<head><title>", File, "</title></head>\n\n" + "<head>\n" + "<meta http-equiv=\"Content-Type\" content=\"text/html;" + "charset=", + Encoding,"\"/>\n" + "<title>", File, "</title>\n" + "</head>\n\n" "<body bgcolor=\"white\" text=\"black\"" " link=\"blue\" vlink=\"purple\" alink=\"red\">\n"], convert(File, Dest, Header). @@ -55,12 +61,12 @@ convert(File, Dest, Header) -> case file:open(Dest,[write,raw]) of {ok,DFd} -> file:write(DFd,[Header,"<pre>\n"]), - Lines = build_html(SFd,DFd,Functions), + _Lines = build_html(SFd,DFd,Functions), file:write(DFd,["</pre>\n",footer(), "</body>\n</html>\n"]), %% {_, Time2} = statistics(runtime), %% io:format("Converted ~p lines in ~.2f Seconds.~n", - %% [Lines, Time2/1000]), + %% [_Lines, Time2/1000]), file:close(SFd), file:close(DFd), ok; @@ -180,3 +186,20 @@ possibly_enhance(Str,false) -> %%% End of the file footer() -> "". + +%%%----------------------------------------------------------------- +%%% Read encoding from source file +encoding(File) -> + Encoding = + case epp:read_encoding(File) of + none -> + epp:default_encoding(); + E -> + E + end, + html_encoding(Encoding). + +html_encoding(latin1) -> + "iso-8859-1"; +html_encoding(utf8) -> + "utf-8". |