build-cold-image.lisp

;;;; Copyright (c) 2016 Henry Harrington <henry.harrington@gmail.com>
;;;; This code is licensed under the MIT license.

#-quicklisp
(error "Quicklisp not found!")

#-sb-unicode
(error "Unicode support is required.")

;; The cold-generator requires a distinct (vector (unsigned-byte 64)) type.
#-x86-64
(error "A 64-bit SBCL is required.")

(setf sb-impl::*default-external-format* :utf-8)

(format t "Loading build prerequisites....~%")
#+quicklisp
(ql:quickload '(:nibbles :cl-ppcre :iterate :alexandria))
#-quicklisp
(progn
  (require :asdf)
  (require :nibbles)
  (require :cl-ppcre)
  (require :iterate)
  (require :alexandria))

(format t "Loading Mezzano compiler and cold-generator....~%")
(push *default-pathname-defaults* asdf:*central-registry*)
(asdf:load-system :lispos)
;; Initialize the compiler.
(cold-generator:set-up-cross-compiler)

(format t "Building cold image...~%")
(cold-generator::make-image "../../mezzano" :image-size (* 3072 1024 1024) :header-path "tools/disk-header.bin")

(format t "Build successful!~%")
(quit)