X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/aa14a4cddcb96b681d5c19a2ec8bad382f43b264..9ec578d9fe450b7e7f9030dc9d930185593aa991:/src/sod.asd

diff --git a/src/sod.asd b/src/sod.asd
index 6c6d4fe..e127819 100644
--- a/src/sod.asd
+++ b/src/sod.asd
@@ -63,6 +63,7 @@
 
   :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
@@ -97,33 +98,39 @@
      (:file "scanner-context-impl" :depends-on
 	    ("parser-proto" "scanner-proto"))))
 
-   (:file "package" :depends-on ("parser"))
+   (:file "package" :depends-on ("utilities" "optparse" "parser"))
+
+   ;; Lexical analysis.
+   (:file "lexer-proto" :depends-on ("package" "parser"))
+   (:file "lexer-impl" :depends-on ("lexer-proto"))
+   (:file "fragment-parse" :depends-on ("lexer-proto"))
 
    ;; C type representation protocol.
    (:file "c-types-proto" :depends-on ("package"))
    (:file "c-types-impl" :depends-on ("c-types-proto"))
+   (:file "c-types-parse" :depends-on
+	  ("c-types-proto" "c-types-class-impl" "fragment-parse"))
 
    ;; Property set protocol.
    (:file "pset-proto" :depends-on ("package"))
    (:file "pset-impl" :depends-on ("pset-proto"))
-   (:file "pset-parse" :depends-on ("pset-proto" "lexical-parse"))
-
-   ;; Lexical analysis.
-   (:file "lexical-parse" :depends-on ("parser"))
-   (:file "fragment-parse" :depends-on ("lexical-parse"))
+   (:file "pset-parse" :depends-on ("pset-proto" "lexer-proto"))
 
    ;; Code generation protocol.
-   (:file "codegen-proto" :depends-on ("package"))
+   (:file "codegen-proto" :depends-on ("module-proto"))
    (:file "codegen-impl" :depends-on ("codegen-proto"))
 
    ;; Modules.
    (:file "module-proto" :depends-on ("package"))
    (:file "module-impl" :depends-on
 	  ("module-proto" "pset-proto" "c-types-class-impl" "builtin"))
-   (:file "builtin" :depends-on ("module-proto" "pset-proto" "classes"
-				 "c-types-impl" "c-types-class-impl"))
-   (:file "module-parse" :depends-on ("module-impl"
-				      "lexical-parse" "fragment-parse"))
+   (:file "builtin" :depends-on
+	  ("module-proto" "pset-proto" "c-types-impl" "c-types-class-impl"
+	   "classes" "class-layout-proto"))
+   (:file "module-parse" :depends-on
+	  ("class-make-proto" "class-finalize-proto"
+	   "fragment-parse" "lexer-proto" "module-impl"))
+   (:file "module-output" :depends-on ("module-impl" "output-proto"))
 
    ;; Output.
    (:file "output-proto" :depends-on ("package"))
@@ -154,12 +161,19 @@
    (:file "method-impl" :depends-on ("method-proto"))
 
    ;; Class output.
-   (:file "class-output" :depends-on ("output-proto" "classes"))))
+   (:file "class-output" :depends-on
+	  ("classes" "class-layout-proto" "class-layout-impl"
+	   "method-proto" "method-impl" "output-proto"))
+
+   ;; User interface.
+   (:file "frontend" :depends-on
+	  ("optparse" "module-proto" "module-parse"))))
 
 ;;;--------------------------------------------------------------------------
 ;;; Testing.
 
 (defmethod perform ((op test-op) (component (eql (find-system "sod"))))
+  (declare (ignore op component))
   (operate 'test-op "sod-test" :force t))
 
 ;;;----- That's all, folks --------------------------------------------------