tasks a-s

Task/Optional-parameters/Ada/optional-parameters-1.ada

@@ -0,0 +1,14 @@
+package Tables is
+
+   type Table is private;
+
+   type Ordering is (Lexicographic, Psionic, ...); -- add others
+
+   procedure Sort (It               : in out Table;
+                   Order_By         : in Ordering := Lexicographic;
+                   Column           : in Positive := 1;
+                   Reverse_Ordering : in Boolean  := False);
+
+private
+   ... -- implementation specific
+end Tables;

Task/Optional-parameters/Ada/optional-parameters-2.ada

@@ -0,0 +1,10 @@
+with Tables;
+procedure Table_Test is
+   My_Table : Tables.Table;
+begin
+   ... -- insert stuff in table
+   Sort (My_Table); -- use default sorting
+   Sort (My_Table, Psionic, 5, True); -- use psionic sorting by 5th column in reverse order
+   Sort (It => My_Table, Reverse_Ordering => True); -- use default sorting in reverse order
+   ... -- other stuff
+end Table_Test;