diff options
| author | Hans Bolinder <[email protected]> | 2013-02-15 09:10:58 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-02-15 13:03:49 +0100 |
| commit | 82cd2e914d68380f7d0dac2a47ed3aac25bc6c9d (patch) | |
| tree | bc8287d8e59c4937abfdb68bd893f723a0f28970 /lib/syntax_tools | |
| parent | 0d77170a3f0e537d103d83f28ae09977d6e95fb8 (diff) | |
| download | otp-82cd2e914d68380f7d0dac2a47ed3aac25bc6c9d.tar.gz otp-82cd2e914d68380f7d0dac2a47ed3aac25bc6c9d.tar.bz2 otp-82cd2e914d68380f7d0dac2a47ed3aac25bc6c9d.zip | |
[stdlib] Correct handling of Unicode filenames
Diffstat (limited to 'lib/syntax_tools')
| -rw-r--r-- | lib/syntax_tools/src/erl_comment_scan.erl | 2 | ||||
| -rw-r--r-- | lib/syntax_tools/src/erl_tidy.erl | 3 | ||||
| -rw-r--r-- | lib/syntax_tools/src/igor.erl | 2 |
3 files changed, 3 insertions, 4 deletions
diff --git a/lib/syntax_tools/src/erl_comment_scan.erl b/lib/syntax_tools/src/erl_comment_scan.erl index a70e7ba413..b949675f1c 100644 --- a/lib/syntax_tools/src/erl_comment_scan.erl +++ b/lib/syntax_tools/src/erl_comment_scan.erl @@ -282,7 +282,7 @@ join_lines([], Txt, L, Col, Ind) -> %% ===================================================================== %% Utility functions for internal use -filename([C|T]) when is_integer(C), C > 0, C =< 255 -> +filename([C|T]) when is_integer(C), C > 0 -> [C | filename(T)]; filename([]) -> []; diff --git a/lib/syntax_tools/src/erl_tidy.erl b/lib/syntax_tools/src/erl_tidy.erl index e9a88caff3..35fd0c2e02 100644 --- a/lib/syntax_tools/src/erl_tidy.erl +++ b/lib/syntax_tools/src/erl_tidy.erl @@ -435,7 +435,6 @@ file_type(Name, Links) -> end. open_output_file(FName, Options) -> -io:format("Options ~p~n", [Options]), case catch file:open(FName, [write]++Options) of {ok, FD} -> FD; @@ -1805,7 +1804,7 @@ get_free_vars_1([{free, B} | _Bs]) -> B; get_free_vars_1([_ | Bs]) -> get_free_vars_1(Bs); get_free_vars_1([]) -> []. -filename([C | T]) when is_integer(C), C > 0, C =< 255 -> +filename([C | T]) when is_integer(C), C > 0 -> [C | filename(T)]; filename([H|T]) -> filename(H) ++ filename(T); diff --git a/lib/syntax_tools/src/igor.erl b/lib/syntax_tools/src/igor.erl index 8abc3f41cb..567bec00cb 100644 --- a/lib/syntax_tools/src/igor.erl +++ b/lib/syntax_tools/src/igor.erl @@ -2956,7 +2956,7 @@ timestamp() -> "~2.2.0w:~2.2.0w:~2.2.0w.", [Yr, Mth, Dy, Hr, Mt, Sc])). -filename([C | T]) when is_integer(C), C > 0, C =< 255 -> +filename([C | T]) when is_integer(C), C > 0 -> [C | filename(T)]; filename([H|T]) -> filename(H) ++ filename(T); |