ll.scm

(define label-counter 0)
(define (unique-label str)
  (set! label-counter (add1 label-counter))
  (format "~A_l~A" (list str label-counter)))

(define var-counter 0)
(define (unique-var)
  (set! var-counter (add1 var-counter))
  (format "%tmp~A" (list var-counter)))

(define (emit-return str)
  (emit (format "  ret i64 ~A" (list str))))

(define (emit-alloca var)
  (emit (format "  ~A = alloca i64, align 8" (list var))))

(define (emit-copy to from)
  (emit (format "  ~A = add i64 ~A, 0" (list to from))))

(define (emit-store from in)
  (emit (format "  store i64 ~A, i64* ~A" (list from in))))

(define (emit-load to from)
  (emit (format "  ~A = load i64, i64* ~A" (list to from))))

(define (emit-cmp cond x y var)
  (emit (format "  ~A = icmp ~A i64 ~A, ~A" (list var cond x y))))

(define (emit-label label)
  (emit (format "~A:" (list label))))

(define (emit-br1 x)
  (emit (format "  br label %~A" (list x))))

(define (emit-br2 test conseq altern)
  (emit (format "  br i1 ~A, label %~A, label %~A" (list test conseq altern))))

(define (emit-call0 callee var)
  (emit (format "  ~A = call i64 @~A()" (list var callee))))

(define (emit-call1 callee x var)
  (emit (format "  ~A = call i64 @~A(i64 ~A)" (list var callee x))))

(define (emit-call2 callee x y var)
  (emit (format "  ~A = call i64 @~A(i64 ~A, i64 ~A)" (list var callee x y))))

(define (emit-call3 callee x y z var)
  (emit (format "  ~A = call i64 @~A(i64 ~A, i64 ~A, i64 ~A)" (list var callee x y z))))