[bug#63898] [PATCH] gnu: Add plan9port.

[Antero Mejr]

* gnu/packages/plan9.scm (plan9port): New variable.
---
 gnu/packages/plan9.scm | 99 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 99 insertions(+)

diff --git a/gnu/packages/plan9.scm b/gnu/packages/plan9.scm
index 318344f2ec..747a1aaf64 100644
--- a/gnu/packages/plan9.scm
+++ b/gnu/packages/plan9.scm
@@ -20,8 +20,13 @@ (define-module (gnu packages plan9)
   #:use-module (guix build-system gnu)
   #:use-module (guix git-download)
   #:use-module (guix packages)
+  #:use-module (guix gexp)
   #:use-module (guix utils)
   #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages commencement)
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages perl)
   #:use-module (gnu packages xorg))
 
 (define-public drawterm
@@ -63,3 +68,97 @@ (define-public drawterm
 Plan 9 systems.  It behaves like a Plan 9 kernel and will attempt to
 reconstruct a Plan 9 terminal-like experience from a non-Plan 9 system.")
       (license license:expat))))
+
+(define-public plan9port
+  ;; no releases
+  (let ((commit "cc4571fec67407652b03d6603ada6580de2194dc")
+       (revision "0"))
+    (package
+      (name "plan9port")
+      (version (git-version "0.1.0" revision commit))
+      (source (origin
+               (method git-fetch)
+               (uri (git-reference
+                     (url "https://github.com/9fans/plan9port";)
+                     (commit commit)))
+               (file-name (git-file-name name version))
+               (sha256
+                (base32
+                 "1g2kzlghcghs560na6xalfsjq5zwp015wv9wk8wxn26981zs759x"))
+               (modules '((guix build utils)))
+               (snippet #~(for-each delete-file-recursively
+                                    '("font/luc" ;nonfree
+                                      "font/lucm"
+                                      "font/lucsans"
+                                      "font/pelm")))))
+      (build-system gnu-build-system)
+      (arguments
+       (list #:tests? #f ;no tests
+            #:phases #~(modify-phases %standard-phases
+                          (add-after 'unpack 'setup
+                            (lambda _
+                              (delete-file "src/cmd/mk/mk.pdf")
+                              (substitute* "src/cmd/acme/acme.c"
+                                (("/lib/font/bit/lucsans/euro.8.font")
+                                 (string-append
+                                  #$output
+                                  "/font/fixed/unicode.5x8.font"))
+                                (("/lib/font/bit/lucm/unicode.9.font")
+                                 (string-append
+                                  #$output
+                                  "/font/fixed/unicode.6x9.font")))
+                              (substitute* (find-files "src")
+                                (("/lib/font/bit")
+                                 (string-append #$output "/font")))
+                             (substitute* "bin/9c"
+                                (("which") (which "which")))
+                              (substitute* "src/cmd/fontsrv/freetyperules.sh"
+                               (("'\\$i'/freetype2")
+                                (string-append "-I" #$freetype
+                                               "/include/freetype2")))
+                              (with-output-to-file "LOCAL.config"
+                               (lambda _
+                                 (format #t "CC9=~a~%" #$(cc-for-target))
+                                 (format #t "FONTSRV=fontsrv~%")))
+                              (setenv "X11" #$libx11)
+                              (setenv "PLAN9" (getcwd))
+                              (setenv "PLAN9_TARGET" #$output)))
+                          (delete 'configure) ;no configure
+                         (replace 'build
+                           (lambda _
+                              (invoke "./INSTALL" "-b")))
+                         (replace 'install
+                           (lambda _
+                              (for-each
+                               (lambda (x)
+                                 (let ((out (string-append #$output "/" x)))
+                                   (mkdir-p out)
+                                   (copy-recursively x out)))
+                               ;; TODO: use external sky and dict packages
+                               '("bin" "face" "font" "include" "lib" "lp"
+                                 "mail" "man" "ndb" "plumb" "tmac" "troff"
+                                 "postscript"))
+                              (install-file "rcmain" #$output)))
+                         (add-after 'install 'wrap-executables
+                           (lambda _
+                             (for-each
+                              (lambda (exe)
+                                (wrap-program exe
+                                  `("PLAN9" ":" prefix (,#$output))))
+                              (find-files (string-append #$output "/bin")))))
+                          ;; Plan9 doesn't compress man pages
+                         (delete 'compress-documentation))))
+      (native-inputs (list perl which))
+      (inputs (list fontconfig libx11 libxext libxt))
+      ;; Propagate gcc-toolchain because some programs, like the 9c compiler,
+      ;; are just aliased scripts to gcc equivalents.
+      (propagated-inputs (list gcc-toolchain))
+      (home-page "https://9fans.github.io/plan9port/";)
+      (synopsis "Port of many Plan 9 libraries and programs")
+      (description
+       "Plan 9 from User Space (aka plan9port) is a port of many Plan 9
+programs from their native Plan 9 environment to Unix-like operating
+systems.")
+      (license (list license:expat ;modifications
+                     license:lpl1.02 ;original Plan9 code
+                    license:zlib))))) ;src/cmd/bzip2
-- 
2.39.2