123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114 |
- (define-module (guix scripts import opam)
- #:use-module (guix ui)
- #:use-module (guix utils)
- #:use-module (guix scripts)
- #:use-module (guix import opam)
- #:use-module (guix scripts import)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-11)
- #:use-module (srfi srfi-37)
- #:use-module (ice-9 match)
- #:use-module (ice-9 format)
- #:export (guix-import-opam))
- (define %default-options
- '())
- (define (show-help)
- (display (G_ "Usage: guix import opam PACKAGE-NAME
- Import and convert the opam package for PACKAGE-NAME.\n"))
- (display (G_ "
- -h, --help display this help and exit"))
- (display (G_ "
- -r, --recursive import packages recursively"))
- (display (G_ "
- --repo import packages from this opam repository (name, URL or local path)
- can be used more than once"))
- (display (G_ "
- -V, --version display version information and exit"))
- (newline)
- (show-bug-report-information))
- (define %options
-
- (cons* (option '(#\h "help") #f #f
- (lambda args
- (show-help)
- (exit 0)))
- (option '(#\V "version") #f #f
- (lambda args
- (show-version-and-exit "guix import opam")))
- (option '(#f "repo") #t #f
- (lambda (opt name arg result)
- (alist-cons 'repo arg result)))
- (option '(#\r "recursive") #f #f
- (lambda (opt name arg result)
- (alist-cons 'recursive #t result)))
- %standard-import-options))
- (define (guix-import-opam . args)
- (define (parse-options)
-
- (parse-command-line args %options (list %default-options)
- #:build-options? #f))
- (let* ((opts (parse-options))
- (repo (filter-map (match-lambda
- (('repo . name) name)
- (_ #f)) opts))
- (args (filter-map (match-lambda
- (('argument . value)
- value)
- (_ #f))
- (reverse opts))))
- (match args
- ((package-name)
- (if (assoc-ref opts 'recursive)
-
- (map (match-lambda
- ((and ('package ('name name) . rest) pkg)
- `(define-public ,(string->symbol name)
- ,pkg))
- (_ #f))
- (opam-recursive-import package-name #:repo repo))
-
- (let ((sexp (opam->guix-package package-name #:repo repo)))
- (unless sexp
- (leave (G_ "failed to download meta-data for package '~a'~%")
- package-name))
- sexp)))
- (()
- (leave (G_ "too few arguments~%")))
- ((many ...)
- (leave (G_ "too many arguments~%"))))))
|