| 1 | ----------------------------------------------------------------------------- |
|---|---|
| 2 | -- |
| 3 | -- Copyright 2004 Björn Persson. |
| 4 | -- |
| 5 | -- This library is free software; you can redistribute it and/or modify it |
| 6 | -- under the terms of the GNU General Public License, version 2, as published |
| 7 | -- by the Free Software Foundation. |
| 8 | -- |
| 9 | -- As a special exception, if other files instantiate generics from this |
| 10 | -- unit, or you link this unit with other files to produce an executable, |
| 11 | -- this unit does not by itself cause the resulting executable to be covered |
| 12 | -- by the General Public License. This exception does not however invalidate |
| 13 | -- any other reasons why the executable file might be covered by the General |
| 14 | -- Public License. |
| 15 | -- |
| 16 | ---------------------------------------------------------------------------- |
| 17 | |
| 18 | pragma License (Modified_Gpl); |
| 19 | pragma Ada_2022; |
| 20 | |
| 21 | package AdaCL.EAstrings.OS is |
| 22 | -- |
| 23 | -- This package and its descendants provide encoding-aware access to |
| 24 | -- information from the environment. |
| 25 | -- |
| 26 | |
| 27 | pragma Elaborate_Body; |
| 28 | |
| 29 | function OS_Encoding return Character_Encoding; |
| 30 | -- Returns the character encoding that is in use in the environment. |
| 31 | |
| 32 | end AdaCL.EAstrings.OS; |