;;; Copyright (C) 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright (C) 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;;
-;;; Also borrowing code from:
-;;; guile-sdl2 --- FFI bindings for SDL2
-;;; Copyright © 2015 David Thompson <davet@gnu.org>
-;;;
;;; 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
(define %source-dir (dirname (current-filename)))
-(define git-file?
- (let* ((pipe (with-directory-excursion %source-dir
- (open-pipe* OPEN_READ "git" "ls-files")))
- (files (let loop ((lines '()))
- (match (read-line pipe)
- ((? eof-object?)
- (reverse lines))
- (line
- (loop (cons line lines))))))
- (status (close-pipe pipe)))
- (lambda (file stat)
- (match (stat:type stat)
- ('directory #t)
- ((or 'regular 'symlink)
- (any (cut string-suffix? <> file) files))
- (_ #f)))))
-
(define guile-without-select-bug
(package
(inherit guile-next)
(patches (list (string-append %source-dir
"/build-aux/patch-guile-fix-live-repl.patch")))))))
+(define guile-8sync-latest
+ (package
+ (inherit guile-8sync)
+ (version "git")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://git.savannah.gnu.org/8sync.git")
+ (commit "dfde2119df2a0adb86ec4921f95ef2c15692a593")))
+ (sha256
+ (base32
+ "086smlch92n6z5xng0la9l9g6m145klw1c8222cgj32qhyarbkpk"))))
+ (arguments
+ `(#:phases (modify-phases %standard-phases
+ (add-before 'configure 'bootstrap
+ (lambda _
+ (zero? (system* "./bootstrap.sh")))))))))
+
(package
(name "guile-mudsync")
(version "git")
- (source (local-file %source-dir #:recursive? #t #:select? git-file?))
+ (source (local-file %source-dir
+ #:recursive? #t
+ #:select? (git-predicate %source-dir)))
(build-system gnu-build-system)
(native-inputs `(("autoconf" ,autoconf)
("automake" ,automake)
- ("guile" ,guile-without-select-bug)
- ("guile-8sync" ,guile-8sync)
- ("guile-irregex" ,guile2.2-irregex)
("pkg-config" ,pkg-config)
("texinfo" ,texinfo)))
+ (inputs `(("guile" ,guile-without-select-bug)
+ ("guile-8sync" ,guile-8sync-latest)
+ ("guile-irregex" ,guile2.2-irregex)))
(arguments
`(#:phases (modify-phases %standard-phases
(add-before 'configure 'bootstrap
(home-page "https://notabug.org/cwebber/mudsync/")
(synopsis "Live hackable MUD system")
(description
- "GNU 8sync (pronounced \"eight-sync\") is an asynchronous programming
-library for GNU Guile based on the actor model.")
+ "Mudsync is a live hackable MUD system built on top of GNU 8sync.")
(license gpl3+))