;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.excosy)

;;;;;;
;;; Builder

(def (function e) build-excosy (machine binary-ast)
  (with-output-to-file (stream #P"/tmp/excosy.as" :if-exists :supersede)
    (assemble-excosy machine binary-ast :stream stream))
  (trivial-shell:shell-command "llvm-as -f /tmp/excosy.as")
  (trivial-shell:shell-command "llvm-ld -native -o /tmp/excosy /tmp/excosy.as.bc"))