;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: CL-USER -*-

(sct:defsystem ESSENTIAL-DESIGNER
    (:default-pathname "designer:code;"
     :journal-directory "designer:patch;")
  (:serial "package"
           "utilities"
	   "basic-objects"
	   "geometric-objects"
	   "segment-geometry"
	   "clipper"
	   "design-model"
	   "territory-model"
	   "use-model"
	   "save-and-find-model"
	   "max-rectangles"
	   "angle-sort"
	   ;"colinear-shared-segments"
	   "edge-visibility"
	   "marker"
	   "save-model-to-file"
	   "circulation-model"
	   ;"copy-bmodel"  ; +++ not changed yet
	   "visibility-grid"
	   "visibility-from-center"
	   "physical-center"
	   "partial-order"
	   "predicates" ; +++ not all reimplemented
 	   "measures"
	   "primary-access"
	   "design-char"
	   "design-char-contd"
	   "design-char-functions"
	   "define-design-char"
	   "design-char-main-entry"
	   #|
	   ; "property-definitions"                           ; not complete
	    "visual-openness-property"
	   "precondition-fcns"
	   "modifier-toplevel"
	   "modifier-fcns"				       ; noops
	   "increase-width-openings"
	   "parse-modifier-output"
           |#
	   ))
 

#+ignore
(sct:defsystem DESIGNER
    (:default-pathname "designer:code;"
     :journal-directory "designer:patch;")
  (:module essential-designer ("essential-designer") (:type :system))
  ;(:module design-models ("design-models") (:type :system))
  (:serial essential-designer
   "package-design-j"
   "rule-parts"
   "design-pattern"
   "new-defrule"
   "joshua-utilities"
   "rule-history"
   "query"
   "backward-support"
   "query-functions"
  ; "patterns-prim"
  ; "patterns-group"
  ; "patterns-refuge"
  ; "patterns-prospect"
  ; "patterns-abstract-flw"
  ; "check-prairie"
   "pattern-data-for-query"
  ; "text-generation"
  ; design-models
   ))