* 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
