Modified ssss.adb for variable input size

1 files changed, 52 insertions, 14 deletions

diff --git a/example/ssss.adb b/example/ssss.adb
index bcf2d75..2c29b2f 100644
--- a/example/ssss.adb
+++ b/example/ssss.adb
@@ -6,19 +6,20 @@
 with
 
     Ada.Text_IO,
+    Ada.Strings.Fixed,
+    Ada.Command_Line,
     Packrat.No_Lex,
     Packrat.Utilities;
 
 use
 
-    Ada.Text_IO;
+    Ada.Text_IO,
+    Ada.Strings.Fixed;
 
 
 procedure Ssss is
 
 
-    Input : String := "xxxx";
-
     type Parser_Labels is (S, X);
 
     package My_Rat is new Packrat.No_Lex (Parser_Labels, Character, String);
@@ -42,29 +43,66 @@ procedure Ssss is
 
 
 
+    function Is_Digits
+           (Str : in String)
+        return Boolean is
+    begin
+        return (for all C of Str => C in '0' .. '9');
+    end Is_Digits;
+
+
+
+
+    package Comlin renames Ada.Command_Line;
+
     Result_Graph : My_Rat.Parser_Result;
 
+    Silent_Running : Boolean := False;
+    Input_Length : Positive := 4;
+
 
 begin
 
 
     S_Redir.Set (S'Access);
 
-    Result_Graph := Parser.Parse (Input);
 
+    for I in 1 .. Comlin.Argument_Count loop
+        if Comlin.Argument (I) = "--help" then
+            Put_Line ("Simple Yet Highly Ambiguous Grammar Stress Tester");
+            New_Line;
+            Put_Line ("s ::= 'x' s s | <empty>");
+            New_Line;
+            Put_Line ("Command like switchs are --help or --silent");
+            Put_Line ("You may also provide the length of input, with the default being 4.");
+            return;
+        elsif Comlin.Argument (I) = "--silent" then
+            Silent_Running := True;
+        elsif Is_Digits (Comlin.Argument (I)) and then
+            Integer'Value (Comlin.Argument (I)) > 0
+        then
+            Input_Length := Integer'Value (Comlin.Argument (I));
+        end if;
+    end loop;
 
-    Put_Line ("Input:");
-    Put_Line (Input);
-    New_Line;
 
-    Put_Line ("Parser graph output:");
-    Put_Line (My_Rat.Parse_Graphs.Debug_String (Result_Graph));
-    New_Line;
+    Result_Graph := Parser.Parse (Input_Length * 'x');
 
-    Put_Line ("Root tokens:");
-    for T of Result_Graph.Root_Elements loop
-        Put (My_Rat.Parser_Tokens.Debug_String (T));
-    end loop;
+
+    if not Silent_Running then
+        Put_Line ("Input:");
+        Put_Line (Input_Length * 'x');
+        New_Line;
+
+        Put_Line ("Parser graph output:");
+        Put_Line (My_Rat.Parse_Graphs.Debug_String (Result_Graph));
+        New_Line;
+
+        Put_Line ("Root tokens:");
+        for T of Result_Graph.Root_Elements loop
+            Put (My_Rat.Parser_Tokens.Debug_String (T));
+        end loop;
+    end if;
 
 
 end Ssss;