amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: nuget: use xml->sxml's namespaces keyword.

Browse source 
* guix/import/nuget.scm (%nuget-nuspec): New variable.
(fetch-repo-info-from-snupkg): use xml->sxml's namespaces keyword.
reindentation. Do not use square brackets.

Change-Id: Ic86a12ab6557e0a7d627864c9ec39245f9cea892
Reviewed-by: Danny Milosavljevic <dannym@friendly-machines.com>
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
This commit is contained in:
Zheng Junjie 2025-06-19 23:24:30 +08:00 • committed by Sharlatan Hellseher
parent 8b38fb8fa7
commit d8a61d2b0b
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 19 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

34
guix/import/nuget.scm
View file

@ -80,6 +80,7 @@
(define %nuget-v3-package-versions-url "https://api.nuget.org/v3-flatcontainer/")
(define %nuget-symbol-packages-url "https://globalcdn.nuget.org/symbol-packages/")
(define %nuget-nuspec "http://schemas.microsoft.com/packaging/2013/05/nuspec.xsd")
;;; Version index https://api.nuget.org/v3-flatcontainer/{id-lower}/index.json
;;; nupkg download url https://api.nuget.org/v3-flatcontainer/{id-lower}/{version-lower}/{id-lower}.{version-lower}.nupkg
;;; nuspec url https://api.nuget.org/v3-flatcontainer/{id-lower}/{version-lower}/{id-lower}.nuspec
@ -273,25 +274,28 @@ success, or #f on failure."
#f)
(call-with-input-file (car nuspec-files)
(lambda (port)
(let* ((sxml (xml->sxml port #:trim-whitespace? #t)))
(let* ((sxml
(xml->sxml
port
#:trim-whitespace? #t
#:namespaces `((#f . ,%nuget-nuspec)))))
(car-safe
(filter-map
(lambda (node)
(sxml-match node
[(http://schemas.microsoft.com/packaging/2013/05/nuspec.xsd:repository
(@ . ,attrs-raw)
. ,_)
(let ((attrs (map (lambda (attr)
(cons (symbol->string (car attr))
(cadr attr)))
attrs-raw)))
(if (or (assoc-ref attrs "url")
(assoc-ref attrs "commit"))
attrs
#f))]
[,otherwise #f]))
((sxpath '(// http://schemas.microsoft.com/packaging/2013/05/nuspec.xsd:metadata
http://schemas.microsoft.com/packaging/2013/05/nuspec.xsd:repository))
((repository
(@ . ,attrs-raw)
. ,_)
(let ((attrs (map (lambda (attr)
(cons (symbol->string (car attr))
(cadr attr)))
attrs-raw)))
(if (or (assoc-ref attrs "url")
(assoc-ref attrs "commit"))
attrs
#f)))
(,otherwise #f)))
((sxpath '(// metadata repository))
sxml)))))))))))))
(lambda (key . args)
(warning (G_ "Failed to fetch or process snupkg file: ~a (Reason: ~a ~s)~%")