1 files changed, 45 insertions(+), 0 deletions(-)

M gnu/packages/electronics.scm

@@ 1185,6 1185,51 @@ editor, part of the RiNgDove EDA suite.")
 chip database for NG-Ultra architecture from NanoXplore.")
       (license license:expat))))
 
+(define-public prjpeppercorn
+  (package
+    (name "prjpeppercorn")
+    (version "1.8")
+    (source
+     (origin
+       (method git-fetch)
+       (uri (git-reference
+              (url "https://github.com/YosysHQ/prjpeppercorn/")
+              (commit (string-append "v" version))))
+       (file-name (git-file-name name version))
+       (sha256
+        (base32 "1lfvd3r1pnyc1mxsiiqqvmp8r5pw1bshgjrsrsnd20grvlv6wwcn"))))
+    (build-system cmake-build-system)
+    (arguments
+     (list
+      #:tests? #f                       ;no test suite
+      #:configure-flags
+      #~(list "-DBUILD_SHARED=ON"
+              "-DSTATIC_BUILD=OFF")
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'chdir
+            (lambda _
+              (chdir "libgm")))
+          (add-before 'chdir 'install-db-files
+            (lambda _
+              (let ((datadir
+                     (string-append #$output "/share/prjpeppercorn")))
+                (mkdir-p datadir)
+                (copy-recursively "delay" (string-append datadir "/delay"))
+                (copy-recursively "gatemate"
+                                  (string-append datadir "/gatemate"))
+                (copy-recursively "tools"
+                                  (string-append datadir "/tools"))))))))
+    (inputs
+     (list boost))
+    (synopsis "GateMate FPGAs bitstream tools")
+    (description
+     "@code{Prjpeppercorn} includes programming tools for GateMate
+architecture from Cologne Chip.  It also provides data needed to produce a
+@code{nextpnr} chip database Cologne Chip's GateMate architecture.")
+    (home-page "https://github.com/YosysHQ/prjpeppercorn/")
+    (license license:isc)))
+
 (define-public prjtrellis
   ;; The last release is 2 years old; use the latest commit for now.
   (let ((commit "92345b77edf775fe5668700dd9931e19db2d36b0")