Until now, 'lookup-origin' and thus 'lookup-origin-revision' in (guix swh) would sometimes return #f for these because the ".git" URLs are redirects to the non-".git" URLs. Consequently, 'guix lint -c archival' would keep saying "scheduled Software Heritage archival"; likewise, the fallback download code would fail. * gnu/packages/ada.scm, gnu/packages/admin.scm, gnu/packages/aidc.scm, gnu/packages/algebra.scm, gnu/packages/android.scm, gnu/packages/animation.scm, gnu/packages/arcan.scm, gnu/packages/assembly.scm, gnu/packages/audio.scm, gnu/packages/authentication.scm, gnu/packages/avr.scm, gnu/packages/axoloti.scm, gnu/packages/backup.scm, gnu/packages/bash.scm, gnu/packages/benchmark.scm, gnu/packages/bioconductor.scm, gnu/packages/bioinformatics.scm, gnu/packages/bittorrent.scm, gnu/packages/boost.scm, gnu/packages/build-tools.scm, gnu/packages/c.scm, gnu/packages/calendar.scm, gnu/packages/cdrom.scm, gnu/packages/check.scm, gnu/packages/chemistry.scm, gnu/packages/chez.scm, gnu/packages/clojure.scm, gnu/packages/code.scm, gnu/packages/compression.scm, gnu/packages/compton.scm, gnu/packages/coq.scm, gnu/packages/cpp.scm, gnu/packages/cran.scm, gnu/packages/crypto.scm, gnu/packages/curl.scm, gnu/packages/databases.scm, gnu/packages/datastructures.scm, gnu/packages/debug.scm, gnu/packages/disk.scm, gnu/packages/distributed.scm, gnu/packages/django.scm, gnu/packages/dlang.scm, gnu/packages/dns.scm, gnu/packages/docker.scm, gnu/packages/education.scm, gnu/packages/efi.scm, gnu/packages/elixir.scm, gnu/packages/emacs-xyz.scm, gnu/packages/embedded.scm, gnu/packages/emulators.scm, gnu/packages/engineering.scm, gnu/packages/erlang.scm, gnu/packages/fabric-management.scm, gnu/packages/file-systems.scm, gnu/packages/finance.scm, gnu/packages/firmware.scm, gnu/packages/flashing-tools.scm, gnu/packages/fonts.scm, gnu/packages/fontutils.scm, gnu/packages/fpga.scm, gnu/packages/game-development.scm, gnu/packages/games.scm, gnu/packages/genealogy.scm, gnu/packages/genimage.scm, gnu/packages/geo.scm, gnu/packages/gimp.scm, gnu/packages/gl.scm, gnu/packages/gnome-xyz.scm, gnu/packages/gnome.scm, gnu/packages/gnuzilla.scm, gnu/packages/golang.scm, gnu/packages/gpodder.scm, gnu/packages/graph.scm, gnu/packages/graphics.scm, gnu/packages/graphviz.scm, gnu/packages/groff.scm, gnu/packages/groovy.scm, gnu/packages/gtk.scm, gnu/packages/guile-xyz.scm, gnu/packages/guile.scm, gnu/packages/hardware.scm, gnu/packages/haskell-apps.scm, gnu/packages/haskell-xyz.scm, gnu/packages/hexedit.scm, gnu/packages/i2p.scm, gnu/packages/ibus.scm, gnu/packages/image-processing.scm, gnu/packages/image-viewers.scm, gnu/packages/image.scm, gnu/packages/ipfs.scm, gnu/packages/java-graphics.scm, gnu/packages/java-maths.scm, gnu/packages/java.scm, gnu/packages/javascript.scm, gnu/packages/jrnl.scm, gnu/packages/julia.scm, gnu/packages/jupyter.scm, gnu/packages/kodi.scm, gnu/packages/language.scm, gnu/packages/lego.scm, gnu/packages/less.scm, gnu/packages/libusb.scm, gnu/packages/linux.scm, gnu/packages/lirc.scm, gnu/packages/lisp-xyz.scm, gnu/packages/llvm.scm, gnu/packages/logging.scm, gnu/packages/lolcode.scm, gnu/packages/lua.scm, gnu/packages/lxde.scm, gnu/packages/lxqt.scm, gnu/packages/machine-learning.scm, gnu/packages/mail.scm, gnu/packages/markup.scm, gnu/packages/maths.scm, gnu/packages/maven.scm, gnu/packages/mes.scm, gnu/packages/messaging.scm, gnu/packages/monitoring.scm, gnu/packages/mpd.scm, gnu/packages/music.scm, gnu/packages/networking.scm, gnu/packages/node-xyz.scm, gnu/packages/ocaml.scm, gnu/packages/ocr.scm, gnu/packages/onc-rpc.scm, gnu/packages/opencl.scm, gnu/packages/opencog.scm, gnu/packages/pantheon.scm, gnu/packages/password-utils.scm, gnu/packages/patchutils.scm, gnu/packages/pdf.scm, gnu/packages/perl6.scm, gnu/packages/phabricator.scm, gnu/packages/popt.scm, gnu/packages/printers.scm, gnu/packages/prolog.scm, gnu/packages/protobuf.scm, gnu/packages/pulseaudio.scm, gnu/packages/python-crypto.scm, gnu/packages/python-web.scm, gnu/packages/python-xyz.scm, gnu/packages/qt.scm, gnu/packages/radio.scm, gnu/packages/rails.scm, gnu/packages/rdf.scm, gnu/packages/rednotebook.scm, gnu/packages/rpc.scm, gnu/packages/rsync.scm, gnu/packages/ruby.scm, gnu/packages/rust.scm, gnu/packages/scheme.scm, gnu/packages/screen.scm, gnu/packages/security-token.scm, gnu/packages/selinux.scm, gnu/packages/serialization.scm, gnu/packages/shells.scm, gnu/packages/shellutils.scm, gnu/packages/simh.scm, gnu/packages/sml.scm, gnu/packages/ssh.scm, gnu/packages/statistics.scm, gnu/packages/stenography.scm, gnu/packages/sync.scm, gnu/packages/syncthing.scm, gnu/packages/synergy.scm, gnu/packages/telephony.scm, gnu/packages/terminals.scm, gnu/packages/tex.scm, gnu/packages/texinfo.scm, gnu/packages/text-editors.scm, gnu/packages/textutils.scm, gnu/packages/time.scm, gnu/packages/tmux.scm, gnu/packages/tor.scm, gnu/packages/toys.scm, gnu/packages/version-control.scm, gnu/packages/video.scm, gnu/packages/vim.scm, gnu/packages/virtualization.scm, gnu/packages/vlang.scm, gnu/packages/vnc.scm, gnu/packages/vpn.scm, gnu/packages/web-browsers.scm, gnu/packages/web.scm, gnu/packages/wireservice.scm, gnu/packages/wm.scm, gnu/packages/wxwidgets.scm, gnu/packages/xdisorg.scm, gnu/packages/xml.scm, gnu/packages/xorg.scm, tests/lint.scm: Remove trailing ".git" from 'git-reference' URL.
		
			
				
	
	
		
			190 lines
		
	
	
	
		
			7.4 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
			
		
		
	
	
			190 lines
		
	
	
	
		
			7.4 KiB
		
	
	
	
		
			Scheme
		
	
	
	
	
	
