Back to...

   1  with Ada.Text_IO;
   2  
   3  procedure Show_License (file : Ada.Text_IO.File_Type; source_with_license : String) is
   4    use Ada.Text_IO;
   5  begin
   6    New_Line (file);
   7    Put_Line (file, "| This software is free and open-source.");
   8    Put_Line (file, "| It is provided ""as is"", WITHOUT WARRANTY OF ANY KIND.");
   9    Put_Line (file, "| For the full license wording, see the header (copyright & MIT license)");
  10    Put_Line (file, "| appearing on top of this software's source files.");
  11    Put_Line (file, "| In doubt, check the file: " & source_with_license);
  12    New_Line (file);
  13  end Show_License;