From 6cbee49d6668eb7fd738080666f66febfce8c7e8 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Fri, 16 Mar 2018 07:47:34 -0400 Subject: gnu: All snippets report errors using exceptions, else return #t. * gnu/packages/admin.scm, gnu/packages/algebra.scm, gnu/packages/audio.scm, gnu/packages/backup.scm, gnu/packages/base.scm, gnu/packages/bioinformatics.scm, gnu/packages/cdrom.scm, gnu/packages/chez.scm, gnu/packages/code.scm, gnu/packages/compression.scm, gnu/packages/cross-base.scm, gnu/packages/crypto.scm, gnu/packages/cups.scm, gnu/packages/databases.scm, gnu/packages/dns.scm, gnu/packages/emacs.scm, gnu/packages/emulators.scm, gnu/packages/engineering.scm, gnu/packages/enlightenment.scm, gnu/packages/fpga.scm, gnu/packages/freedesktop.scm, gnu/packages/ftp.scm, gnu/packages/games.scm, gnu/packages/gcc.scm, gnu/packages/geo.scm, gnu/packages/ghostscript.scm, gnu/packages/gl.scm, gnu/packages/glib.scm, gnu/packages/gnome.scm, gnu/packages/gnuzilla.scm, gnu/packages/graphics.scm, gnu/packages/gtk.scm, gnu/packages/guile.scm, gnu/packages/irc.scm, gnu/packages/java.scm, gnu/packages/kerberos.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lxde.scm, gnu/packages/machine-learning.scm, gnu/packages/mail.scm, gnu/packages/maths.scm, gnu/packages/messaging.scm, gnu/packages/monitoring.scm, gnu/packages/mp3.scm, gnu/packages/music.scm, gnu/packages/netpbm.scm, gnu/packages/networking.scm, gnu/packages/node.scm, gnu/packages/nvi.scm, gnu/packages/ocaml.scm, gnu/packages/pdf.scm, gnu/packages/perl.scm, gnu/packages/php.scm, gnu/packages/plotutils.scm, gnu/packages/pretty-print.scm, gnu/packages/profiling.scm, gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm, gnu/packages/python.scm, gnu/packages/qt.scm, gnu/packages/robotics.scm, gnu/packages/sawfish.scm, gnu/packages/scanner.scm, gnu/packages/scheme.scm, gnu/packages/scribus.scm, gnu/packages/sdl.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/slang.scm, gnu/packages/smalltalk.scm, gnu/packages/ssh.scm, gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/tbb.scm, gnu/packages/terminals.scm, gnu/packages/texinfo.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/tls.scm, gnu/packages/unrtf.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vpn.scm, gnu/packages/web.scm, gnu/packages/wm.scm, gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xorg.scm: In all snippets, report errors using exceptions, or else return #t. --- gnu/packages/code.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'gnu/packages/code.scm') diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index 979c7a72b8..d454056668 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -414,7 +414,8 @@ functionality such as HTML output.") (let ((files (find-files "." ".*\\.cpp|.*\\.h"))) (substitute* files (("#include ?\"rct/(.*.h)\"" all header) - (string-append "#include ")))))) + (string-append "#include "))) + #t))) (sha256 (base32 "0scjbp1z201q8njvrxqz7lk2m9b6k2rxd5q1shrng6532r7ndif2")))) -- cgit v1.2.3 From e3cfef22c4a18cacf33356a70788503fd689b96d Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Tue, 27 Mar 2018 20:14:05 -0400 Subject: gnu: Use invoke and return #t from all builders. * gnu/packages/admin.scm, gnu/packages/android.scm, gnu/packages/audio.scm, gnu/packages/avr.scm, gnu/packages/base.scm, gnu/packages/bioinformatics.scm, gnu/packages/certs.scm, gnu/packages/check.scm, gnu/packages/code.scm, gnu/packages/commencement.scm, gnu/packages/dictionaries.scm, gnu/packages/docbook.scm, gnu/packages/emacs.scm, gnu/packages/embedded.scm, gnu/packages/fonts.scm, gnu/packages/games.scm, gnu/packages/gnome.scm, gnu/packages/gnu-doc.scm, gnu/packages/guile.scm, gnu/packages/hurd.scm, gnu/packages/javascript.scm, gnu/packages/libreoffice.scm, gnu/packages/linux.scm, gnu/packages/lisp.scm, gnu/packages/lxde.scm, gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/mate.scm, gnu/packages/pkg-config.scm, gnu/packages/qt.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/sdl.scm, gnu/packages/statistics.scm, gnu/packages/syncthing.scm, gnu/packages/tex.scm, gnu/packages/web.scm, gnu/packages/wine.scm, gnu/packages/xfce.scm: In the builders of packages using 'trivial-build-system', use invoke where appropriate, raise exceptions on errors, and otherwise return #t. --- gnu/packages/admin.scm | 4 ++-- gnu/packages/android.scm | 3 ++- gnu/packages/audio.scm | 8 +++++--- gnu/packages/avr.scm | 2 +- gnu/packages/base.scm | 3 ++- gnu/packages/bioinformatics.scm | 5 +++-- gnu/packages/certs.scm | 3 ++- gnu/packages/check.scm | 14 +++++++------- gnu/packages/code.scm | 3 ++- gnu/packages/commencement.scm | 7 +++++-- gnu/packages/dictionaries.scm | 6 +++--- gnu/packages/docbook.scm | 14 ++++++++------ gnu/packages/emacs.scm | 13 ++++++++----- gnu/packages/embedded.scm | 7 ++++--- gnu/packages/fonts.scm | 17 ++++++++++------- gnu/packages/games.scm | 40 ++++++++++++++++++++++------------------ gnu/packages/gnome.scm | 2 +- gnu/packages/gnu-doc.scm | 12 ++++++------ gnu/packages/guile.scm | 15 ++++++++------- gnu/packages/hurd.scm | 3 ++- gnu/packages/javascript.scm | 26 ++++++++++++++------------ gnu/packages/libreoffice.scm | 4 ++-- gnu/packages/linux.scm | 6 ++++-- gnu/packages/lisp.scm | 6 ++++-- gnu/packages/lxde.scm | 2 +- gnu/packages/mail.scm | 2 +- gnu/packages/markup.scm | 5 +++-- gnu/packages/mate.scm | 3 ++- gnu/packages/pkg-config.scm | 3 ++- gnu/packages/qt.scm | 3 ++- gnu/packages/rust.scm | 3 ++- gnu/packages/scheme.scm | 3 ++- gnu/packages/sdl.scm | 3 ++- gnu/packages/statistics.scm | 2 +- gnu/packages/syncthing.scm | 18 ++++++++++++------ gnu/packages/tex.scm | 8 +++++--- gnu/packages/web.scm | 7 ++++--- gnu/packages/wine.scm | 3 ++- gnu/packages/xfce.scm | 3 ++- 39 files changed, 170 insertions(+), 121 deletions(-) (limited to 'gnu/packages/code.scm') diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm index f2c63bee6e..8749b24e77 100644 --- a/gnu/packages/admin.scm +++ b/gnu/packages/admin.scm @@ -483,8 +483,8 @@ allow automatic login and starting any app.") (output (assoc-ref %outputs "out")) (etc (string-append output "/etc"))) (setenv "PATH" (string-append xz "/bin")) - (system* (string-append tar "/bin/tar") "xvf" - source) + (invoke (string-append tar "/bin/tar") "xvf" + source) (chdir ,(string-append "netbase-" version)) (mkdir-p etc) (for-each copy-file diff --git a/gnu/packages/android.scm b/gnu/packages/android.scm index 637cda0205..96fc34eb6e 100644 --- a/gnu/packages/android.scm +++ b/gnu/packages/android.scm @@ -360,7 +360,8 @@ Images.") (use-modules (guix build utils)) (let ((source (assoc-ref %build-inputs "source"))) (install-file (string-append source "/51-android.rules") - (string-append %output "/lib/udev/rules.d")))))) + (string-append %output "/lib/udev/rules.d")) + #t)))) (home-page "https://github.com/M0Rf30/android-udev-rules") (synopsis "udev rules for Android devices") (description "Provides a set of udev rules to allow using Android devices diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index 86978bb0df..b01b2a07ef 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -1201,14 +1201,15 @@ PS, and DAB+.") (setenv "PATH" (string-append (assoc-ref %build-inputs "bzip2") "/bin:" (assoc-ref %build-inputs "tar") "/bin")) - (system* "tar" "xvf" (assoc-ref %build-inputs "source")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) (chdir "freepats") ;; Use absolute pattern references (substitute* "freepats.cfg" (("Tone_000") (string-append out "/Tone_000")) (("Drum_000") (string-append out "/Drum_000"))) (mkdir-p out) - (copy-recursively "." out))))) + (copy-recursively "." out) + #t)))) (native-inputs `(("tar" ,tar) ("bzip2" ,bzip2))) @@ -3369,7 +3370,8 @@ using ALSA, MPD, PulseAudio, or a FIFO buffer as its input.") (let ((file (assoc-ref %build-inputs "source")) (out (string-append %output "/share/soundfonts"))) (mkdir-p out) - (copy-file file (string-append out "/FluidR3Mono_GM.sf3")))))) + (copy-file file (string-append out "/FluidR3Mono_GM.sf3")) + #t)))) (home-page "https://github.com/musescore/MuseScore/tree/master/share/sound") (synopsis "Pro-quality GM soundfont") (description "Fluid-3 is Frank Wen's pro-quality GM soundfont.") diff --git a/gnu/packages/avr.scm b/gnu/packages/avr.scm index 4c7ebf5a8f..a84b43da6a 100644 --- a/gnu/packages/avr.scm +++ b/gnu/packages/avr.scm @@ -117,7 +117,7 @@ for use with GCC on Atmel AVR microcontrollers.") (version (package-version avr-gcc)) (source #f) (build-system trivial-build-system) - (arguments '(#:builder (mkdir %output))) + (arguments '(#:builder (begin (mkdir %output) #t))) (propagated-inputs `(("avrdude" ,avrdude) ("binutils" ,avr-binutils) diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm index 00d9fe55a3..e09af515dc 100644 --- a/gnu/packages/base.scm +++ b/gnu/packages/base.scm @@ -530,7 +530,8 @@ wrapper for the cross-linker for that target, called 'TARGET-ld'." target "-ld") "/bin/ld")))) (chmod ld #o555) - (compile-file ld #:output-file go)))))) + (compile-file ld #:output-file go) + #t))))) (synopsis "The linker wrapper") (description "The linker wrapper (or 'ld-wrapper') wraps the linker to add any diff --git a/gnu/packages/bioinformatics.scm b/gnu/packages/bioinformatics.scm index 66504e9efd..32f9b72d99 100644 --- a/gnu/packages/bioinformatics.scm +++ b/gnu/packages/bioinformatics.scm @@ -5555,10 +5555,11 @@ writing files into the .sra format.") (out (assoc-ref %outputs "out")) (doc (assoc-ref %outputs "doc"))) (setenv "PATH" (string-append tar "/bin:" bzip "/bin")) - (system* "tar" "xvf" (assoc-ref %build-inputs "source")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) (chdir (string-append "seqan-library-" ,version)) (copy-recursively "include" (string-append out "/include")) - (copy-recursively "share" (string-append doc "/share")))))) + (copy-recursively "share" (string-append doc "/share")) + #t)))) (native-inputs `(("source" ,source) ("tar" ,tar) diff --git a/gnu/packages/certs.scm b/gnu/packages/certs.scm index bb8facbc89..bfc5ff169f 100644 --- a/gnu/packages/certs.scm +++ b/gnu/packages/certs.scm @@ -63,7 +63,8 @@ (("crt") "pem")) (mkdir-p bin) (copy-file "certdata2pem.py" - (string-append bin "/certdata2pem.py")))))) + (string-append bin "/certdata2pem.py")) + #t)))) (synopsis "Python script to extract .pem data from certificate collection") (description "certdata2pem.py is a Python script to transform X.509 certificate diff --git a/gnu/packages/check.scm b/gnu/packages/check.scm index 1fe13127d2..9d3d036725 100644 --- a/gnu/packages/check.scm +++ b/gnu/packages/check.scm @@ -187,13 +187,13 @@ supervised tests.") (incdir (string-append output "/include")) (docdir (string-append output "/share/doc/catch-" ,version))) - (begin - (for-each mkdir-p (list incdir docdir)) - (install-file (string-append source - "/single_include/catch.hpp") - incdir) - (copy-recursively (string-append source "/docs") - docdir)))))) + (for-each mkdir-p (list incdir docdir)) + (install-file (string-append source + "/single_include/catch.hpp") + incdir) + (copy-recursively (string-append source "/docs") + docdir) + #t)))) (home-page "http://catch-lib.net/") (synopsis "Automated test framework for C++ and Objective-C") (description diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index fa5a119819..d636945176 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -493,7 +493,8 @@ importantly we give you proper follow-symbol and find-references support.") (install-files '("AUTHORS" "BUGS" "ChangeLog" "README") doc) (install-files '("colormake" "colormake-short" "clmake" "clmake-short" "colormake.pl") - bin))))) + bin) + #t)))) (home-page "http://bre.klaki.net/programs/colormake/") (synopsis "Wrapper around @command{make} to produce colored output") (description "This package provides a wrapper around @command{make} to diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm index bd199da163..bcb7cf3093 100644 --- a/gnu/packages/commencement.scm +++ b/gnu/packages/commencement.scm @@ -586,7 +586,9 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"$@\"~%" triplet "-" tool) tool)) '("ar" "ranlib")) - (for-each wrap-program '("gcc" "g++"))))))) + (for-each wrap-program '("gcc" "g++"))) + + #t)))) (native-inputs `(("binutils" ,binutils) ("gcc" ,gcc) @@ -1014,7 +1016,8 @@ COREUTILS-FINAL vs. COREUTILS, etc." (union-build (assoc-ref %outputs "debug") (list (assoc-ref %build-inputs - "libc-debug"))))))) + "libc-debug"))) + #t)))) (native-search-paths (package-native-search-paths gcc)) (search-paths (package-search-paths gcc)) diff --git a/gnu/packages/dictionaries.scm b/gnu/packages/dictionaries.scm index 900d535ed4..8bf5c61ece 100644 --- a/gnu/packages/dictionaries.scm +++ b/gnu/packages/dictionaries.scm @@ -110,9 +110,9 @@ acronyms distributed as an info document.") (set-path-environment-variable "PATH" '("bin") (list tar xz)) (mkdir-p datadir) - (zero? (system* "tar" "-C" datadir - "--strip-components=1" - "-xvf" src)))) + (invoke "tar" "-C" datadir + "--strip-components=1" + "-xvf" src))) #:modules ((guix build utils)))) (native-inputs `(("tar" ,tar) diff --git a/gnu/packages/docbook.scm b/gnu/packages/docbook.scm index 3034bc5493..1c00e56d6d 100644 --- a/gnu/packages/docbook.scm +++ b/gnu/packages/docbook.scm @@ -58,11 +58,12 @@ (dtd (string-append out "/xml/dtd/docbook"))) (mkdir-p dtd) (with-directory-excursion dtd - (system* unzip source)) + (invoke unzip source)) (substitute* (string-append out "/xml/dtd/docbook/catalog.xml") (("uri=\"") (string-append - "uri=\"file://" dtd "/"))))) + "uri=\"file://" dtd "/"))) + #t)) #:modules ((guix build utils)))) (native-inputs `(("unzip" ,unzip))) (home-page "http://docbook.org") @@ -127,7 +128,7 @@ by no means limited to these applications.) This package provides XML DTDs.") (dtd (string-append (assoc-ref %outputs "out") "/xml/dtd/docbook"))) (mkdir-p dtd) - (zero? (system* unzip source "-d" dtd)))))))) + (invoke unzip source "-d" dtd))))))) (define-public docbook-xsl (package @@ -154,7 +155,7 @@ by no means limited to these applications.) This package provides XML DTDs.") (out (assoc-ref %outputs "out")) (xsl (string-append out "/xml/xsl"))) (setenv "PATH" (string-append bzip2 "/bin" ":" xz "/bin")) - (system* (string-append tar "/bin/tar") "xvf" source) + (invoke (string-append tar "/bin/tar") "xvf" source) (mkdir-p xsl) (copy-recursively name-version @@ -163,8 +164,9 @@ by no means limited to these applications.) This package provides XML DTDs.") (substitute* (string-append xsl "/" name-version "/catalog.xml") (("rewritePrefix=\"./") (string-append "rewritePrefix=\"file://" xsl "/" - name-version "/"))))) - #:modules ((guix build utils)))) + name-version "/"))) + #t)) + #:modules ((guix build utils)))) (native-inputs `(("bzip2" ,bzip2) ("xz" ,xz) ("tar" ,tar))) diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm index d23729aafc..f7bf2dbdda 100644 --- a/gnu/packages/emacs.scm +++ b/gnu/packages/emacs.scm @@ -530,7 +530,7 @@ operations.") (source (assoc-ref %build-inputs "source")) (lisp-dir (string-append %output "/share/emacs/site-lisp"))) (setenv "PATH" PATH) - (system* tar "xvf" source) + (invoke tar "xvf" source) (install-file (string-append ,name "-" ,version "/magit-svn.el") lisp-dir) @@ -540,7 +540,9 @@ operations.") (emacs-generate-autoloads ,name lisp-dir) (setenv "EMACSLOADPATH" (string-append ":" magit ":" dash)) - (emacs-batch-eval '(byte-compile-file "magit-svn.el")))))))) + (emacs-batch-eval '(byte-compile-file "magit-svn.el")))) + + #t)))) (home-page "https://github.com/magit/magit-svn") (synopsis "Git-SVN extension to Magit") (description @@ -5038,7 +5040,8 @@ abbreviation and automatically expand it into function templates.") dir))) (scandir "." (lambda (fname) (and (string-match "-mode$" fname) - (directory-exists? fname))))))))) + (directory-exists? fname)))))) + #t))) (home-page "https://github.com/AndreaCrotti/yasnippet-snippets") (synopsis "Collection of YASnippet snippets for many languages") (description @@ -6980,7 +6983,7 @@ for external literate programming tools for exporting, weaving and tangling.") (setenv "PATH" (string-append (assoc-ref %build-inputs "tar") "/bin" ":" (assoc-ref %build-inputs "gzip") "/bin")) - (system* "tar" "xvf" (assoc-ref %build-inputs "source")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) (chdir (string-append "eless" "-" ,version)) (substitute* "eless" (("/usr/bin/env bash") (string-append (assoc-ref %build-inputs "bash") @@ -7303,7 +7306,7 @@ Features: (setenv "PATH" (string-append (assoc-ref %build-inputs "tar") "/bin" ":" (assoc-ref %build-inputs "gzip") "/bin")) - (system* "tar" "xvf" (assoc-ref %build-inputs "source")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) (chdir (string-append ,name "-" ,version)) ;; Patch shebangs (substitute* "epipe" diff --git a/gnu/packages/embedded.scm b/gnu/packages/embedded.scm index db9d518b17..82edd2a98c 100644 --- a/gnu/packages/embedded.scm +++ b/gnu/packages/embedded.scm @@ -251,7 +251,8 @@ library variant NEWLIB." (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (propagated-inputs `(("binutils" ,(cross-binutils "arm-none-eabi")) ("libstdc++" ,(make-libstdc++-arm-none-eabi xgcc newlib-with-xgcc)) @@ -610,7 +611,7 @@ micro-controller.") (version (package-version propeller-gcc)) (source #f) (build-system trivial-build-system) - (arguments '(#:builder (mkdir %output))) + (arguments '(#:builder (begin (mkdir %output) #t))) (propagated-inputs `(("binutils" ,propeller-binutils) ("libc" ,proplib) @@ -785,7 +786,7 @@ two-thirds of the opcodes in the P2 instruction set.") (version (package-version propeller-gcc)) (source #f) (build-system trivial-build-system) - (arguments '(#:builder (mkdir %output))) + (arguments '(#:builder (begin (mkdir %output) #t))) (propagated-inputs `(("toolchain" ,propeller-toolchain) ("openspin" ,openspin) diff --git a/gnu/packages/fonts.scm b/gnu/packages/fonts.scm index 39d86909b2..e0fcfe6e59 100644 --- a/gnu/packages/fonts.scm +++ b/gnu/packages/fonts.scm @@ -216,12 +216,13 @@ sans-serif designed for on-screen reading. It is used by GNOME@tie{}3.") (font-dir (string-append %output "/share/fonts/truetype"))) (setenv "PATH" PATH) - (system* "unzip" (assoc-ref %build-inputs "source")) + (invoke "unzip" (assoc-ref %build-inputs "source")) (mkdir-p font-dir) (for-each (lambda (ttf) (install-file ttf font-dir)) - (find-files "." "\\.ttf$")))))) + (find-files "." "\\.ttf$")) + #t)))) (native-inputs `(("unzip" ,unzip))) (home-page "http://www.latofonts.com/lato-free-fonts/") @@ -440,14 +441,15 @@ for long periods of working with computers (8 or more hours per day).") (string-append (assoc-ref %outputs out) "/share/fonts/opentype"))))) (setenv "PATH" PATH) - (system* tar "xvf" (assoc-ref %build-inputs "source")) + (invoke tar "xvf" (assoc-ref %build-inputs "source")) (chdir (string-append "source-han-sans-" ,version "R")) (install-opentype-fonts "OTC" "out") (install-opentype-fonts "SubsetOTF/CN" "cn") (install-opentype-fonts "SubsetOTF/JP" "jp") (install-opentype-fonts "SubsetOTF/KR" "kr") (install-opentype-fonts "SubsetOTF/TW" "tw") - (for-each delete-file (find-files %output "\\.zip$")))))) + (for-each delete-file (find-files %output "\\.zip$")) + #t)))) (native-inputs `(("gzip" ,gzip) ("tar" ,tar))) @@ -982,7 +984,7 @@ vector graphics.") (src-pcf-dir (string-append "tamzen-font-Tamzen-" ,version "/pcf"))) (setenv "PATH" PATH) - (system* tar "xvf" (assoc-ref %build-inputs "source")) + (invoke tar "xvf" (assoc-ref %build-inputs "source")) (mkdir-p font-dir) (mkdir-p psf-dir) (chdir src-pcf-dir) @@ -1201,7 +1203,7 @@ itself.")))) (otf-dir (string-append %output "/share/fonts/opentype"))) (setenv "PATH" PATH) - (system* "unzip" (assoc-ref %build-inputs "source")) + (invoke "unzip" (assoc-ref %build-inputs "source")) (mkdir-p ttf-dir) (mkdir-p otf-dir) @@ -1210,7 +1212,8 @@ itself.")))) (find-files "." "\\.ttf$")) (for-each (lambda (otf) (install-file otf otf-dir)) - (find-files "." "\\.otf$")))))) + (find-files "." "\\.otf$")) + #t)))) (native-inputs `(("unzip" ,unzip))) (home-page "http://www.impallari.com/dosis") (synopsis "Very simple, rounded, sans serif family") diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm index a04814d461..485f356495 100644 --- a/gnu/packages/games.scm +++ b/gnu/packages/games.scm @@ -1181,7 +1181,8 @@ exec ~a/bin/freedink -refdir ~a/share/dink\n" (assoc-ref %build-inputs "bash") (assoc-ref %build-inputs "engine") (assoc-ref %build-inputs "data")) - (chmod port #o777))))) + (chmod port #o777))) + #t)) #:modules ((guix build utils)))) (inputs `(("engine" ,freedink-engine) ("data" ,freedink-data) @@ -1440,10 +1441,11 @@ match, cannon keep, and grave-itation pit.") "gzip") "/bin"))) (setenv "PATH" path) - (system* tar "xvf" (assoc-ref %build-inputs "source")) + (invoke tar "xvf" (assoc-ref %build-inputs "source")) (chdir (string-append "minetest_game-" ,version)) (mkdir-p install-dir) - (copy-recursively "." install-dir))))) + (copy-recursively "." install-dir) + #t)))) (synopsis "Main game data for the Minetest game engine") (description "Game data for the Minetest infinite-world block sandox game.") @@ -2612,18 +2614,19 @@ Red Eclipse provides fast paced and accessible gameplay.") (bin (string-append out "/bin")) (doc (string-append out "/share/doc/grue-hunter"))) - (begin - (copy-file tarball "grue-hunter.tar.gz") - (zero? (system* gzip "-d" "grue-hunter.tar.gz")) - (zero? (system* tar "xvf" "grue-hunter.tar")) - - (mkdir-p bin) - (copy-file "grue-hunter/gh.pl" - (string-append bin "/grue-hunter")) - (patch-shebang (string-append bin "/grue-hunter") - (list perl)) - - (install-file "grue-hunter/AGPLv3.txt" doc)))))) + (copy-file tarball "grue-hunter.tar.gz") + (invoke gzip "-d" "grue-hunter.tar.gz") + (invoke tar "xvf" "grue-hunter.tar") + + (mkdir-p bin) + (copy-file "grue-hunter/gh.pl" + (string-append bin "/grue-hunter")) + (patch-shebang (string-append bin "/grue-hunter") + (list perl)) + + (install-file "grue-hunter/AGPLv3.txt" doc) + + #t)))) (inputs `(("perl" ,perl) ("tar" ,tar) ("gzip" ,gzip) @@ -2930,11 +2933,12 @@ your child be creative.") (string-append (assoc-ref %build-inputs "tar") "/bin" ":" (assoc-ref %build-inputs "gzip") "/bin")) - (system* "tar" "xvf" (assoc-ref %build-inputs "source")) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source")) (chdir (string-append ,name "-" ,version)) (let ((dir (string-append %output "/share/tuxpaint/stamps"))) (mkdir-p dir) - (copy-recursively "stamps" dir))))) + (copy-recursively "stamps" dir)) + #t))) (home-page (package-home-page tuxpaint)) (synopsis "Stamp images for Tux Paint") (description @@ -4087,7 +4091,7 @@ fight against their plot and save his fellow rabbits from slavery.") (xz-path (string-append (assoc-ref %build-inputs "xz") "/bin"))) (setenv "PATH" xz-path) (mkdir out) - (zero? (system* tar "xvf" source "-C" out "--strip=3")))))) + (invoke tar "xvf" source "-C" out "--strip=3"))))) (synopsis "Data files for 0ad") (description "0ad-data provides the data files required by the game 0ad.") (home-page "https://play0ad.com") diff --git a/gnu/packages/gnome.scm b/gnu/packages/gnome.scm index 5feb112e1a..b16e1f91b3 100644 --- a/gnu/packages/gnome.scm +++ b/gnu/packages/gnome.scm @@ -5965,7 +5965,7 @@ associations for GNOME.") (version (package-version gnome-shell)) (source #f) (build-system trivial-build-system) - (arguments '(#:builder (mkdir %output))) + (arguments '(#:builder (begin (mkdir %output) #t))) (propagated-inputs ;; TODO: Add more packages according to: ;; . diff --git a/gnu/packages/gnu-doc.scm b/gnu/packages/gnu-doc.scm index a1890a6cc6..b64d8ac454 100644 --- a/gnu/packages/gnu-doc.scm +++ b/gnu/packages/gnu-doc.scm @@ -85,12 +85,12 @@ list.") (setenv "PATH" (string-append gzip "/bin" ":" texinfo "/bin")) (mkdir-p info-dir) - (system* "makeinfo" "--output" info-dir - (string-append source "/maintain.texi")) - (system* "makeinfo" "--output" info-dir - (string-append source "/standards.texi")) - (system* "gzip" (string-append info-dir "/maintain.info")) - (system* "gzip" (string-append info-dir "/standards.info")))))) + (invoke "makeinfo" "--output" info-dir + (string-append source "/maintain.texi")) + (invoke "makeinfo" "--output" info-dir + (string-append source "/standards.texi")) + (invoke "gzip" (string-append info-dir "/maintain.info")) + (invoke "gzip" (string-append info-dir "/standards.info")))))) (home-page "https://www.gnu.org/prep/standards/") (synopsis "GNU coding standards and maintainer information") (description "The GNU Coding Standards were written by Richard Stallman diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm index ea7099d445..6244274d72 100644 --- a/gnu/packages/guile.scm +++ b/gnu/packages/guile.scm @@ -911,16 +911,15 @@ specification. These are the main features: ;; Install source module. (copy-file file dest-file) ;; Install compiled module. - (unless (zero? (system* guild "compile" - "-L" source - "-o" go-file - file)) - (error (format #f "Failed to compile ~s to ~s!" - file go-file))))) + (invoke guild "compile" + "-L" source + "-o" go-file + file))) scm-files) ;; Also copy over the README. (install-file "README.org" doc) + #t)))) (inputs `(("guile" ,guile-2.0))) @@ -1181,7 +1180,9 @@ inspired by the SCSH regular expression system.") (invoke patch-command "--force" "--input" patch-file))) ;; compile to the destination - (compile-file gdbm.scm-dest gdbm.go-dest))))) + (compile-file gdbm.scm-dest gdbm.go-dest) + + #t)))) (home-page "https://github.com/ijp/guile-gdbm") (synopsis "Guile bindings to the GDBM library via Guile's FFI") (description diff --git a/gnu/packages/hurd.scm b/gnu/packages/hurd.scm index 3ab3446d96..d6c1fb5e64 100644 --- a/gnu/packages/hurd.scm +++ b/gnu/packages/hurd.scm @@ -200,7 +200,8 @@ Library for GNU/Hurd.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs `(("gnumach-headers" ,gnumach-headers) ("hurd-headers" ,hurd-headers) ("hurd-minimal" ,hurd-minimal))) diff --git a/gnu/packages/javascript.scm b/gnu/packages/javascript.scm index b52edb2254..6288c443ad 100644 --- a/gnu/packages/javascript.scm +++ b/gnu/packages/javascript.scm @@ -60,10 +60,10 @@ %build-inputs)) (let ((install-directory (string-append %output "/share/fonts/mathjax"))) (mkdir-p install-directory) - (zero? (system* "tar" "-C" install-directory "-xvf" - (assoc-ref %build-inputs "source") - ,(string-append "MathJax-" version "/fonts") - "--strip" "2")))))) + (invoke "tar" "-C" install-directory "-xvf" + (assoc-ref %build-inputs "source") + ,(string-append "MathJax-" version "/fonts") + "--strip" "2"))))) (native-inputs `(("gzip" ,gzip) ("tar" ,tar))) @@ -94,10 +94,10 @@ (list (assoc-ref %build-inputs "glibc-utf8-locales"))) (setenv "LANG" "en_US.UTF-8") (let ((install-directory (string-append %output "/share/javascript/mathjax"))) - (system* "tar" "xvf" (assoc-ref %build-inputs "source") - ,(string-append "MathJax-" (package-version font-mathjax) - "/unpacked") - "--strip" "2") + (invoke "tar" "xvf" (assoc-ref %build-inputs "source") + ,(string-append "MathJax-" (package-version font-mathjax) + "/unpacked") + "--strip" "2") (mkdir-p install-directory) (symlink (string-append (assoc-ref %build-inputs "font-mathjax") "/share/fonts/mathjax") @@ -118,7 +118,9 @@ (dump-port minified port))))) (else (install-file file (dirname installed)))))) - (find-files ".")))))) + (find-files ".")) + + #t)))) (native-inputs `(("font-mathjax" ,font-mathjax) ("glibc-utf8-locales" ,glibc-utf8-locales) @@ -159,9 +161,9 @@ be able to view it naturally and easily."))) %build-inputs)) (let ((install-directory (string-append %output "/share/javascript/respond/"))) - (system* "tar" "xvf" - (assoc-ref %build-inputs "source") - "--strip" "1") + (invoke "tar" "xvf" + (assoc-ref %build-inputs "source") + "--strip" "1") (mkdir-p install-directory) (let* ((file "src/respond.js") (installed (string-append install-directory "respond.min.js"))) diff --git a/gnu/packages/libreoffice.scm b/gnu/packages/libreoffice.scm index 7a1a1433fd..922c82bcde 100644 --- a/gnu/packages/libreoffice.scm +++ b/gnu/packages/libreoffice.scm @@ -746,8 +746,8 @@ word compounding or character encoding.") (doc (string-append out "/share/doc/" ,name)) (unzip (assoc-ref %build-inputs "unzip"))) - (system* (string-append unzip "/bin/unzip") - (assoc-ref %build-inputs "source")) + (invoke (string-append unzip "/bin/unzip") + (assoc-ref %build-inputs "source")) (for-each (cut install-file <> hunspell) (find-files "." ,(string-append variant diff --git a/gnu/packages/linux.scm b/gnu/packages/linux.scm index ad014c70bf..3b864dbb60 100644 --- a/gnu/packages/linux.scm +++ b/gnu/packages/linux.scm @@ -844,7 +844,8 @@ slabtop, and skill.") (with-directory-excursion bin (copy-file e2fsck "e2fsck") (remove-store-references "e2fsck") - (chmod "e2fsck" #o555)))))) + (chmod "e2fsck" #o555)) + #t)))) (home-page (package-home-page e2fsprogs)) (synopsis "Statically-linked e2fsck command from e2fsprogs") (description "This package provides statically-linked e2fsck command taken @@ -3235,7 +3236,8 @@ repair and easy administration.") (mkdir-p (dirname target)) (copy-file source target) (remove-store-references target) - (chmod target #o555))))) + (chmod target #o555) + #t)))) (home-page (package-home-page btrfs-progs)) (synopsis "Statically-linked btrfs command from btrfs-progs") (description "This package provides the statically-linked @command{btrfs} diff --git a/gnu/packages/lisp.scm b/gnu/packages/lisp.scm index 3ca1402338..1ceb78c83e 100644 --- a/gnu/packages/lisp.scm +++ b/gnu/packages/lisp.scm @@ -1231,7 +1231,8 @@ multiple inspectors with independent history.") (assoc-ref %outputs "image") "/bin/slynk") %outputs - #:dependencies ',slynk-systems))))))) + #:dependencies ',slynk-systems)) + #t))))) (define-public ecl-slynk (package @@ -1253,7 +1254,8 @@ multiple inspectors with independent history.") (match %build-inputs (((names . paths) ...) (union-build (assoc-ref %outputs "out") - paths)))))))) + paths) + #t))))))) (define-public sbcl-stumpwm+slynk (package diff --git a/gnu/packages/lxde.scm b/gnu/packages/lxde.scm index ecb63caf7f..8166fb8d71 100644 --- a/gnu/packages/lxde.scm +++ b/gnu/packages/lxde.scm @@ -449,7 +449,7 @@ in LXDE.") (version (package-version lxde-common)) (source #f) (build-system trivial-build-system) - (arguments '(#:builder (mkdir %output))) + (arguments '(#:builder (begin (mkdir %output) #t))) (propagated-inputs ;; TODO: ;; lxshortcut, lxsession-edit diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm index 9a72a00a58..7769ebf05a 100644 --- a/gnu/packages/mail.scm +++ b/gnu/packages/mail.scm @@ -1808,7 +1808,7 @@ in Perl.") (mkdir-p bin) (with-directory-excursion bin (copy-file source "mb2md.gz") - (system* (string-append gzip "/bin/gzip") "-d" "mb2md.gz") + (invoke (string-append gzip "/bin/gzip") "-d" "mb2md.gz") (substitute* "mb2md" (("#!/usr/bin/perl") (string-append "#!/usr/bin/perl -I " perl5lib))) diff --git a/gnu/packages/markup.scm b/gnu/packages/markup.scm index fc8e2ceaa7..bce411d0bd 100644 --- a/gnu/packages/markup.scm +++ b/gnu/packages/markup.scm @@ -86,14 +86,15 @@ processing library written in C.") "/bin/unzip"))) (mkdir-p out) (with-directory-excursion out - (system* unzip source) + (invoke unzip source) (mkdir "bin") (mkdir-p "share/doc") (rename-file "Markdown_1.0.1/Markdown.pl" "bin/markdown") (rename-file "Markdown_1.0.1/Markdown Readme.text" "share/doc/README") (patch-shebang "bin/markdown" (list perlbd)) - (delete-file-recursively "Markdown_1.0.1")))))) + (delete-file-recursively "Markdown_1.0.1")) + #t)))) (native-inputs `(("unzip" ,unzip))) (inputs `(("perl" ,perl))) (home-page "http://daringfireball.net/projects/markdown") diff --git a/gnu/packages/mate.scm b/gnu/packages/mate.scm index 2272e5cbdc..c8db27899b 100644 --- a/gnu/packages/mate.scm +++ b/gnu/packages/mate.scm @@ -1523,7 +1523,8 @@ used to bring up authentication dialogs.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs ;; TODO: Add more packages `(("at-spi2-core" ,at-spi2-core) diff --git a/gnu/packages/pkg-config.scm b/gnu/packages/pkg-config.scm index 12f17f1e3c..6fc19a975d 100644 --- a/gnu/packages/pkg-config.scm +++ b/gnu/packages/pkg-config.scm @@ -96,7 +96,8 @@ instance."))) ;; expect it. (mkdir-p (string-append out "/share")) (symlink (string-append in "/share/aclocal") - (string-append out "/share/aclocal")))))) + (string-append out "/share/aclocal")) + #t)))) (native-inputs `(("pkg-config" ,%pkg-config))) ;; Ignore native inputs, and set `PKG_CONFIG_PATH' for target inputs. diff --git a/gnu/packages/qt.scm b/gnu/packages/qt.scm index 8593f220a2..04e6a38e24 100644 --- a/gnu/packages/qt.scm +++ b/gnu/packages/qt.scm @@ -1805,7 +1805,8 @@ This package provides the Python bindings."))) (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs `(("python-pyqt" ,python-pyqt) ("python-qscintilla" ,python-qscintilla))) diff --git a/gnu/packages/rust.scm b/gnu/packages/rust.scm index 7d0eb70875..69d329bf9a 100644 --- a/gnu/packages/rust.scm +++ b/gnu/packages/rust.scm @@ -206,7 +206,8 @@ manager, which is required to build itself.") ;; binaries expect a compiler called cc. Thus symlink gcc ;; to cc. (symlink (string-append gcc "/bin/gcc") - (string-append out "/bin/cc")))))) + (string-append out "/bin/cc")) + #t)))) (home-page "https://www.rust-lang.org") (synopsis "Rust bootstrapping meta package") (description "Meta package for a rust environment. Provides pre-compiled diff --git a/gnu/packages/scheme.scm b/gnu/packages/scheme.scm index a426310594..65a2d5645a 100644 --- a/gnu/packages/scheme.scm +++ b/gnu/packages/scheme.scm @@ -846,7 +846,8 @@ metalinguistic abstraction, recursion, interpreters, and modular programming.") "/rx"))) (chdir (assoc-ref %build-inputs "source")) (mkdir-p share) - (copy-recursively "." share))))) + (copy-recursively "." share) + #t)))) (native-inputs `(("source" ,source) ("scheme48" ,scheme48))) diff --git a/gnu/packages/sdl.scm b/gnu/packages/sdl.scm index f98ea8c048..72abfbf699 100644 --- a/gnu/packages/sdl.scm +++ b/gnu/packages/sdl.scm @@ -324,7 +324,8 @@ If PACKAGES are not specified, all SDL packages are used." (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) diff --git a/gnu/packages/statistics.scm b/gnu/packages/statistics.scm index e140f4d043..4ef3db75ae 100644 --- a/gnu/packages/statistics.scm +++ b/gnu/packages/statistics.scm @@ -617,7 +617,7 @@ curves, Cox models, and parametric accelerated failure time models.") (name "r") (source #f) (build-system trivial-build-system) - (arguments '(#:builder (mkdir %output))) + (arguments '(#:builder (begin (mkdir %output) #t))) (propagated-inputs `(("r-minimal" ,r-minimal) ("r-boot" ,r-boot) diff --git a/gnu/packages/syncthing.scm b/gnu/packages/syncthing.scm index 22dc8af7f3..7560238378 100644 --- a/gnu/packages/syncthing.scm +++ b/gnu/packages/syncthing.scm @@ -335,7 +335,8 @@ structs in the Go programming language.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) @@ -771,7 +772,8 @@ environment") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) @@ -894,7 +896,8 @@ generation.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) @@ -1221,7 +1224,8 @@ Tiny Encryption Algorithm (XTEA) block cipher.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) @@ -1435,7 +1439,8 @@ for low-level interaction with the operating system.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) @@ -1968,7 +1973,8 @@ Prometheus HTTP API.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs (map (lambda (package) (list (package-name package) package)) packages)) diff --git a/gnu/packages/tex.scm b/gnu/packages/tex.scm index 8279e9ce32..c48987ac53 100644 --- a/gnu/packages/tex.scm +++ b/gnu/packages/tex.scm @@ -3519,9 +3519,10 @@ TeX metrics (VF and TFM files) and macros for use with LaTeX.") "/share/texmf-dist/")) (unzip (string-append (assoc-ref %build-inputs "unzip") "/bin/unzip"))) - (system* unzip (assoc-ref %build-inputs "source")) + (invoke unzip (assoc-ref %build-inputs "source")) (mkdir-p target) - (copy-recursively "iwona" target))))) + (copy-recursively "iwona" target) + #t)))) (native-inputs `(("unzip" ,unzip))) (home-page "http://jmn.pl/en/kurier-i-iwona/") @@ -4021,7 +4022,8 @@ This package contains the complete tree of texmf-dist data.") (for-each (lambda (name) (symlink (string-append texmf "/share/" name) name)) - '("texmf-dist" "texmf-var")))))))) + '("texmf-dist" "texmf-var")))) + #t)))) (synopsis "TeX Live, a package of the TeX typesetting system") (description "TeX Live provides a comprehensive TeX document production system. diff --git a/gnu/packages/web.scm b/gnu/packages/web.scm index b858d44ada..bf7320cbf4 100644 --- a/gnu/packages/web.scm +++ b/gnu/packages/web.scm @@ -5549,8 +5549,8 @@ named elements: the @code{status}, the @code{headers}, and the @code{body}.") "PATH" '("bin") (map (match-lambda ((_ . input) input)) %build-inputs)) (mkdir-p share-rss-bridge) - (system* "tar" "xvf" (assoc-ref %build-inputs "source") - "--strip-components" "1" "-C" share-rss-bridge) + (invoke "tar" "xvf" (assoc-ref %build-inputs "source") + "--strip-components" "1" "-C" share-rss-bridge) #t)))) (home-page "https://github.com/RSS-Bridge/rss-bridge") (synopsis "Generate Atom feeds for social networking websites") @@ -6340,7 +6340,8 @@ features include: "if(isset($_SERVER['CACHE_DIR'])) $cachepath = $_SERVER['CACHE_DIR']; else -die('You need to set the CACHE_DIR variable first.');")))))) +die('You need to set the CACHE_DIR variable first.');")) + #t)))) (home-page "https://framagit.org/Deevad/cat-avatar-generator") (synopsis "Random avatar generator") (description "Cat avatar generator is a generator of cat pictures optimised diff --git a/gnu/packages/wine.scm b/gnu/packages/wine.scm index 8496eb3365..a4bcde3e46 100644 --- a/gnu/packages/wine.scm +++ b/gnu/packages/wine.scm @@ -255,7 +255,8 @@ integrate Windows applications into your desktop.") "/patches/gitapply.sh") (("/usr/bin/env") env)) (mkdir-p wine-staging) (copy-recursively (string-append "wine-staging-" ,version) - wine-staging))))) + wine-staging) + #t)))) (home-page "https://github.com/wine-staging") (synopsis "Patchset for Wine") (description diff --git a/gnu/packages/xfce.scm b/gnu/packages/xfce.scm index 8721fd91ad..134d601881 100644 --- a/gnu/packages/xfce.scm +++ b/gnu/packages/xfce.scm @@ -718,7 +718,8 @@ on your desktop.") (match %build-inputs (((names . directories) ...) (union-build (assoc-ref %outputs "out") - directories)))))) + directories) + #t))))) (inputs `(("exo" ,exo) ("garcon" ,garcon) -- cgit v1.2.3 From 9c4dcfaf66d37faeb165e9284f6a57871e96e1ac Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sun, 20 May 2018 14:31:55 +0200 Subject: gnu: Add uncrustify. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/packages/code.scm (uncrustify): New variable. Signed-off-by: Ludovic Courtès --- gnu/packages/code.scm | 43 +++++++++++++++++++++++++++++++++++++++++++ gnu/packages/pretty-print.scm | 1 + 2 files changed, 44 insertions(+) (limited to 'gnu/packages/code.scm') diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index 15fdf9d66f..24398fac91 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -7,6 +7,7 @@ ;;; Copyright © 2017, 2018 Clément Lassieur ;;; Copyright © 2017 Andy Wingo ;;; Copyright © 2018 Fis Trivial +;;; Copyright © 2018 Pierre Neidhardt ;;; ;;; This file is part of GNU Guix. ;;; @@ -527,3 +528,45 @@ produce colored output.") output is a graphviz-dot file, a Gexf-XML file or a list of the deepest independent targets.") (license license:expat))) + +(define-public uncrustify + (package + (name "uncrustify") + (version "0.67") + (source (origin + (method url-fetch) + (uri (string-append + "https://github.com/uncrustify/uncrustify/archive/" + "uncrustify-" version ".zip")) + (sha256 + (base32 + "0n13kq0nsm35fxhdp0f275n4x0w88hdv3bdjy0hgvv42x0dx5zyp")))) + (build-system cmake-build-system) + (native-inputs + `(("unzip" ,unzip))) + (arguments + `(#:phases + (modify-phases %standard-phases + (add-after 'unpack 'unpack-etc + (lambda* (#:key inputs outputs #:allow-other-keys) + ;; Configuration samples are not installed by default. + (let* ((output (assoc-ref outputs "out")) + (etcdir (string-append output "/etc"))) + (for-each (lambda (l) + (install-file l etcdir)) + (find-files "etc" "\\.cfg$"))) + #t))))) + (home-page "http://uncrustify.sourceforge.net/") + (synopsis "Code formatter for C and other related languages") + (description + "Beautify source code in many languages of the C family (C, C++, C#, +Objective@tie{}C, D, Java, Pawn, and Vala). Features: +@itemize +@item Indent and align code. +@item Reformat comments (a little bit). +@item Fix inter-character spacing. +@item Add or remove parens / braces. +@item Supports embedded SQL @code{EXEC SQL} stuff. +@item Highly configurable - More than 600 configurable options. +@end itemize\n") + (license license:gpl2+))) diff --git a/gnu/packages/pretty-print.scm b/gnu/packages/pretty-print.scm index 6edfba95cc..29b0039788 100644 --- a/gnu/packages/pretty-print.scm +++ b/gnu/packages/pretty-print.scm @@ -322,3 +322,4 @@ highlighting. Language definitions and color themes are customizable.") "Artistic Style is a source code indenter, formatter, and beautifier for the C, C++, C++/CLI, Objective‑C, C#, and Java programming languages.") (license lgpl3+))) + -- cgit v1.2.3 From c1e5109b6843d5670bf81678f2697babc9b770c9 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 23 May 2018 12:11:40 +0200 Subject: gnu: Move 'astyle' to code.scm. Suggested by Pierre Neidhardt . * gnu/packages/pretty-print.scm (astyle): Move to... * gnu/packages/code.scm (astyle): ... here. New variable. --- gnu/packages/code.scm | 42 ++++++++++++++++++++++++++++++++++++++++++ gnu/packages/pretty-print.scm | 43 ------------------------------------------- 2 files changed, 42 insertions(+), 43 deletions(-) (limited to 'gnu/packages/code.scm') diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index 24398fac91..6dbdf8a232 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -8,6 +8,7 @@ ;;; Copyright © 2017 Andy Wingo ;;; Copyright © 2018 Fis Trivial ;;; Copyright © 2018 Pierre Neidhardt +;;; Copyright © 2014 Eric Bavier ;;; ;;; This file is part of GNU Guix. ;;; @@ -570,3 +571,44 @@ Objective@tie{}C, D, Java, Pawn, and Vala). Features: @item Highly configurable - More than 600 configurable options. @end itemize\n") (license license:gpl2+))) + +(define-public astyle + (package + (name "astyle") + (version "2.05") + (source + (origin + (method url-fetch) + (uri (string-append "mirror://sourceforge/astyle/astyle/astyle%20" + version "/astyle_" version "_linux.tar.gz")) + (sha256 + (base32 + "0f9sh9kq5ajp1yz133h00fr9235p1m698x7n3h7zbrhjiwgynd6s")))) + (build-system gnu-build-system) + (arguments + `(#:tests? #f ;no tests + #:make-flags (list (string-append "prefix=" %output) + "INSTALL=install" + "all") + #:phases + (modify-phases %standard-phases + (replace 'configure + (lambda _ (chdir "build/gcc") #t)) + (add-after 'install 'install-libs + (lambda* (#:key outputs #:allow-other-keys) + ;; Libraries are not installed by default + (let* ((output (assoc-ref outputs "out")) + (libdir (string-append output "/lib"))) + (begin + (mkdir-p libdir) + (for-each (lambda (l) + (copy-file + l (string-append libdir "/" (basename l)))) + (find-files "bin" "lib*")))) + #t))))) + (home-page "http://astyle.sourceforge.net/") + (synopsis "Source code indenter, formatter, and beautifier") + (description + "Artistic Style is a source code indenter, formatter, and beautifier for +the C, C++, C++/CLI, Objective‑C, C#, and Java programming languages.") + (license license:lgpl3+))) diff --git a/gnu/packages/pretty-print.scm b/gnu/packages/pretty-print.scm index 29b0039788..cc3431b674 100644 --- a/gnu/packages/pretty-print.scm +++ b/gnu/packages/pretty-print.scm @@ -1,5 +1,4 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2014 Eric Bavier ;;; Copyright © 2016 Efraim Flashner ;;; Copyright © 2016 Ricardo Wurmus ;;; Copyright © 2017 Marius Bakke @@ -281,45 +280,3 @@ seen in a terminal.") TeX, SVG, BBCode and terminal escape sequences with colored syntax highlighting. Language definitions and color themes are customizable.") (license gpl3+))) - -(define-public astyle - (package - (name "astyle") - (version "2.05") - (source - (origin - (method url-fetch) - (uri (string-append "mirror://sourceforge/astyle/astyle/astyle%20" - version "/astyle_" version "_linux.tar.gz")) - (sha256 - (base32 - "0f9sh9kq5ajp1yz133h00fr9235p1m698x7n3h7zbrhjiwgynd6s")))) - (build-system gnu-build-system) - (arguments - `(#:tests? #f ;no tests - #:make-flags (list (string-append "prefix=" %output) - "INSTALL=install" - "all") - #:phases - (modify-phases %standard-phases - (replace 'configure - (lambda _ (chdir "build/gcc") #t)) - (add-after 'install 'install-libs - (lambda* (#:key outputs #:allow-other-keys) - ;; Libraries are not installed by default - (let* ((output (assoc-ref outputs "out")) - (libdir (string-append output "/lib"))) - (begin - (mkdir-p libdir) - (for-each (lambda (l) - (copy-file - l (string-append libdir "/" (basename l)))) - (find-files "bin" "lib*")))) - #t))))) - (home-page "http://astyle.sourceforge.net/") - (synopsis "Source code indenter, formatter, and beautifier") - (description - "Artistic Style is a source code indenter, formatter, and beautifier for -the C, C++, C++/CLI, Objective‑C, C#, and Java programming languages.") - (license lgpl3+))) - -- cgit v1.2.3 From e470abf8b789e61ae918a80f141e3c06afd44832 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Wed, 23 May 2018 12:13:16 +0200 Subject: gnu: Move 'indent' to code.scm. Suggested by Pierre Neidhardt . * gnu/packages/indent.scm: Remove. Move 'indent' to... * gnu/packages/code.scm (indent): ... here. New variable. * gnu/local.mk (GNU_SYSTEM_MODULES): Remove indent.scm. --- gnu/local.mk | 1 - gnu/packages/code.scm | 33 +++++++++++++++++++++++++++++ gnu/packages/indent.scm | 56 ------------------------------------------------- 3 files changed, 33 insertions(+), 57 deletions(-) delete mode 100644 gnu/packages/indent.scm (limited to 'gnu/packages/code.scm') diff --git a/gnu/local.mk b/gnu/local.mk index 469e73f7c7..4cdbaec1dc 100644 --- a/gnu/local.mk +++ b/gnu/local.mk @@ -226,7 +226,6 @@ GNU_SYSTEM_MODULES = \ %D%/packages/image-processing.scm \ %D%/packages/image-viewers.scm \ %D%/packages/imagemagick.scm \ - %D%/packages/indent.scm \ %D%/packages/inklingreader.scm \ %D%/packages/inkscape.scm \ %D%/packages/irc.scm \ diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index 6dbdf8a232..fc1c000b92 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -9,6 +9,8 @@ ;;; Copyright © 2018 Fis Trivial ;;; Copyright © 2018 Pierre Neidhardt ;;; Copyright © 2014 Eric Bavier +;;; Copyright © 2013 Andreas Enge +;;; Copyright © 2014 Mark H Weaver ;;; ;;; This file is part of GNU Guix. ;;; @@ -612,3 +614,34 @@ Objective@tie{}C, D, Java, Pawn, and Vala). Features: "Artistic Style is a source code indenter, formatter, and beautifier for the C, C++, C++/CLI, Objective‑C, C#, and Java programming languages.") (license license:lgpl3+))) + +(define-public indent + (package + (name "indent") + (version "2.2.10") + (source (origin + (method url-fetch) + (uri (string-append "mirror://gnu/indent/indent-" version + ".tar.gz")) + (sha256 (base32 + "0f9655vqdvfwbxvs1gpa7py8k1z71aqh8hp73f65vazwbfz436wa")))) + (build-system gnu-build-system) + (arguments + `(#:phases (alist-cons-after + 'unpack 'fix-docdir + (lambda _ + ;; Although indent uses a modern autoconf in which docdir + ;; defaults to PREFIX/share/doc, the doc/Makefile.am + ;; overrides this to be in PREFIX/doc. Fix this. + (substitute* "doc/Makefile.in" + (("^docdir = .*$") "docdir = @docdir@\n"))) + %standard-phases))) + (synopsis "Code reformatter") + (description + "Indent is a program that makes source code easier to read by +reformatting it in a consistent style. It can change the style to one of +several different styles such as GNU, BSD or K&R. It has some flexibility to +deal with incomplete or malformed syntax. GNU indent offers several +extensions over the standard utility.") + (license license:gpl3+) + (home-page "https://www.gnu.org/software/indent/"))) diff --git a/gnu/packages/indent.scm b/gnu/packages/indent.scm deleted file mode 100644 index 4950a26121..0000000000 --- a/gnu/packages/indent.scm +++ /dev/null @@ -1,56 +0,0 @@ -;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Andreas Enge -;;; Copyright © 2014 Mark H Weaver -;;; -;;; 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 indent) - #:use-module (gnu packages) - #:use-module ((guix licenses) #:prefix license:) - #:use-module (guix packages) - #:use-module (guix download) - #:use-module (guix build-system gnu)) - -(define-public indent - (package - (name "indent") - (version "2.2.10") - (source (origin - (method url-fetch) - (uri (string-append "mirror://gnu/indent/indent-" version - ".tar.gz")) - (sha256 (base32 - "0f9655vqdvfwbxvs1gpa7py8k1z71aqh8hp73f65vazwbfz436wa")))) - (build-system gnu-build-system) - (arguments - `(#:phases (alist-cons-after - 'unpack 'fix-docdir - (lambda _ - ;; Although indent uses a modern autoconf in which docdir - ;; defaults to PREFIX/share/doc, the doc/Makefile.am - ;; overrides this to be in PREFIX/doc. Fix this. - (substitute* "doc/Makefile.in" - (("^docdir = .*$") "docdir = @docdir@\n"))) - %standard-phases))) - (synopsis "Code reformatter") - (description - "Indent is a program that makes source code easier to read by -reformatting it in a consistent style. It can change the style to one of -several different styles such as GNU, BSD or K&R. It has some flexibility to -deal with incomplete or malformed syntax. GNU indent offers several -extensions over the standard utility.") - (license license:gpl3+) - (home-page "https://www.gnu.org/software/indent/"))) -- cgit v1.2.3 From ad8a4d6dc8de0576640ff78b4f3e4307ec9fa25c Mon Sep 17 00:00:00 2001 From: Fis Trivial Date: Mon, 28 May 2018 08:09:35 +0000 Subject: gnu: Add amalgamate. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit This commit also re-orders some module statements. * gnu/packages/code.scm (amalgamate): New variable. Signed-off-by: Ludovic Courtès --- gnu/packages/code.scm | 58 ++++++++++++++++++++++++++++++++++++++++++++++----- 1 file changed, 53 insertions(+), 5 deletions(-) (limited to 'gnu/packages/code.scm') diff --git a/gnu/packages/code.scm b/gnu/packages/code.scm index fc1c000b92..4f132b9f13 100644 --- a/gnu/packages/code.scm +++ b/gnu/packages/code.scm @@ -30,12 +30,16 @@ (define-module (gnu packages code) #:use-module (guix packages) #:use-module (guix download) + #:use-module (guix git-download) #:use-module ((guix licenses) #:prefix license:) #:use-module (guix build-system gnu) #:use-module (guix build-system cmake) #:use-module (guix build-system trivial) #:use-module (gnu packages) + #:use-module (gnu packages autogen) + #:use-module (gnu packages autotools) #:use-module (gnu packages base) + #:use-module (gnu packages bash) #:use-module (gnu packages compression) #:use-module (gnu packages cpp) #:use-module (gnu packages databases) @@ -43,15 +47,13 @@ #:use-module (gnu packages gcc) #:use-module (gnu packages graphviz) #:use-module (gnu packages pcre) - #:use-module (gnu packages pkg-config) #:use-module (gnu packages perl) + #:use-module (gnu packages pkg-config) + #:use-module (gnu packages python) #:use-module (gnu packages texinfo) - #:use-module (gnu packages autogen) #:use-module (gnu packages ncurses) - #:use-module (gnu packages autotools) #:use-module (gnu packages llvm) - #:use-module (gnu packages lua) - #:use-module (gnu packages bash)) + #:use-module (gnu packages lua)) ;;; Tools to deal with source code: metrics, cross-references, etc. @@ -645,3 +647,49 @@ deal with incomplete or malformed syntax. GNU indent offers several extensions over the standard utility.") (license license:gpl3+) (home-page "https://www.gnu.org/software/indent/"))) + +(define-public amalgamate + (let* ((commit "c91f07eea1133aa184f652b8f1398eaf03586208") + (revision "0") + (version (git-version "1.1.1" revision commit))) + (package + (name "amalgamate") + (version version) + (home-page "https://github.com/edlund/amalgamate") + (source + (origin + (method git-fetch) + (uri (git-reference + (url home-page) + (commit commit))) + (sha256 + (base32 + "0cllaraw8mxs8q2nr28nhgzkb417gj2wcklqg59w84f4lc78k3yb")) + (file-name (git-file-name name version)) + (modules '((guix build utils))) + (snippet + '(substitute* "test.sh" + (("test_command \"cc -Wall -Wextra -o source.out source.c\"" all) + "test_command \"gcc -Wall -Wextra -o source.out source.c\""))))) + (build-system gnu-build-system) + (inputs + `(("python" ,python-wrapper))) + (arguments + `(#:phases + (modify-phases %standard-phases + (delete 'configure) + (delete 'build) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin"))) + (install-file "amalgamate.py" bin)))) + (replace 'check + (lambda _ + (invoke "./test.sh")))))) + (synopsis "Tool for amalgamating C source and header files") + ;; The package is indeed a script file, and the term "amalgamate.py" is + ;; used by upstream. + (description "amalgamate.py aims to make it easy to use SQLite-style C +source and header amalgamation in projects.") + (license license:bsd-3)))) -- cgit v1.2.3