forked from AdaDoom3/AdaDoom3
-
Notifications
You must be signed in to change notification settings - Fork 0
/
neo-system-text.adb
56 lines (56 loc) · 986 Bytes
/
neo-system-text.adb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
--
--
--
--
--
--
--
--
--
--
--
--
--
--
--
--
package body Neo.System.Text
is
--------------------
-- Implementation --
--------------------
package body Neo.System.Text.Implementation
is separate;
----------
-- Test --
----------
procedure Test
is
begin
Display_Title("CHARACTER TEST!");
Put_Line(To_Lower("ABCD"));
Hang_Window;
end Test;
-----------------------
-- Create_Media_Name --
-----------------------
function Create_Media_Name(
Item : in String_2)
return String_2
is
begin
return "";
end Create_Media_Name;
-------------------
-- Get_Clipboard --
-------------------
function Get_Clipboard
return String_2
renames Implementation.Get_Clipboard;
-------------------
-- Set_Clipboard --
-------------------
procedure Set_Clipboard(
Text : in String_2)
renames Implementation.Set_Clipboard;
end Neo.System.Text;