;;; GNU Guix --- Functional package management for GNU
 | 
						|
;;; Copyright © 2014 John Darringon <jmd@gnu.org>
 | 
						|
;;; Copyright © 2016, 2020 Efraim Flashner <efraim@flashner.co.il>
 | 
						|
;;; Copyright © 2017 Hartmut Goebel <h.goebel@crazy-compilers.com>
 | 
						|
;;; Copyright © 2018, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
 | 
						|
;;; Copyright © 2019 Guillaume Le Vaillant <glv@posteo.net>
 | 
						|
;;; Copyright © 2020 Leo Famulari <leo@famulari.name>
 | 
						|
;;;
 | 
						|
;;; 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 aidc)
 | 
						|
  #:use-module (gnu packages)
 | 
						|
  #:use-module ((guix licenses) #:prefix license:)
 | 
						|
  #:use-module (guix packages)
 | 
						|
  #:use-module (guix download)
 | 
						|
  #:use-module (guix git-download)
 | 
						|
  #:use-module (gnu packages autotools)
 | 
						|
  #:use-module (gnu packages imagemagick)
 | 
						|
  #:use-module (gnu packages glib)
 | 
						|
  #:use-module (gnu packages gtk)
 | 
						|
  #:use-module (gnu packages image)
 | 
						|
  #:use-module (gnu packages pkg-config)
 | 
						|
  #:use-module (gnu packages python)
 | 
						|
  #:use-module (gnu packages python-xyz)
 | 
						|
  #:use-module (gnu packages qt)
 | 
						|
  #:use-module (gnu packages video)
 | 
						|
  #:use-module (guix build-system gnu))
 | 
						|
 | 
						|
 | 
						|
