~ruther/guix-kria

guix-kria/modules/zynqmp/patches.scm -rw-r--r-- 1.1 KiB
79fd3786 — Rutherther chore: Add script to build the final image 2 months ago 
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

(define-module (zynqmp patches)
  #:use-module (zynqmp packages firmware)
  #:use-module ((guix licenses) #:prefix license:)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix gexp)
  #:use-module (guix utils)
  #:use-module (guix git-download)
  #:use-module (guix build-system gnu)
  #:use-module (gnu packages)
  #:use-module (gnu packages tls)
  #:use-module (gnu packages bootloaders)
  #:use-module (gnu packages texinfo)
  #:use-module (gnu packages cross-base)
  #:use-module (gnu packages base)
  #:use-module (gnu packages bash)
  #:use-module (gnu packages firmware)
  #:export (my-search-patch
            my-search-patches))

(define (my-search-patch patch)
  (parameterize ((%patch-path (map
                               (lambda (directory)
                                 (string-append directory "/zynqmp/packages/patches"))
                               %load-path)))
    ((@ (gnu packages) search-patch) patch)))

(define-syntax-rule (my-search-patches file-name ...)
  "Return the list of absolute file names corresponding to each
FILE-NAME found in %PATCH-PATH."
  (list (my-search-patch file-name) ...))