gn: Add kubernetes.

1 files changed, 93 insertions, 0 deletions

diff --git a/gn/packages/kubernetes.scm b/gn/packages/kubernetes.scm
new file mode 100644
index 0000000..1b83bd7
--- /dev/null
+++ b/gn/packages/kubernetes.scm
@@ -0,0 +1,93 @@
+(define-module (gn packages kubernetes)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module (guix packages)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system go)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages rsync)
+  )
+
+(define-public kubernetes
+  (package
+    (name "kubernetes")
+    (version "1.16.2")
+    (source (origin
+              (method git-fetch)
+              (uri (git-reference
+                     (url "https://github.com/kubernetes/kubernetes.git")
+                     (commit (string-append "v" version))))
+              (file-name (git-file-name name version))
+              (sha256
+               (base32
+                "1al6jvljscqg6j39rpm03sb33ns10pqz1j298bm3vispphbqx0j7"))))
+    (build-system go-build-system)
+    (arguments
+     `(#:import-path "k8s.io/kubernetes"
+       #:install-source? #f
+       #:tests? #f ; Skip tests for now.
+       #:phases
+       (modify-phases %standard-phases
+         (add-after 'unpack 'make-files-writable
+           (lambda _
+             (for-each make-file-writable (find-files "."))
+             #t))
+         (add-before 'build 'prepare-build
+           (lambda _
+             (with-directory-excursion "src/k8s.io/kubernetes"
+               (substitute* '("build/root/Makefile"
+                              "build/root/Makefile.generated_files"
+                              "build/pause/Makefile")
+                 (("/bin/bash") (which "bash"))))
+             #t))
+         (replace 'build
+           (lambda _
+             (with-directory-excursion "src/k8s.io/kubernetes"
+               ;; Cannot find go-bindata otherwise.
+               (setenv "PATH" (string-append (getcwd) "/_output/bin:"
+                                             (getenv "PATH")))
+               (invoke "make"))))
+         (replace 'install
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (with-directory-excursion "src/k8s.io/kubernetes"
+                 ;; This saves more than 350MiB.
+                 (delete-file "_output/local/go/bin/e2e.test")
+                 (delete-file "_output/local/go/bin/e2e_node.test")
+                 (for-each
+                   (lambda (file)
+                     (install-file file (string-append out "/bin")))
+                   (find-files "_output/local/go/bin" ".*"))
+                 ;(mkdir-p (string-append out "/share/bash-completion/completions"))
+                 ;(call-with-output-file (string-append out "/share/bash-completion/completions/kubectl")
+                 ;  (lambda (port)
+                 ;    (format port (invoke "_output/local/go/bin/kubectl" "completion" "bash"))))
+                 ;(mkdir-p (string-append out "/share/zsh/site-function"))
+                 ;(call-with-output-file (string-append out "/share/zsh/site-functions/_kubectl")
+                 ;  (lambda (port)
+                 ;    (format port (invoke "_output/local/go/bin/kubectl" "completion" "zsh"))))
+                 (install-file "LICENSE"
+                               (string-append out "/share/doc/"
+                                              ,name "-" ,version)))
+               #t)))
+         (add-after 'install 'install-man-pages
+           (lambda* (#:key outputs #:allow-other-keys)
+             (let ((out (assoc-ref outputs "out")))
+               (mkdir-p (string-append out "/share/man/man1"))
+               (with-directory-excursion "src/k8s.io/kubernetes"
+                 (for-each
+                   (lambda (file)
+                     (invoke "_output/local/go/bin/genman"
+                             (string-append out "/share/man/man1") file))
+                   '("kube-apiserver" "kube-controller-manager" "kube-proxy"
+                     "kube-scheduler" "kubelet" "kubectl")))
+               #t))))))
+    (native-inputs
+     `(("which" ,which)))
+    (inputs
+     `(("rsync" ,rsync)))
+    (home-page "https://kubernetes.io/")
+    (synopsis "Production-Grade Container Scheduling and Management")
+    (description "Kubernetes is an open source system for managing containerized
+applications across multiple hosts.  It provides basic mechanisms for
+deployment, maintenance, and scaling of applications.")
+    (license license:asl2.0)))