dmbcs/guix-channel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compare commits

merge into: dmbcs:trunk
Branches Tags
dmbcs:trunk
dmbcs:keyring
...
pull from: dmbcs:keyring
Branches Tags
dmbcs:trunk
dmbcs:keyring

No commits in common. "trunk" and "keyring" have entirely different histories.
trunk ... keyring

6 changed files with 0 additions and 253 deletions
Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -1 +0,0 @@
*~

4
.guix-authorizations
View file

@ -1,4 +0,0 @@
(authorizations
(version 0)
(("E23C 21ED 864F F4F3 A711 4CDF CA47 1FD5 0161 8A49"
(name "dale"))))

BIN
dale.key Normal file
View file

Binary file not shown.

138
dmbcs/development/packages/guile.scm
View file

@ -1,138 +0,0 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2016, 2018 David Thompson <davet@gnu.org>
;;; Copyright © 2014, 2017, 2018 Mark H Weaver <mhw@netris.org>
;;; Copyright © 2015, 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
;;; Copyright © 2016, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
;;; Copyright © 2017 Marius Bakke <mbakke@fastmail.com>
;;; Copyright © 2017, 2019 Mathieu Othacehe <m.othacehe@gmail.com>
;;; Copyright © 2017 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2017, 2018 Amirouche <amirouche@hypermove.net>
;;; Copyright © 2018 Danny Milosavljevic <dannym@scratchpost.org>
;;; Copyright © 2018 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2019 Taylan Kammer <taylan.kammer@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (dmbcs development packages guile)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages)
#:use-module (gnu packages autotools)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages bdw-gc)
#:use-module (gnu packages compression)
#:use-module (gnu packages dbm)
#:use-module (gnu packages flex)
#:use-module (gnu packages gawk)
#:use-module (gnu packages gettext)
#:use-module (gnu packages guile)
#:use-module (gnu packages hurd)
#:use-module (gnu packages libffi)
#:use-module (gnu packages libunistring)
#:use-module (gnu packages linux)
#:use-module (gnu packages m4)
#:use-module (gnu packages multiprecision)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages readline)
#:use-module (gnu packages sqlite)
#:use-module (gnu packages texinfo)
#:use-module (gnu packages version-control)
#:use-module (guix packages)
#:use-module (guix download)
#:use-module (guix git-download)
#:use-module (guix build-system gnu)
#:use-module (guix build-system guile)
#:use-module (guix deprecation)
#:use-module (guix utils)
#:use-module (ice-9 match)
#:use-module ((srfi srfi-1) #:prefix srfi-1:))
;;; Commentary:
;;;
;;; GNU Guile, and modules and extensions.
;;;
;;; Code:
(define-public guile
;; This is the latest Guile stable version.
(package
(inherit guile-2.2)
(name "guile")
(version "3.0.4+dmbcs")
(source (origin
(inherit (package-source guile-2.2))
(method git-fetch)
(uri (git-reference
(url "https://rdmp.org/dmbcs/guile.git")
(commit "a3a28334a3d5c397dfc24dfbceab113f993c5f0b")))
(sha256
(base32
"0zw2s748d0gj31q9wc23mmgdjc8fpl6577v5b2lqj5ca4m69d8x0"))
(patches '())))
(arguments
;; XXX: JIT-enabled Guile crashes in obscure ways on GNU/Hurd.
(if #f ;; (hurd-target?)
(substitute-keyword-arguments (package-arguments guile-2.2)
((#:configure-flags flags ''())
`(cons "--disable-jit" ,flags)))
(substitute-keyword-arguments (package-arguments guile-2.2)
((#:phases phases '%standard-phases)
`(modify-phases ,phases
(replace 'bootstrap
(lambda _
;; Disable broken tests.
;; TODO: Fix them!
(substitute* "test-suite/tests/gc.test"
(("\\(pass-if \"after-gc-hook gets called\"" m)
(string-append "#;" m)))
(substitute* "test-suite/tests/version.test"
(("\\(pass-if \"version reporting works\"" m)
(string-append "#;" m)))
;; Warning: Unwind-only `out-of-memory' exception; skipping pre-unwind handler.
;; FAIL: test-out-of-memory
(substitute* "test-suite/standalone/Makefile.am"
(("(check_SCRIPTS|TESTS) \\+= test-out-of-memory") ""))
(patch-shebang "build-aux/git-version-gen")
(invoke "sh" "autogen.sh")
#t)))))))
(native-inputs
`(("autoconf" ,autoconf)
("automake" ,automake)
("libtool" ,libtool)
("flex" ,flex)
("texinfo" ,texinfo)
("gettext" ,gettext-minimal)
,@(package-native-inputs guile-2.2)))
(native-search-paths
(list (search-path-specification
(variable "GUILE_LOAD_PATH")
(files '("share/guile/site/3.0")))
(search-path-specification
(variable "GUILE_LOAD_COMPILED_PATH")
(files '("lib/guile/3.0/site-ccache"
"share/guile/site/3.0")))))
(license license:gpl3+)))
;;; guile.scm ends here

57
dmbcs/development/packages/mcron.scm
View file

@ -1,57 +0,0 @@
;;;; mcron.scm -- Guix package definition
;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org>
;;; Copyright © 2018 宋文武 <iyzsong@member.fsf.org>
;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
;;;
;;; This file is part of GNU Mcron.
;;;
;;; GNU Mcron is free software: you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation, either version 3 of the License, or
;;; (at your option) any later version.
;;;
;;; GNU Mcron is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Mcron. If not, see <http://www.gnu.org/licenses/>.
(define-module (dmbcs development packages mcron)
;; #:use-module (dmbcs development packages guile)
;; !!! We can probably get rid of most of these.
#:use-module (ice-9 popen)
#:use-module (ice-9 rdelim)
#:use-module (gnu)
#:use-module (guix)
#:use-module (guix build-system gnu)
#:use-module (guix git-download)
#:use-module ((guix licenses) #:prefix license:)
#:use-module ((gnu packages guile-xyz) #:prefix guix-base:)
#:use-module (srfi srfi-1))
(define-public mcron
(package
(inherit guix-base:mcron)
(name "mcron")
(version "1.2.3+dmbcs")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://rdmp.org/dmbcs/mcron.git")
(commit "a16fd52bc5053032079533169baec131e271fbd4")))
(sha256
(base32 "0gvhqq0cyjm6gd2jhvy8xfhny4mbdnp4z0nqzk11dvnwzs9wk09z"))))
;; !!! The current incarnation of mcron includes the enhanced
;; command-line module from our new guile in its own source tree,
;; so we can get away with using the conventional guile now.
;;
;; Be sure to un-comment the use-module line near the top.
;; (inputs
;; `(("guile" ,(specification->package "guile@3.0.4+dmbcs"))))
(home-page "https://rdmp.org/dmbcs/mcron")))

53
dmbcs/development/packages/micro-server.scm
View file

@ -1,53 +0,0 @@
;; dmbcs-micro-server A C++ library providing CGI or built-in
;; web server functions
;;
;; Copyright (C) 2025 DM Bespoke Computer Solutions
;;
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or (at
;; your option) any later version.
;;
;; This program is distributed in the hope that it will be useful, but
;; WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
(define-module (dmbcs development packages micro-server)
#:use-module (guix packages)
#:use-module (guix git-download)
#:use-module (guix build-system cmake)
#:use-module (guix licenses)
#:use-module (gnu packages)
#:use-module (gnu packages curl)
#:use-module (gnu packages pkg-config)
#:use-module (gnu packages texinfo))
(define-public dmbcs-micro-server
(package
(name "dmbcs-micro-server")
(version "0.5")
(source
(origin
(method git-fetch)
(uri (git-reference
(url "https://khleedril.org/forge/dmbcs/micro-server")
(commit (string-append "v" version))))
(sha256 (base32 "1a2la52dgmfi3gjdjg8jdahwy33p3hzmrfnsvjvn9cgwvfwrixzy"))))
(build-system cmake-build-system)
(arguments `(#:phases (modify-phases %standard-phases (delete 'check))))
(native-inputs (list pkg-config texinfo))
(propagated-inputs (list curlpp))
(synopsis "Yet another C++ web server class library")
(description "A C++ web service module.")
(home-page "https://khleedril.org/dmbcs/micro-server")
(license gpl3+)))
dmbcs-micro-server