[PACKAGE] sinit

[Vincent Legoll <vincent.legoll@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 263 bytes --]

Hello,

here is the packaging of sinit, a minimalistic /sbin/init replacement.

It shows the use of the musl libc previously posted.

Please advise on how to further proceed with the submission,
where should I put this package, etc...

Thanks

-- 
Vincent Legoll

[-- Attachment #2: sinit.scm --]
[-- Type: text/x-scheme, Size: 2218 bytes --]

;;; GNU Guix --- Functional package management for GNU
;;; Copyright <C2><A9> 2016 Vincent Legoll <vincent.legoll@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix 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.
;;;
;;; GNU Guix 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 GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

(define-module (sinit)
  #:use-module (guix download)
  #:use-module (guix packages)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (gnu packages)
  #:use-module (musl)
)

(define-public sinit
  (package
    (name "sinit")
    (version "1.0")
    (source (origin
              (method url-fetch)
              (uri (string-append "http://git.suckless.org/sinit/snapshot/" name
                                  "-" version ".tar.bz2"))
              (sha256
               (base32
                "1chdfcca7js0vgnw3l68sy8js8b01l4bpjbbfw4mfln5742ys5s9"))
              (patches (search-patches "sinit-build-fix.patch"))))
    (build-system gnu-build-system)
    (arguments
     `(#:phases
       (modify-phases %standard-phases
         (delete 'configure))
       #:tests? #f                                ; no 'check' target
       #:make-flags (list "CC=musl-gcc"
                          (string-append "PREFIX=" (assoc-ref %outputs "out")))))
    (inputs `(("musl" ,musl)))
    (synopsis "This package is a suckless init")
    (description "Initially based on Rich Felker’s minimal init.  The sinit
package is considered complete and no further development is expected to
happen.  The sinit binary file is statically linked against the minimalistic
musl libc.")
    (home-page "http://core.suckless.org/sinit")
    (license (x11-style "file://LICENSE"))))