From 00ab10ea12ae1236b297ae7c5b1c4a946cc0aaa0 Mon Sep 17 00:00:00 2001
From: Ekaitz Zarraga <ekaitz@elenq.tech>
Date: Sat, 25 Nov 2023 18:24:03 +0100
Subject: hare: Add it
---
hare.scm | 193 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
1 file changed, 193 insertions(+)
create mode 100644 hare.scm
diff --git a/hare.scm b/hare.scm
new file mode 100644
index 0000000..a51da1a
--- /dev/null
+++ b/hare.scm
@@ -0,0 +1,193 @@
+(define-module (hare)
+ #:use-module (guix packages)
+ #:use-module (guix utils)
+ #:use-module (guix gexp)
+ #:use-module (guix git-download)
+ #:use-module (guix download)
+ #:use-module ((guix licenses) #:prefix license:)
+ #:use-module (guix build-system gnu)
+ #:use-module (gnu packages)
+ #:use-module (gnu packages base)
+ #:use-module (gnu packages c)
+ #:use-module (gnu packages man)
+ #:use-module (ice-9 match))
+
+(define tzdata-list
+ (package
+ (inherit tzdata)
+ (name "tzdata-list")
+ (arguments
+ (list #:tests? #f
+ ;; This consists purely of (architecture-independent) data, so
+ ;; ‘cross-compilation’ is pointless here! (The binaries zic,
+ ;; dump, and tzselect are deleted in the post-install phase.)
+ #:target #f
+ #:make-flags
+ #~(let ((out #$output)
+ (tmp (getenv "TMPDIR")))
+ (list (string-append "TOPDIR=" out)
+ (string-append "TZDIR=" out "/share/zoneinfo")
+ (string-append "TZDEFAULT=" out
+ "/share/zoneinfo/localtime")
+
+ ;; Likewise for the C library routines.
+ (string-append "LIBDIR=" tmp "/lib")
+ (string-append "MANDIR=" tmp "/man")
+
+ ;; XXX: tzdata 2020b changed the on-disk format
+ ;; of the time zone files from 'fat' to 'slim'.
+ ;; Many packages (particularly evolution-data-server)
+ ;; can not yet handle the latter, so we stick with
+ ;; 'fat' for now.
+ #$@(if (version>=? (package-version this-package)
+ "2020b")
+ '("CPPFLAGS=-DZIC_BLOAT_DEFAULT='\"fat\"'")
+ '())
+
+ "AWK=awk"
+ "CC=gcc"))
+ #:modules '((guix build utils)
+ (guix build gnu-build-system)
+ (srfi srfi-1))
+ #:phases
+ #~(modify-phases %standard-phases
+ (replace 'unpack
+ (lambda* (#:key source inputs #:allow-other-keys)
+ (invoke "tar" "xvf" source)
+ (invoke "tar" "xvf"
+ #$(match (package-inputs this-package)
+ (((_ tzcode)) tzcode)))))
+ (add-after 'install 'post-install
+ (lambda* (#:key outputs #:allow-other-keys)
+ ;; Move data in the right place.
+ (let ((out (assoc-ref outputs "out")))
+ (copy-file "leap-seconds.list"
+ (string-append out "/share/zoneinfo/leap-seconds.list"))
+ (symlink (string-append out "/share/zoneinfo")
+ (string-append out "/share/zoneinfo/posix"))
+ (copy-recursively (string-append out "/share/zoneinfo-leaps")
+ (string-append out "/share/zoneinfo/right")))))
+ (delete 'configure))))))
+
+(define qbe-master
+ (let ((commit "d023bdaa6b493686f7e9be7ac200ee4ac37d351f")
+ (revision "1"))
+ (package
+ (inherit qbe)
+ (name "qbe")
+ (version (git-version "1.1" revision commit))
+ (source (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "git://c9x.me/qbe")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32
+ "11flr6mmxglidp4fr7whfzhwr1bjkiz0rcvpy541xmwm2isj5znm")))))))
+
+(define-public harec
+ (let ((revision "1")
+ (commit "b4dd4275b24513d14e999bc35ea7d61ed02d1e08"))
+ (package
+ (name "harec")
+ (version (git-version "0.0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://git.sr.ht/~sircmpwn/harec")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "1brb0qr6fsi2hx724rprkkwi6qs6ymqglng78gm9m8k6z7c61j8b"))))
+ (build-system gnu-build-system)
+ (arguments
+ `(#:phases
+ (modify-phases %standard-phases
+ (add-before 'configure 'setenv
+ (lambda _
+ (setenv "CC" ,(cc-for-target))))
+ (add-after 'configure 'configure-better
+ (lambda* (#:key outputs #:allow-other-keys)
+ (invoke "./configure"
+ (string-append "--prefix=" (assoc-ref outputs "out")))))
+ (delete 'configure))))
+ (inputs (list qbe-master scdoc))
+ (synopsis "Bootstrapping compiler for Hare")
+ (description "Hare is a systems programming language designed to be
+simple, stable, and robust. Hare uses a static type system, manual memory
+management, and a minimal runtime. It is well-suited to writing operating
+systems, system tools, compilers, networking software, and other low-level,
+high performance tasks. If you want to code in Hare, you probably prefer to
+install @code{hare}")
+ (home-page "https://git.sr.ht/~sircmpwn/harec")
+ (license license:gpl3))))
+
+
+(define-public hare
+ (let ((revision "1")
+ (commit "b35f4bc1551bf561de2e0e1fcd7367c20fa21216"))
+ (package
+ (name "hare")
+ (version (git-version "0.0.1" revision commit))
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url "https://git.sr.ht/~sircmpwn/hare")
+ (commit commit)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0v5r7007dyy75qagffkhag1pqigdsv2qgbgwrn44d51ws695phzi"))))
+ (inputs (list scdoc qbe-master harec tzdata-list))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:make-flags #~(list "HARECACHE=./cache" (string-append "PREFIX=" #$output))
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'configure 'configure-make
+ (lambda _
+ (substitute*
+ "time/chrono/+linux.ha"
+ (("/usr/share/zoneinfo/leap-seconds.list")
+ (string-append #$tzdata-list "/share/zoneinfo/leap-seconds.list"))
+ (("/usr/share/zoneinfo/")
+ (string-append #$tzdata-list "/share/zoneinfo/")))
+ (copy-file "config.example.mk" "config.mk")
+ (substitute*
+ "config.mk"
+ (("AS = as")
+ (string-append "AS = "
+ #$binutils "/bin/" #$(as-for-target)))
+ (("LD = ld")
+ (string-append "LD = "
+ #$binutils "/bin/" #$(ld-for-target)))
+ (("QBE = qbe")
+ (string-append "QBE = "
+ #$qbe-master "/bin/qbe"))
+ (("SCDOC = scdoc")
+ (string-append "SD ="
+ #$scdoc "/bin/scdoc"))
+ (("HAREC = harec")
+ (string-append "HAREC =" #$harec "/bin/harec")))
+ (substitute*
+ "cmd/hare/build.ha"
+ (("\"qbe\"")
+ (string-append "\"" #$qbe-master "/bin/qbe" "\""))
+ (("\"harec\"")
+ (string-append "\"" #$harec "/bin/harec" "\""))
+ (("arch.as_cmd")
+ (string-append "\"" #$binutils "/bin/" #$(as-for-target) "\""))
+ (("arch.ld_cmd")
+ (string-append "\"" #$binutils "/bin/" #$(ld-for-target) "\"")))))
+ (delete 'configure))))
+ (synopsis "Hare build driver")
+ (description "Hare is a systems programming language designed to be
+simple, stable, and robust. Hare uses a static type system, manual memory
+management, and a minimal runtime. It is well-suited to writing operating
+systems, system tools, compilers, networking software, and other low-level,
+high performance tasks.")
+ (home-page "https://git.sr.ht/~sircmpwn/hare")
+ (license license:gpl3))))
--
cgit v1.2.3