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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124 | with Ada.Strings.Wide_Wide_Unbounded; use Ada.Strings.Wide_Wide_Unbounded;
with TextArrays;
package BetriebssystemKonstanten is
pragma Elaborate_Body;
-- Allgemein
-- Die folgenden Zeichen sind Kopien aus Ada.Characters.Wide_Wide_Latin_1 und werden verwendet um das lokale Pragma "pragma Restrictions (No_Implementation_Units)" benutzen zu können!
NUL : constant Wide_Wide_Character := Wide_Wide_Character'Val (0);
SOH : constant Wide_Wide_Character := Wide_Wide_Character'Val (1);
STX : constant Wide_Wide_Character := Wide_Wide_Character'Val (2);
ETX : constant Wide_Wide_Character := Wide_Wide_Character'Val (3);
EOT : constant Wide_Wide_Character := Wide_Wide_Character'Val (4);
ENQ : constant Wide_Wide_Character := Wide_Wide_Character'Val (5);
ACK : constant Wide_Wide_Character := Wide_Wide_Character'Val (6);
BEL : constant Wide_Wide_Character := Wide_Wide_Character'Val (7);
BS : constant Wide_Wide_Character := Wide_Wide_Character'Val (8);
HT : constant Wide_Wide_Character := Wide_Wide_Character'Val (9);
LF : constant Wide_Wide_Character := Wide_Wide_Character'Val (10);
VT : constant Wide_Wide_Character := Wide_Wide_Character'Val (11);
FF : constant Wide_Wide_Character := Wide_Wide_Character'Val (12);
CR : constant Wide_Wide_Character := Wide_Wide_Character'Val (13);
SO : constant Wide_Wide_Character := Wide_Wide_Character'Val (14);
SI : constant Wide_Wide_Character := Wide_Wide_Character'Val (15);
DLE : constant Wide_Wide_Character := Wide_Wide_Character'Val (16);
DC1 : constant Wide_Wide_Character := Wide_Wide_Character'Val (17);
DC2 : constant Wide_Wide_Character := Wide_Wide_Character'Val (18);
DC3 : constant Wide_Wide_Character := Wide_Wide_Character'Val (19);
DC4 : constant Wide_Wide_Character := Wide_Wide_Character'Val (20);
NAK : constant Wide_Wide_Character := Wide_Wide_Character'Val (21);
SYN : constant Wide_Wide_Character := Wide_Wide_Character'Val (22);
ETB : constant Wide_Wide_Character := Wide_Wide_Character'Val (23);
CAN : constant Wide_Wide_Character := Wide_Wide_Character'Val (24);
EM : constant Wide_Wide_Character := Wide_Wide_Character'Val (25);
SUB : constant Wide_Wide_Character := Wide_Wide_Character'Val (26);
ESC : constant Wide_Wide_Character := Wide_Wide_Character'Val (27);
FS : constant Wide_Wide_Character := Wide_Wide_Character'Val (28);
GS : constant Wide_Wide_Character := Wide_Wide_Character'Val (29);
RS : constant Wide_Wide_Character := Wide_Wide_Character'Val (30);
US : constant Wide_Wide_Character := Wide_Wide_Character'Val (31);
DEL : constant Wide_Wide_Character := Wide_Wide_Character'Val (127);
Leerzeichen : constant Wide_Wide_Character := ' ';
Bindestrich : constant Wide_Wide_Character := '-';
Unterstrich : constant Wide_Wide_Character := '_';
Punkt : constant Wide_Wide_Character := '.';
VerboteneNamen : constant TextArrays.AllgemeinesTextArray (1 .. 2) := (
1 => To_Unbounded_Wide_Wide_String (Source => "."),
2 => To_Unbounded_Wide_Wide_String (Source => "..")
);
-- Allgemein
-- Linux
-- Linux
-- Windows
VerboteneWindowsnamenGroß : constant TextArrays.AllgemeinesTextArray (1 .. 25) := (
1 => To_Unbounded_Wide_Wide_String (Source => "AUX"),
2 => To_Unbounded_Wide_Wide_String (Source => "CLOCK$"),
3 => To_Unbounded_Wide_Wide_String (Source => "CON"),
4 => To_Unbounded_Wide_Wide_String (Source => "PRN"),
5 => To_Unbounded_Wide_Wide_String (Source => "COM0"),
6 => To_Unbounded_Wide_Wide_String (Source => "COM1"),
7 => To_Unbounded_Wide_Wide_String (Source => "COM2"),
8 => To_Unbounded_Wide_Wide_String (Source => "COM3"),
9 => To_Unbounded_Wide_Wide_String (Source => "COM4"),
10 => To_Unbounded_Wide_Wide_String (Source => "COM5"),
11 => To_Unbounded_Wide_Wide_String (Source => "COM6"),
12 => To_Unbounded_Wide_Wide_String (Source => "COM7"),
13 => To_Unbounded_Wide_Wide_String (Source => "COM8"),
14 => To_Unbounded_Wide_Wide_String (Source => "COM9"),
15 => To_Unbounded_Wide_Wide_String (Source => "LPT0"),
16 => To_Unbounded_Wide_Wide_String (Source => "LPT1"),
17 => To_Unbounded_Wide_Wide_String (Source => "LPT2"),
18 => To_Unbounded_Wide_Wide_String (Source => "LPT3"),
19 => To_Unbounded_Wide_Wide_String (Source => "LPT4"),
20 => To_Unbounded_Wide_Wide_String (Source => "LPT5"),
21 => To_Unbounded_Wide_Wide_String (Source => "LPT6"),
22 => To_Unbounded_Wide_Wide_String (Source => "LPT7"),
23 => To_Unbounded_Wide_Wide_String (Source => "LPT8"),
24 => To_Unbounded_Wide_Wide_String (Source => "LPT9"),
25 => To_Unbounded_Wide_Wide_String (Source => "NUL")
);
VerboteneWindowsnamenKlein : constant TextArrays.AllgemeinesTextArray (VerboteneWindowsnamenGroß'Range) := (
1 => To_Unbounded_Wide_Wide_String (Source => "aux"),
2 => To_Unbounded_Wide_Wide_String (Source => "clock$"),
3 => To_Unbounded_Wide_Wide_String (Source => "con"),
4 => To_Unbounded_Wide_Wide_String (Source => "prn"),
5 => To_Unbounded_Wide_Wide_String (Source => "com0"),
6 => To_Unbounded_Wide_Wide_String (Source => "com1"),
7 => To_Unbounded_Wide_Wide_String (Source => "com2"),
8 => To_Unbounded_Wide_Wide_String (Source => "com3"),
9 => To_Unbounded_Wide_Wide_String (Source => "com4"),
10 => To_Unbounded_Wide_Wide_String (Source => "com5"),
11 => To_Unbounded_Wide_Wide_String (Source => "com6"),
12 => To_Unbounded_Wide_Wide_String (Source => "com7"),
13 => To_Unbounded_Wide_Wide_String (Source => "com8"),
14 => To_Unbounded_Wide_Wide_String (Source => "com9"),
15 => To_Unbounded_Wide_Wide_String (Source => "lpt0"),
16 => To_Unbounded_Wide_Wide_String (Source => "lpt1"),
17 => To_Unbounded_Wide_Wide_String (Source => "lpt2"),
18 => To_Unbounded_Wide_Wide_String (Source => "lpt3"),
19 => To_Unbounded_Wide_Wide_String (Source => "lpt4"),
20 => To_Unbounded_Wide_Wide_String (Source => "lpt5"),
21 => To_Unbounded_Wide_Wide_String (Source => "lpt6"),
22 => To_Unbounded_Wide_Wide_String (Source => "lpt7"),
23 => To_Unbounded_Wide_Wide_String (Source => "lpt8"),
24 => To_Unbounded_Wide_Wide_String (Source => "lpt9"),
25 => To_Unbounded_Wide_Wide_String (Source => "nul")
);
-- Windows
end BetriebssystemKonstanten;
|