Pierre R. Mai
5c57e50d07
requests and entities are now parsed. Furthermore the whole request-entity handling has been changed to allow lazy parsing, parsed entity headers, and flexible choice of entities. This is all to support the handling of MIME multipart entities, especially multipart/form-data. The current revision is a first cut, and some further rewrites are needed.
91 lines
2.6 KiB
Common Lisp
91 lines
2.6 KiB
Common Lisp
;;;; -*-Mode: LISP; Package: CL-USER; Syntax: ANSI-Common-lisp -*-
|
|
;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server
|
|
;;;; This is copyrighted software. See documentation for terms.
|
|
;;;;
|
|
;;;; clash.system --- CLASH system definitions for MK-DEFSYSTEM
|
|
;;;;
|
|
;;;; Checkout Tag: $Name$
|
|
;;;; $Id$
|
|
|
|
(in-package :make)
|
|
|
|
;;;; %File Description:
|
|
;;;;
|
|
;;;;
|
|
;;;;
|
|
|
|
(defsystem "CLASH"
|
|
:source-pathname #.(merge-pathnames
|
|
"src/"
|
|
(make-pathname :name nil :type nil :version nil
|
|
:defaults *load-truename*))
|
|
:source-extension "cl"
|
|
:components
|
|
((:module "base"
|
|
:source-pathname ""
|
|
:components ((:file "package")
|
|
(:file "utility" :depends-on ("package"))
|
|
#+cmu
|
|
(:file "cmu-locking" :depends-on ("package"))
|
|
#+lispworks4.1
|
|
(:file "lwl-locking" :depends-on ("package"))
|
|
#+allegro
|
|
(:file "acl-locking" :depends-on ("package"))))
|
|
(:module "main"
|
|
:source-pathname "main"
|
|
:components ((:file "status-codes")
|
|
(:file "conditions"
|
|
:depends-on ("status-codes"))
|
|
(:file "parsing"
|
|
:depends-on ("conditions"))
|
|
(:file "url"
|
|
:depends-on ("conditions" "status-codes"))
|
|
(:file "version"
|
|
:depends-on ("conditions" "status-codes"))
|
|
(:file "mime"
|
|
:depends-on ("conditions" "parsing"))
|
|
(:file "buffer"
|
|
:depends-on ("conditions"))
|
|
(:file "http-io"
|
|
:depends-on
|
|
("conditions" "status-codes" "buffer"))
|
|
(:file "connection"
|
|
:depends-on ("http-io"))
|
|
(:file "method")
|
|
(:file "messages"
|
|
:depends-on ("url" "version"))
|
|
(:file "entity"
|
|
:depends-on ("buffer"
|
|
"http-io"
|
|
"url"
|
|
"messages"))
|
|
(:file "resource"
|
|
:depends-on ("entity" "method"))
|
|
(:file "namespace"
|
|
:depends-on ("url" "resource"))
|
|
(:file "server"
|
|
:depends-on ("namespace" "messages"
|
|
"resource"))
|
|
(:file "responses"
|
|
:depends-on ("messages" "entity" "server"))
|
|
(:file "session"
|
|
:depends-on ("resource" "entity" "messages"))
|
|
(:file "authorization"
|
|
:depends-on ("resource" "messages"))
|
|
(:file "logging"
|
|
:depends-on ("messages" "entity" "server"))
|
|
(:file "readtable"
|
|
:depends-on ("url" "version"))
|
|
(:file "utility"
|
|
:depends-on ("resource" "entity" "server")))
|
|
:depends-on ("base"))
|
|
(:module "driver"
|
|
:source-pathname "drivers"
|
|
:components (#+cmu
|
|
(:file "simple-cmu")
|
|
#+lispworks4.1
|
|
(:file "simple-lwl")
|
|
#+allegro
|
|
(:file "simple-acl"))
|
|
:depends-on ("base" "main"))))
|