Add initial prototype.

1-base/xml/applet/demo/outline/launch_outline.adb

@@ -0,0 +1,89 @@
+with
+     ada.command_Line,
+
+     ada.Text_IO,
+     ada.Strings.unbounded,
+
+     xml.Reader;
+
+
+procedure launch_Outline
+is
+   use ada.command_Line,
+       ada.Text_IO,
+       ada.Strings.unbounded,
+       XML.Reader;
+
+   Line_Max      :  constant := 60000;
+
+   Depth         :  natural  := 0;
+   XML_File      :  File_Type;
+   MyParser      :  Parser;
+   Done          :  Boolean;
+   Buffer        :  String (1 .. Line_Max);
+   Buffer_Length :  Natural;
+
+
+   procedure Starter (Name : in Unbounded_String;
+                      Atts : in XML.Attributes_view)
+   is
+   begin
+      for Pad in 1 .. Depth
+      loop
+         put ("   ");
+      end loop;
+
+      Put (To_String (Name));
+
+      for Att in Atts'Range
+      loop
+         put (" " & Atts (Att).Name & " = " & Atts (Att).Value);
+      end loop;
+
+      new_Line;
+
+      Depth := Depth + 1;
+   end Starter;
+
+
+   procedure Ender (Name : in unbounded_String)
+   is
+      pragma Unreferenced (Name);
+   begin
+      Depth := Depth - 1;
+   end Ender;
+
+
+   procedure my_data_Handler (Data : in unbounded_String)
+   is
+   begin
+      put_Line ("my_data_Handler: '" & to_String (Data) & "'");
+   end my_data_Handler;
+
+
+begin
+   if Argument_Count < 1
+   then
+      Put_Line (Standard_Error, "usage:  outline  xml-file");
+   else
+      open (XML_File, In_File, Argument (1));
+
+      MyParser := Create_Parser;
+      set_Element_Handler (MyParser, Starter'unrestricted_Access,
+                                     Ender  'unrestricted_Access);
+
+      set_Character_Data_Handler (myParser, my_data_Handler'unrestricted_Access);
+
+      loop
+         get_Line (XML_File, Buffer, Buffer_Length);
+
+         Done := End_Of_File (XML_File);
+
+         parse (MyParser,
+                Buffer (1 .. Buffer_Length),
+                Done);
+
+         exit when Done;
+      end loop;
+   end if;
+end launch_Outline;

1-base/xml/applet/demo/outline/outline.gpr

@@ -0,0 +1,16 @@
+with
+     "xml",
+     "lace_shared";
+
+project Outline
+is
+   for Object_Dir use "build";
+   for Exec_Dir   use ".";
+   for Main       use ("launch_outline.adb");
+
+   package Ide      renames Lace_shared.Ide;
+   package Builder  renames Lace_shared.Builder;
+   package Compiler renames Lace_shared.Compiler;
+   package Binder   renames Lace_shared.Binder;
+
+end Outline;