pragma License (Modified_Gpl); pragma Ada_2022; with Interfaces.C.Strings; package AdaCL.EAStrings_Unix_Interface is procedure Init_Locale; function System_Encoding return Standard.Interfaces.C.Strings.chars_ptr; private pragma Export (C, Init_Locale, "Init_Locale"); pragma Export (C, System_Encoding, "System_Encoding"); end AdaCL.EAStrings_Unix_Interface;