ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 13:58:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: Add scheme48-rx.

Browse source 
* gnu/packages/scheme.scm (scheme48-rx): New variable.
This commit is contained in:
ng0 2017-02-16 10:01:34 -06:00 committed by Christopher Allan Webber
parent 856b7037aa
commit 8a0c2552b4
No known key found for this signature in database
GPG key ID: 4BC025925FF8F4D3
1 changed files with 40 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
gnu/packages/scheme.scm
View file

@ -5,7 +5,7 @@
;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net> ;;; Copyright © 2016 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il> ;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org> ;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016 ng0 <ng0@we.make.ritual.n0.is> ;;; Copyright © 2016, 2017 ng0 <contact.ng0@cryptolab.net>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -805,3 +805,42 @@ (define-public sicp
core computer science concepts such as abstraction in programming, core computer science concepts such as abstraction in programming,
metalinguistic abstraction, recursion, interpreters, and modular programming.") metalinguistic abstraction, recursion, interpreters, and modular programming.")
(license cc-by-sa4.0)))) (license cc-by-sa4.0))))
(define-public scheme48-rx
(let* ((commit "d3231ad13de2b44e3ee173b1c9d09ff165e8b6d5")
(revision "1"))
(package
(name "scheme48-rx")
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/scheme/rx")
(commit commit)))
(sha256
(base32
"1nmziaibgmfi346kzidj6xyad0vm7724qymbzgxvdzyrqji6v6yz"))
(file-name (string-append name "-" version "-checkout"))))
(build-system trivial-build-system)
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let ((share (string-append %output
"/share/scheme48-"
,(package-version scheme48)
"/rx")))
(chdir (assoc-ref %build-inputs "source"))
(mkdir-p share)
(copy-recursively "." share)))))
(native-inputs
`(("source" ,source)
("scheme48" ,scheme48)))
(home-page "https://github.com/scheme/rx/")
(synopsis "SRE String pattern-matching library for scheme48")
(description
"String pattern-matching library for scheme48 based on the SRE
regular-expression notation.")
(license bsd-3))))