diff options
| author | Hans Bolinder <[email protected]> | 2013-09-02 15:07:52 +0200 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2013-09-02 15:07:52 +0200 |
| commit | 298ff42f5f80a603306a007540d1c75a013bcf81 (patch) | |
| tree | eee70c5aad3d25402fb54abfc6748d687fa0f593 /lib/parsetools/src/leex.erl | |
| parent | b1b6087d7f52b4ac88c90b52be7b66f0e894e565 (diff) | |
| download | otp-298ff42f5f80a603306a007540d1c75a013bcf81.tar.gz otp-298ff42f5f80a603306a007540d1c75a013bcf81.tar.bz2 otp-298ff42f5f80a603306a007540d1c75a013bcf81.zip | |
Fix a Unicode filename bug affecting Leex and Yecc
A bug where Unicode filenames combined with Latin-1 encoding could
crash Yecc and Leex has been fixed.
Diffstat (limited to 'lib/parsetools/src/leex.erl')
| -rw-r--r-- | lib/parsetools/src/leex.erl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/parsetools/src/leex.erl b/lib/parsetools/src/leex.erl index e531b78a5b..7039aea1ae 100644 --- a/lib/parsetools/src/leex.erl +++ b/lib/parsetools/src/leex.erl @@ -1645,10 +1645,14 @@ output_encoding_comment(File, #leex{encoding = Encoding}) -> output_file_directive(File, Filename, Line) -> io:fwrite(File, <<"-file(~ts, ~w).\n">>, - [format_filename(Filename), Line]). + [format_filename(Filename, File), Line]). -format_filename(Filename) -> - io_lib:write_string(filename:flatten(Filename)). +format_filename(Filename0, File) -> + Filename = filename:flatten(Filename0), + case lists:keyfind(encoding, 1, io:getopts(File)) of + {encoding, unicode} -> io_lib:write_string(Filename); + _ -> io_lib:write_string_as_latin1(Filename) + end. quote($^) -> "\\^"; quote($.) -> "\\."; |