From a5585fac6cf16df8c636038a4b75231ce640d323 Mon Sep 17 00:00:00 2001 From: "Pierre R. Mai" Date: Sun, 18 Nov 2012 01:19:00 +0100 Subject: [PATCH] Change from MK-DEFSYSTEM to ASDF, rename .cl to .lisp files. --- CLASH.system | 91 ------------------- clash.asd | 91 +++++++++++++++++++ examples/{silly-test.cl => silly-test.lisp} | 0 examples/{static-test.cl => static-test.lisp} | 0 src/{acl-locking.cl => acl-locking.lisp} | 0 src/{cmu-locking.cl => cmu-locking.lisp} | 0 .../{simple-acl.cl => simple-acl.lisp} | 0 .../{simple-cmu.cl => simple-cmu.lisp} | 0 .../{simple-lwl.cl => simple-lwl.lisp} | 0 src/{lwl-locking.cl => lwl-locking.lisp} | 0 .../{authorization.cl => authorization.lisp} | 0 src/main/{buffer.cl => buffer.lisp} | 0 src/main/{conditions.cl => conditions.lisp} | 0 src/main/{connection.cl => connection.lisp} | 0 src/main/{entity.cl => entity.lisp} | 0 src/main/{http-io.cl => http-io.lisp} | 0 src/main/{logging.cl => logging.lisp} | 0 src/main/{messages.cl => messages.lisp} | 0 src/main/{method.cl => method.lisp} | 0 src/main/{mime.cl => mime.lisp} | 0 src/main/{namespace.cl => namespace.lisp} | 0 src/main/{parsing.cl => parsing.lisp} | 0 src/main/{readtable.cl => readtable.lisp} | 0 src/main/{resource.cl => resource.lisp} | 0 src/main/{responses.cl => responses.lisp} | 0 src/main/{server.cl => server.lisp} | 0 src/main/{session.cl => session.lisp} | 0 .../{status-codes.cl => status-codes.lisp} | 0 src/main/{url.cl => url.lisp} | 0 src/main/{utility.cl => utility.lisp} | 0 src/main/{version.cl => version.lisp} | 0 src/{package.cl => package.lisp} | 0 src/test/{basic-demo.cl => basic-demo.lisp} | 0 src/{utility.cl => utility.lisp} | 0 34 files changed, 91 insertions(+), 91 deletions(-) delete mode 100644 CLASH.system create mode 100644 clash.asd rename examples/{silly-test.cl => silly-test.lisp} (100%) rename examples/{static-test.cl => static-test.lisp} (100%) rename src/{acl-locking.cl => acl-locking.lisp} (100%) rename src/{cmu-locking.cl => cmu-locking.lisp} (100%) rename src/drivers/{simple-acl.cl => simple-acl.lisp} (100%) rename src/drivers/{simple-cmu.cl => simple-cmu.lisp} (100%) rename src/drivers/{simple-lwl.cl => simple-lwl.lisp} (100%) rename src/{lwl-locking.cl => lwl-locking.lisp} (100%) rename src/main/{authorization.cl => authorization.lisp} (100%) rename src/main/{buffer.cl => buffer.lisp} (100%) rename src/main/{conditions.cl => conditions.lisp} (100%) rename src/main/{connection.cl => connection.lisp} (100%) rename src/main/{entity.cl => entity.lisp} (100%) rename src/main/{http-io.cl => http-io.lisp} (100%) rename src/main/{logging.cl => logging.lisp} (100%) rename src/main/{messages.cl => messages.lisp} (100%) rename src/main/{method.cl => method.lisp} (100%) rename src/main/{mime.cl => mime.lisp} (100%) rename src/main/{namespace.cl => namespace.lisp} (100%) rename src/main/{parsing.cl => parsing.lisp} (100%) rename src/main/{readtable.cl => readtable.lisp} (100%) rename src/main/{resource.cl => resource.lisp} (100%) rename src/main/{responses.cl => responses.lisp} (100%) rename src/main/{server.cl => server.lisp} (100%) rename src/main/{session.cl => session.lisp} (100%) rename src/main/{status-codes.cl => status-codes.lisp} (100%) rename src/main/{url.cl => url.lisp} (100%) rename src/main/{utility.cl => utility.lisp} (100%) rename src/main/{version.cl => version.lisp} (100%) rename src/{package.cl => package.lisp} (100%) rename src/test/{basic-demo.cl => basic-demo.lisp} (100%) rename src/{utility.cl => utility.lisp} (100%) diff --git a/CLASH.system b/CLASH.system deleted file mode 100644 index d8d4856..0000000 --- a/CLASH.system +++ /dev/null @@ -1,91 +0,0 @@ -;;;; -*-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 "md5" :source-extension "lisp") - (: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")))) diff --git a/clash.asd b/clash.asd new file mode 100644 index 0000000..ab30865 --- /dev/null +++ b/clash.asd @@ -0,0 +1,91 @@ +;;;; CLASH --- The Common Lisp Adaptable Simple HTTP server +;;;; This is copyrighted software. See documentation for terms. +;;;; +;;;; clash.asd --- CLASH system definitions for ASDF +;;;; +;;;; Checkout Tag: $Name$ +;;;; $Id$ + +(cl:in-package #:cl-user) + +;;;; %File Description: +;;;; +;;;; +;;;; + +(asdf:defsystem "clash" + :description "The Common Lisp Adaptable Simple HTTP server" + :author "Pierre R. Mai " + :maintainer "Pierre R. Mai " + :licence "MIT/X11" + :version "1.0.0" + :components + ((:module "src" + :components + ((:module "base" + :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" + :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 "drivers" + :components (#+cmu + (:file "simple-cmu") + #+lispworks4.1 + (:file "simple-lwl") + #+allegro + (:file "simple-acl")) + :depends-on ("base" "main")))))) diff --git a/examples/silly-test.cl b/examples/silly-test.lisp similarity index 100% rename from examples/silly-test.cl rename to examples/silly-test.lisp diff --git a/examples/static-test.cl b/examples/static-test.lisp similarity index 100% rename from examples/static-test.cl rename to examples/static-test.lisp diff --git a/src/acl-locking.cl b/src/acl-locking.lisp similarity index 100% rename from src/acl-locking.cl rename to src/acl-locking.lisp diff --git a/src/cmu-locking.cl b/src/cmu-locking.lisp similarity index 100% rename from src/cmu-locking.cl rename to src/cmu-locking.lisp diff --git a/src/drivers/simple-acl.cl b/src/drivers/simple-acl.lisp similarity index 100% rename from src/drivers/simple-acl.cl rename to src/drivers/simple-acl.lisp diff --git a/src/drivers/simple-cmu.cl b/src/drivers/simple-cmu.lisp similarity index 100% rename from src/drivers/simple-cmu.cl rename to src/drivers/simple-cmu.lisp diff --git a/src/drivers/simple-lwl.cl b/src/drivers/simple-lwl.lisp similarity index 100% rename from src/drivers/simple-lwl.cl rename to src/drivers/simple-lwl.lisp diff --git a/src/lwl-locking.cl b/src/lwl-locking.lisp similarity index 100% rename from src/lwl-locking.cl rename to src/lwl-locking.lisp diff --git a/src/main/authorization.cl b/src/main/authorization.lisp similarity index 100% rename from src/main/authorization.cl rename to src/main/authorization.lisp diff --git a/src/main/buffer.cl b/src/main/buffer.lisp similarity index 100% rename from src/main/buffer.cl rename to src/main/buffer.lisp diff --git a/src/main/conditions.cl b/src/main/conditions.lisp similarity index 100% rename from src/main/conditions.cl rename to src/main/conditions.lisp diff --git a/src/main/connection.cl b/src/main/connection.lisp similarity index 100% rename from src/main/connection.cl rename to src/main/connection.lisp diff --git a/src/main/entity.cl b/src/main/entity.lisp similarity index 100% rename from src/main/entity.cl rename to src/main/entity.lisp diff --git a/src/main/http-io.cl b/src/main/http-io.lisp similarity index 100% rename from src/main/http-io.cl rename to src/main/http-io.lisp diff --git a/src/main/logging.cl b/src/main/logging.lisp similarity index 100% rename from src/main/logging.cl rename to src/main/logging.lisp diff --git a/src/main/messages.cl b/src/main/messages.lisp similarity index 100% rename from src/main/messages.cl rename to src/main/messages.lisp diff --git a/src/main/method.cl b/src/main/method.lisp similarity index 100% rename from src/main/method.cl rename to src/main/method.lisp diff --git a/src/main/mime.cl b/src/main/mime.lisp similarity index 100% rename from src/main/mime.cl rename to src/main/mime.lisp diff --git a/src/main/namespace.cl b/src/main/namespace.lisp similarity index 100% rename from src/main/namespace.cl rename to src/main/namespace.lisp diff --git a/src/main/parsing.cl b/src/main/parsing.lisp similarity index 100% rename from src/main/parsing.cl rename to src/main/parsing.lisp diff --git a/src/main/readtable.cl b/src/main/readtable.lisp similarity index 100% rename from src/main/readtable.cl rename to src/main/readtable.lisp diff --git a/src/main/resource.cl b/src/main/resource.lisp similarity index 100% rename from src/main/resource.cl rename to src/main/resource.lisp diff --git a/src/main/responses.cl b/src/main/responses.lisp similarity index 100% rename from src/main/responses.cl rename to src/main/responses.lisp diff --git a/src/main/server.cl b/src/main/server.lisp similarity index 100% rename from src/main/server.cl rename to src/main/server.lisp diff --git a/src/main/session.cl b/src/main/session.lisp similarity index 100% rename from src/main/session.cl rename to src/main/session.lisp diff --git a/src/main/status-codes.cl b/src/main/status-codes.lisp similarity index 100% rename from src/main/status-codes.cl rename to src/main/status-codes.lisp diff --git a/src/main/url.cl b/src/main/url.lisp similarity index 100% rename from src/main/url.cl rename to src/main/url.lisp diff --git a/src/main/utility.cl b/src/main/utility.lisp similarity index 100% rename from src/main/utility.cl rename to src/main/utility.lisp diff --git a/src/main/version.cl b/src/main/version.lisp similarity index 100% rename from src/main/version.cl rename to src/main/version.lisp diff --git a/src/package.cl b/src/package.lisp similarity index 100% rename from src/package.cl rename to src/package.lisp diff --git a/src/test/basic-demo.cl b/src/test/basic-demo.lisp similarity index 100% rename from src/test/basic-demo.cl rename to src/test/basic-demo.lisp diff --git a/src/utility.cl b/src/utility.lisp similarity index 100% rename from src/utility.cl rename to src/utility.lisp