commit f83364ad3b537417f3870fd464844537d426b567
author Nico Huber <nico.h@gmx.de> Wed Dec 13 23:17:13 2023 +0100
committer Nico Huber <nico.h@gmx.de> Thu Dec 14 00:08:59 2023 +0100
tree 9aa1374caef0d08e89222ef34a2fd11bbed38ed1
parent 33f6d9517e99fbebc13fc587dba00b9576629600

Implement Is_Space()

src/filo.ads

diff --git a/src/filo.ads b/src/filo.ads
index 2e02436..6a9a4b8 100644
--- a/src/filo.ads
+++ b/src/filo.ads
@@ -48,4 +48,15 @@
    function Is_Power_Of_2 is new Gen_Is_Power_Of_2 (Unsigned_16);
    function Is_Power_Of_2 is new Gen_Is_Power_Of_2 (Unsigned_32);
 
+   Space             : constant Character := ' ';
+   Form_Feed         : constant Character := Character'Val (16#0c#);
+   New_Line          : constant Character := Character'Val (16#0a#);
+   Carriage_Return   : constant Character := Character'Val (16#0d#);
+   Tab               : constant Character := Character'Val (16#09#);
+   Vertical_Tab      : constant Character := Character'Val (16#0b#);
+
+   function Is_Space (Ch : Character) return Boolean
+   is
+      (Ch = ' ' or (Tab <= Ch and Ch <= Carriage_Return));
+
 end FILO;