;; Copyright © 2026 Genworks International
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU Affero General Public License as
;; published by the Free Software Foundation, either version 3 of the
;; License, or (at your option) any later version.  Distributed WITHOUT
;; ANY WARRANTY; see <https://www.gnu.org/licenses/agpl-3.0.html>.

(in-package :gdl-user)

(defun read-file (file )
  (let ((result))
    (with-open-file (str file :direction :input)
      (do ((line (read-line str nil 'eof)
		 (read-line str nil 'eof)))
	  ((eql line 'eof) result)
	(setq result (append result (list line)))))))

(defun import-data (file)
  (let*
      ((raw-data (read-file file))
       (res (mapcar #'(lambda(a) (glisp:split-regexp "\\s+" a)) raw-data))
       (res-1 (mapcan #'(lambda(a) (list (make-keyword (second a)) (third a))) res))
       (keywords (remove nil res-1 :key #'(lambda(a) (keywordp a))))
       (r nil))
    (dolist (k keywords r)
      (cond ((or (eq k :width) (eq k :length) (eq k :height))
	     (setq r (append r (list k (read-safe-string (getf res-1 k))))))
	    ((eq k :center)
	     (let ((co-ord (glisp:split-regexp "," (getf res-1 k))))
	       (setq r (append
			r
			(list k (make-point (read-safe-string (first co-ord))
					    (read-safe-string (second co-ord))
					    (read-safe-string (third co-ord))))))))))))