aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/c.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/c.scm')
-rw-r--r--gnu/packages/c.scm127
1 files changed, 127 insertions, 0 deletions
diff --git a/gnu/packages/c.scm b/gnu/packages/c.scm
new file mode 100644
index 0000000000..e8d1236eb1
--- /dev/null
+++ b/gnu/packages/c.scm
@@ -0,0 +1,127 @@
+;;; GNU Guix --- Functional package management for GNU
+;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.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 c)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix packages)
+ #:use-module (guix download)
+ #:use-module (guix build-system gnu)
+ #:use-module (guix build-system trivial)
+ #:use-module (gnu packages bootstrap)
+ #:use-module (gnu packages perl)
+ #:use-module (gnu packages texinfo)
+ #:use-module (gnu packages guile))
+
+(define-public tcc
+ (package
+ (name "tcc") ;aka. "tinycc"
+ (version "0.9.26")
+ (source (origin
+ (method url-fetch)
+ (uri (string-append "mirror://savannah/tinycc/tcc-"
+ version ".tar.bz2"))
+ (sha256
+ (base32
+ "0wbdbdq6090ayw8bxnbikiv989kykff3m5rzbia05hrnwhd707jj"))))
+ (build-system gnu-build-system)
+ (native-inputs `(("perl" ,perl)
+ ("texinfo" ,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
+ "linux-headers")
+ "/include:{B}/include")
+ (string-append "--libpaths="
+ (assoc-ref %build-inputs "libc")
+ "/lib"))
+ #:test-target "test"))
+ (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/")
+ (license license:lgpl2.1+)))
+
+(define-public tcc-wrapper
+ (package
+ (inherit tcc)
+ (name "tcc-wrapper")
+ (build-system trivial-build-system)
+ (native-inputs '())
+ (inputs `(("tcc" ,tcc)
+ ("guile" ,guile-2.0)))
+
+ ;; By default TCC does not honor any search path environment variable.
+ ;; This wrapper adds them.
+ ;;
+ ;; FIXME: TCC includes its own linker so our 'ld-wrapper' hack to set the
+ ;; RUNPATH is ineffective here. We should modify TCC itself.
+ (native-search-paths
+ (list (search-path-specification
+ (variable "TCC_CPATH")
+ (files '("include")))
+ (search-path-specification
+ (variable "TCC_LIBRARY_PATH")
+ (files '("lib" "lib64")))))
+
+ (arguments
+ '(#:builder
+ (let* ((out (assoc-ref %outputs "out"))
+ (bin (string-append out "/bin"))
+ (tcc (assoc-ref %build-inputs "tcc"))
+ (guile (assoc-ref %build-inputs "guile")))
+ (mkdir out)
+ (mkdir bin)
+ (call-with-output-file (string-append bin "/cc")
+ (lambda (port)
+ (format port "#!~a/bin/guile --no-auto-compile~%!#~%" guile)
+ (write
+ `(begin
+ (use-modules (ice-9 match)
+ (srfi srfi-26))
+
+ (define (split path)
+ (string-tokenize path (char-set-complement
+ (char-set #\:))))
+
+ (apply execl ,(string-append tcc "/bin/tcc")
+ ,(string-append tcc "/bin/tcc") ;argv[0]
+ (append (cdr (command-line))
+ (match (getenv "TCC_CPATH")
+ (#f '())
+ (str
+ (map (cut string-append "-I" <>)
+ (split str))))
+ (match (getenv "TCC_LIBRARY_PATH")
+ (#f '())
+ (str
+ (map (cut string-append "-L" <>)
+ (split str)))))))
+ port)
+ (chmod port #o777)))
+ #t)))
+ (synopsis "Wrapper providing the 'cc' command for TCC")))