Add missing prompt folder

Author: frank-at-adacore

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-intro/prompt/default.gpr

@@ -0,0 +1,7 @@
+project Default is
+   for Main use ("main.adb");
+   for Source_Dirs use (".");
+   package Compiler is
+     for Switches ("ada") use ("-g","-gnata","-gnatyr");
+   end Compiler;
+end Default;

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-intro/prompt/employee.adb

@@ -0,0 +1,22 @@
+package body Employee is
+
+   procedure Set_Attribute
+     (O     : in out Person_T;
+      Value :        String) is
+   begin
+      null;
+   end Set_Attribute;
+
+   function Get_Attribute
+     (O : Person_T)
+      return String is
+   begin
+      return "";
+   end Get_Attribute;
+
+   procedure Print (O : Person_T) is
+   begin
+      null;
+   end Print;
+
+end Employee;

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-intro/prompt/employee.ads

@@ -0,0 +1,27 @@
+package Employee is
+
+   type Person_T is tagged private;
+   -- create primitive subprograms to set/get attributes for Person_T and
+   -- to print the contents of Person_T
+   procedure Set_Attribute
+     (O     : in out Person_T;
+      Value :        String);
+   function Get_Attribute
+     (O : Person_T)
+      return String;
+   procedure Print (O : Person_T);
+
+   -- Create a new type Employee_T based on Person with some
+   --    additional attributes
+   -- Create primitive subprograms to set/get these new attributes and to
+   -- print the entire contents of Employee_T
+
+   -- Create a new type Position_T based on Person with some
+   --    additional attributes
+   -- Create primitive subprograms to set/get these new attributes and to
+   -- print the entire contents of Position_T
+
+private
+   type Person_T is tagged null record;
+
+end Employee;

courses/ada_essentials/170_tagged_derivation/lab/tagged_derivation-intro/prompt/main.adb

@@ -0,0 +1,22 @@
+with Ada.Text_IO; use Ada.Text_IO;
+with Employee;
+procedure Main is
+   function Read
+     (Prompt : String)
+      return String is
+   begin
+      Put (Prompt & "> ");
+      return Get_Line;
+   end Read;
+   function Read_Date
+     (Prompt : String)
+      return String is (Read (Prompt & " (YYYY-MM-DD)"));
+
+   Applicant : Employee.Person_T;
+   -- Create objects to store information for an Employee and Position
+
+begin
+   Employee.Set_Attribute (Applicant, Read ("Attribute"));
+   Employee.Print (Applicant);
+   -- set attributes / print contents for employee and position
+end Main;

support_files/build_labs_folder.py

@@ -107,7 +107,7 @@ def build_folder(course, destination, ada95, build):
 
                 prompt_source = os.path.join(source_folder, "prompt")
                 if not has_lab(os.path.join(directory, f)):
-                    print("   No lab")
+                    print("    No lab")
 
                 elif os.path.exists(prompt_source):
                     os.makedirs(destination_folder, exist_ok=True)
@@ -135,7 +135,7 @@ def build_folder(course, destination, ada95, build):
                         gprbuild(os.path.join(destination_folder, "answer"))
 
                 else:
-                    print("   No prompt folder")
+                    print("    No prompt folder")
 
 
 if __name__ == "__main__":