;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2018 Ludovic Courtès ;;; Copyright © 2016, 2017, 2018, 2019, 2021 Ricardo Wurmus ;;; Copyright © 2018, 2020–2022 Tobias Geerinckx-Rice ;;; Copyright © 2018, 2019 Pierre Neidhardt ;;; Copyright © 2019, 2020, 2022, 2023 Efraim Flashner ;;; Copyright © 2019, 2021 Guillaume Le Vaillant ;;; Copyright © 2019 Andreas Enge ;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen ;;; Copyright © 2020, 2021 Marius Bakke ;;; Copyright © 2020 Katherine Cox-Buday ;;; Copyright © 2020, 2022, 2023 Maxim Cournoyer ;;; Copyright © 2020, 2021 Greg Hogan ;;; Copyright © 2021 David Dashyan ;;; Copyright © 2021 Foo Chuan Wei ;;; Copyright © 2022 (unmatched parenthesis ;;; Copyrig
aboutsummaryrefslogtreecommitdiff
blob: b9bc0161e4dc6760caf3e9da791a78d80b986a3b (about) (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2013 Nikita Karetnikov <nikita@karetnikov.org>
;;;
;;; 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 (gnu packages acct)
  #:use-module (guix licenses)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu))

(define-public acct
  (package
    (name "acct")
    (version "6.6.2")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://gnu/acct/acct-"
                          version ".tar.gz"))
      (sha256
       (base32
        "0081hzkcxw9aslpsakridj15m0wbnkdhm210fzbg021vi4pppm4f"))))
    (build-system gnu-build-system)
    (home-page "https://gnu.org/software/acct/")
    (synopsis "Standard login and process accounting utilities")
    (description
     "GNU acct provides a means for system administrators to determine
system usage patterns.  It provides information on, for example, connections,
programs executed, and system resources used.")
    (license gpl3+)))
