(in-package "CL-USER")

;;; ----------------------------------------------------------------------
;;;
;;; SYSTEM DEFINITIONS
;;;

(mk:defsystem :clim-sys
    :source-extension "lisp"
    :source-pathname "HTTP:clim;clim-sys;"
    :binary-pathname "HTTP:binary;clim;clim-sys;"
    :components
    (:serial
     "package"	 ;Integrate resources and processes as CLIM-SYS
     "process"
     "miniproc"	 ;Portable Mini Processes
     #+MINIPROC
     "minilock"
     "resources"	 ;JMCA resource with extensions to fit CLIM-SYS resources
     "resource"	 ;map resources definitions to CLIM-SY
     "util"
     "demo"))

#+lispworks
(mk:defsystem :lw-clim-sys
    :source-extension "lisp"
    :source-pathname "HTTP:clim;clim-sys;"
    :binary-pathname "HTTP:binary;clim;clim-sys;"
    :components ("package" "process" "lw-miniproc"))
  
(mk:defsystem :cl-http
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :components
    (:serial

     #+(and cmu)
     "HTTP:cmucl;server;cmucl-patch"	; CMU CL patches.

     "HTTP:mcl;server;resources"	; Portable resource package.
     "HTTP:server;package"		; HTTP Packages

     #+cmu
     "HTTP:cmucl;server;package"	; CMU CL package changes. ;NEW

     #+lispworks
     "HTTP:lw;server;package"		; LispWorks specific package changes

     "HTTP:smtp;package"		; SMTP Package.

     #+w3p
     "HTTP:w3p;package"		   ; Setup the www-present package for precom.

     ;; server1
     "HTTP:server;preliminary"		; Showable procedures
     "HTTP:server;variables"		; Variables and constants

     #+allegro
     "http:port;ipc"
     #+allegro
     "http:port;server;tcp-stream"
     #+allegro
     "http:port;server;unix"

     "HTTP:mcl;server;www-utils"	; Portable utilities.

     ;; KAP define the missing utils
     #+allegro
     "http:port;patches;missing-www-utils"

     #+lispworks
     "http:lw;server;tcp-stream"
     #+lispworks
     "http:lw;server;unix"
     #+(and LispWorks4.4 (not CL-HTTP-SSL-CLIENT))
     "http:lw;server;sslfli"		; SSL FFI Interface for LispWorks
     
     #+(and lispworks CL-HTTP-SSL)
     "http:lw;server;ssl"		; SSL support
     
     #+(and cmu cl-http-ssl)
     "HTTP:cmucl;server;sslfli-cmucl"	; SSL support (TODO)
     #+(and cmu cl-http-ssl)
     "http:cmucl;server;ssl"		; SSL support (TODO)

     #+(and cmu mp) "HTTP:cmucl;server;tcp-stream-mp" ;NEW
     #+(and cmu (not mp)) "HTTP:cmucl;server;tcp-stream"

     #+cmu
     "HTTP:cmucl;server;ftp"
     #+cmu
     "HTTP:cmucl;server;unix"		;NEW

     ;; server2
     "HTTP:server;base64-encoding"    ; base 64 utility
     "HTTP:server;md5"		      ; MD5 utilitity

     #+lispworks
     "http:mcl;server;md5"                       ; Fast, cons-free MD5 specialization code

     "HTTP:server;sha"		      ; SHA Digests based on Internet FIPS 180
     "HTTP:server;task-queue"

     "HTTP:server;class"
     "HTTP:server;url-class"

     "HTTP:server;http-conditions"	; HTTP conditions
     "HTTP:server;plist"		; property list mixin for CLOS
     "HTTP:server;utils"		; Server utility functions
     "HTTP:server;tokenizer"		; Simple tokenizer

     #+(and cmu CL-HTTP-X509)
     "http:cmucl;server;x509"		; X.509 certificates (TODO)

     #+(and lispworks CL-HTTP-X509)
     "http:lw;server;x509"		; X.509 certificates

     "HTTP:server;url"			; URL implementation
     "HTTP:server;headers"		; Header hacking, including MIME
     "HTTP:server;host"			; Host objects and operations
     "HTTP:server;html2"		; HTML authoring functions
     "HTTP:server;netscape-1-1"		; Netscape 1.1 html generation

     #+vrml1.0
     "HTTP:server;vrml-1-0"		; VRML 1.0 Generation

     "HTTP:server;image-maps"		; Image maps
     "HTTP:server;netscape-2-0"		; Netscape 2.0 HTML generation
     "HTTP:server;netscape-3-0"		; Netscape 3.0 HTML generation
     "HTTP:server;html-3-2"		; HTML 3.2 Generation
     "HTTP:server;html4"		; HTML 4.0 Generation
     "HTTP:server;xhtml1"		; HTML 4.0 Generation
     "HTTP:server;scripts"		; Client-Side Scripts
     "HTTP:server;rss-2-0"		; RSS 2.0 Generation
     "HTTP:server;netscape-4-0"		; Netscape 4.0 HTML generation
     "HTTP:server;shtml"		; Server-Parsed HTML

     #+w3p
     (:module #:w3p
	      :source-pathname "HTTP:"
	      :source-extension "lisp"
	      :components (

			   ;; w3p
			   "HTTP:w3p;class"
			   "HTTP:w3p;w3p-system"
			   "HTTP:w3p;functions"
			   "HTTP:w3p;standard-types"
			   "HTTP:w3p;standard-methods"
			   "HTTP:w3p;html-definitions"
			   ))

     ;; server3
     "HTTP:server;report"		; Reporting for HTTP Conditions
     "HTTP:server;log"			; Logging
     "HTTP:server;authentication"	; User authentication
     "HTTP:server;data-cache"		; Data caching
     "HTTP:server;server"		; HTTP Server
     "HTTP:server;cgi"			; Common Gateway Interface    (

     #+w3p
     "HTTP:server;preferences"		; Server preference system
     #+w3p
     "HTTP:server;web-configuration"	; Server Configuration via the Web

     #+allegro
     "http:port;server;tcp"

     #+allegro
     "HTTP:port;server;url"
     #+allegro
     "HTTP:port;server;update"
     #+allegro
     "HTTP:port;server;cgi"
     #+allegro
     "HTTP:port;server;proxy"
     #+allegro
     "HTTP:port;server;patched"
     #+allegro
     "HTTP:port;server;pathname-get-value"

     #+allegro
     (:module :kap-patches
	      :source-pathname "http:port;patches"
	      :source-extension "lisp"
	      :components
	      (
	       "missing-url"
	       "missing-user"
	       "missing-http"
	       "patch-directory-list"
	       "patch-disable-http-service"
	       "patch-local-context"
	       "patch-http-log"
	       "patch-ipc"
	       "patch-notification-log"
	       "console-log"
	       "hiper-sockets"))

     ;; tcp-interface
     #+(and cmu mp) "HTTP:cmucl;server;tcp-interface-mp" ;NEW
     #+(and cmu (not mp)) "HTTP:cmucl;server;tcp-interface"

     #+lispworks
     "HTTP:lw;server;tcp-interface"

     ;; smtp
     #+:MULTIPROCESSING
     "HTTP:smtp;smtp"
     #+:MULTIPROCESSING
     "HTTP:smtp;mail"

     #+(and cmu)
     "HTTP:cmucl;server;server-patch"	; Patches (madhu, MP)

     #+NIL
     "HTTP:cmucl;server;madhu-patch"	; Patches

     ;; precom
     #+NIL
     "HTTP:cmucl;server;precom"))

;;; configure-and-export: Ports should define an example system and
;;; compile it and then export the urls after loading the
;;; configuration file. 1/8/2006 -- JCMa

(mk:defsystem :cl-http-configure-and-export ; really just the config file
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :depends-on ( :cl-http )
    :components
    (:serial
     (:file "HTTP:custom;configuration"	; server configuration file
	    :load-only t)
     #+nil
     (:file "HTTP:examples;example-exports" :load-only t)
     ))

(mk:defsystem :cl-http-base-examples
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
;;;    :depends-on (:cl-http :cl-http-configure-and-export)
    :components
    (:serial
     "HTTP:examples;documentation"
     ;; load the authentication interface
     "HTTP:examples;find-url"
     "HTTP:examples;access-control"
     ;; Load LispDoc facility
     "HTTP:examples;lispdoc"		; reference manual for cl-http
     ;; load the self documentation utilities for W3P
     #+w3p
     "HTTP:w3p;documentation"
     ;; Load the remote log window
     #+w3p
     "HTTP:examples;log-window"
     ;; Load the VRML examples
     #+(and vrml1.0 w3p)
     "HTTP:examples;vrml;vrml"
     ;; Load Java directory example.
     "HTTP:examples;twistdown-tree;twistdown"
     "HTTP:examples;examples"		; main examples
     ;; XXX Listener should not loaded by default as it is a potential
     ;; security risk.
     "HTTP:examples;listener"
     ;; "HTTP:examples;exports"		; Old style server example exports
     ;; exports MUST BE LOADED AFTER CONFIGURATION IS LOADED.
     ;; "HTTP:examples;example-exports"
     (:file "HTTP:examples;example-exports"
	    :load-only t)
     ))

(mk:defsystem :mail-archive		; XXX
    :source-extension "lisp"
    :source-pathname "HTTP:EXAMPLES;"
    :binary-pathname "HTTP:BINARY;EXAMPLES;"
    :depends-on (:cl-http)
    :components ("mail-archive"))

(mk:defsystem :cl-http-client-substrate
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :depends-on (:cl-http)
    :components
    (:serial
     #+(and cmu cl-http-ssl-client)
     "http:cmucl;client;ssl"                    ; SSL client support (TODO)

     #+(and lispworks cl-http-ssl-client)
     "http:lw;client;ssl"

     #+lispworks
     "http:lw;client;tcp-stream"                 ;TCP support for FTP client

     #+cmu
     "HTTP:cmucl;client;unix"                   ; Platform support for client ;NEW

     #+allegro
     "http:port;client;unix"

     #+lispworks
     "http:lw;client;unix"                       ;client support

     "HTTP:client;variables"			; Client variables
     "HTTP:client;connection"			; Persistent connections
     "HTTP:ftp;package"				; FTP package
     "http:ftp;ftp"				; FTP client
     "HTTP:client;proxy"			; Upstream Proxies
     "HTTP:client;authentication"		; Client authentication
     "HTTP:client;client"			; Portable client code
     ))

(mk:defsystem :cl-http-base-client
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :depends-on (:cl-http :cl-http-client-substrate)
    :components
    (:serial
     "HTTP:ftp;shell" ; FTP client shell (not necessary, but useful
		      ; for debugging FTP code)
     "HTTP:client;sexp-browser"	; S-Expression oriented client interface
     "HTTP:client;flogger"))	     ; Flogger for testing server apps

(mk:defsystem :cl-http-proxy
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :depends-on (:cl-http :cl-http-client-substrate)
    :components
    (:serial			;; Proxy layer
     "HTTP:proxy;uid"		; Persistent Unique IDs using the file system (move into CL-HTTP)
     "HTTP:proxy;package"	;Symbols and exports
     "HTTP:proxy;variables"	;Variables
     "HTTP:proxy;class"		;Class Definitions
     "HTTP:proxy;utils"
     "HTTP:proxy;database"	;Database operations
     "HTTP:proxy;cache"		;Cache operations
     "HTTP:proxy;resource"	;Resource operations
     "HTTP:proxy;representation"	;Representation operations
     "HTTP:proxy;proxy-cache"	;Proxy caching operations
     "HTTP:proxy;proxy"		;Proxy Server
     #+w3p
     "HTTP:proxy;documentation"))

(mk:defsystem :proxy-config
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :depends-on (:cl-http-proxy)
    :components ("HTTP:proxy;junkbuster"))

(mk:defsystem :w4-web-walker
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :depends-on (:cl-http-client-substrate)
    :components
    ("HTTP:client;w4-client"		; W4 client support methods
     #+cmu
     "HTTP:cmucl;client;w4-client"   ; CMUCL W4 client support methods
     "HTTP:w4;package"				; Package Definition
     "HTTP:w4;variables"			; Variables
     "HTTP:w4;utils"			; Utility functions and macros
     "HTTP:w4;class"		 ; Class definitions and Print methods
     "HTTP:w4;walker"			; Main Walker code
     "HTTP:w4;constraints"		; Constraint Definitions
     "HTTP:w4;actions"			; Action definitions
     "HTTP:w4;activity"))		; Activity definitions

(mk:defsystem :w4-web-walker-demo
    :source-extension "lisp"
    :source-pathname "HTTP:"
    :binary-pathname "HTTP:binary;"
    :components ;; XXX FIXME
    ("HTTP:examples;configuration"	; Standard configuration
     "HTTP:w4;examples;trace"		; Standard examples
     "HTTP:w4;examples;search"		; Salton style search example.
     "HTTP:w4;examples;web-archive"	; Web Whacker
     "HTTP:w4;examples;exports"))	; Basic examples

(mk:defsystem :html-parser
    :source-extension "lisp"
    :source-pathname "HTTP:html-parser;v11;"
    :binary-pathname "HTTP:binary;html-parser;v11;"
    :depends-on (:cl-http)
    :finally-do (progn   (pushnew :html-parser *features*)
			 (funcall (intern "INITIALIZE-PARSER"
					  (find-package "HTML-PARSER"))))
    :components     (:serial
		     "packages"
		     #-CL-HTTP "tokenizer"
		     #-CL-HTTP "plist"
		     "defs"
		     "patmatch"
		     "rewrite-engine"
		     "rewrite-rules"
		     "html-tags"
		     "html-reader"
		     "html-parser" ))

(mk:defsystem :lambda-ir
    :source-extension "lisp"
    :source-pathname "HTTP:lambda-ir;"
    :binary-pathname "HTTP:binary;lambda-ir;"
    :depends-on (:cl-http)
    :components (:serial
		 "package"
		  "ir-utils"
		  "variables"
		  "class"
		  "data-structures"
		  "computations"
		  "bit-vectors"
		  "ir-base"
		  "contexts"
		  "constraints"
		  "bin-dump-utils"
		  (:module #:examples
			   :components  ("lambdavista"
					 "stemming"
					 "lambdavista-exports" ))))
(mk:defsystem :mail-archive-index
    :source-extension "lisp"
    :source-pathname "HTTP:examples;"
    :binary-pathname "HTTP:binary;examples;"
    :depends-on (:mail-archive :lambda-ir)
    :components ("mail-archive-index"))

(mk:defsystem :css-2-patch
    :source-extension "lisp"
    :source-pathname "HTTP:contrib;cbookout;"
    :binary-pathname "HTTP:binary;contrib;cbookout;"
    :depends-on (:cl-http :html-parser)
    :components ( "html4" "netscape-4-0" "ccs2" ))

(mk:defsystem :db-auth
    :source-extension "lisp"
    :source-pathname "HTTP:contrib;pmeurer;dbauth;"
    :binary-pathname "HTTP:binary;contrib;pmeurer;dbauth;"
    #|:depends-on (:clsql-postgresql)|#
    :components ( "sql-authentication" "db-authentication" ))