(define-public barcode
 | 
						|
  (package
 | 
						|
    (name "barcode")
 | 
						|
    (version "0.99")
 | 
						|
    (source (origin
 | 
						|
              (method url-fetch)
 | 
						|
              (uri (string-append "mirror://gnu/barcode/barcode-"
 | 
						|
                                  version ".tar.xz"))
 | 
						|
              (sha256
 | 
						|
               (base32
 | 
						|
                "1indapql5fjz0bysyc88cmc54y8phqrbi7c76p71fgjp45jcyzp8"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (synopsis "Convert text strings to printed bars in various standards")
 | 
						|
    (description "GNU Barcode is a flexible tool to produce printed barcodes
 | 
						|
from text strings.  It supports a variety of encoding standards and sizing
 | 
						|
measurements.  Barcodes can be output in PostScript or Encapsulated PostScript
 | 
						|
formats.")
 | 
						|
    (license license:gpl3+)
 | 
						|
    (home-page "https://www.gnu.org/software/barcode/")))
 | 
						|
 | 
						|
(define-public qrencode
 | 
						|
  (package
 | 
						|
    (name "qrencode")
 | 
						|
    (version "4.0.2")
 | 
						|
    (source (origin
 | 
						|
              (method url-fetch)
 | 
						|
              (uri (string-append
 | 
						|
                    "https://fukuchi.org/works/qrencode/qrencode-" version
 | 
						|
                    ".tar.bz2"))
 | 
						|
              (sha256
 | 
						|
               (base32
 | 
						|
                "1d2q5d3v8g3hsi3h5jq4n177bjhf3kawms09immw7p187f6jgjy9"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (inputs `(("libpng" ,libpng)))
 | 
						|
    (native-inputs `(("pkg-config" ,pkg-config)))
 | 
						|
    (synopsis "Encode data into a QR Code symbol")
 | 
						|
    (description "Libqrencode is a C library for encoding data in a QR Code
 | 
						|
symbol, a kind of 2D symbology that can be scanned by handy terminals such as
 | 
						|
a mobile phone with CCD.  The capacity of QR Code is up to 7000 digits or 4000
 | 
						|
characters, and is highly robust.")
 | 
						|
    (license license:lgpl2.1+)
 | 
						|
    (home-page "https://fukuchi.org/works/qrencode")))
 | 
						|
 | 
						|
(define-public libdmtx
 | 
						|
  (package
 | 
						|
    (name "libdmtx")
 | 
						|
    (version "0.7.5")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method git-fetch)
 | 
						|
       (uri (git-reference
 | 
						|
             (url "https://github.com/dmtx/libdmtx")
 | 
						|
             (commit (string-append "v" version))))
 | 
						|
       (file-name (git-file-name name version))
 | 
						|
       (sha256
 | 
						|
        (base32 "0wk3fkxzf9ip75v8ia54v6ywx72ajp5s6777j4ay8barpbv869rj"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (arguments
 | 
						|
     ;; XXX Test suite is broken: https://github.com/dmtx/libdmtx/issues/22
 | 
						|
     `(#:tests? #f))
 | 
						|
    (native-inputs
 | 
						|
     `(("autoconf" ,autoconf)
 | 
						|
       ("automake" ,automake)
 | 
						|
       ("libtool" ,libtool)
 | 
						|
       ("pkg-config" ,pkg-config)))
 | 
						|
    (home-page "https://github.com/dmtx")
 | 
						|
    (synopsis "Library for reading and writing Data Matrix 2D barcodes")
 | 
						|
    (description "libdmtx is software for reading and writing Data Matrix 2D
 | 
						|
barcodes of the modern ECC200 variety.  libdmtx is a shared library, allowing
 | 
						|
C/C++ programs to use its capabilities without restrictions or overhead.")
 | 
						|
    (license license:bsd-3)))
 | 
						|
 | 
						|
(define-public zbar
 | 
						|
  (package
 | 
						|
    (name "zbar")
 | 
						|
    (version "0.23")
 | 
						|
    (source
 | 
						|
     (origin
 | 
						|
       (method url-fetch)
 | 
						|
       (uri (string-append "https://linuxtv.org/downloads/zbar/zbar-"
 | 
						|
                           version
 | 
						|
                           ".tar.bz2"))
 | 
						|
       (sha256
 | 
						|
        (base32
 | 
						|
         "0bmd93a15qpgbsq9c9j33qms18rdrgz6gbc48zi6z9w5pvrvi7z9"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (arguments
 | 
						|
     '(#:configure-flags (list "--with-gtk=auto"
 | 
						|
                               "--with-python=auto"
 | 
						|
                               (string-append "--with-dbusconfdir="
 | 
						|
                                              (assoc-ref %outputs "out")
 | 
						|
                                              "/etc"))))
 | 
						|
    (native-inputs
 | 
						|
     `(("glib" ,glib "bin")
 | 
						|
       ("pkg-config" ,pkg-config)))
 | 
						|
    (inputs
 | 
						|
     `(("gobject-introspection" ,gobject-introspection)
 | 
						|
       ("gtk+" ,gtk+)
 | 
						|
       ("imagemagick" ,imagemagick)
 | 
						|
       ("libjpeg" ,libjpeg-turbo)
 | 
						|
       ("python" ,python)
 | 
						|
       ("qtbase" ,qtbase)
 | 
						|
       ("qtx11extras" ,qtx11extras)
 | 
						|
       ("v4l-utils" ,v4l-utils)))
 | 
						|
    (synopsis "Bar code reader")
 | 
						|
    (description
 | 
						|
     "ZBar can read barcodes from various sources, such as video streams,
 | 
						|
image files, and raw intensity sensors.  It supports EAN-13/UPC-A, UPC-E,
 | 
						|
EAN-8, Code 128, Code 93, Code 39, Codabar, Interleaved 2 of 5, QR Code and SQ
 | 
						|
Code.  Included with the library are basic applications for decoding captured
 | 
						|
bar code images and using a video device (e.g. webcam) as a bar code scanner.
 | 
						|
For application developers, language bindings are included for C, C++ and
 | 
						|
Python as well as GUI widgets for GTK and Qt.")
 | 
						|
    (home-page "https://github.com/mchehab/zbar")
 | 
						|
    (license license:lgpl2.1+)))
 | 
						|
 | 
						|
(define-public qrcodegen-cpp
 | 
						|
  (package
 | 
						|
    (name "qrcodegen-cpp")
 | 
						|
    (version "1.6.0")
 | 
						|
    (source (origin
 | 
						|
              (method git-fetch)
 | 
						|
              (uri (git-reference
 | 
						|
                     (url "https://github.com/nayuki/QR-Code-generator")
 | 
						|
                     (commit (string-append "v" version))))
 | 
						|
              (file-name (git-file-name name version))
 | 
						|
              (patches (search-patches "qrcodegen-cpp-make-install.patch"))
 | 
						|
              (sha256
 | 
						|
               (base32
 | 
						|
                "0iq9sv9na0vg996aqrxrjn9rrbiyy7sc9vslw945p3ky22pw3lql"))))
 | 
						|
    (build-system gnu-build-system)
 | 
						|
    (arguments
 | 
						|
     `(#:tests? #f ; no test suite
 | 
						|
       #:make-flags
 | 
						|
       (list (string-append "PREFIX=" (assoc-ref %outputs "out")))
 | 
						|
       #:phases
 | 
						|
       (modify-phases %standard-phases
 | 
						|
         (delete 'configure) ; No ./configure script
 | 
						|
         ;; Only build the C++ variant.
 | 
						|
         (add-after 'unpack 'chdir
 | 
						|
           (lambda _
 | 
						|
             (chdir "cpp")
 | 
						|
             #t)))))
 | 
						|
    (synopsis "QR Code generator library")
 | 
						|
    (description "qrcodegen-cpp is a QR code generator library in C++.  The
 | 
						|
project also offers Java, Javascript, Python, C, and Rust implementations.")
 | 
						|
    (home-page "https://www.nayuki.io/page/qr-code-generator-library")
 | 
						|
    (license license:expat)))
 |