Add algorithm for console table

Author: GasimGasimzada

index.bs

@@ -122,10 +122,46 @@ its \[[Prototype]] an empty object, created as if by
 <h4 id="table" oldids="table-tabulardata-properties,dom-console-table" method for="console">table(|tabularData|, |properties|)</h4>
 
 Try to construct a table with the columns of the properties of |tabularData| (or use
-|properties|) and rows of |tabularData| and log it with a logLevel of "log". Fall
-back to just logging the argument if it can't be parsed as tabular.
-
-<p class="XXX">TODO: This will need a good algorithm.</p>
+|properties|) and rows of |tabularData| and log it with a logLevel of "log".
+
+1. Let |finalRows| be the new [=/list=], initially empty
+2. Let |finalColumns| be the new [=/list=], initially empty
+2. If |tabularData| is a [=/list=], then:
+  1. Let |indices| be [=list/get the indices=] of |tabularData|
+  2. [=list/For each=] |index| of |indices|
+    1. Let |value| be |tabularData|[|index|]
+    2. Let |row| be a new [=/map=]
+    3. [=map/Set=] |row|["(index)"] to |index|
+    4. [Set columns] with |value|, |row|, and |properties|
+    5. [=list/Append=] |row| to |finalRows|
+2. Otherwise, if |tabularData| is a [=/map=], then:
+  1. [=map/For each=] |key| → |value| of |tabularData|
+    1. Let |row| be a new [=/map=]
+    2. [=map/Set=] |row|["(index)"] to |key|
+    3. [Set columns] with |value|, |row|, and |properties|
+    4. [=list/Append=] |row| to |finalRows|
+3. If |finalRows| is [=list/empty=], perform <a abstract-op>Printer</a>("log", « |tabularData| »).
+4. Otherwise:
+  1. Let |finalData| be a new [=/map=].
+  2. [=map/Set=] |finalData|["rows"] to |finalRows|
+  3. [=map/Set=] |finalData|["columns"] to |finalColumns|
+  3. Perform <a abstract-op>Printer</a>("table", « |finalData| »).
+
+To [set columns] given a |tabularDataItem|, a [=/map=] |row|, [=/list=] |finalColumns|, and an optional [=/list=] |properties|, perform the following steps.
+
+1. If |tabularDataItem| is a [=/list=], then:
+  1. Let |indices| be [=list/get the indices=] of |tabularDataItem|
+  2. [=list/For each=] |index| of |indices|
+    1. Let |value| be |tabularDataItem|[|index|]
+    2. If |properties| is not [=list/empty=] and |properties| does not [=list/contain=] |index|, [=iteration/continue=]
+    3. [=map/Set=] |row|[|index|] to |value|
+    4. If |finalColumns| does not [=list/contain=] |index|, [=list/append=] |index| to |finalColumns|
+2. Othwerwise, if |tabularDataItem| is a [=/map=], then:
+  1. [=map/For each=] |key| → |value| of |tabularDataItem|
+    1. If |properties| is not [=list/empty=] and |properties| does not [=list/contain=] |key|, [=iteration/continue=]
+    2. [=map/Set=] |row|[|key|] to |value|
+    3. If |finalColumns| does not [=list/contain=] |key|, [=list/append=] |key| to |finalColumns|
+3. Otherwise, [=map/set=] |row|["Value"] to |tabularDataItem|
 
 <h4 id="trace" oldids="trace-data,dom-console-trace" method for="console">trace(...|data|)</h4>