improved h2-io-file a bit
This commit is contained in:
@ -2,12 +2,11 @@
|
||||
-- Run qseawk -f ascii.awk ascii.txt > h2-ascii.ads for regeneration
|
||||
|
||||
generic
|
||||
type Character_Type is (<>);
|
||||
type Slim_Character is (<>);
|
||||
type Wide_Character is (<>);
|
||||
package H2.Ascii is
|
||||
|
||||
--pragma Preelaborate (Ascii);
|
||||
|
||||
package Pos is
|
||||
package Code is
|
||||
NUL : constant := 0;
|
||||
SOH : constant := 1;
|
||||
STX : constant := 2;
|
||||
@ -136,135 +135,268 @@ package H2.Ascii is
|
||||
Right_Curly_Bracket : constant := 125; -- }
|
||||
Tilde : constant := 126; -- ~
|
||||
DEL : constant := 127;
|
||||
end Pos;
|
||||
end Code;
|
||||
|
||||
NUL : constant Character_Type := Character_Type'Val(Pos.NUL);
|
||||
SOH : constant Character_Type := Character_Type'Val(Pos.SOH);
|
||||
STX : constant Character_Type := Character_Type'Val(Pos.STX);
|
||||
ETX : constant Character_Type := Character_Type'Val(Pos.ETX);
|
||||
EOT : constant Character_Type := Character_Type'Val(Pos.EOT);
|
||||
ENQ : constant Character_Type := Character_Type'Val(Pos.ENQ);
|
||||
ACK : constant Character_Type := Character_Type'Val(Pos.ACK);
|
||||
BEL : constant Character_Type := Character_Type'Val(Pos.BEL);
|
||||
BS : constant Character_Type := Character_Type'Val(Pos.BS);
|
||||
HT : constant Character_Type := Character_Type'Val(Pos.HT);
|
||||
LF : constant Character_Type := Character_Type'Val(Pos.LF);
|
||||
VT : constant Character_Type := Character_Type'Val(Pos.VT);
|
||||
FF : constant Character_Type := Character_Type'Val(Pos.FF);
|
||||
CR : constant Character_Type := Character_Type'Val(Pos.CR);
|
||||
SO : constant Character_Type := Character_Type'Val(Pos.SO);
|
||||
SI : constant Character_Type := Character_Type'Val(Pos.SI);
|
||||
DLE : constant Character_Type := Character_Type'Val(Pos.DLE);
|
||||
DC1 : constant Character_Type := Character_Type'Val(Pos.DC1);
|
||||
DC2 : constant Character_Type := Character_Type'Val(Pos.DC2);
|
||||
DC3 : constant Character_Type := Character_Type'Val(Pos.DC3);
|
||||
DC4 : constant Character_Type := Character_Type'Val(Pos.DC4);
|
||||
NAK : constant Character_Type := Character_Type'Val(Pos.NAK);
|
||||
SYN : constant Character_Type := Character_Type'Val(Pos.SYN);
|
||||
ETB : constant Character_Type := Character_Type'Val(Pos.ETB);
|
||||
CAN : constant Character_Type := Character_Type'Val(Pos.CAN);
|
||||
EM : constant Character_Type := Character_Type'Val(Pos.EM);
|
||||
SUB : constant Character_Type := Character_Type'Val(Pos.SUB);
|
||||
ESC : constant Character_Type := Character_Type'Val(Pos.ESC);
|
||||
FS : constant Character_Type := Character_Type'Val(Pos.FS);
|
||||
GS : constant Character_Type := Character_Type'Val(Pos.GS);
|
||||
RS : constant Character_Type := Character_Type'Val(Pos.RS);
|
||||
US : constant Character_Type := Character_Type'Val(Pos.US);
|
||||
Space : constant Character_Type := Character_Type'Val(Pos.Space);
|
||||
Exclamation : constant Character_Type := Character_Type'Val(Pos.Exclamation);
|
||||
Quotation : constant Character_Type := Character_Type'Val(Pos.Quotation);
|
||||
Number_Sign : constant Character_Type := Character_Type'Val(Pos.Number_Sign);
|
||||
Dollar_Sign : constant Character_Type := Character_Type'Val(Pos.Dollar_Sign);
|
||||
Percent_Sign : constant Character_Type := Character_Type'Val(Pos.Percent_Sign);
|
||||
Ampersand : constant Character_Type := Character_Type'Val(Pos.Ampersand);
|
||||
Apostrophe : constant Character_Type := Character_Type'Val(Pos.Apostrophe);
|
||||
Left_Parenthesis : constant Character_Type := Character_Type'Val(Pos.Left_Parenthesis);
|
||||
Right_Parenthesis : constant Character_Type := Character_Type'Val(Pos.Right_Parenthesis);
|
||||
Asterisk : constant Character_Type := Character_Type'Val(Pos.Asterisk);
|
||||
Plus_Sign : constant Character_Type := Character_Type'Val(Pos.Plus_Sign);
|
||||
Comma : constant Character_Type := Character_Type'Val(Pos.Comma);
|
||||
Minus_Sign : constant Character_Type := Character_Type'Val(Pos.Minus_Sign);
|
||||
Period : constant Character_Type := Character_Type'Val(Pos.Period);
|
||||
Slash : constant Character_Type := Character_Type'Val(Pos.Slash);
|
||||
Zero : constant Character_Type := Character_Type'Val(Pos.Zero);
|
||||
One : constant Character_Type := Character_Type'Val(Pos.One);
|
||||
Two : constant Character_Type := Character_Type'Val(Pos.Two);
|
||||
Three : constant Character_Type := Character_Type'Val(Pos.Three);
|
||||
Four : constant Character_Type := Character_Type'Val(Pos.Four);
|
||||
Five : constant Character_Type := Character_Type'Val(Pos.Five);
|
||||
Six : constant Character_Type := Character_Type'Val(Pos.Six);
|
||||
Seven : constant Character_Type := Character_Type'Val(Pos.Seven);
|
||||
Eight : constant Character_Type := Character_Type'Val(Pos.Eight);
|
||||
Nine : constant Character_Type := Character_Type'Val(Pos.Nine);
|
||||
Colon : constant Character_Type := Character_Type'Val(Pos.Colon);
|
||||
Semicolon : constant Character_Type := Character_Type'Val(Pos.Semicolon);
|
||||
Less_Than_Sign : constant Character_Type := Character_Type'Val(Pos.Less_Than_Sign);
|
||||
Equal_Sign : constant Character_Type := Character_Type'Val(Pos.Equal_Sign);
|
||||
Greater_Than_Sign : constant Character_Type := Character_Type'Val(Pos.Greater_Than_Sign);
|
||||
Question : constant Character_Type := Character_Type'Val(Pos.Question);
|
||||
Commercial_At : constant Character_Type := Character_Type'Val(Pos.Commercial_At);
|
||||
UC_A : constant Character_Type := Character_Type'Val(Pos.UC_A);
|
||||
UC_B : constant Character_Type := Character_Type'Val(Pos.UC_B);
|
||||
UC_C : constant Character_Type := Character_Type'Val(Pos.UC_C);
|
||||
UC_D : constant Character_Type := Character_Type'Val(Pos.UC_D);
|
||||
UC_E : constant Character_Type := Character_Type'Val(Pos.UC_E);
|
||||
UC_F : constant Character_Type := Character_Type'Val(Pos.UC_F);
|
||||
UC_G : constant Character_Type := Character_Type'Val(Pos.UC_G);
|
||||
UC_H : constant Character_Type := Character_Type'Val(Pos.UC_H);
|
||||
UC_I : constant Character_Type := Character_Type'Val(Pos.UC_I);
|
||||
UC_J : constant Character_Type := Character_Type'Val(Pos.UC_J);
|
||||
UC_K : constant Character_Type := Character_Type'Val(Pos.UC_K);
|
||||
UC_L : constant Character_Type := Character_Type'Val(Pos.UC_L);
|
||||
UC_M : constant Character_Type := Character_Type'Val(Pos.UC_M);
|
||||
UC_N : constant Character_Type := Character_Type'Val(Pos.UC_N);
|
||||
UC_O : constant Character_Type := Character_Type'Val(Pos.UC_O);
|
||||
UC_P : constant Character_Type := Character_Type'Val(Pos.UC_P);
|
||||
UC_Q : constant Character_Type := Character_Type'Val(Pos.UC_Q);
|
||||
UC_R : constant Character_Type := Character_Type'Val(Pos.UC_R);
|
||||
UC_S : constant Character_Type := Character_Type'Val(Pos.UC_S);
|
||||
UC_T : constant Character_Type := Character_Type'Val(Pos.UC_T);
|
||||
UC_U : constant Character_Type := Character_Type'Val(Pos.UC_U);
|
||||
UC_V : constant Character_Type := Character_Type'Val(Pos.UC_V);
|
||||
UC_W : constant Character_Type := Character_Type'Val(Pos.UC_W);
|
||||
UC_X : constant Character_Type := Character_Type'Val(Pos.UC_X);
|
||||
UC_Y : constant Character_Type := Character_Type'Val(Pos.UC_Y);
|
||||
UC_Z : constant Character_Type := Character_Type'Val(Pos.UC_Z);
|
||||
Left_Square_Bracket : constant Character_Type := Character_Type'Val(Pos.Left_Square_Bracket);
|
||||
Backslash : constant Character_Type := Character_Type'Val(Pos.Backslash);
|
||||
Right_Square_Bracket: constant Character_Type := Character_Type'Val(Pos.Right_Square_Bracket);
|
||||
Circumflex : constant Character_Type := Character_Type'Val(Pos.Circumflex);
|
||||
Low_Line : constant Character_Type := Character_Type'Val(Pos.Low_Line);
|
||||
Grave : constant Character_Type := Character_Type'Val(Pos.Grave);
|
||||
LC_A : constant Character_Type := Character_Type'Val(Pos.LC_A);
|
||||
LC_B : constant Character_Type := Character_Type'Val(Pos.LC_B);
|
||||
LC_C : constant Character_Type := Character_Type'Val(Pos.LC_C);
|
||||
LC_D : constant Character_Type := Character_Type'Val(Pos.LC_D);
|
||||
LC_E : constant Character_Type := Character_Type'Val(Pos.LC_E);
|
||||
LC_F : constant Character_Type := Character_Type'Val(Pos.LC_F);
|
||||
LC_G : constant Character_Type := Character_Type'Val(Pos.LC_G);
|
||||
LC_H : constant Character_Type := Character_Type'Val(Pos.LC_H);
|
||||
LC_I : constant Character_Type := Character_Type'Val(Pos.LC_I);
|
||||
LC_J : constant Character_Type := Character_Type'Val(Pos.LC_J);
|
||||
LC_K : constant Character_Type := Character_Type'Val(Pos.LC_K);
|
||||
LC_L : constant Character_Type := Character_Type'Val(Pos.LC_L);
|
||||
LC_M : constant Character_Type := Character_Type'Val(Pos.LC_M);
|
||||
LC_N : constant Character_Type := Character_Type'Val(Pos.LC_N);
|
||||
LC_O : constant Character_Type := Character_Type'Val(Pos.LC_O);
|
||||
LC_P : constant Character_Type := Character_Type'Val(Pos.LC_P);
|
||||
LC_Q : constant Character_Type := Character_Type'Val(Pos.LC_Q);
|
||||
LC_R : constant Character_Type := Character_Type'Val(Pos.LC_R);
|
||||
LC_S : constant Character_Type := Character_Type'Val(Pos.LC_S);
|
||||
LC_T : constant Character_Type := Character_Type'Val(Pos.LC_T);
|
||||
LC_U : constant Character_Type := Character_Type'Val(Pos.LC_U);
|
||||
LC_V : constant Character_Type := Character_Type'Val(Pos.LC_V);
|
||||
LC_W : constant Character_Type := Character_Type'Val(Pos.LC_W);
|
||||
LC_X : constant Character_Type := Character_Type'Val(Pos.LC_X);
|
||||
LC_Y : constant Character_Type := Character_Type'Val(Pos.LC_Y);
|
||||
LC_Z : constant Character_Type := Character_Type'Val(Pos.LC_Z);
|
||||
Left_Curly_Bracket : constant Character_Type := Character_Type'Val(Pos.Left_Curly_Bracket);
|
||||
Vertical_Line : constant Character_Type := Character_Type'Val(Pos.Vertical_Line);
|
||||
Right_Curly_Bracket : constant Character_Type := Character_Type'Val(Pos.Right_Curly_Bracket);
|
||||
Tilde : constant Character_Type := Character_Type'Val(Pos.Tilde);
|
||||
DEL : constant Character_Type := Character_Type'Val(Pos.DEL);
|
||||
package Slim is
|
||||
NUL : constant Slim_Character := Slim_Character'Val(Code.NUL);
|
||||
SOH : constant Slim_Character := Slim_Character'Val(Code.SOH);
|
||||
STX : constant Slim_Character := Slim_Character'Val(Code.STX);
|
||||
ETX : constant Slim_Character := Slim_Character'Val(Code.ETX);
|
||||
EOT : constant Slim_Character := Slim_Character'Val(Code.EOT);
|
||||
ENQ : constant Slim_Character := Slim_Character'Val(Code.ENQ);
|
||||
ACK : constant Slim_Character := Slim_Character'Val(Code.ACK);
|
||||
BEL : constant Slim_Character := Slim_Character'Val(Code.BEL);
|
||||
BS : constant Slim_Character := Slim_Character'Val(Code.BS);
|
||||
HT : constant Slim_Character := Slim_Character'Val(Code.HT);
|
||||
LF : constant Slim_Character := Slim_Character'Val(Code.LF);
|
||||
VT : constant Slim_Character := Slim_Character'Val(Code.VT);
|
||||
FF : constant Slim_Character := Slim_Character'Val(Code.FF);
|
||||
CR : constant Slim_Character := Slim_Character'Val(Code.CR);
|
||||
SO : constant Slim_Character := Slim_Character'Val(Code.SO);
|
||||
SI : constant Slim_Character := Slim_Character'Val(Code.SI);
|
||||
DLE : constant Slim_Character := Slim_Character'Val(Code.DLE);
|
||||
DC1 : constant Slim_Character := Slim_Character'Val(Code.DC1);
|
||||
DC2 : constant Slim_Character := Slim_Character'Val(Code.DC2);
|
||||
DC3 : constant Slim_Character := Slim_Character'Val(Code.DC3);
|
||||
DC4 : constant Slim_Character := Slim_Character'Val(Code.DC4);
|
||||
NAK : constant Slim_Character := Slim_Character'Val(Code.NAK);
|
||||
SYN : constant Slim_Character := Slim_Character'Val(Code.SYN);
|
||||
ETB : constant Slim_Character := Slim_Character'Val(Code.ETB);
|
||||
CAN : constant Slim_Character := Slim_Character'Val(Code.CAN);
|
||||
EM : constant Slim_Character := Slim_Character'Val(Code.EM);
|
||||
SUB : constant Slim_Character := Slim_Character'Val(Code.SUB);
|
||||
ESC : constant Slim_Character := Slim_Character'Val(Code.ESC);
|
||||
FS : constant Slim_Character := Slim_Character'Val(Code.FS);
|
||||
GS : constant Slim_Character := Slim_Character'Val(Code.GS);
|
||||
RS : constant Slim_Character := Slim_Character'Val(Code.RS);
|
||||
US : constant Slim_Character := Slim_Character'Val(Code.US);
|
||||
Space : constant Slim_Character := Slim_Character'Val(Code.Space);
|
||||
Exclamation : constant Slim_Character := Slim_Character'Val(Code.Exclamation);
|
||||
Quotation : constant Slim_Character := Slim_Character'Val(Code.Quotation);
|
||||
Number_Sign : constant Slim_Character := Slim_Character'Val(Code.Number_Sign);
|
||||
Dollar_Sign : constant Slim_Character := Slim_Character'Val(Code.Dollar_Sign);
|
||||
Percent_Sign : constant Slim_Character := Slim_Character'Val(Code.Percent_Sign);
|
||||
Ampersand : constant Slim_Character := Slim_Character'Val(Code.Ampersand);
|
||||
Apostrophe : constant Slim_Character := Slim_Character'Val(Code.Apostrophe);
|
||||
Left_Parenthesis : constant Slim_Character := Slim_Character'Val(Code.Left_Parenthesis);
|
||||
Right_Parenthesis : constant Slim_Character := Slim_Character'Val(Code.Right_Parenthesis);
|
||||
Asterisk : constant Slim_Character := Slim_Character'Val(Code.Asterisk);
|
||||
Plus_Sign : constant Slim_Character := Slim_Character'Val(Code.Plus_Sign);
|
||||
Comma : constant Slim_Character := Slim_Character'Val(Code.Comma);
|
||||
Minus_Sign : constant Slim_Character := Slim_Character'Val(Code.Minus_Sign);
|
||||
Period : constant Slim_Character := Slim_Character'Val(Code.Period);
|
||||
Slash : constant Slim_Character := Slim_Character'Val(Code.Slash);
|
||||
Zero : constant Slim_Character := Slim_Character'Val(Code.Zero);
|
||||
One : constant Slim_Character := Slim_Character'Val(Code.One);
|
||||
Two : constant Slim_Character := Slim_Character'Val(Code.Two);
|
||||
Three : constant Slim_Character := Slim_Character'Val(Code.Three);
|
||||
Four : constant Slim_Character := Slim_Character'Val(Code.Four);
|
||||
Five : constant Slim_Character := Slim_Character'Val(Code.Five);
|
||||
Six : constant Slim_Character := Slim_Character'Val(Code.Six);
|
||||
Seven : constant Slim_Character := Slim_Character'Val(Code.Seven);
|
||||
Eight : constant Slim_Character := Slim_Character'Val(Code.Eight);
|
||||
Nine : constant Slim_Character := Slim_Character'Val(Code.Nine);
|
||||
Colon : constant Slim_Character := Slim_Character'Val(Code.Colon);
|
||||
Semicolon : constant Slim_Character := Slim_Character'Val(Code.Semicolon);
|
||||
Less_Than_Sign : constant Slim_Character := Slim_Character'Val(Code.Less_Than_Sign);
|
||||
Equal_Sign : constant Slim_Character := Slim_Character'Val(Code.Equal_Sign);
|
||||
Greater_Than_Sign : constant Slim_Character := Slim_Character'Val(Code.Greater_Than_Sign);
|
||||
Question : constant Slim_Character := Slim_Character'Val(Code.Question);
|
||||
Commercial_At : constant Slim_Character := Slim_Character'Val(Code.Commercial_At);
|
||||
UC_A : constant Slim_Character := Slim_Character'Val(Code.UC_A);
|
||||
UC_B : constant Slim_Character := Slim_Character'Val(Code.UC_B);
|
||||
UC_C : constant Slim_Character := Slim_Character'Val(Code.UC_C);
|
||||
UC_D : constant Slim_Character := Slim_Character'Val(Code.UC_D);
|
||||
UC_E : constant Slim_Character := Slim_Character'Val(Code.UC_E);
|
||||
UC_F : constant Slim_Character := Slim_Character'Val(Code.UC_F);
|
||||
UC_G : constant Slim_Character := Slim_Character'Val(Code.UC_G);
|
||||
UC_H : constant Slim_Character := Slim_Character'Val(Code.UC_H);
|
||||
UC_I : constant Slim_Character := Slim_Character'Val(Code.UC_I);
|
||||
UC_J : constant Slim_Character := Slim_Character'Val(Code.UC_J);
|
||||
UC_K : constant Slim_Character := Slim_Character'Val(Code.UC_K);
|
||||
UC_L : constant Slim_Character := Slim_Character'Val(Code.UC_L);
|
||||
UC_M : constant Slim_Character := Slim_Character'Val(Code.UC_M);
|
||||
UC_N : constant Slim_Character := Slim_Character'Val(Code.UC_N);
|
||||
UC_O : constant Slim_Character := Slim_Character'Val(Code.UC_O);
|
||||
UC_P : constant Slim_Character := Slim_Character'Val(Code.UC_P);
|
||||
UC_Q : constant Slim_Character := Slim_Character'Val(Code.UC_Q);
|
||||
UC_R : constant Slim_Character := Slim_Character'Val(Code.UC_R);
|
||||
UC_S : constant Slim_Character := Slim_Character'Val(Code.UC_S);
|
||||
UC_T : constant Slim_Character := Slim_Character'Val(Code.UC_T);
|
||||
UC_U : constant Slim_Character := Slim_Character'Val(Code.UC_U);
|
||||
UC_V : constant Slim_Character := Slim_Character'Val(Code.UC_V);
|
||||
UC_W : constant Slim_Character := Slim_Character'Val(Code.UC_W);
|
||||
UC_X : constant Slim_Character := Slim_Character'Val(Code.UC_X);
|
||||
UC_Y : constant Slim_Character := Slim_Character'Val(Code.UC_Y);
|
||||
UC_Z : constant Slim_Character := Slim_Character'Val(Code.UC_Z);
|
||||
Left_Square_Bracket : constant Slim_Character := Slim_Character'Val(Code.Left_Square_Bracket);
|
||||
Backslash : constant Slim_Character := Slim_Character'Val(Code.Backslash);
|
||||
Right_Square_Bracket: constant Slim_Character := Slim_Character'Val(Code.Right_Square_Bracket);
|
||||
Circumflex : constant Slim_Character := Slim_Character'Val(Code.Circumflex);
|
||||
Low_Line : constant Slim_Character := Slim_Character'Val(Code.Low_Line);
|
||||
Grave : constant Slim_Character := Slim_Character'Val(Code.Grave);
|
||||
LC_A : constant Slim_Character := Slim_Character'Val(Code.LC_A);
|
||||
LC_B : constant Slim_Character := Slim_Character'Val(Code.LC_B);
|
||||
LC_C : constant Slim_Character := Slim_Character'Val(Code.LC_C);
|
||||
LC_D : constant Slim_Character := Slim_Character'Val(Code.LC_D);
|
||||
LC_E : constant Slim_Character := Slim_Character'Val(Code.LC_E);
|
||||
LC_F : constant Slim_Character := Slim_Character'Val(Code.LC_F);
|
||||
LC_G : constant Slim_Character := Slim_Character'Val(Code.LC_G);
|
||||
LC_H : constant Slim_Character := Slim_Character'Val(Code.LC_H);
|
||||
LC_I : constant Slim_Character := Slim_Character'Val(Code.LC_I);
|
||||
LC_J : constant Slim_Character := Slim_Character'Val(Code.LC_J);
|
||||
LC_K : constant Slim_Character := Slim_Character'Val(Code.LC_K);
|
||||
LC_L : constant Slim_Character := Slim_Character'Val(Code.LC_L);
|
||||
LC_M : constant Slim_Character := Slim_Character'Val(Code.LC_M);
|
||||
LC_N : constant Slim_Character := Slim_Character'Val(Code.LC_N);
|
||||
LC_O : constant Slim_Character := Slim_Character'Val(Code.LC_O);
|
||||
LC_P : constant Slim_Character := Slim_Character'Val(Code.LC_P);
|
||||
LC_Q : constant Slim_Character := Slim_Character'Val(Code.LC_Q);
|
||||
LC_R : constant Slim_Character := Slim_Character'Val(Code.LC_R);
|
||||
LC_S : constant Slim_Character := Slim_Character'Val(Code.LC_S);
|
||||
LC_T : constant Slim_Character := Slim_Character'Val(Code.LC_T);
|
||||
LC_U : constant Slim_Character := Slim_Character'Val(Code.LC_U);
|
||||
LC_V : constant Slim_Character := Slim_Character'Val(Code.LC_V);
|
||||
LC_W : constant Slim_Character := Slim_Character'Val(Code.LC_W);
|
||||
LC_X : constant Slim_Character := Slim_Character'Val(Code.LC_X);
|
||||
LC_Y : constant Slim_Character := Slim_Character'Val(Code.LC_Y);
|
||||
LC_Z : constant Slim_Character := Slim_Character'Val(Code.LC_Z);
|
||||
Left_Curly_Bracket : constant Slim_Character := Slim_Character'Val(Code.Left_Curly_Bracket);
|
||||
Vertical_Line : constant Slim_Character := Slim_Character'Val(Code.Vertical_Line);
|
||||
Right_Curly_Bracket : constant Slim_Character := Slim_Character'Val(Code.Right_Curly_Bracket);
|
||||
Tilde : constant Slim_Character := Slim_Character'Val(Code.Tilde);
|
||||
DEL : constant Slim_Character := Slim_Character'Val(Code.DEL);
|
||||
end Slim;
|
||||
|
||||
package Wide is
|
||||
NUL : constant Wide_Character := Wide_Character'Val(Code.NUL);
|
||||
SOH : constant Wide_Character := Wide_Character'Val(Code.SOH);
|
||||
STX : constant Wide_Character := Wide_Character'Val(Code.STX);
|
||||
ETX : constant Wide_Character := Wide_Character'Val(Code.ETX);
|
||||
EOT : constant Wide_Character := Wide_Character'Val(Code.EOT);
|
||||
ENQ : constant Wide_Character := Wide_Character'Val(Code.ENQ);
|
||||
ACK : constant Wide_Character := Wide_Character'Val(Code.ACK);
|
||||
BEL : constant Wide_Character := Wide_Character'Val(Code.BEL);
|
||||
BS : constant Wide_Character := Wide_Character'Val(Code.BS);
|
||||
HT : constant Wide_Character := Wide_Character'Val(Code.HT);
|
||||
LF : constant Wide_Character := Wide_Character'Val(Code.LF);
|
||||
VT : constant Wide_Character := Wide_Character'Val(Code.VT);
|
||||
FF : constant Wide_Character := Wide_Character'Val(Code.FF);
|
||||
CR : constant Wide_Character := Wide_Character'Val(Code.CR);
|
||||
SO : constant Wide_Character := Wide_Character'Val(Code.SO);
|
||||
SI : constant Wide_Character := Wide_Character'Val(Code.SI);
|
||||
DLE : constant Wide_Character := Wide_Character'Val(Code.DLE);
|
||||
DC1 : constant Wide_Character := Wide_Character'Val(Code.DC1);
|
||||
DC2 : constant Wide_Character := Wide_Character'Val(Code.DC2);
|
||||
DC3 : constant Wide_Character := Wide_Character'Val(Code.DC3);
|
||||
DC4 : constant Wide_Character := Wide_Character'Val(Code.DC4);
|
||||
NAK : constant Wide_Character := Wide_Character'Val(Code.NAK);
|
||||
SYN : constant Wide_Character := Wide_Character'Val(Code.SYN);
|
||||
ETB : constant Wide_Character := Wide_Character'Val(Code.ETB);
|
||||
CAN : constant Wide_Character := Wide_Character'Val(Code.CAN);
|
||||
EM : constant Wide_Character := Wide_Character'Val(Code.EM);
|
||||
SUB : constant Wide_Character := Wide_Character'Val(Code.SUB);
|
||||
ESC : constant Wide_Character := Wide_Character'Val(Code.ESC);
|
||||
FS : constant Wide_Character := Wide_Character'Val(Code.FS);
|
||||
GS : constant Wide_Character := Wide_Character'Val(Code.GS);
|
||||
RS : constant Wide_Character := Wide_Character'Val(Code.RS);
|
||||
US : constant Wide_Character := Wide_Character'Val(Code.US);
|
||||
Space : constant Wide_Character := Wide_Character'Val(Code.Space);
|
||||
Exclamation : constant Wide_Character := Wide_Character'Val(Code.Exclamation);
|
||||
Quotation : constant Wide_Character := Wide_Character'Val(Code.Quotation);
|
||||
Number_Sign : constant Wide_Character := Wide_Character'Val(Code.Number_Sign);
|
||||
Dollar_Sign : constant Wide_Character := Wide_Character'Val(Code.Dollar_Sign);
|
||||
Percent_Sign : constant Wide_Character := Wide_Character'Val(Code.Percent_Sign);
|
||||
Ampersand : constant Wide_Character := Wide_Character'Val(Code.Ampersand);
|
||||
Apostrophe : constant Wide_Character := Wide_Character'Val(Code.Apostrophe);
|
||||
Left_Parenthesis : constant Wide_Character := Wide_Character'Val(Code.Left_Parenthesis);
|
||||
Right_Parenthesis : constant Wide_Character := Wide_Character'Val(Code.Right_Parenthesis);
|
||||
Asterisk : constant Wide_Character := Wide_Character'Val(Code.Asterisk);
|
||||
Plus_Sign : constant Wide_Character := Wide_Character'Val(Code.Plus_Sign);
|
||||
Comma : constant Wide_Character := Wide_Character'Val(Code.Comma);
|
||||
Minus_Sign : constant Wide_Character := Wide_Character'Val(Code.Minus_Sign);
|
||||
Period : constant Wide_Character := Wide_Character'Val(Code.Period);
|
||||
Slash : constant Wide_Character := Wide_Character'Val(Code.Slash);
|
||||
Zero : constant Wide_Character := Wide_Character'Val(Code.Zero);
|
||||
One : constant Wide_Character := Wide_Character'Val(Code.One);
|
||||
Two : constant Wide_Character := Wide_Character'Val(Code.Two);
|
||||
Three : constant Wide_Character := Wide_Character'Val(Code.Three);
|
||||
Four : constant Wide_Character := Wide_Character'Val(Code.Four);
|
||||
Five : constant Wide_Character := Wide_Character'Val(Code.Five);
|
||||
Six : constant Wide_Character := Wide_Character'Val(Code.Six);
|
||||
Seven : constant Wide_Character := Wide_Character'Val(Code.Seven);
|
||||
Eight : constant Wide_Character := Wide_Character'Val(Code.Eight);
|
||||
Nine : constant Wide_Character := Wide_Character'Val(Code.Nine);
|
||||
Colon : constant Wide_Character := Wide_Character'Val(Code.Colon);
|
||||
Semicolon : constant Wide_Character := Wide_Character'Val(Code.Semicolon);
|
||||
Less_Than_Sign : constant Wide_Character := Wide_Character'Val(Code.Less_Than_Sign);
|
||||
Equal_Sign : constant Wide_Character := Wide_Character'Val(Code.Equal_Sign);
|
||||
Greater_Than_Sign : constant Wide_Character := Wide_Character'Val(Code.Greater_Than_Sign);
|
||||
Question : constant Wide_Character := Wide_Character'Val(Code.Question);
|
||||
Commercial_At : constant Wide_Character := Wide_Character'Val(Code.Commercial_At);
|
||||
UC_A : constant Wide_Character := Wide_Character'Val(Code.UC_A);
|
||||
UC_B : constant Wide_Character := Wide_Character'Val(Code.UC_B);
|
||||
UC_C : constant Wide_Character := Wide_Character'Val(Code.UC_C);
|
||||
UC_D : constant Wide_Character := Wide_Character'Val(Code.UC_D);
|
||||
UC_E : constant Wide_Character := Wide_Character'Val(Code.UC_E);
|
||||
UC_F : constant Wide_Character := Wide_Character'Val(Code.UC_F);
|
||||
UC_G : constant Wide_Character := Wide_Character'Val(Code.UC_G);
|
||||
UC_H : constant Wide_Character := Wide_Character'Val(Code.UC_H);
|
||||
UC_I : constant Wide_Character := Wide_Character'Val(Code.UC_I);
|
||||
UC_J : constant Wide_Character := Wide_Character'Val(Code.UC_J);
|
||||
UC_K : constant Wide_Character := Wide_Character'Val(Code.UC_K);
|
||||
UC_L : constant Wide_Character := Wide_Character'Val(Code.UC_L);
|
||||
UC_M : constant Wide_Character := Wide_Character'Val(Code.UC_M);
|
||||
UC_N : constant Wide_Character := Wide_Character'Val(Code.UC_N);
|
||||
UC_O : constant Wide_Character := Wide_Character'Val(Code.UC_O);
|
||||
UC_P : constant Wide_Character := Wide_Character'Val(Code.UC_P);
|
||||
UC_Q : constant Wide_Character := Wide_Character'Val(Code.UC_Q);
|
||||
UC_R : constant Wide_Character := Wide_Character'Val(Code.UC_R);
|
||||
UC_S : constant Wide_Character := Wide_Character'Val(Code.UC_S);
|
||||
UC_T : constant Wide_Character := Wide_Character'Val(Code.UC_T);
|
||||
UC_U : constant Wide_Character := Wide_Character'Val(Code.UC_U);
|
||||
UC_V : constant Wide_Character := Wide_Character'Val(Code.UC_V);
|
||||
UC_W : constant Wide_Character := Wide_Character'Val(Code.UC_W);
|
||||
UC_X : constant Wide_Character := Wide_Character'Val(Code.UC_X);
|
||||
UC_Y : constant Wide_Character := Wide_Character'Val(Code.UC_Y);
|
||||
UC_Z : constant Wide_Character := Wide_Character'Val(Code.UC_Z);
|
||||
Left_Square_Bracket : constant Wide_Character := Wide_Character'Val(Code.Left_Square_Bracket);
|
||||
Backslash : constant Wide_Character := Wide_Character'Val(Code.Backslash);
|
||||
Right_Square_Bracket: constant Wide_Character := Wide_Character'Val(Code.Right_Square_Bracket);
|
||||
Circumflex : constant Wide_Character := Wide_Character'Val(Code.Circumflex);
|
||||
Low_Line : constant Wide_Character := Wide_Character'Val(Code.Low_Line);
|
||||
Grave : constant Wide_Character := Wide_Character'Val(Code.Grave);
|
||||
LC_A : constant Wide_Character := Wide_Character'Val(Code.LC_A);
|
||||
LC_B : constant Wide_Character := Wide_Character'Val(Code.LC_B);
|
||||
LC_C : constant Wide_Character := Wide_Character'Val(Code.LC_C);
|
||||
LC_D : constant Wide_Character := Wide_Character'Val(Code.LC_D);
|
||||
LC_E : constant Wide_Character := Wide_Character'Val(Code.LC_E);
|
||||
LC_F : constant Wide_Character := Wide_Character'Val(Code.LC_F);
|
||||
LC_G : constant Wide_Character := Wide_Character'Val(Code.LC_G);
|
||||
LC_H : constant Wide_Character := Wide_Character'Val(Code.LC_H);
|
||||
LC_I : constant Wide_Character := Wide_Character'Val(Code.LC_I);
|
||||
LC_J : constant Wide_Character := Wide_Character'Val(Code.LC_J);
|
||||
LC_K : constant Wide_Character := Wide_Character'Val(Code.LC_K);
|
||||
LC_L : constant Wide_Character := Wide_Character'Val(Code.LC_L);
|
||||
LC_M : constant Wide_Character := Wide_Character'Val(Code.LC_M);
|
||||
LC_N : constant Wide_Character := Wide_Character'Val(Code.LC_N);
|
||||
LC_O : constant Wide_Character := Wide_Character'Val(Code.LC_O);
|
||||
LC_P : constant Wide_Character := Wide_Character'Val(Code.LC_P);
|
||||
LC_Q : constant Wide_Character := Wide_Character'Val(Code.LC_Q);
|
||||
LC_R : constant Wide_Character := Wide_Character'Val(Code.LC_R);
|
||||
LC_S : constant Wide_Character := Wide_Character'Val(Code.LC_S);
|
||||
LC_T : constant Wide_Character := Wide_Character'Val(Code.LC_T);
|
||||
LC_U : constant Wide_Character := Wide_Character'Val(Code.LC_U);
|
||||
LC_V : constant Wide_Character := Wide_Character'Val(Code.LC_V);
|
||||
LC_W : constant Wide_Character := Wide_Character'Val(Code.LC_W);
|
||||
LC_X : constant Wide_Character := Wide_Character'Val(Code.LC_X);
|
||||
LC_Y : constant Wide_Character := Wide_Character'Val(Code.LC_Y);
|
||||
LC_Z : constant Wide_Character := Wide_Character'Val(Code.LC_Z);
|
||||
Left_Curly_Bracket : constant Wide_Character := Wide_Character'Val(Code.Left_Curly_Bracket);
|
||||
Vertical_Line : constant Wide_Character := Wide_Character'Val(Code.Vertical_Line);
|
||||
Right_Curly_Bracket : constant Wide_Character := Wide_Character'Val(Code.Right_Curly_Bracket);
|
||||
Tilde : constant Wide_Character := Wide_Character'Val(Code.Tilde);
|
||||
DEL : constant Wide_Character := Wide_Character'Val(Code.DEL);
|
||||
end Wide;
|
||||
|
||||
end H2.Ascii;
|
||||
|
Reference in New Issue
Block a user