#| 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 scheme-hello-world)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix licenses)
  #:use-module (guix gexp)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages tls)
  #:use-module (mcgoron guix chibi)
  #:use-module (mcgoron guix foment)
  #:use-module (mcgoron guix sagittarius)
  #:use-module (mcgoron guix gauche))

(define (hello-world-r7rs version)
  (origin
    (method url-fetch)
    (uri (string-append "https://florida.moe/ftp/hello-world-r7rs/"
                        version ".tar.gz"))
    (sha256 (base32 "1cx9p2mz3cmn02imp137vqmq8aw3mh5s23ybprgkc8pshgmaf8jn"))))

(define-public hello-world-gauche
  (package
   (name "hello-world-gauche")
   (version "1.0.0")
   (synopsis "Prints hello world")
   (description "Prints hello world")
   (license asl2.0)
   (home-page "https://example.com")
   (source (origin
             (method url-fetch)
             (uri (string-append "https://florida.moe/ftp/hello-world-gauche/"
                                 version ".tar.gz"))
             (sha256 (base32 "0qfjzx5kwf8c5cjh5p72fg7wiyfn6mak4h5wsrhigzn9fzakxv3b"))))
   (build-system gnu-build-system)
   (arguments
     (list
      #:imported-modules `(,@%default-gnu-imported-modules (mcgoron guix gauche-build-system))
      #:modules '((mcgoron guix gauche-build-system) (guix build utils) (guix build gnu-build-system))
      #:phases
      #~(modify-phases %standard-phases
          (replace 'configure gauche-configure))))
   (inputs (list gauche-with-path))
   (native-inputs (list mbedtls gauche-with-path))))