void __gnat_set_mode (int handle, int mode) { /* the values here must be synchronized with System.File_Control_Block.Content_Encodding: None = 0 Default_Text = 1 Text = 2 U8text = 3 Wtext = 4 U16text = 5 */ switch (mode) { case 0 : WIN_SETMODE (handle, _O_BINARY); break; case 1 : WIN_SETMODE (handle, CurrentCCSEncoding); break; case 2 : WIN_SETMODE (handle, _O_TEXT); break; case 3 : WIN_SETMODE (handle, _O_U8TEXT); break; case 4 : WIN_SETMODE (handle, _O_WTEXT); break; case 5 : WIN_SETMODE (handle, _O_U16TEXT); break; } }
void __gnat_set_text_mode (int handle) { WIN_SETMODE (handle, O_TEXT); }
void __gnat_set_binary_mode (int handle) { WIN_SETMODE (handle, O_BINARY); }