;;; -*-lisp-*-
;;;
-;;; System definition for the Simple Object Design translator
+;;; System definition for the Sensible Object Design translator
;;;
;;; (c) 2009 Straylight/Edgeware
;;;
(defsystem sod
;; Boring copyright stuff.
- :version "1.0.0"
+ :version "0.1.0"
:author "Mark Wooding"
:license "GNU General Public License, version 2 or later"
:description "A Sensible Object Design for C."
:long-description
- "This system implements a fairly simple, yet powerful object system for
+ "This system implements a fairly simple, yet powerful, object system for
plain old C. Its main features are as follows.
* Multiple inheritance, done properly (unlike C++, say), with a
:components
((:file "utilities")
- (:file "optparse" :depends-on ("utilities"))
;; Parser equipment. This is way more elaborate than it needs to be, but
;; it was interesting, and it may well get split off into a separate
(:file "scanner-context-impl" :depends-on
("parser-proto" "scanner-proto"))))
- (:file "package" :depends-on ("utilities" "optparse" "parser"))
+ (:file "package" :depends-on ("utilities" "parser"))
;; Lexical analysis.
(:file "lexer-proto" :depends-on ("package" "parser"))
(:file "class-finalize-impl" :depends-on ("class-finalize-proto"))
;; Method generation.
- (:file "method-proto" :depends-on ("class-utilities"))
+ (:file "method-proto" :depends-on ("class-make-proto"))
(:file "method-impl" :depends-on ("method-proto"))
+ (:file "method-aggregate" :depends-on ("method-impl"))
;; Class output.
(:file "class-output" :depends-on
- ("classes" "class-layout-proto" "class-layout-impl"
- "method-proto" "method-impl" "output-proto"))
+ ("classes" "class-layout-impl" "method-impl" "output-proto"))
- ;; User interface.
- (:file "frontend" :depends-on
- ("optparse" "module-proto" "module-parse"))))
+ ;; Debugging and interactive testing.
+ (:file "debug" :depends-on ("builtin" "module-output"))))
;;;--------------------------------------------------------------------------
;;; Testing.
(defmethod perform ((op test-op) (component (eql (find-system "sod"))))
(declare (ignore op component))
- (operate 'test-op "sod-test" :force t))
+ (handler-bind (((or warning style-warning)
+ (lambda (cond)
+ (declare (ignore cond))
+ (invoke-restart 'muffle-warning))))
+ (operate 'test-op "sod-test")))
;;;----- That's all, folks --------------------------------------------------