me
/
guix
Archived
1
0
Fork 0
This repository has been archived on 2024-08-07. You can view files and clone it, but cannot push or open issues/pull-requests.
guix/gnu/packages/usb-modeswitch.scm

167 lines
7.8 KiB
Scheme
Raw Normal View History

;;; GNU Guix --- Functional package management for GNU
;;; Copyright <20> 2019 Florian Pelz <pelzflorian@pelzflorian.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 usb-modeswitch)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system trivial)
#:use-module (gnu packages)
#:use-module (gnu packages base)
#:use-module (gnu packages compression)
#:use-module (gnu packages embedded)
#:use-module (gnu packages libusb)
#:use-module (gnu packages pkg-config))
(define-public usb-modeswitch-data
(package
(name "usb-modeswitch-data")
(version "20170806")
(source (origin
(method url-fetch)
(uri (string-append
"http://www.draisberghof.de/usb_modeswitch/"
"usb-modeswitch-data-" version ".tar.bz2"))
(sha256
(base32
"0b1wari3aza6qjggqd0hk2zsh93k1q8scgmwh6f8wr0flpr3whff"))))
(build-system trivial-build-system)
(native-inputs `(("tar" ,tar)
("bzip2" ,bzip2)))
(arguments
`(#:modules ((guix build utils))
#:builder
(begin
(use-modules (guix build utils))
(let* ((source (assoc-ref %build-inputs "source"))
(tar (assoc-ref %build-inputs "tar"))
(bzip2 (assoc-ref %build-inputs "bzip2"))
(files (string-append "usb-modeswitch-data-"
,(package-version this-package)))
(share-dir (string-append %output "/share"))
(doc-dir (string-append share-dir "/doc/"))
(license-dir (string-append doc-dir
(strip-store-file-name %output)))
(udev-dir (string-append %output "/udev")))
(copy-file source "data.tar.bz2")
(invoke (string-append bzip2 "/bin/bzip2") "-d" "data.tar.bz2")
(invoke (string-append tar "/bin/tar") "xvf" "data.tar")
(copy-recursively (string-append files "/usb_modeswitch.d")
(string-append share-dir "/usb_modeswitch.d"))
(install-file (string-append files "/40-usb_modeswitch.rules")
udev-dir)
(install-file (string-append files "/COPYING") license-dir)))))
(home-page "http://www.draisberghof.de/usb_modeswitch/")
(synopsis "Data package for USB_ModeSwitch")
(description "This packages contains data about devices and a UDEV rules
file for use with USB_ModeSwitch.")
(license license:gpl2+)))
(define-public usb-modeswitch
(package
(name "usb-modeswitch")
(version "2.5.2")
(source (origin
(method url-fetch)
(uri (string-append
"http://www.draisberghof.de/usb_modeswitch/"
"usb-modeswitch-" version ".tar.bz2"))
(sha256
(base32
"19ifi80g9ns5dmspchjvfj4ykxssq9yrci8m227dgb3yr04srzxb"))
(modules '((guix build utils)))
(snippet
;; Remove bundled jimtcl.
'(begin
(delete-file-recursively "jim")
#t))
(patches
(search-patches "usb-modeswitch-accept-config-arg.patch"))))
(native-inputs `(("pkg-config" ,pkg-config)))
(inputs `(("libusb" ,libusb)
("jimtcl" ,jimtcl)
("usb-modeswitch-data" ,usb-modeswitch-data)))
(outputs '("out" "dispatcher"))
(build-system gnu-build-system)
(arguments
`(#:tests? #f ; does not support `make check`
#:make-flags (list "CC=gcc")
#:phases
(modify-phases %standard-phases
(delete 'configure) ; no configure script
(replace 'install
(lambda* (#:key source outputs inputs #:allow-other-keys)
(let* ((source (assoc-ref inputs "source"))
(jimtcl (assoc-ref inputs "jimtcl"))
(data (assoc-ref inputs "usb-modeswitch-data"))
(out (assoc-ref outputs "out"))
(bin (string-append out "/bin"))
(man1 (string-append out "/share/man/man1"))
(dispatcher-out (assoc-ref outputs "dispatcher"))
(udev (string-append dispatcher-out "/lib/udev"))
(etc (string-append dispatcher-out "/etc"))
(dispatcher-bin (string-append dispatcher-out "/bin"))
(dispatcher-man1 (string-append dispatcher-out
"/share/man/man1")))
(begin
;; Users can install the default output and
;; usb-modeswitch-data and then modeswitch their USB device
;; by running e.g.:
;;
;; sudo usb_modeswitch -c \
;; ~/.guix-profile/share/usb_modeswitch.d/12d1\:14fe \
;; -v 0x12d1 -p 0x14fe
;;
;; But it is simpler to use the usb-modeswitch-service-type
;; that installs a UDEV rules file which invokes a shell
;; script in lib/udev (also called `usb_modeswitch' like the
;; main binary) which, in turn, invokes the program
;; `usb_modeswitch_dispatcher'. Normal users should not
;; invoke this dispatcher directly, so it is a separate output.
(install-file "usb_modeswitch" bin)
(install-file "usb_modeswitch.conf" etc)
(install-file "usb_modeswitch.1" man1)
(install-file "usb_modeswitch_dispatcher.1" dispatcher-man1)
(substitute* "usb_modeswitch.sh"
(("PATH=") "PATH=$PATH:") ; we do not want hardcoded FHS path
(("init_path=") "init_path=/does/not/exist")) ; no /sbin/init
(rename-file "usb_modeswitch.sh" "usb_modeswitch")
(install-file "usb_modeswitch" udev)
(rename-file "usb_modeswitch.tcl" "usb_modeswitch_dispatcher")
(substitute* "usb_modeswitch_dispatcher"
(("/usr/bin/tclsh")
(string-append jimtcl "/bin/jimsh"))
(("/usr/sbin") bin)
(("/usr/share/usb_modeswitch")
(string-append data "/share/usb_modeswitch.d")))
(install-file "usb_modeswitch_dispatcher"
dispatcher-bin)
#t)))))))
(home-page "http://www.draisberghof.de/usb_modeswitch/")
(synopsis "Mode switching tool for controlling `multi-mode' USB devices")
(description "USB_ModeSwitch is a mode switching tool for controlling USB
devices with multiple @dfn{modes}. When plugged in for the first time many
USB devices (primarily high-speed WAN modems) act like a flash storage
containing installers for Windows drivers. USB_ModeSwitch replays the
sequence the Windows drivers would send to switch their mode from storage to
modem (or whatever the thing is supposed to do).")
(license license:gpl2+)))