From 2b55cf92033ed02cabd545540241585e05f1fbb0 Mon Sep 17 00:00:00 2001
From: "W. Kosior" <koszko@koszko.org>
Date: Sat, 18 May 2024 01:00:12 +0200
Subject: Initial commit.

---
 ctftilde/gen-pre-inst-config-scm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100755 ctftilde/gen-pre-inst-config-scm

(limited to 'ctftilde/gen-pre-inst-config-scm')

diff --git a/ctftilde/gen-pre-inst-config-scm b/ctftilde/gen-pre-inst-config-scm
new file mode 100755
index 0000000..85b3220
--- /dev/null
+++ b/ctftilde/gen-pre-inst-config-scm
@@ -0,0 +1,20 @@
+#!/bin/sh
+
+builddir="$(cd "$(dirname "$0")" && pwd -P)"
+cd "$builddir"
+
+eval "$(awk '/^srcdir=/ {print $0; exit(0);}' "$builddir"/config.status)"
+srcdir="$(cd "$srcdir" && pwd -P)"
+
+printf '%s' '
+(define-module ('"$1"' pre-inst-config)
+  #:export (config))
+
+(define datarootpath
+  (map (lambda (base)
+         (string-append base "/src/resources"))
+       `("'"$builddir"'" "'"$srcdir"'")))
+
+(define config
+  `((datarootpath . ,datarootpath)))
+'
-- 
cgit v1.2.3