[jackhill/guix/guix.git] / gnu / packages / flashing-tools.scm

;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
;;;
;;; 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 flashing-tools)
  #:use-module (guix licenses)
  #:use-module (guix download)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module (gnu packages)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages bison)
  #:use-module (gnu packages flex)
  #:use-module (gnu packages elf)
  #:use-module (gnu packages pkg-config)
  #:use-module (gnu packages libusb)
  #:use-module (gnu packages libftdi)
  #:use-module (gnu packages pciutils)
  #:use-module (gnu packages autotools)
  #:use-module (gnu packages admin))

(define-public flashrom
  (package
    (name "flashrom")
    (version "0.9.9")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "https://download.flashrom.org/releases/flashrom-"
                    version ".tar.bz2"))
              (sha256
               (base32
                "0i9wg1lyfg99bld7d00zqjm9f0lk6m0q3h3n9c195c9yysq5ccfb"))))
    (build-system gnu-build-system)
    (inputs `(("dmidecode" ,dmidecode)
              ("pciutils" ,pciutils)
              ("libusb" ,libusb)
              ("libftdi" ,libftdi)))
    (native-inputs `(("pkg-config" ,pkg-config)))
    (arguments
     '(#:make-flags (list "CC=gcc"
                          (string-append "PREFIX=" %output)
                          "CONFIG_ENABLE_LIBUSB0_PROGRAMMERS=no")
       #:tests? #f   ; no 'check' target
       #:phases
       (alist-delete
        'configure
        (alist-cons-before
         'build 'patch-exec-paths
         (lambda* (#:key inputs #:allow-other-keys)
           (substitute* "dmi.c"
             (("\"dmidecode\"")
              (format #f "~S"
                      (string-append (assoc-ref inputs "dmidecode")
                                     "/sbin/dmidecode")))))
         %standard-phases))))
    (home-page "http://flashrom.org/")
    (synopsis "Identify, read, write, erase, and verify ROM/flash chips")
    (description
     "flashrom is a utility for identifying, reading, writing,
verifying and erasing flash chips.  It is designed to flash
BIOS/EFI/coreboot/firmware/optionROM images on mainboards,
network/graphics/storage controller cards, and various other
programmer devices.")
    (license gpl2)))

