ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: nqc: Add USB & TCP support, remove segfault.

Browse source 
* gnu/packages/lego.scm (nqc)[native-inputs]: Add
add-usb-tcp-support.patch and debian-writable-swap-inst-len.patch.
[arguments]: Apply them in a new ‘patch’ phase.
This commit is contained in:
Tobias Geerinckx-Rice 2020-11-18 23:34:02 +01:00
parent 4bc0fc4eef
commit 96fb444e79
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
1 changed files with 42 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

58
gnu/packages/lego.scm
View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2016, 2017, 2019 Eric Bavier <bavier@posteo.net>
;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018, 2020 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; This file is part of GNU Guix.
;;;
@ -35,6 +35,8 @@ (define-public nqc
(name "nqc")
(version "3.1.r6")
(source (origin
;; XXX Using url-fetch/tarbomb results in failure:
;; Error: could not create compiler/rcx1_nqh.h
(method url-fetch)
(uri (string-append "http://bricxcc.sourceforge.net/nqc/release/"
"nqc-" version ".tgz"))
@ -44,24 +46,48 @@ (define-public nqc
(build-system gnu-build-system)
(native-inputs
`(("bison" ,bison)
("flex" ,flex)))
("flex" ,flex)
("add-usb-tcp-support.patch"
,(origin
(method url-fetch)
(uri (string-append "https://sourceforge.net/p/bricxcc/patches/"
"_discuss/thread/00b427dc/b84b/attachment/"
"nqc-01-Linux_usb_and_tcp.diff"))
(sha256
(base32 "0z5gx55ra1kamhhqxz08lvvwslfl36pbmwdd566rhmbgmyhlykbr"))))
("debian-writable-swap-inst-len.patch"
,(origin
(method url-fetch)
(uri (string-append "https://sources.debian.org/data/main/n/nqc/"
"3.1.r6-7/debian/patches/"
"writable-swap-inst-len.patch"))
(sha256
(base32 "1kr7j057aa5i0kxmlfpbfcsif5yq2lrmjw4sljn400ijaq4mys3v"))))))
(arguments
'(#:tests? #f ;no tests
#:make-flags (list (string-append "PREFIX=" %output))
#:phases (modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'rm-generated
;; Regenerating compiler/lexer.cpp avoids an 'undefined
;; reference to `isatty(int)'' error.
(lambda _
(for-each delete-file
'("compiler/lexer.cpp"
"compiler/parse.cpp"))
#t))
(add-after 'unpack 'deal-with-tarbomb
(lambda _
(chdir "..") ;tarbomb
#t)))))
#:phases
(modify-phases %standard-phases
(delete 'configure)
(add-before 'build 'rm-generated
;; Regenerating compiler/lexer.cpp avoids an 'undefined
;; reference to `isatty(int)'' error.
(lambda _
(for-each delete-file
'("compiler/lexer.cpp"
"compiler/parse.cpp"))
#t))
(add-after 'unpack 'deal-with-tarbomb
(lambda _
(chdir "..") ;tarbomb
#t))
(add-after 'deal-with-tarbomb 'patch
(lambda* (#:key inputs #:allow-other-keys)
(for-each (lambda (patch)
(invoke "patch" "-Np1" "-i"
(assoc-ref inputs patch)))
(list "add-usb-tcp-support.patch"
"debian-writable-swap-inst-len.patch")))))))
(home-page "http://bricxcc.sourceforge.net/nqc/")
(synopsis "C-like language for Lego's MINDSTORMS")
(description