Lau blasut

Spike

I looked into the state of GraalVM and Clojure and wrote some small work-related scripts.

Downloaded GraalVM and set $GRAALVM_HOME
Found two main libraries for building GraalVM CLIs - https://github.com/luchiniatwork/cambada#packaging-as-a-native-image and https://github.com/taylorwood/clj.native-image (or https://github.com/taylorwood/lein-native-image for the lein equivalent). I chose clj.native-image as it seemed more focused on doing one thing well.
First tried its template example which was easy to follow.
Then added a graalvm build to one of our small cli tools
Found it to be pretty straightforward except for a stdout flushing issue that was trivial to fix

$ curl https://nixos.org/nix/install | sh

	(ns pms.core
	(:require [clojure.spec.alpha :as s]
	[clojure.spec.gen.alpha :as gen]
	[clojure.spec.test.alpha :as stest]))

	(comment "This is a small experiment inspired by Oskar Wickströms
	excellent work at
	https://haskell-at-work.com/episodes/2018-01-19-domain-modelling-with-haskell-data-structures.html. I
	wanted to see what would be involved in building the equivalent
	functionality in reasonably ideomatic Clojure. It is also my first

	#!/bin/sh
	#\|-- mode:lisp --\|#
	#\|
	exec ros -Q -- $0 "$@"
	\|#
	(progn ;;init forms
	(ros:ensure-asdf)
	#+quicklisp (ql:quickload '(:alexandria :trivia :iterate) :silent t))

	(defpackage :ros.script.case.3724474528

	interface Functor<T> {
	map<U>(f: (x: T) => U): Functor<U>
	}

	class Box<T> implements Functor<T> {
	value: T
	constructor(x: T) {
	this.value = x
	}
	map<U>(f: (x: T) => U): Box<U> {

	;;
	;; scheme coin - a common lisp blockchain
	;;
	;; Burton Samograd
	;; 2017

	(load "~/quicklisp/setup.lisp")

	(defconstant coin-name "Scheme Coin")

	;; Prints a table of vars in an ns with name/line/added/macro flag/deprecated flag

	(defn pr-vars [ns-sym]
	(->> (ns-publics ns-sym) vals (map meta) (sort-by :name)
	(map #(select-keys % [:name :line :added :macro :deprecated]))
	(map #(merge {:added nil :macro false :deprecated false} %))
	clojure.pprint/print-table))

	(pr-vars 'clojure.string)
	;; \| :added \| :macro \| :deprecated \| :name \| :line \|

	;; I think it would be a mistake to introduce temporal coupling to prevent typos.

	;; The example program below lets you identify "missing" keys specs at
	;; the time and place of your choosing, and then handle them as you
	;; deem appropriate, without imposing those decisions on other
	;; users of spec.

	(require '[clojure.spec.alpha :as s]
	'[clojure.set :as set])

	(defun multiline? (string)
	(position ?\n string))

	(defun multiline-comment (string)
	(concat "#\|\|\n" string "\n\|\|#\n"))

	;; Note: Redefining to send the error message too.
	(defun chebert-eval-async (sexp &optional cont package)
	"Evaluate EXPR on the superior Lisp and call CONT with the result."
	(declare (indent 1))