movitz.asd

   1 ;;;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;;------------------------------------------------------------------
   3 ;;;;
   4 ;;;;    Copyright (C) 2008, Frode V. Fjeld
   5 ;;;;
   6 ;;;;    For distribution policy, see the accompanying file COPYING.
   7 ;;;;
   8 ;;;; Filename:      movitz.asd
   9 ;;;; Description:   Movitz ASDF system definition.
  10 ;;;; Author:        Frode Vatvedt Fjeld <ffjeld@common-lisp.net>
  11 ;;;; Created at:    Thu Jan 15 18:40:58 2004
  12 ;;;;
  13 ;;;; $Id: movitz.asd,v 1.3 2008/02/25 23:43:45 ffjeld Exp $
  14 ;;;;
  15 ;;;;------------------------------------------------------------------
  16
  17
  18 (defpackage movitz-asd
  19   (:use :cl :asdf))
  20
  21 (in-package movitz-asd)
  22
  23 (defsystem movitz-asm
  24   :name "Movitz Assembler"
  25   :version "1.0"
  26   :maintainer "ffjeld@common-lisp.net"
  27   :author "Frode V. Fjeld"
  28   :license "BSD-like, see accopanying file COPYING."
  29   :description "An (dis-)assembler framework, with support for x86 in 16, 32, and 64-bit modes."
  30   :serial t
  31   :perform (load-op :after (op c)
  32                     (provide 'movitz-asm))
  33   :components ((:file "asm")
  34                (:file "asm-x86")))
  35
  36 (defclass movitz-source-file (cl-source-file) ())
  37
  38 (defsystem movitz
  39   :name "Movitz"
  40   :version "0.1"
  41   :maintainer "ffjeld@common-lisp.net"
  42   :author "Frode V. Fjeld"
  43   :license "BSD-like, see accopanying file COPYING."
  44   :description "A compiler, run-time, and libraries for Common Lisp on the x86."
  45   :default-component-class movitz-source-file
  46   :serial t
  47   :depends-on (binary-types movitz-asm)
  48   :perform (load-op :after (op c)
  49                     (provide 'movitz))
  50   :components ((:file "packages")
  51                (:file "movitz")
  52                (:file "parse")
  53                (:file "eval")
  54                (:file "environment")
  55                (:file "compiler-types")
  56                (:file "compiler-protocol")
  57                (:file "storage-types")
  58                (:file "multiboot")
  59                (:file "bootblock")
  60                (:file "image")
  61                (:file "stream-image")
  62                (:file "assembly-syntax")
  63                (:file "compiler")
  64                (:file "special-operators")
  65                (:file "special-operators-cl")))
  66
  67
  68 #+sbcl
  69 (defmethod perform :around (op (file movitz-source-file))
  70   (handler-bind ((sb-ext:defconstant-uneql #'continue))
  71     (call-next-method)))