#| Copyright (C) 2025 Peter McGoron
 |
 | This program is free software: you can redistribute it and/or modify it
 | under the terms of the GNU General Public License as published by the
 | Free Software Foundation, either version 3 of the License, or (at your
 | option) any later version.
 |
 | This program 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 this program.  If not, see <https://www.gnu.org/licenses/>.
 |#

(define-module (mcgoron guix chibi)
  #:use-module (guix build-system)
  #:use-module (guix build-system copy)
  #:use-module (guix packages)
  #:use-module (gnu packages scheme)
  #:use-module (guix gexp))

(define-public chibi-scheme-build-system
  (let ((lower* (build-system-lower copy-build-system)))
    (build-system
     (name 'chibi-pure)
     (description "Build system for copying Scheme libraries to Chibi module directory")
     (lower
      (lambda args
        (apply lower*
               (if (memq #:install-plan args)
                   args
                   (append
                    args
                    (list
                     #:install-plan
                     `'(("." ,(string-append chibi-lib-dir
                                             "/"))))))))))))

(define-public chibi-lib-dir "share/guix-chibi")
(define-public chibi-binlib-dir "lib/guix-chibi")

(define-public chibi-scheme-with-path
  (package
   (inherit chibi-scheme)
   (name "chibi-scheme-with-path")
   (native-search-paths
    (list (search-path-specification
           (variable "CHIBI_MODULE_PATH")
           (files (list chibi-lib-dir chibi-binlib-dir)))))))