;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2020 Ryan Prior ;;; Copyright © 2020 Tobias Geerinckx-Rice ;;; Copyright © 2020 Efraim Flashner ;;; Copyright © 2021 (unmatched parenthesis ;;; ;;; 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 . (define-module (gnu packages vlang) #:use-module (gnu packages glib) #:use-module (gnu packages node) #:use-module (gnu packages sqlite) #:use-module (gnu packages tls) #:use-module (gnu packages version-control) #:use-module (gnu packages xorg) #:use-module (guix build-system gnu) #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix utils) #:use-module (guix packages)) (define-public vlang (package (name "vlang") (version "0.2.4") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/vlang/v") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "17wmjxssmg6kd4j8i6pgib452zzwvkyi3n1znd1jj3xkf2l92fw8")))) (build-system gnu-build-system) (arguments `(#:make-flags (list (string-append "CC=" ,(cc-for-target)) "TMPTCC=tcc" (string-append "VC=" (assoc-ref %build-inputs "vc")) "GITCLEANPULL=true" "GITFASTCLONE=mkdir -p" "TCCREPO=" "VCREPO=" (string-append "VFLAGS=-cc " ,(cc-for-target)) "VERBOSE=1") #:phases (modify-phases %standard-phases (delete 'configure) (add-before 'build 'change-home (lambda _ (setenv "HOME" "/tmp") #t)) (add-before 'build 'patch-makefile (lambda _ (substitute* "Makefile" (("--branch thirdparty-unknown-unknown") "") (("rm -rf") "true")) #t)) (add-before 'check 'delete-failing-tests ;; XXX As always, these should eventually be fixed and run. (lambda _ (for-each delete-file '("vlib/os/notify/notify_test.v" "vlib/v/doc/doc_private_fn_test.v" "vlib/v/live/live_test.v" "vlib/v/tests/repl/repl_test.v" "vlib/v/tests/valgrind/valgrind_test.v")) #t)) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (let* ((bin "tmp/bin") (gcc (which "gcc"))) (when tests? (mkdir-p bin) (symlink gcc (string-append bin "/cc")) (setenv "PATH" (string-append bin ":" (getenv "PATH"))) (invoke "./v" "test-self"))) #t)) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let* ((bin (string-append (assoc-ref outputs "out") "/bin")) (docs (string-append bin "/cmd/v/help")) (tools (string-append bin "/cmd/tools")) (thirdparty (string-append bin "/thirdparty")) (vlib (string-append bin "/vlib")) (vmod (string-append bin "/v.mod"))) (mkdir-p bin) (copy-file "./v" (string-append bin "/v")) ;; v requires as of 0.2.4 that these other components are in the ;; same directory. In a future release we may be able to move ;; these into other output folders. (copy-recursively "cmd/tools" tools) (copy-recursively "cmd/v/help" docs) (copy-recursively "thirdparty" thirdparty) (copy-recursively "vlib" vlib) (copy-file "v.mod" vmod)) #t))))) (inputs (list glib)) (native-inputs `(("vc" ;; Versions are not consistently tagged, but the matching commit will ;; probably have ‘v0.x.y’ in the commit message. ,(let ((vc-version "5e876c1491db50b136499d3397b57b7c062040e5")) ;; v bootstraps from generated c source code from a dedicated ;; repository. It's readable, as generated source goes, and not at all ;; obfuscated, and it's about 15kb. The original source written in ;; golang is lost to the forces of entropy; modifying the generated c ;; source by hand has been a commonly used technique for iterating on ;; the codebase. (origin (method git-fetch) (uri (git-reference (url "https://github.com/vlang/vc") (commit vc-version))) (file-name (git-file-name "vc" vc-version)) (sha256 (base32 "1gxdkgc7aqw5f0fhch1n6nhzgzvgb49p77idx1zj7wcp53lpx5ng"))))) ("git" ,git-minimal) ;; For the tests. ("libx11" ,libx11) ("node" ,node) ("openssl" ,openssl) ("sqlite" ,sqlite))) (home-page "https://vlang.io/") (synopsis "Compiler for the V programming language") (description "V is a systems programming language. It provides memory safety and thread safety guarantees with minimal abstraction.") (license license:expat)))
- #:cargo-inputs
- (("rust-autocfg" ,rust-autocfg-1)
- ("rust-cfg-if" ,rust-cfg-if-1)
- ("rust-crossbeam-utils" ,rust-crossbeam-utils-0.8)
- ("rust-loom" ,rust-loom-0.5)
- ("rust-memoffset" ,rust-memoffset-0.9)
- ("rust-scopeguard" ,rust-scopeguard-1))
- #:cargo-development-inputs
- (("rust-rand" ,rust-rand-0.8)
- ("rust-rustversion" ,rust-rustversion-1))))
+ `(#:cargo-inputs
+ (("rust-crossbeam-utils" ,rust-crossbeam-utils-0.8)
+ ("rust-loom" ,rust-loom-0.7))
+ #:cargo-development-inputs (("rust-rand" ,rust-rand-0.8))))
(home-page
"https://github.com/crossbeam-rs/crossbeam/tree/master/crossbeam-epoch")
(synopsis "Epoch-based garbage collection")