123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125 |
- (define-module (guix scripts import go)
- #:use-module (guix ui)
- #:use-module (guix utils)
- #:use-module (guix scripts)
- #:use-module (guix import go)
- #:use-module (guix import utils)
- #:use-module (guix scripts import)
- #:use-module (srfi srfi-1)
- #:use-module (srfi srfi-11)
- #:use-module (srfi srfi-26)
- #:use-module (srfi srfi-37)
- #:use-module (ice-9 match)
- #:use-module (ice-9 format)
- #:use-module (ice-9 receive)
- #:export (guix-import-go))
- (define %default-options
- '((goproxy . "https://proxy.golang.org")))
- (define (show-help)
- (display (G_ "Usage: guix import go PACKAGE-PATH[@VERSION]
- Import and convert the Go module for PACKAGE-PATH. Optionally, a version
- can be specified after the arobas (@) character.\n"))
- (display (G_ "
- -h, --help display this help and exit"))
- (display (G_ "
- -r, --recursive generate package expressions for all Go modules
- that are not yet in Guix"))
- (display (G_ "
- -p, --goproxy=GOPROXY specify which goproxy server to use"))
- (display (G_ "
- --pin-versions use the exact versions of a module's dependencies"))
- (newline)
- (show-bug-report-information))
- (define %options
-
- (cons* (option '(#\h "help") #f #f
- (lambda args
- (show-help)
- (exit 0)))
- (option '(#\r "recursive") #f #f
- (lambda (opt name arg result)
- (alist-cons 'recursive #t result)))
- (option '(#\p "goproxy") #t #f
- (lambda (opt name arg result)
- (alist-cons 'goproxy arg (alist-delete 'goproxy result))))
- (option '("pin-versions") #f #f
- (lambda (opt name arg result)
- (alist-cons 'pin-versions? #t result)))
- %standard-import-options))
- (define (guix-import-go . args)
- (define (parse-options)
-
- (parse-command-line args %options (list %default-options)
- #:build-options? #f))
- (with-error-handling
- (let* ((opts (parse-options))
- (args (filter-map (match-lambda
- (('argument . value)
- value)
- (_ #f))
- (reverse opts)))
-
-
- (package->definition* (if (assoc-ref opts 'pin-versions?)
- (cut package->definition <> 'full)
- package->definition)))
- (match args
- ((spec)
- (receive (name version)
- (package-name->name+version spec)
- (let ((arguments (list name
- #:goproxy (assoc-ref opts 'goproxy)
- #:version version
- #:pin-versions?
- (assoc-ref opts 'pin-versions?))))
- (if (assoc-ref opts 'recursive)
-
- (map package->definition*
- (apply go-module-recursive-import arguments))
-
- (let ((sexp (apply go-module->guix-package* arguments)))
- (unless sexp
- (leave (G_ "failed to download meta-data for module '~a'.~%")
- name))
- (package->definition* sexp))))))
- (()
- (leave (G_ "too few arguments~%")))
- ((many ...)
- (leave (G_ "too many arguments~%")))))))
|