(define-public 0xffff
  (package
    (name "0xffff")
    (version "0.7")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "https://github.com/pali/0xffff/archive/"
                          version ".tar.gz"))
      (file-name (string-append "0xFFFF" version ".tar.gz" ))
      (sha256
       (base32
        "1g4032c81wkk37wvbg1dxcqq6mnd76y9x7f2crmzqi6z4q9jcxmj"))))
    (build-system gnu-build-system)
    (inputs
     `(("libusb",libusb-0.1))) ; doesn't work with libusb-compat
    (arguments
     '(#:phases
       (modify-phases %standard-phases
         (delete 'configure)) ; no configure
       #:make-flags (list (string-append "PREFIX=" %output))
       #:tests? #f)) ; no 'check' target
    (home-page "https://github.com/pali/0xFFFF")
    (synopsis "Flash FIASCO images on Maemo devices")
    (description
     "The Open Free Fiasco Firmware Flasher (0xFFFF) is a flashing tool
for FIASCO images.  It supports generating, unpacking, editing and
flashing of FIASCO images for Maemo devices.  Use it with care.  It can
brick your device.")
    (license gpl3+)))

(define-public avrdude
  (package
    (name "avrdude")
    (version "6.1")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://savannah/avrdude/avrdude-"
                          version ".tar.gz"))
      (sha256
       (base32
        "0frxg0q09nrm95z7ymzddx7ysl77ilfbdix1m81d9jjpiv5bm64y"))))
    (build-system gnu-build-system)
    (inputs
     `(("libelf" ,libelf)
       ("libusb" ,libusb-compat)
       ("libftdi" ,libftdi)))
    (native-inputs
     `(("bison" ,bison)
       ("flex" ,flex)))
    (home-page "http://www.nongnu.org/avrdude/")
    (synopsis "AVR downloader and uploader")
    (description
     "AVRDUDE is a utility to download/upload/manipulate the ROM and
EEPROM contents of AVR microcontrollers using the in-system programming
technique (ISP).")
    (license gpl2+)))

(define-public dfu-programmer
  (package
    (name "dfu-programmer")
    (version "0.7.2")
    (source
     (origin
      (method url-fetch)
      (uri (string-append "mirror://sourceforge/dfu-programmer/dfu-programmer/"
                          version "/dfu-programmer-" version ".tar.gz"))
      (sha256
       (base32
        "15gr99y1z9vbvhrkd25zqhnzhg6zjmaam3vfjzf2mazd39mx7d0x"))
      (patches (search-patches "dfu-programmer-fix-libusb.patch"))))
    (build-system gnu-build-system)
    (native-inputs
     `(("pkg-config" ,pkg-config)))
    (inputs
     `(("libusb" ,libusb)))
    (home-page "http://dfu-programmer.github.io/")
    (synopsis "Device firmware update programmer for Atmel chips")
    (description
     "Dfu-programmer is a multi-platform command-line programmer for
Atmel (8051, AVR, XMEGA & AVR32) chips with a USB bootloader supporting
ISP.")
    (license gpl2+)))

(define-public dfu-util
  (package
    (name "dfu-util")
    (version "0.9")
    (source (origin
              (method url-fetch)
              (uri (string-append
                    "http://dfu-util.sourceforge.net/releases/dfu-util-"
                    version ".tar.gz"))
              (sha256
               (base32
                "0czq73m92ngf30asdzrfkzraag95hlrr74imbanqq25kdim8qhin"))))
    (build-system gnu-build-system)
    (inputs
     `(("libusb" ,libusb)))
    (native-inputs
     `(("pkg-config" ,pkg-config)))
    (synopsis "Host side of the USB Device Firmware Upgrade (DFU) protocol")
    (description
     "The DFU (Universal Serial Bus Device Firmware Upgrade) protocol is
intended to download and upload firmware to devices connected over USB.  It
ranges from small devices like micro-controller boards up to mobile phones.
With dfu-util you are able to download firmware to your device or upload
firmware from it.")
    (home-page "http://dfu-util.sourceforge.net/")
    (license gpl2+)))

(define-public teensy-loader-cli
  ;; The repo does not tag versions nor does it use releases, but a commit
  ;; message says "Importing 2.1", while the sourcce still says "2.0". So pin
  ;; to a fixed commit.
  (let ((commit "f289b7a2e5627464044249f0e5742830e052e360"))
    (package
      (name "teensy-loader-cli")
      (version (string-append "2.1-1." (string-take commit 7)))
      (source
       (origin
         (method url-fetch)
         (uri (string-append "https://github.com/PaulStoffregen/"
                             "teensy_loader_cli/archive/" commit ".tar.gz"))
         (sha256 (base32 "17wqc2q4fa473cy7f5m2yiyb9nq0qw7xal2kzrxzaikgm9rabsw8"))
         (file-name (string-append "teensy-loader-cli-" version ".tar.gz" ))
         (modules '((guix build utils)))
         (snippet
          `(begin
             ;; Remove example flash files and teensy rebooter flash binaries.
             (for-each delete-file (find-files "." "\\.(elf|hex)$"))
             ;; Fix the version
             (substitute* "teensy_loader_cli.c"
               (("Teensy Loader, Command Line, Version 2.0\\\\n")
                (string-append "Teensy Loader, Command Line, " ,version "\\n")))
             #t))
       (patches (search-patches "teensy-loader-cli-help.patch"))))
      (build-system gnu-build-system)
      (arguments
       '(#:tests? #f ;; Makefile has no test target
         #:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
         #:phases
         (modify-phases %standard-phases
           (delete 'configure)
           (replace 'install
             (lambda* (#:key outputs #:allow-other-keys)
               (let* ((out (assoc-ref outputs "out"))
                      (bin (string-append out "/bin")))
                 (install-file "teensy_loader_cli" bin)
                 #t))))))
      (inputs
       `(("libusb-compat" ,libusb-compat)))
      (synopsis "Command line firmware uploader for Teensy development boards")
      (description
       "The Teensy loader program communicates with your Teensy board when the
HalfKay bootloader is running, so you can upload new programs and run them.

You need to add the udev rules to make the Teensy update available for
non-root users.")
      (home-page "https://www.pjrc.com/teensy/loader_cli.html")
      (license gpl3))))

(define-public rkflashtool
  (let ((commit "094bd6410cb016e487e2ccb1050c59eeac2e6dd1")
        (revision "1"))
    (package
      (name "rkflashtool")
      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
      (source
        (origin
          (method git-fetch)
          (uri (git-reference
                (url "https://github.com/linux-rockchip/rkflashtool.git")
                (commit commit)))
          (file-name (string-append name "-" version "-checkout"))
          (sha256
           (base32
            "1zkd8zxir3rfg3sy9r20bcnxclnplryn583gqpcr3iad0k3xbah7"))))
      (build-system gnu-build-system)
      (arguments
       '(#:phases
         (modify-phases %standard-phases
           (delete 'configure)) ; no configure
         #:make-flags (list (string-append "PREFIX=" %output))
         #:tests? #f)) ; no tests
      (native-inputs
       `(("pkg-config" ,pkg-config)))
      (inputs
       `(("libusb" ,libusb)))
      (home-page "https://github.com/linux-rockchip/rkflashtool")
      (synopsis "Tools for flashing Rockchip devices")
      (description "Allows flashing of Rockchip based embedded linux devices.
The list of currently supported devices is: RK2818, RK2918, RK2928, RK3026,
RK3036, RK3066, RK312X, RK3168, RK3188, RK3288, RK3368.")
      (license bsd-2))))
Commit	Line	Data
4acd5c0f	1	;;; GNU Guix --- Functional package management for GNU
eff5f452	2	;;; Copyright © 2014 Mark H Weaver <mhw@netris.org>
4acd5c0f	3	;;; Copyright © 2014 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>
af3166c3 HG	4	;;; Copyright © 2016 Hartmut Goebel <h.goebel@crazy-compilers.com>
af3166c3 HG	5	;;; Copyright © 2016 Ludovic Courtès <ludo@gnu.org>
7526edb9	6	;;; Copyright © 2016 Efraim Flashner <efraim@flashner.co.il>
29ac89a6	7	;;; Copyright © 2017 Jonathan Brielmaier <jonathan.brielmaier@web.de>
4acd5c0f MR	8	;;;
	9	;;; This file is part of GNU Guix.
	10	;;;
	11	;;; GNU Guix is free software; you can redistribute it and/or modify it
	12	;;; under the terms of the GNU General Public License as published by
	13	;;; the Free Software Foundation; either version 3 of the License, or (at
	14	;;; your option) any later version.
	15	;;;
	16	;;; GNU Guix is distributed in the hope that it will be useful, but
	17	;;; WITHOUT ANY WARRANTY; without even the implied warranty of
	18	;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	;;; GNU General Public License for more details.
	20	;;;
	21	;;; You should have received a copy of the GNU General Public License
	22	;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
	23
eff5f452	24	(define-module (gnu packages flashing-tools)
4acd5c0f MR	25	#:use-module (guix licenses)
4acd5c0f MR	26	#:use-module (guix download)
7526edb9	27	#:use-module (guix git-download)
4acd5c0f MR	28	#:use-module (guix packages)
	29	#:use-module (gnu packages)
	30	#:use-module (guix build-system gnu)
	31	#:use-module (gnu packages bison)
	32	#:use-module (gnu packages flex)
	33	#:use-module (gnu packages elf)
eff5f452	34	#:use-module (gnu packages pkg-config)
4acd5c0f	35	#:use-module (gnu packages libusb)
eff5f452 MR	36	#:use-module (gnu packages libftdi)
eff5f452 MR	37	#:use-module (gnu packages pciutils)
af3166c3	38	#:use-module (gnu packages autotools)
eff5f452 MR	39	#:use-module (gnu packages admin))
	40
	41	(define-public flashrom
	42	(package
	43	(name "flashrom")
03ddad84	44	(version "0.9.9")
eff5f452 MR	45	(source (origin
	46	(method url-fetch)
	47	(uri (string-append
03ddad84	48	"https://download.flashrom.org/releases/flashrom-"
eff5f452 MR	49	version ".tar.bz2"))
	50	(sha256
	51	(base32
03ddad84	52	"0i9wg1lyfg99bld7d00zqjm9f0lk6m0q3h3n9c195c9yysq5ccfb"))))
eff5f452 MR	53	(build-system gnu-build-system)
	54	(inputs `(("dmidecode" ,dmidecode)
	55	("pciutils" ,pciutils)
	56	("libusb" ,libusb)
	57	("libftdi" ,libftdi)))
	58	(native-inputs `(("pkg-config" ,pkg-config)))
	59	(arguments
03ddad84 DM	60	'(#:make-flags (list "CC=gcc"
	61	(string-append "PREFIX=" %output)
	62	"CONFIG_ENABLE_LIBUSB0_PROGRAMMERS=no")
eff5f452 MR	63	#:tests? #f ; no 'check' target
	64	#:phases
	65	(alist-delete
	66	'configure
	67	(alist-cons-before
	68	'build 'patch-exec-paths
	69	(lambda* (#:key inputs #:allow-other-keys)
	70	(substitute* "dmi.c"
	71	(("\"dmidecode\"")
	72	(format #f "~S"
	73	(string-append (assoc-ref inputs "dmidecode")
	74	"/sbin/dmidecode")))))
	75	%standard-phases))))
	76	(home-page "http://flashrom.org/")
	77	(synopsis "Identify, read, write, erase, and verify ROM/flash chips")
	78	(description
	79	"flashrom is a utility for identifying, reading, writing,
	80	verifying and erasing flash chips. It is designed to flash
	81	BIOS/EFI/coreboot/firmware/optionROM images on mainboards,
	82	network/graphics/storage controller cards, and various other
	83	programmer devices.")
	84	(license gpl2)))
4acd5c0f	85
29ac89a6 JB	86	(define-public 0xffff
	87	(package
	88	(name "0xffff")
	89	(version "0.7")
	90	(source
	91	(origin
	92	(method url-fetch)
	93	(uri (string-append "https://github.com/pali/0xffff/archive/"
	94	version ".tar.gz"))
	95	(file-name (string-append "0xFFFF" version ".tar.gz" ))
	96	(sha256
	97	(base32
	98	"1g4032c81wkk37wvbg1dxcqq6mnd76y9x7f2crmzqi6z4q9jcxmj"))))
	99	(build-system gnu-build-system)
	100	(inputs
	101	`(("libusb",libusb-0.1))) ; doesn't work with libusb-compat
	102	(arguments
	103	'(#:phases
	104	(modify-phases %standard-phases
	105	(delete 'configure)) ; no configure
	106	#:make-flags (list (string-append "PREFIX=" %output))
	107	#:tests? #f)) ; no 'check' target
	108	(home-page "https://github.com/pali/0xFFFF")
	109	(synopsis "Flash FIASCO images on Maemo devices")
	110	(description
	111	"The Open Free Fiasco Firmware Flasher (0xFFFF) is a flashing tool
	112	for FIASCO images. It supports generating, unpacking, editing and
	113	flashing of FIASCO images for Maemo devices. Use it with care. It can
	114	brick your device.")
	115	(license gpl3+)))
	116
4acd5c0f MR	117	(define-public avrdude
	118	(package
	119	(name "avrdude")
	120	(version "6.1")
	121	(source
	122	(origin
	123	(method url-fetch)
	124	(uri (string-append "mirror://savannah/avrdude/avrdude-"
	125	version ".tar.gz"))
	126	(sha256
	127	(base32
b0069a67	128	"0frxg0q09nrm95z7ymzddx7ysl77ilfbdix1m81d9jjpiv5bm64y"))))
4acd5c0f MR	129	(build-system gnu-build-system)
	130	(inputs
	131	`(("libelf" ,libelf)
b0069a67	132	("libusb" ,libusb-compat)
4acd5c0f MR	133	("libftdi" ,libftdi)))
	134	(native-inputs
	135	`(("bison" ,bison)
	136	("flex" ,flex)))
	137	(home-page "http://www.nongnu.org/avrdude/")
	138	(synopsis "AVR downloader and uploader")
	139	(description
	140	"AVRDUDE is a utility to download/upload/manipulate the ROM and
	141	EEPROM contents of AVR microcontrollers using the in-system programming
	142	technique (ISP).")
	143	(license gpl2+)))
2a9a4fb8 MR	144
	145	(define-public dfu-programmer
	146	(package
	147	(name "dfu-programmer")
702675c5	148	(version "0.7.2")
2a9a4fb8 MR	149	(source
	150	(origin
	151	(method url-fetch)
de67e922 LF	152	(uri (string-append "mirror://sourceforge/dfu-programmer/dfu-programmer/"
de67e922 LF	153	version "/dfu-programmer-" version ".tar.gz"))
2a9a4fb8 MR	154	(sha256
2a9a4fb8 MR	155	(base32
702675c5	156	"15gr99y1z9vbvhrkd25zqhnzhg6zjmaam3vfjzf2mazd39mx7d0x"))
fc1adab1	157	(patches (search-patches "dfu-programmer-fix-libusb.patch"))))
2a9a4fb8	158	(build-system gnu-build-system)
702675c5 DT	159	(native-inputs
702675c5 DT	160	`(("pkg-config" ,pkg-config)))
2a9a4fb8 MR	161	(inputs
	162	`(("libusb" ,libusb)))
	163	(home-page "http://dfu-programmer.github.io/")
	164	(synopsis "Device firmware update programmer for Atmel chips")
	165	(description
7c125ce0 AK	166	"Dfu-programmer is a multi-platform command-line programmer for
	167	Atmel (8051, AVR, XMEGA & AVR32) chips with a USB bootloader supporting
	168	ISP.")
2a9a4fb8	169	(license gpl2+)))
af3166c3 HG	170
	171	(define-public dfu-util
	172	(package
	173	(name "dfu-util")
	174	(version "0.9")
	175	(source (origin
	176	(method url-fetch)
	177	(uri (string-append
	178	"http://dfu-util.sourceforge.net/releases/dfu-util-"
	179	version ".tar.gz"))
	180	(sha256
	181	(base32
	182	"0czq73m92ngf30asdzrfkzraag95hlrr74imbanqq25kdim8qhin"))))
	183	(build-system gnu-build-system)
	184	(inputs
	185	`(("libusb" ,libusb)))
	186	(native-inputs
	187	`(("pkg-config" ,pkg-config)))
	188	(synopsis "Host side of the USB Device Firmware Upgrade (DFU) protocol")
	189	(description
	190	"The DFU (Universal Serial Bus Device Firmware Upgrade) protocol is
	191	intended to download and upload firmware to devices connected over USB. It
	192	ranges from small devices like micro-controller boards up to mobile phones.
	193	With dfu-util you are able to download firmware to your device or upload
	194	firmware from it.")
	195	(home-page "http://dfu-util.sourceforge.net/")
	196	(license gpl2+)))
d3a858cb HG	197
	198	(define-public teensy-loader-cli
	199	;; The repo does not tag versions nor does it use releases, but a commit
	200	;; message says "Importing 2.1", while the sourcce still says "2.0". So pin
	201	;; to a fixed commit.
	202	(let ((commit "f289b7a2e5627464044249f0e5742830e052e360"))
	203	(package
	204	(name "teensy-loader-cli")
	205	(version (string-append "2.1-1." (string-take commit 7)))
	206	(source
	207	(origin
	208	(method url-fetch)
	209	(uri (string-append "https://github.com/PaulStoffregen/"
	210	"teensy_loader_cli/archive/" commit ".tar.gz"))
	211	(sha256 (base32 "17wqc2q4fa473cy7f5m2yiyb9nq0qw7xal2kzrxzaikgm9rabsw8"))
	212	(file-name (string-append "teensy-loader-cli-" version ".tar.gz" ))
	213	(modules '((guix build utils)))
	214	(snippet
	215	`(begin
	216	;; Remove example flash files and teensy rebooter flash binaries.
	217	(for-each delete-file (find-files "." "\\.(elf\|hex)$"))
	218	;; Fix the version
	219	(substitute* "teensy_loader_cli.c"
	220	(("Teensy Loader, Command Line, Version 2.0\\\\n")
	221	(string-append "Teensy Loader, Command Line, " ,version "\\n")))
	222	#t))
	223	(patches (search-patches "teensy-loader-cli-help.patch"))))
	224	(build-system gnu-build-system)
	225	(arguments
	226	'(#:tests? #f ;; Makefile has no test target
	227	#:make-flags (list "CC=gcc" (string-append "PREFIX=" %output))
	228	#:phases
	229	(modify-phases %standard-phases
	230	(delete 'configure)
	231	(replace 'install
	232	(lambda* (#:key outputs #:allow-other-keys)
	233	(let* ((out (assoc-ref outputs "out"))
	234	(bin (string-append out "/bin")))
	235	(install-file "teensy_loader_cli" bin)
	236	#t))))))
	237	(inputs
	238	`(("libusb-compat" ,libusb-compat)))
	239	(synopsis "Command line firmware uploader for Teensy development boards")
	240	(description
	241	"The Teensy loader program communicates with your Teensy board when the
	242	HalfKay bootloader is running, so you can upload new programs and run them.
	243
	244	You need to add the udev rules to make the Teensy update available for
	245	non-root users.")
	246	(home-page "https://www.pjrc.com/teensy/loader_cli.html")
	247	(license gpl3))))
7526edb9 EF	248
	249	(define-public rkflashtool
	250	(let ((commit "094bd6410cb016e487e2ccb1050c59eeac2e6dd1")
	251	(revision "1"))
	252	(package
	253	(name "rkflashtool")
	254	(version (string-append "0.0.0-" revision "." (string-take commit 7)))
	255	(source
	256	(origin
	257	(method git-fetch)
	258	(uri (git-reference
	259	(url "https://github.com/linux-rockchip/rkflashtool.git")
	260	(commit commit)))
	261	(file-name (string-append name "-" version "-checkout"))
	262	(sha256
	263	(base32
	264	"1zkd8zxir3rfg3sy9r20bcnxclnplryn583gqpcr3iad0k3xbah7"))))
	265	(build-system gnu-build-system)
	266	(arguments
	267	'(#:phases
	268	(modify-phases %standard-phases
	269	(delete 'configure)) ; no configure
	270	#:make-flags (list (string-append "PREFIX=" %output))
	271	#:tests? #f)) ; no tests
	272	(native-inputs
	273	`(("pkg-config" ,pkg-config)))
	274	(inputs
	275	`(("libusb" ,libusb)))
	276	(home-page "https://github.com/linux-rockchip/rkflashtool")
	277	(synopsis "Tools for flashing Rockchip devices")
	278	(description "Allows flashing of Rockchip based embedded linux devices.
	279	The list of currently supported devices is: RK2818, RK2918, RK2928, RK3026,
	280	RK3036, RK3066, RK312X, RK3168, RK3188, RK3288, RK3368.")
	281	(license bsd-2))))