[PATCH 2/2] gnu: Add colorforth.

[ng0 <ngillmann@runbox.com>]

* gnu/packages/forth.scm (colorforth): New variable.
---
 gnu/packages/forth.scm | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)

diff --git a/gnu/packages/forth.scm b/gnu/packages/forth.scm
index 67de966..8f32455 100644
--- a/gnu/packages/forth.scm
+++ b/gnu/packages/forth.scm
@@ -21,7 +21,9 @@
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
   #:use-module (guix download)
+  #:use-module (guix git-download)
   #:use-module (guix build-system gnu)
+  #:use-module (gnu packages assembly)
   #:use-module (gnu packages m4))
 
 (define-public gforth
@@ -58,3 +60,39 @@ and history.  A generic virtual machine environment, vmgen, is also
 included.")
     (home-page "https://www.gnu.org/software/gforth/")
     (license license:gpl3+)))
+
+(define-public colorforth
+  (let ((commit "94aec438f1ded202681f18801b98c52dc3beee41")
+        (revision "1"))
+    (package
+      (name "colorforth")
+      (version (string-append "0.0.0-" revision "." (string-take commit 7)))
+      (source (origin
+                (method git-fetch)
+                (uri (git-reference
+                      (url "https://github.com/narke/colorForth")
+                      (commit commit)))
+                (sha256
+                 (base32
+                  "0s602k568bm6vmvpahsms77liicg38vksn59j5m8ax4h9l9ca77r"))))
+      (arguments
+       `(#:tests? #f
+         #:phases
+         (modify-phases %standard-phases
+           (delete 'configure) ; no configure script
+           (replace 'install ; There is no 'install
+             (lambda _
+               (install-file "cf2012.img"
+                             (string-append (assoc-ref %outputs "out")
+                                            "/bin")))))))
+      (native-inputs
+       `(("nasm" ,nasm)))
+      (build-system gnu-build-system)
+      (home-page "https://github.com/narke/colorForth")
+      (synopsis "Native 32-bit colorForth for PCs, Bochs and Qemu")
+      (description
+       "Native colorForth for 32-bit PCs, at least compilable on Linux
+ and runnable on both Bochs and Qemu.  It is adapted from
+ @url{http://sourceforge.net/projects/colorforth, colorforth}.
+ The original colorforth is public domain software.")
+      (license license:public-domain)))) ; clarify upstream
-- 
2.10.1