diff options
| author | Pascal Obry <obry@adacore.com> | 2014-07-18 10:57:47 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 12:57:47 +0200 |
| commit | cd077efd33fc56016b9bea8f30964fb93a40ff3a (patch) | |
| tree | 948305f1acf26a8531b54d326b0c4ae0fcb653ff /gcc/ada/i-cstrea.ads | |
| parent | 18f2c4608d3bd85f19aef3068357f1c8fbe098b5 (diff) | |
| download | gcc-cd077efd33fc56016b9bea8f30964fb93a40ff3a.zip gcc-cd077efd33fc56016b9bea8f30964fb93a40ff3a.tar.gz gcc-cd077efd33fc56016b9bea8f30964fb93a40ff3a.tar.bz2 | |
a-textio.adb, [...]: Use C_Streams Default_Text.
2014-07-18 Pascal Obry <obry@adacore.com>
* a-textio.adb, a-witeio.adb, a-ztexio.adb: Use C_Streams Default_Text.
* i-cstrea.ads (Content_Encoding): Moved here, add convention C.
* s-ficobl.ads (Content_Encoding): Moved to C_Streams.
* s-fileio.adb (Open): Adjust to use Content_Encoding from C_Streams.
From-SVN: r212811
Diffstat (limited to 'gcc/ada/i-cstrea.ads')
| -rw-r--r-- | gcc/ada/i-cstrea.ads | 36 |
1 files changed, 25 insertions, 11 deletions
diff --git a/gcc/ada/i-cstrea.ads b/gcc/ada/i-cstrea.ads index add85b3..674aa02 100644 --- a/gcc/ada/i-cstrea.ads +++ b/gcc/ada/i-cstrea.ads @@ -228,17 +228,31 @@ package Interfaces.C_Streams is -- versa. These functions have no effect if text_translation_required is -- false (e.g. in normal unix mode). Use fileno to get a stream handle. - procedure set_mode (handle : int; Mode : int); - -- As above but can set the handle to any mode. On Windows this can be used - -- to have proper 16-bit wide-string output on the console for example. The - -- mode value corresponds to Content_Encoding'Pos: - -- 0 = binary, equivalent to set_binary_mode - -- 1 = default mode, as set by the GNAT_CCS_ENCODING or equivalent to 2 - -- 2 = text, equivalent to set_text_mode - -- 3 = u8text, set encoding to Unicode UTF-8 - -- 4 = wide-text, set encoding to Unicode - -- 5 = u16text, set encoding to Unicode UTF-16 - -- Wouldn't it be better to use an enumeration type here??? + type Content_Encoding is (None, Default_Text, Text, U8text, Wtext, U16text); + for Content_Encoding use (0, 1, 2, 3, 4, 5); + pragma Convention (C, Content_Encoding); + -- Content_Encoding describes the text encoding for file content: + -- None : No text encoding, this file is treated as a binary file + -- Default_Text : A text file but not from Text_Translation form string + -- In this mode we are eventually using the system-wide + -- translation if activated. + -- Text : Text encoding activated + -- Wtext : Unicode mode + -- U16text : Unicode UTF-16 encoding + -- U8text : Unicode UTF-8 encoding + -- + -- This encoding is system dependent and only used on Windows systems. + -- + -- Note that modifications to Content_Encoding must be synchronized + -- with sysdep.c:__gnat_set_mode. + + subtype Text_Content_Encoding + is Content_Encoding range Default_Text .. U16text; + + procedure set_mode (handle : int; Mode : Content_Encoding); + -- As above but can set the handle to any mode. + -- On Windows this can be used to have proper 16-bit wide-string output + -- on the console for example. ---------------------------- -- Full Path Name support -- |