diff options
| author | Hans Bolinder <[email protected]> | 2012-10-04 15:58:26 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-01-02 10:15:17 +0100 |
| commit | 300c5466a7c9cfe3ed22bba2a88ba21058406402 (patch) | |
| tree | b8c30800b17d5ae98255de2fd2818d8b5d4d6eba /lib/stdlib/test/escript_SUITE_data/unicode1 | |
| parent | 7a884a31cfcaaf23f7920ba1a006aa2855529030 (diff) | |
| download | otp-300c5466a7c9cfe3ed22bba2a88ba21058406402.tar.gz otp-300c5466a7c9cfe3ed22bba2a88ba21058406402.tar.bz2 otp-300c5466a7c9cfe3ed22bba2a88ba21058406402.zip | |
[stdlib, kernel] Introduce Unicode support for Erlang source files
Expect modifications, additions and corrections.
There is a kludge in file_io_server and
erl_scan:continuation_location() that's not so pleasing.
Diffstat (limited to 'lib/stdlib/test/escript_SUITE_data/unicode1')
| -rwxr-xr-x | lib/stdlib/test/escript_SUITE_data/unicode1 | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/stdlib/test/escript_SUITE_data/unicode1 b/lib/stdlib/test/escript_SUITE_data/unicode1 new file mode 100755 index 0000000000..a77574625e --- /dev/null +++ b/lib/stdlib/test/escript_SUITE_data/unicode1 @@ -0,0 +1,14 @@ +#!/usr/bin/env escript +%% -*- erlang -*- + +-export([main/1]). + +main(_) -> + ok = io:setopts([{encoding,unicode}]), + _D = erlang:system_flag(backtrace_depth, 0), + A = <<"\x{aa}">>, + S = lists:flatten(io_lib:format("~p/~p.", [A, A])), + {ok, Ts, _} = erl_scan:string(S, 1, [unicode]), + {ok, Es} = erl_parse:parse_exprs(Ts), + B = erl_eval:new_bindings(), + erl_eval:exprs(Es, B). |