racteristics for concatenation and slicing.") (license license:boost1.0)))) (define-public cproc (let ((commit "70fe9ef1810cc6c05bde9eb0970363c35fa7e802") (revision "1")) (package (name "cproc") (version (git-version "0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://git.sr.ht/~mcf/cproc") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1qmgzll7z7mn587azkj4cizyyd8ii6iznfxpc66ja08140sbn9yx")))) (build-system gnu-build-system) (arguments (list #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output)) #:phases #~(modify-phases %standard-phases (replace 'configure (lambda* (#:key inputs #:allow-other-keys) (let ((gcc-lib (assoc-ref inputs "gcc:lib")) (host-system #$(nix-system->gnu-triplet (%current-system))) (target-system #$(nix-system->gnu-triplet (or (%current-target-system) (%current-system))))) (invoke "./configure" (string-append "--prefix=" #$output) (string-append "--host=" host-system) (string-append "--target=" target-system) (string-append "--with-ld=" #$(ld-for-target)) (string-append "--with-gcc-libdir=" gcc-lib)))))))) (inputs `(("qbe" ,qbe) ("gcc:lib" ,gcc "lib"))) (supported-systems (list "x86_64-linux" "aarch64-linux")) (synopsis "Simple C11 compiler backed by QBE") (description "@code{cproc} is a C compiler using QBE as a backend, supporting most of C11 along with some GCC and C2x extensions.") (home-page "https://sr.ht/~mcf/cproc") (license license:expat)))) (define-public tcc ;; There's currently no release fixing . (let ((revision "1") (commit "a83b28568596afd8792fd58d1a5bd157fc6b6634")) (package (name "tcc") ;aka. "tinycc" (version (git-version "0.9.27" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "git://repo.or.cz/tinycc.git") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "01znw86fg73x3k0clafica4b6glbhz69p588kvp766i0zgvs68dh")))) (build-system gnu-build-system) (native-inputs (list perl texinfo)) (arguments `(#:configure-flags (list (string-append "--elfinterp=" (assoc-ref %build-inputs "libc") ,(glibc-dynamic-linker)) (string-append "--crtprefix=" (assoc-ref %build-inputs "libc") "/lib") (string-append "--sysincludepaths=" (assoc-ref %build-inputs "libc") "/include:" (assoc-ref %build-inputs "kernel-headers") "/include:{B}/include") (string-append "--libpaths=" (assoc-ref %build-inputs "libc") "/lib") ,@(if (string-prefix? "armhf-linux" (or (%current-target-system) (%current-system))) `("--triplet=arm-linux-gnueabihf") '())) #:test-target "test")) (native-search-paths (list (search-path-specification (variable "CPATH") (files '("include"))) (search-path-specification (variable "LIBRARY_PATH") (files '("lib" "lib64"))))) ;; Fails to build on MIPS: "Unsupported CPU" (supported-systems (delete "mips64el-linux" %supported-systems)) (synopsis "Tiny and fast C compiler") (description "TCC, also referred to as \"TinyCC\", is a small and fast C compiler written in C. It supports ANSI C with GNU and extensions and most of the C99 standard.") (home-page "http://www.tinycc.org/") ;; An attempt to re-licence tcc under the Expat licence is underway but not ;; (if ever) complete. See the RELICENSING file for more information. (license license:lgpl2.1+)))) (define-public tomlc99 (let ((revision "1") (commit "5221b3d3d66c25a1dc6f0372b4f824f1202fe398")) (package (name "tomlc99") (version (git-version "1.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/cktan/tomlc99") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1r443cpwy7f1f8imyfykpggkihrvv9fvdlgl95liiqmzqz9snqnd")))) (build-system gnu-build-system) (arguments (list #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "prefix=" #$output)) #:phases #~(modify-phases %standard-phases (delete 'configure) (replace 'check (lambda* (#:key tests? make-flags #:allow-other-keys) (when tests? (apply invoke `("make" "-C" "unittest" ,@make-flags)) (invoke "./unittest/t1")))) ;; The Makefile checks for libtoml.pc and only installs if ;; the prefix is /usr/local. (add-after 'install 'install-pkg-config (lambda _ (rename-file "libtoml.pc.sample" "libtoml.pc") (substitute* "libtoml.pc" (("^prefix=.*") (string-append "prefix=" #$output "\n"))) (let ((pc (string-append #$output "/lib/pkgconfig"))) (mkdir-p pc) (install-file "libtoml.pc" pc))))))) (home-page "https://github.com/cktan/tomlc99") (synopsis "TOML library for C") (description "This library is a C99 implementation to read @acronym{TOML, Tom's Obvious Minimal Language} text documents. This library is compatible with the @url{https://toml.io/en/v1.0.0,v1.0.0} specification of the language.") (license license:expat)))) (define-public pcc (package (name "pcc") (version "20170109") (source (origin (method url-fetch) (uri (string-append "http://pcc.ludd.ltu.se/ftp/pub/pcc/pcc-" version ".tgz")) (sha256 (base32 "1p34w496095mi0473f815w6wbi57zxil106mg7pj6sg6gzpjcgww")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'fix-multiple-definitions (lambda _ ;; Certain variables are defined multiple times. This ;; upsets the linker and causes a build failure. (substitute* "cc/ccom/pass1.h" (("FLT flt_zero;") "extern FLT flt_zero;")) (substitute* (list "cc/ccom/scan.l" "cc/cxxcom/scan.l") (("lineno, ") "")))) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (invoke "make" "-C" "cc/cpp" "test"))))))) (native-inputs (list bison flex)) (synopsis "Portable C compiler") (description "PCC is a portable C compiler. The project goal is to write a C99 compiler while still keeping it small, simple, fast and understandable.") (home-page "http://pcc.ludd.ltu.se") (supported-systems (delete "aarch64-linux" %supported-systems)) ;; PCC incorporates code under various BSD licenses; for new code bsd-2 is ;; preferred. See http://pcc.ludd.ltu.se/licenses/ for more details. (license (list license:bsd-2 license:bsd-3)))) (define-public qbe (package (name "qbe") (version "1.2") (source (origin (method git-fetch) (uri (git-reference (url "git://c9x.me/qbe") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1sxz5dn788n5c4v6mxa2kg3hf0a4qryg8wp0w3wx0qkzj6flj2sj")))) (build-system gnu-build-system) (arguments (list #:make-flags #~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output)) #:phases #~(modify-phases %standard-phases (add-after 'unpack 'allow-cross-compilation (lambda _ (substitute* "Makefile" (("`uname -m`") #$(or (%current-target-system) (%current-system)))))) (delete 'configure)))) (supported-systems (list "x86_64-linux" "aarch64-linux" "riscv64-linux")) (synopsis "Simple compiler backend") (description "QBE is a small compiler backend using an SSA-based intermediate language as input.") (home-page "https://c9x.me/compile/") (license license:expat))) (define-public python-pcpp (package (name "python-pcpp") (version "1.30") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ned14/pcpp") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1rihvlg11nzk70kfzz4i3gi5izcy46w05ismcx04p5j1hlim0brb")))) (build-system python-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'unbundle-ply (lambda _ (rmdir "pcpp/ply") (substitute* "setup.py" (("'pcpp/ply/ply'") ""))))))) (native-inputs (list python-pytest)) (propagated-inputs (list python-ply)) (home-page "https://github.com/ned14/pcpp") (synopsis "C99 preprocessor written in Python") (description "This package provides a C99 preprocessor written in pure Python.") (license license:bsd-3))) (define-public libbytesize (package (name "libbytesize") (version "2.6") (source (origin (method url-fetch) (uri (string-append "https://github.com/storaged-project/libbytesize/releases/" "download/" version "/libbytesize-" version ".tar.gz")) (sha256 (base32 "0h87ryi0mp8msq43h1cna453cqaw5knx1xaggfzm4fxvn8sjpapg")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) (native-inputs (list gettext-minimal pkg-config python)) (inputs (list mpfr pcre2)) (home-page "https://github.com/storaged-project/libbytesize") (synopsis "Tiny C library for working with arbitrary big sizes in bytes") (description "The goal of this project is to provide a tiny library that would facilitate the common operations with sizes in bytes. Many projects need to work with sizes in bytes (be it sizes of storage space, memory...) and all of them need to deal with the same issues like: @itemize @item How to get a human-readable string for the given size? @item How to store the given size so that no significant information is lost? @item If we store the size in bytes, what if the given size gets over the MAXUINT64 value? @item How to interpret sizes entered by users according to their locale and typing conventions? @item How to deal with the decimal/binary units (MB versus MiB) ambiguity? @end itemize @code{libbytesize} offers a generally usable solution that could be used by every project that needs to deal with sizes in bytes. It is written in the C language with thin bindings for other languages.") (license license:lgpl2.1+))) (define-public udunits (package (name "udunits") ;; Four-part version numbers are development snapshots, not releases. See ;; . (version "2.2.28") (source (origin (method url-fetch) (uri (string-append "ftp://ftp.unidata.ucar.edu/pub/udunits/" "udunits-" version ".tar.gz")) (sha256 (base32 "17jpbp6f0rr132jn2gqy8ry8mv1w27v6dyhfq1igv8v1674aw2sr")))) (build-system gnu-build-system) (arguments `(#:configure-flags (list "--disable-static"))) (inputs (list expat)) (home-page "https://www.unidata.ucar.edu/software/udunits/") (synopsis "C library for units of physical quantities and value-conversion utils") (description "The UDUNITS-2 package provides support for units of physical quantities. Its three main components are: @enumerate @item @code{udunits2lib}, a C library for units of physical quantities; @item @code{udunits2prog}, a utility for obtaining the definition of a unit and for converting numeric values between compatible units; and @item an extensive database of units. @end enumerate\n") ;; Like the BSD-3 license but with an extra anti patent clause. (license (license:non-copyleft "file://COPYRIGHT")))) (define-public libfixposix (package (name "libfixposix") (version "0.4.3") (home-page "https://github.com/sionescu/libfixposix") (source (origin (method git-fetch) (uri (git-reference (url home-page) (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "1x4q6yspi5g2s98vq4qszw4z3zjgk9l5zs8471w4d4cs6l97w08j")))) (build-system gnu-build-system) (native-inputs (list autoconf automake libtool pkg-config check)) (native-search-paths (list (search-path-specification (variable "C_INCLUDE_PATH") (files '("include"))))) (synopsis "Thin wrapper over POSIX syscalls") (description "The purpose of libfixposix is to offer replacements for parts of POSIX whose behaviour is inconsistent across *NIX flavours.") (license license:boost1.0))) (define-public libhx (package (name "libhx") (version "4.9") (source (origin (method url-fetch) (uri (string-append "https://inai.de/files/libhx/" "libHX-" version ".tar.xz")) (sha256 (base32 "16rwp8b2j8l0m27rffvb7ma350r79l611sa135hzfywkdli2bqh2")))) (build-system gnu-build-system) (home-page "https://inai.de/projects/libhx/") (synopsis "C library with common data structures and functions") (description "This is a C library (with some C++ bindings available) that provides data structures and functions commonly needed, such as maps, deques, linked lists, string formatting and autoresizing, option and config file parsing, type checking casts and more.") (license license:lgpl2.1+))) (define-public libwuya ;; This commit is the one before "wuy_pool.h" was removed from libwuya, ;; which libleak currently requires. (let ((revision "1") (commit "883502041044f4616cfbf75c8f2bb60059f704a9")) (package (name "libwuya") (version (git-version "0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/WuBingzheng/libwuya") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "1xrsqbgr13g2v0ag165ryp7xrwzv41xfygzk2a3445ca98c1qpdc")))) (build-system gnu-build-system) (arguments `(#:tests? #f ;no test suite #:phases (modify-phases %standard-phases (add-after 'unpack 'patch-lua-includes (lambda _ (substitute* '("wuy_cflua.h" "wuy_cflua.c") (("ck-machine target) (letrec-syntax ((matches (syntax-rules (=>) ((_ (target-prefix => machine) rest ...) (if (string-prefix? target-prefix target) machine (matches rest ...))) ((_) (error "unsupported target" target))))) ;; This basically reproduces the logic handling the ;; PLATFORM variable in the configure script of ck. (matches ("x86_64" => "x86_64") ("i586" => "x86") ("i686" => "x86") ("aarch64" => "aarch64") ("arm" => "arm") ("ppc64" => "ppc64") ("ppc" => "ppc") ("s390x" => "s390x") ("riscv64" => "riscv64") ("sparc64" => "sparcv9")))) (define-public ck (package (name "ck") (version "0.7.1") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/concurrencykit/ck") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "020yzfpvymdc8lc44znlnxmxb8mvp42g4nb4p8k814klazqvwh0x")))) (build-system gnu-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (replace 'configure ;; ck uses a custom configure script that stumbles on ;; '--enable-fast-install', among other things. (lambda* (#:key parallel-build? #:allow-other-keys) (define target-machine #$(and=> (%current-target-system) gnu-triplet->ck-machine)) (when target-machine ;; The configure script doesn't currently work for ;; cross-compiling (see: ;; https://github.com/concurrencykit/ck/issues/191). (error "ck cannot currently be cross-compiled")) ;; The custom configure script doesn't make cross-compilation ;; adjustments itself, so manually set the archiver, compiler ;; and linker. (setenv "AR" #$(ar-for-target)) (setenv "CC" #$(cc-for-target)) (setenv "LD" #$(ld-for-target)) (apply invoke "./configure" `(,@(if target-machine (list (string-append "--profile=" target-machine)) '()) ,(string-append "--prefix=" #$output) ,(string-append "--mandir=" #$output "/share/man") ,(string-append "--cores=" (if parallel-build? (number->string (parallel-job-count)) "1"))))))))) (home-page "https://github.com/concurrencykit/ck") (synopsis "C library for concurrent systems") (description "Concurrency Kit (@code{ck}) provides concurrency primitives, safe memory reclamation mechanisms and non-blocking (including lock-free) data structures designed to aid in the research, design and implementation of high performance concurrent systems developed in C99+.") (license (list license:bsd-2 ;everything except... license:asl2.0)))) ;src/ck_hp.c (define-public tinydir (package (name "tinydir") (version "1.2.6") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/cxong/tinydir") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "143n6yabznxk032gv5g2k8glf0kzicarg9cx0714zsbfmzj8lr07")) (patches (search-patches "tinydir-fix-cbehave-test.patch")) (modules '((guix build utils))) (snippet '(delete-file-recursively "tests/cbehave")))) (build-system cmake-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (add-after 'unpack 'path-cmake (lambda _ (substitute* "tests/CMakeLists.txt" (("^include_dir.*cbehave.*") (string-append "include_directories("#$cbehave "/include)")) (("^add_subdir.*cbeha.*") "")))) (add-before 'configure 'chdir (lambda _ (chdir "tests"))) (replace 'install (lambda _ (install-file "../tinydir.h" (string-append #$output "/include"))))))) (native-inputs (list cbehave)) (home-page "https://github.com/cxong/tinydir") (synopsis "List directories programmatically") (description "@code{tinydir} is a header-only C wrapper for listing directory contents.") (license license:bsd-2))) (define-public libdispatch (package (name "libdispatch") (version "5.9.2") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/apple/swift-corelibs-libdispatch") (commit (string-append "swift-" version "-RELEASE")))) (file-name (git-file-name name version)) (sha256 (base32 "02k90asz0yxrcmy67mmqqc68n8f16jf445l0n7jryb7nk30bgmm6")))) (build-system cmake-build-system) (arguments (list #:phases #~(modify-phases %standard-phases ;; Use Clang instead of GCC. (add-before 'configure 'prepare-build-environment (lambda _ (setenv "AR" "llvm-ar") (setenv "NM" "llvm-nm") (setenv "CC" "clang") (setenv "CXX" "clang++")))))) (native-inputs (list clang llvm)) (home-page "https://apple.github.io/swift-corelibs-libdispatch/") (synopsis "Concurrent code execution on multicore hardware") (description "Grand Central Dispatch (GCD or libdispatch) implements a concurrency model wherein program tasks are divided into work items. These can be run sequentially or in parallel, with optional synchronization in between, and GCD will take care of dispatching tasks to available cores.") (license license:asl2.0))) (define-public utf8-h ;; The latest tag is used as there is no release. (let ((commit "500d4ea9f4c3449e5243c088d8af8700f7189734") (revision "0")) (package (name "utf8-h") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sheredom/utf8.h") (commit commit))) (file-name (git-file-name "utf8.h" version)) (sha256 (base32 "0x9f7ivww8c7cigf4ck0hfx2bm79qgx6q4ccwzqbzkrmcrl9shfb")))) (build-system cmake-build-system) (arguments (list #:phases #~(modify-phases %standard-phases (delete 'build) (delete 'configure) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (with-directory-excursion "test" (invoke "cmake" ".") (invoke "make"))))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (install-file "utf8.h" (string-append #$output "/include/utf8"))))))) (home-page "https://github.com/sheredom/utf8.h") (synopsis "Single header UTF-8 string functions for C and C++") (description "A simple one header solution to supporting UTF-8 strings in C and C++. The functions it provides are like those from the C header string.h, but with a utf8* prefix instead of the str* prefix.") (license license:unlicense)))) (define-public utest-h ;; The latest commit is used as there is no release. (let ((commit "54458e248f875f1a51f0af8bec8ca6ae7761b9d1") (revision "0")) (package (name "utest-h") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/sheredom/utest.h") (commit commit))) (file-name (git-file-name "utest.h" version)) (sha256 (base32 "1ikl5jwmjdw1mblqyl2kvnqwkjgaz78c1h7mjcfmzjc0d3h8kh44")))) (build-system cmake-build-system) (arguments `(#:phases (modify-phases %standard-phases (delete 'build) (delete 'configure) (replace 'check (lambda* (#:key tests? #:allow-other-keys) (when tests? (with-directory-excursion "test" (invoke "cmake" ".") (invoke "make"))))) (replace 'install (lambda* (#:key outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out"))) (install-file "utest.h" (string-append out "/include")))))))) (home-page "https://www.duskborn.com/utest_h/") (synopsis "Single-header unit testing framework for C and C++") (description "This package provides a header-only unit testing library for C/C++.") (license license:unlicense)))) (define-public nsync (package (name "nsync") (version "1.26.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/google/nsync") (commit version))) (file-name (git-file-name name version)) (sha256 (base32 "0qg58kkcbm4zqkql8j5yvrb7fpx09qsf7j93dwqb9s1y69l70kx4")))) (build-system cmake-build-system) (home-page "https://github.com/google/nsync") (synopsis "C library for synchronization primitives") (description "nsync is a C library that exports various synchronization primitives: @enumerate @item locks, @item condition variables, @item run-once initialization, @item waitable counter (useful for barriers), @item waitable bit (useful for cancellation, or other conditions). @end enumerate ") (license license:asl2.0))) (define-public ispc (package (name "ispc") (version "1.19.0") (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/ispc/ispc") (commit (string-append "v" version)))) (file-name (git-file-name name version)) (sha256 (base32 "0yhcgyzjlrgs920lm0l6kygj2skanfb6qkxbdgm69r8c2xkzkaa3")))) (inputs (list ncurses)) (native-inputs (list bison clang flex m4 python)) (build-system cmake-build-system) (supported-systems '("x86_64-linux" "i686-linux" "aarch64-linux" "armhf-linux")) (arguments `(#:tests? #f #:configure-flags `(,,(string-append "-DCMAKE_C_COMPILER=" (cc-for-target)) ,,(string-append "-DCMAKE_CXX_COMPILER=" (cxx-for-target)) ,(string-append "-DCLANG_EXECUTABLE=" (assoc-ref %build-inputs "clang") "/bin/clang") ,(string-append "-DCLANGPP_EXECUTABLE=" (assoc-ref %build-inputs "clang") "/bin/clang++")) #:phases (modify-phases %standard-phases (add-before 'configure 'patch-curses-requirement (lambda _ (substitute* "CMakeLists.txt" (("\\bCURSES_CURSES_LIBRARY\\b") "CURSES_LIBRARY")))) ;; Note: This works around the following issue: ;; ;; Because GCC in Guix does not have multilib support. (add-before 'configure 'patch-target-archs (lambda _ (substitute* "cmake/GenerateBuiltins.cmake" (("\\bforeach \\(bit 32 64\\)") ,(if (target-64bit?) "foreach (bit 64)" "foreach (bit 32)")) (("\\bforeach \\(arch .*?\\)") ,(if (target-x86?) "foreach (arch \"x86\")" "foreach (arch \"arm\")")) (("\\bforeach \\(os_name \"windows\" .*?\\)") "foreach (os_name \"linux\")"))))))) (synopsis "Implicit SPMD Program Compiler") (description "ISPC is a compiler for a variant of the C programming language, with extensions for single program, multiple data programming. Under the SPMD model, the programmer writes a program that generally appears to be a regular serial program, though the execution model is actually that a number of program instances execute in parallel on the hardware.") (home-page "https://github.com/ispc/ispc") (license license:bsd-3))) (define-public pcg-c (let ((commit "83252d9c23df9c82ecb42210afed61a7b42402d7") (revision "1")) (package (name "pcg-c") (version (git-version "0.0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "https://github.com/imneme/pcg-c") (commit commit))) (file-name (git-file-name name version)) (sha256 (base32 "0768h0vw75a3smk39qsz1504v04a43s5w1ili1ijbixxv8gm42nf")) (modules '((guix build utils))) ;; Autogenerated files with some tests from test-high. If ;; 128-bit integers are not supported, the build fails, but ;; this is checked when building the tests. (snippet #~(delete-file-recursively "sample")))) (build-system gnu-build-system) (arguments (list #:test-target "test" #:make-flags #~(list "CC=gcc" (string-append "PREFIX=" #$output)) #:phases #~(modify-phases %standard-phases (delete 'configure) (add-after 'unpack 'disable-sample (lambda _ (substitute* "Makefile" ((".*cd sample.*") "")))) (add-after 'unpack 'set-shared-library (lambda _ (substitute* '("Makefile" "src/Makefile") (("\\.a") "\\.so") ((".*ar .*") "\t$(CC) $(CFLAGS) -o $@ $(LDFLAGS) -shared $^") ((".*ranlib.*") "") ((".*CFLAGS \\+=.*O3.*" orig) (string-append orig "CFLAGS += -fPIC\n"))))) (add-before 'install 'make-dirs (lambda _ (mkdir-p (string-append #$output "/lib")) (mkdir-p (string-append #$output "/include"))))))) (home-page "https://www.pcg-random.org") (synopsis "C implementation of the PCG random generators") (description "The Permuted Congruential Generator (PCG) extends the Linear Congruential Generator (LCG) with a permutation function to increase output randomness while retaining speed, simplicity, and conciseness.") (license (list license:expat license:asl2.0))))) ; dual licensed