| ;; My comment to https://old.reddit.com/r/lisp/comments/1m1bezg/kiplings_if_art_poetry_and_lisp_a_challenge/ | |
| (defpackage "IF- by RUDYARD KIPLING" | |
| (:use "CL")) | |
| (in-package "IF- by RUDYARD KIPLING") | |
| (defvar *you*) | |
| (defmacro *you* (&body body) |
| // Modified version of: https://github.com/soffes/k-and-r/blob/master/examples/1.9-1.c | |
| // Compile with the command: gcc longest-length.c | |
| #include <stdio.h> | |
| #define MAXLINE 1000 // Maximum input line size | |
| // Note: renamed from `getline` to `gline` since `getline` is already defined | |
| int gline(char line[], int maxline); | |
| void copy(char to[], char from[]); |
A simple note about how GNU Guix and SBCL CFFI can work together to easily write a wrapper around the shared library.
guix shell sbcl sbcl-cffi sbcl-slime-swank sqliteThen you need to invoke from shell with preceding LD_LIBRARY_PATH=…:
LD_LIBRARY_PATH="$GUIX_ENVIRONMENT/lib" sbcl --eval '(require :asdf)' --eval '(asdf:load-system :swank)' --eval '(swank:create-server :dont-close t)' --eval '(asdf:load-system :cffi)'
| (* Algorithm based on http://www.herongyang.com/Unicode/UTF-8-UTF-8-Encoding-Algorithm.html *) | |
| exception EncodeError | |
| (* Take a code point as input, and encode it into a list of bytes using UTF-8. *) | |
| fun encodeUTF8 (codepoint : int) : Word.word list = | |
| let val andb = Word.andb | |
| val orb = Word.orb | |
| val >> = Word.>> | |
| val fromInt = Word.fromInt | |
| infix andb orb >> |