commit 8d794602bcf6bd8601f154b298bef22857974cb9
Author: retropikzel <retropikzel@iki.fi>
Date:   Fri Oct 11 10:48:47 2024 +0300

    Other than SRFI packages are now made to setup exe

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..16b289b
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,6 @@
+*.swp
+repo.scm
+urls.txt
+snow
+setup_snow.exe
+setup_srfi*.exe
diff --git a/Dockerfile.jenkins b/Dockerfile.jenkins
new file mode 100644
index 0000000..e4c99b9
--- /dev/null
+++ b/Dockerfile.jenkins
@@ -0,0 +1,4 @@
+FROM alpine:latest
+RUN apk add wine
+COPY ./executables/nsis-3.10-setup.exe /setup.exe
+RUN wine setup.exe /S
diff --git a/Jenkinsfile b/Jenkinsfile
new file mode 100644
index 0000000..418a629
--- /dev/null
+++ b/Jenkinsfile
@@ -0,0 +1,24 @@
+pipeline {
+
+    agent {
+        dockerfile {
+            filename 'Dockerfile.jenkins'
+            dir '.'
+            args '--privileged -v /var/run/docker.sock:/var/run/docker.sock'
+        }
+    }
+
+    options {
+        buildDiscarder(logRotator(numToKeepStr: '10', artifactNumToKeepStr: '10'))
+    }
+
+    stages {
+        stage("Build") {
+            steps {
+                sh 'make'
+                archiveArtifacts artifacts: 'setup_*.exe'
+            }
+        }
+    }
+}
+
diff --git a/Makefile b/Makefile
new file mode 100644
index 0000000..6830389
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,15 @@
+build: snow
+	wine ${HOME}/.wine/drive_c/Program\ Files\ \(x86\)/NSIS/makensis.exe install.nsi
+
+repo.scm:
+	wget https://snow-fort.org/s/repo.scm
+
+urls.txt: repo.scm
+	gosh -r7 get-archive-urls.scm > urls.txt
+
+snow: urls.txt
+	sh download.sh
+
+clean:
+	rm -rf repo.scm
+	rm -rf snow
diff --git a/README.md b/README.md
new file mode 100644
index 0000000..3bce5ff
--- /dev/null
+++ b/README.md
@@ -0,0 +1,10 @@
+
+## Note about SRFIs
+
+SRFI packages are not inluded in the setup executable as
+there might be more than one implementation.
+
+
+## Installation
+
+Download the latest setup executable from Jenkins.
diff --git a/download.sh b/download.sh
new file mode 100644
index 0000000..b116b71
--- /dev/null
+++ b/download.sh
@@ -0,0 +1,13 @@
+#!/bin/sh
+
+set -eu
+
+TMPDIR=/tmp/r7rs-windows-installer-archives
+mkdir -p ${TMPDIR}
+mkdir -p snow
+
+while read url
+do
+    wget -O ${TMPDIR}/archive.tgz ${url}
+    tar -Pxf ${TMPDIR}/archive.tgz --strip-components=1 -C ./snow
+done <urls.txt
diff --git a/executables/nsis-3.10-setup.exe b/executables/nsis-3.10-setup.exe
new file mode 100644
index 0000000..b690643
Binary files /dev/null and b/executables/nsis-3.10-setup.exe differ
diff --git a/get-archive-urls.scm b/get-archive-urls.scm
new file mode 100644
index 0000000..329f437
--- /dev/null
+++ b/get-archive-urls.scm
@@ -0,0 +1,29 @@
+(import (scheme base)
+        (scheme read)
+        (scheme write)
+        (scheme file)
+        (scheme process-context))
+
+(define repository (with-input-from-file "repo.scm" (lambda () (read))))
+(define baseurl "https://snow-fort.org")
+
+(define packager-is-srfi?
+  (lambda (package)
+    (let ((is-srfi? #f))
+      (for-each
+        (lambda (item)
+          (when (and (equal? (car item) 'library)
+                     (equal? (car (cadr (assoc 'name item))) 'srfi))
+            (set! is-srfi? #t)))
+        (cdr package))
+      is-srfi?)))
+
+(for-each
+  (lambda (item)
+    (when (and (equal? (car item) 'package)
+               (not (packager-is-srfi? item)))
+      (display baseurl)
+      (display (cadr (assoc 'url item)))
+      (newline)))
+  (cdr repository))
+
diff --git a/install.nsi b/install.nsi
new file mode 100644
index 0000000..bba4f43
--- /dev/null
+++ b/install.nsi
@@ -0,0 +1,10 @@
+OutFile "setup_snow.exe"
+InstallDir "$PROGRAMFILES64"
+
+Section
+    SetOutPath "$INSTDIR"
+    RMDir "$INSTDIR"
+    File /r "snow"
+    Push "$INSTDIR"
+SectionEnd
+