;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016, 2018 Ludovic Courtès ;;; Copyright © 2016, 2017, 2018, 2019, 2021 Ricardo Wurmus ;;; Copyright © 2018, 2020, 2021 Tobias Geerinckx-Rice ;;; Copyright © 2018, 2019 Pierre Neidhardt ;;; Copyright © 2019, 2020 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 Maxim Cournoyer ;;; Copyright © 2020, 2021 Greg Hogan ;;; Copyright © 2021 David Dashyan ;;; Copyright © 2021 Foo Chuan Wei ;;; ;;; 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 c) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix gexp) #:use-module (guix utils) #:use-module (guix packages) #:use-module (guix download) #:use-module (guix git-download) #:use-module (guix build-system cmake) #:use-module (guix build-system gnu) #:use-module (guix build-system trivial) #:use-module (guix store) #:use-module (gnu packages) #:use-module (gnu packages bash) #:use-module (gnu packages bootstrap) #:use-module (gnu packages bison) #:use-module (gnu packages check) #:use-module (gnu packages flex) #:use-module (gnu packages gcc) #:use-module (gnu packages perl) #:use-module (gnu packages texinfo) #:use-module (gnu packages guile) #:use-module (gnu packages lua) #:use-module (gnu packages multiprecision) #:use-module (gnu packages pcre) #:use-module (gnu packages python) #:use-module (gnu packages python-xyz) #:use-module (gnu packages autotools) #:use-module (gnu packages gettext) #:use-module (gnu packages pkg-config) #:use-module (gnu packages tls) #:use-module (gnu packages web) #:use-module (gnu packages xml)) (define-public tcc (package (name "tcc") ;aka. "tinycc" (version "0.9.27") (source (origin (method url-fetch) (uri (string-append "mirror://savannah/tinycc/tcc-" version ".tar.bz2")) (sha256 (base32 "177bdhwzrnqgyrdv1dwvpd04fcxj68s5pm1dzwny6359ziway8yy")))) (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 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 `(#:phases (modify-phases %standard-phases (replace 'check (lambda _ (invoke "make" "-C" "cc/cpp" "test") #t))))) (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 libbytesize (package (name "libbytesize") (version "2.2") (source (origin (method url-fetch) (uri (string-append "https://github.com/storaged-project/libbytesize/releases/" "download/" version "/libbytesize-" version ".tar.gz")) (sha256 (base32 "1aivwypmnqcaj2230pifvf3jcgl5chja8rspkxf0j3480asm8g5r")))) (build-system gnu-build-system) (arguments `(#:tests? #f)) (native-inputs `(("gettext" ,gettext-minimal) ("pkg-config" ,pkg-config) ("python" ,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)) (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.2") (source (origin (method url-fetch) (uri (string-append "https://inai.de/files/libhx/" "libHX-" version ".tar.xz")) (sha256 (base32 "1ri3sxiw5a8br27j7f20s40kihfvq6mmxzcrx68zydiwyxjvf5jj")))) (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") ("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 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 `(#: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 "utf8.h" (string-append out "/include")))))))) (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 qbe (let ((commit "2caa26e388b1c904d2f12fb09f84df7e761d8331") (revision "1")) (package (name "qbe") (version (git-version "0.0" revision commit)) (source (origin (method git-fetch) (uri (git-reference (url "git://c9x.me/qbe") (commit commit))) (file-name (git-file-name name version)) (patches (search-patches "qbe-makefile-add-target.patch")) (sha256 (base32 "1gv03ym0gqrl4wkbhysa82025xwrkr1fg44z814b6vnggwlqgljc")))) (build-system gnu-build-system) (arguments `(#:tests? #f ; Tests require a running qemu #:make-flags ,#~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output) (string-append "TARGET=" #$(or (%current-target-system) (%current-system)))) #:phases (modify-phases %standard-phases (delete 'configure)))) (supported-systems (list "x86_64-linux" "aarch64-linux" "riscv64-linux")) (synopsis "Simple, straightforward backend compiler") (description "QBE is a compiler backend with the goal of reaching 70% of the performance of advanced compilers such as LLVM and GCC in only 10% of the code.") (home-page "https://c9x.me/compile/") (license license:expat)))) (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 `(#:make-flags ,#~(list (string-append "CC=" #$(cc-for-target)) (string-append "PREFIX=" #$output)) #:phases ,#~(modify-phases %standard-phases (replace 'configure (lambda* (#:key inputs outputs #:allow-other-keys) (let ((out (assoc-ref outputs "out")) (gcc-lib (assoc-ref inputs "gcc:lib")) (ld #$(ld-for-target)) (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=" out) (string-append "--host=" host-system) (string-append "--target=" target-system) (string-append "--with-ld=" ld) (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. It currently supports C11 along with some GCC and C2x extensions.") (home-page "https://sr.ht/~mcf/cproc") (license license:expat))))