rain-1

#lang racket

;; this is a stand alone simple version of the closure conversion part of the hoist pass from the tarot compiler
;; see https://rain-1.github.io/scheme for more.

(require data/queue)

;; closure conversion for lambda calculus
;;
;; the input language is:

rain-1

#lang racket

;(start, (ACCEPT))
;(start, (READ #\a, sym))
;(start, (READ #\b, sym))
;(start, (READ #\(, "sexps"), PUSH(#\)))

;(sym, (ACCEPT))
;(sym, (READ #\a, sym))
;(sym, (READ #\b, sym))

rain-1

;; utils


(define (assp p l)
  (if (null? l)
      #f
      (if (p (caar l))
	  (car l)
	  (assp p (cdr l)))))

rain-1

.code16
.global _start
_start:
	cli
	xor	%ax, %ax
	mov	%ax, %ds
	mov	$msg, %si
	cld
loop:
	lodsb

rain-1

#lang racket

;; printing s-exps as DCS and TDCS, plus examples of what DCS and TDCS look like

(define (dcs l)
  (cond ((pair? l)
         (begin
           (display ".")
           (dcs (car l))
           (dcs (cdr l))))

rain-1

#!/bin/bash

# do this first
# ./configure
#
echo '#include <sys/types.h>' >> config.h

CFLAGS="-DHAVE_CONFIG_H -DSHELL -g -O2 -Wno-parentheses -Wno-format-security -DRCHECK -Dbotch=programming_error -DMALLOC_DEBUG"

##

rain-1

var text = "foobar";

text = text.replace(/o/g, "a");
text = text.replace(/a/g, "x");

document.write(text);


var text = "foobar";

rain-1

#include <stdio.h>
#include <stdint.h>

uint64_t myisqrt(uint64_t n) {
	int i;
	uint64_t r, tmp;
	
	r = 0;
	for(i = 64/2-1; i >= 0; i--) {
		tmp = r | (1 << i);

rain-1

rain-1

#!/bin/sh
set -e
set -x

function clean {
	rm -f src/version.h
	rm -f src/builtin.inc
	rm -f src/*.o
	rm -f jq
}