;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; utils.scm
;; Copyright (C) 2025 Cor Legemaat <cor@cor.za.net>
;;
;; This file is part of ebuild-autogen: 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, version 3 of the License.
;;
;; ebuild-autogen is distributed in the hope that it will be useful, but WITHOUT
;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
;; more details.
;;
;; You should have received a copy of the GNU General Public License along with
;; ebuild-autogen. If not, see <https://www.gnu.org/licenses/>.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define-module (ebuild utils)
  #:use-module (srfi srfi-1))

(define-public list->str-list
  (lambda* (in-list glue #:key (pre "") (post ""))
    ""
    ;;(display "in-list=") (display in-list) (newline)
    (if (null? in-list)
        ""
        (string-concatenate 
         (append (list pre)
                 (cdr (append-map (lambda (item)
                                    (append (list glue)
                                            (list item)))
                                  in-list))
                 (list post))))))

(define-public any-str-list
  (lambda (test-list val)
    ""
    (any (lambda (test-val)
           (if (string=? test-val val)
               #t #f))
         test-list)))

(define-public mkpath
  (lambda (path)
    (let* ((split-path (filter-map (lambda (str)
                                    (if (string<> str "") str #f))
                                   (string-split path
                                                 (car (string->list
                                                       file-name-separator-string)))))
           (fixed-path (string-append (string-concatenate (map (lambda (folder)
                                                                 (string-append "/" folder))
                                                               split-path))
                                      "/"))
           (path-1up (string-concatenate (map (lambda (folder)
                                                (string-append "/" folder))
                                              (reverse (cdr (reverse split-path)))))))
      (if (not (access? fixed-path F_OK))
          (if (access? path-1up F_OK)
              (if (access? path-1up W_OK)
                  (mkdir fixed-path)
                  (error (string-append "Error no write permission in \""
                                        path-1up
                                        "\" to create \""
                                        (car (reverse split-path))
                                        "\" folder!")))
              (begin (mkpath path-1up)
                     (mkdir path)))))))

(define-public cmp-str-lists
  (lambda (list1 list2)
    ""
    (every string=? list1 list2)))