all: glotawk check

all: glotawk check benchmark

.PHONY: all depend check test clean

A_HUNDRED_THINGS = 0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 \
                   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 \
                   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 \
                   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 \
                   0 1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9
benchmark: glotawk
	@echo --- To run benchmark.glotawk ---
	bash -c "time for x in $(A_HUNDRED_THINGS); do ./glotawk benchmark.glotawk >/dev/null; echo -n .; done; echo"
	@echo --- Just to start up ---
	bash -c "time for x in $(A_HUNDRED_THINGS); do echo 3 | ./glotawk >/dev/null; echo -n .; done; echo"
.PHONY: all depend check test clean benchmark

(progn (quote 5) ((lambda (x) 3) 5) (label ((foo 3)) foo) (cond (false 5) (true 3)) (atom 5) (atom (quote "foo")) (atom (quote (1 2 3))) (atom (quote (1 . 2))) (atom (quote socrates)) (cons (quote foo) (quote bar)) (cons 1 (cons 2 (cons 3 nil))) (car (quote (foo bar))) (cdr (quote (foo bar))) (eq "foo" "bar") (eq "foo" "foo") ((lambda xs (car xs)) 1 2 3) (setq three 3) three (setq fst (lambda (a b) a)) (fst 9 8) (setq a (quote (1 2 3))) (setq b (quote (4 5))) (nconc a b) (macro q (lambda (x) (list (quote quote) (car x)))) (q foo) (quote (1 2 3)) (quasiquote (1 (unquote (+ 2 3)) 4)) `(1 ,(+ 2 3) 4) (+ 1 2 3) (* 2 3 5) (/ 3 5) (// 6 5) (% 6 5) (** 3 4) (atan2 0 -1) true)