defined pt-get-body

pivot-table.el

@@ -23,4 +23,48 @@
 
 ;;; Code:
 
+(defun pt-build (source &rest params)
+  "Build a pivot table
+TODO: more documentation"
+  (let* ((rows (plist-get params :rows))
+         (cols (plist-get params :cols))
+         (vals (plist-get params :vals))
+         (col-index (pt-get-columns source))
+         src-cols
+         (src-body (pt-get-body source))
+         (buckets (make-hash-table)))
+    (pt--index-columns rows)
+    (pt--index-columns cols)
+    (pt--index-columns vals car)
+    (sort src-cols #'<)
+    (dolist (record src-body)
+      (pt--process-record record source-cols buckets))))
+
+(defun pt-get-columns (table)
+  "Extract the column names from a table"
+  (let (result)
+    (dolist (row table)
+      (when (and (listp row) (equal (car row) "!"))
+        (let ((n 2))
+          (dolist (cell (cdr row))
+            (unless (equal cell "")
+              (push (cons (format "%s" cell) n) result))
+            (setq n (1+ n))))))
+    result))
+
+(defun pt-get-body (source)
+  "Discards all rows from a table before the first hline (if present)
+If there is no hline, the table is instead returned unaltered."
+  (catch :return
+    (let ((remain source))
+      (while remain
+        (when (eq (car remain) 'hline)
+          (throw :return (cdr remain)))
+        (pop remain))
+      source)))
+
+;; Local Variables:
+;; read-symbol-shorthands: (("pt-" . "pivot-table-"))
+;; End:
+
 ;;; pivot-table.el ends here