more structural parsing

2021-11-16 13:34:32 +00:00
parent 5e40282416
commit 50c6b243f9
3 changed files with 205 additions and 87 deletions
--- a/h2/lib2/h3.ads
+++ b/h2/lib2/h3.ads
@ -5,6 +5,9 @@ package H3 is
 	--pragma Preelaborate (H3);

 	subtype Boolean is Standard.Boolean;
+	True: constant Boolean := (1 = 1);
+	False: constant Boolean := (1 /= 1);
+
 	subtype Natural is Standard.Natural;

 	subtype System_Rune is Standard.Wide_Character;