* [bug#72243] [PATCH] gnu: Add xlink-xsd.
@ 2024-07-22 11:59 gemmaro
2024-07-22 14:36 ` Bruno Victal
2024-07-22 22:11 ` [bug#72243] [PATCH v2] " gemmaro
0 siblings, 2 replies; 3+ messages in thread
From: gemmaro @ 2024-07-22 11:59 UTC (permalink / raw)
To: 72243; +Cc: gemmaro
* gnu/packages/xml.scm (xlink-xsd): New variable.
Change-Id: If18f2018bd205134ea7d7d627b0d09c87c108415
---
gnu/packages/xml.scm | 44 +++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 43 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 85edcf0f7d..3c14a677af 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -85,7 +85,8 @@ (define-module (gnu packages xml)
#:use-module (guix deprecation)
#:use-module (guix utils)
#:use-module (gnu packages linux)
- #:use-module (gnu packages pkg-config))
+ #:use-module (gnu packages pkg-config)
+ #:use-module (ice-9 regex))
(define-public libxmlb
(package
@@ -1993,3 +1994,44 @@ (define-public xml-namespace-xsd
schema language defined by the XML Schema Recommendation Second Edition of 28 October
2004.")
(license license:w3c)))
+
+(define-public xlink-xsd
+ (package
+ (name "xlink-xsd")
+ (version "1.1-2008-06")
+ (source
+ (origin
+ (method url-fetch)
+ (uri (let* ((matches (string-match
+ "[0-9]+.[0-9]+-([0-9]{4})-([0-9]{2})" version))
+ (year (match:substring matches 1))
+ (month (match:substring matches 2)))
+ (string-append "https://www.w3.org/XML/" year "/" month
+ "/xlink.xsd")))
+ (sha256
+ (base32 "0jpjha5iiq4rf4hx3qfnmyya9cf17ysxz0rbhsffn5nwgxnghgf8"))))
+ (build-system copy-build-system)
+ (arguments
+ (list
+ #:install-plan #~'(("xlink.xsd" "/xml/dtd/xlink/xlink.xsd")
+ ("catalog.xml" "/xml/dtd/xlink/catalog.xml"))
+ #:phases #~(modify-phases %standard-phases
+ (add-before 'install 'create-catalog
+ (lambda _
+ (invoke "xmlcatalog"
+ "--noout"
+ "--create"
+ "--add"
+ "uri"
+ "http://www.w3.org/1999/xlink.xsd"
+ "xlink.xsd"
+ "catalog.xml"))))))
+ (native-inputs (list libxml2))
+ (home-page "https://www.w3.org/TR/xlink/")
+ (synopsis "XML Schema for XML Linking language")
+ (description
+ "This package provides an XML Schema document and its catalog file for
+the XML Linking Language (XLink). It provides the XLink-1.1 specific
+declarations and definitions for use in defining linking elements
+which conform to the XLink specification.")
+ (license license:w3c)))
base-commit: e5c0b62debc6f48a32a65736d9ba3da0b1e59cb9
--
2.45.2
^ permalink raw reply related [flat|nested] 3+ messages in thread
* [bug#72243] [PATCH] gnu: Add xlink-xsd.
2024-07-22 11:59 [bug#72243] [PATCH] gnu: Add xlink-xsd gemmaro
@ 2024-07-22 14:36 ` Bruno Victal
2024-07-22 22:11 ` [bug#72243] [PATCH v2] " gemmaro
1 sibling, 0 replies; 3+ messages in thread
From: Bruno Victal @ 2024-07-22 14:36 UTC (permalink / raw)
To: gemmaro; +Cc: 72243
Hi gemmaro,
On 2024-07-22 12:59, gemmaro wrote:
> +(define-public xlink-xsd
> + (package
> + (name "xlink-xsd")
> + (version "1.1-2008-06")
> + (source
> + (origin
> + (method url-fetch)
> + (uri (let* ((matches (string-match
> + "[0-9]+.[0-9]+-([0-9]{4})-([0-9]{2})" version))
> + (year (match:substring matches 1))
> + (month (match:substring matches 2)))
> + (string-append "https://www.w3.org/XML/" year "/" month
> + "/xlink.xsd")))
Perhaps something like:
--8<---------------cut here---------------start------------->8---
(define-public …
(let* ((year …)
(month …)
(version (string-join (list "1.1" year month) "-")))
(package …)))
--8<---------------cut here---------------end--------------->8---
would be more readable instead of matching the version string with regex?
> + #:install-plan #~'(("xlink.xsd" "/xml/dtd/xlink/xlink.xsd")
> + ("catalog.xml" "/xml/dtd/xlink/catalog.xml"))
I'd prefer to place these under "/xml/xsd/xlink/{xlink.xsd,catalog.xml}"
instead since these are not DTD files.
Cheers,
--
Bruno
^ permalink raw reply [flat|nested] 3+ messages in thread
* [bug#72243] [PATCH v2] gnu: Add xlink-xsd.
2024-07-22 11:59 [bug#72243] [PATCH] gnu: Add xlink-xsd gemmaro
2024-07-22 14:36 ` Bruno Victal
@ 2024-07-22 22:11 ` gemmaro
1 sibling, 0 replies; 3+ messages in thread
From: gemmaro @ 2024-07-22 22:11 UTC (permalink / raw)
To: 72243; +Cc: gemmaro, Bruno Victal
* gnu/packages/xml.scm (xlink-xsd): New variable.
Change-Id: If18f2018bd205134ea7d7d627b0d09c87c108415
---
gnu/packages/xml.scm | 39 +++++++++++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
diff --git a/gnu/packages/xml.scm b/gnu/packages/xml.scm
index 85edcf0f7d..b73172c048 100644
--- a/gnu/packages/xml.scm
+++ b/gnu/packages/xml.scm
@@ -1993,3 +1993,42 @@ (define-public xml-namespace-xsd
schema language defined by the XML Schema Recommendation Second Edition of 28 October
2004.")
(license license:w3c)))
+
+(define-public xlink-xsd
+ (let* ((year "2008")
+ (month "06"))
+ (package
+ (name "xlink-xsd")
+ (version (string-join (list "1.1" year month) "-"))
+ (source
+ (origin
+ (method url-fetch)
+ (uri (string-append "https://www.w3.org/XML/" year "/" month
+ "/xlink.xsd"))
+ (sha256
+ (base32 "0jpjha5iiq4rf4hx3qfnmyya9cf17ysxz0rbhsffn5nwgxnghgf8"))))
+ (build-system copy-build-system)
+ (arguments
+ (list
+ #:install-plan #~'(("xlink.xsd" "/xml/xsd/xlink/xlink.xsd")
+ ("catalog.xml" "/xml/xsd/xlink/catalog.xml"))
+ #:phases #~(modify-phases %standard-phases
+ (add-before 'install 'create-catalog
+ (lambda _
+ (invoke "xmlcatalog"
+ "--noout"
+ "--create"
+ "--add"
+ "uri"
+ "http://www.w3.org/1999/xlink.xsd"
+ "xlink.xsd"
+ "catalog.xml"))))))
+ (native-inputs (list libxml2))
+ (home-page "https://www.w3.org/TR/xlink/")
+ (synopsis "XML Schema for XML Linking language")
+ (description
+ "This package provides an XML Schema document and its catalog file for
+the XML Linking Language (XLink). It provides the XLink-1.1 specific
+declarations and definitions for use in defining linking elements
+which conform to the XLink specification.")
+ (license license:w3c))))
base-commit: e5c0b62debc6f48a32a65736d9ba3da0b1e59cb9
--
2.45.2
^ permalink raw reply related [flat|nested] 3+ messages in thread
end of thread, other threads:[~2024-07-22 22:14 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2024-07-22 11:59 [bug#72243] [PATCH] gnu: Add xlink-xsd gemmaro
2024-07-22 14:36 ` Bruno Victal
2024-07-22 22:11 ` [bug#72243] [PATCH v2] " gemmaro
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/guix.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.