diff --git a/systems/MaiSQL-MySQL.system b/systems/MaiSQL-MySQL.system deleted file mode 100644 index b2871a7dd18fbf3a96c233e09150785fb90ca739..0000000000000000000000000000000000000000 --- a/systems/MaiSQL-MySQL.system +++ /dev/null @@ -1,39 +0,0 @@ -;;; -*- Mode: Lisp -*- -;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases -;;;; This is copyrighted software. See documentation for terms. -;;;; -;;;; MaiSQL.system --- System definition for MaiSQL-MySQL -;;;; -;;;; Checkout Tag: $Name: $ -;;;; $Id: MaiSQL-MySQL.system,v 1.1 2001/08/01 17:52:50 dan_b Exp $ - -#+CLISP -(in-package "USER") -#-CLISP -(in-package :CL-USER) - -;;; System definition - -(defsystem "MaiSQL-MySQL" - :source-pathname "onshore:uncommonsql;dbms;mysql" - :source-extension "lisp" - :binary-pathname nil - :binary-extension nil - :components - ((:file "mysql-package") - (:file "mysql-loader" - :depends-on ("mysql-package")) - (:file "mysql" - :depends-on ("mysql-package" - "mysql-loader")) - (:file "mysql-sql" - :depends-on ("mysql")) - ) - :depends-on ("MaiSQL") - ) - -;(oos "MaiSQL-MySQL" :compile) - - - - diff --git a/systems/MaiSQL.system b/systems/MaiSQL.system deleted file mode 100644 index 1a508f878f6e31f6394e56583bdd2ff6b7ca8428..0000000000000000000000000000000000000000 --- a/systems/MaiSQL.system +++ /dev/null @@ -1,54 +0,0 @@ -;;; -*- Mode: Lisp -*- -;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases -;;;; This is copyrighted software. See documentation for terms. -;;;; -;;;; MaiSQL.system --- System definition for MaiSQL -;;;; -;;;; Checkout Tag: $Name: $ -;;;; $Id: MaiSQL.system,v 1.1 2001/08/01 17:52:50 dan_b Exp $ - -#+CLISP -(in-package "USER") -#-CLISP -(in-package :CL-USER) - -;;; System definition for MaiSQL - -(mk:defsystem "MaiSQL" - :source-pathname "onshore:uncommonsql;" - :source-extension "lisp" - :binary-pathname nil - :binary-extension nil - :components ((:file "sql;package") - (:module core - :source-pathname "sql;" - :components ((:file "dbms-interface") - (:file "classes") - (:file "operations" - :depends-on ("classes")) - (:file "syntax") - (:file "sql" - :depends-on ("syntax" - "classes"))) - :depends-on ("sql;package")) - (:module syntax - :source-pathname "sql;" - :components ((:file "table") - (:file "conditions") - (:file "recording") - (:file "transaction")) - :depends-on (core)) - (:module object - :source-pathname "sql;" - :components ((:file "metaclasses") - (:file "objects" - :depends-on ("metaclasses")) - (:file "schema")) - :depends-on (syntax)) - (:module dbms-load - :source-pathname "" - :components ((:file "dbms-loader")) - :depends-on (core))) - :finally-do (pushnew :sql *features*)) - - diff --git a/systems/XML.system b/systems/XML.system deleted file mode 100644 index dccf0539d5b7a9688002fd3dd5dc67fbf3e796d9..0000000000000000000000000000000000000000 --- a/systems/XML.system +++ /dev/null @@ -1,73 +0,0 @@ -;;; -*- Syntax: Ansi-Common-Lisp; Base: 10; Mode: lisp; Package: cl-user -*- -;;; $Id: XML.system,v 1.1 2001/08/01 17:52:50 dan_b Exp $ - -(in-package :cl-user) - -;; -;; XML parser -;; - -(defsystem "XML" - :source-pathname "onshore:uncommonxml;" - :source-extension "lisp" - :binary-pathname nil - :binary-extension nil - :components - ((:file "application" ; good - :depends-on ("events" "locale")) - (:file "ascii-encoding" ; good - :depends-on ("encoding")) - (:file "attribute-definition" ; good - :depends-on ("macros")) - (:file "comment-driver") ; SAX comment driver - commented out. - (:file "conditions") ; good - (:file "content-token" ; COMPLETE - :depends-on ("token")) - (:file "doctype" ; good - :depends-on ("entity-parser")) - (:file "driver") ; SAX driver - commented out. - (:file "dtd") ; 9 - (:file "element-type" ; good - :depends-on ("macros")) - (:file "encoding" - :depends-on ("encoding-tables")) ; - (:file "encoding-tables" ; good - :depends-on ("macros")) - (:file "entity-manager") ; good - (:file "entity-parser" ; not good - :depends-on ("content-token" "dtd" "events" "prolog-parser" - "string-cache")) - (:file "events" ; good - :depends-on ("package")) - (:file "internal-encoding") ; 2 - Java-like 16 bit encoding - commented out. - (:file "iso8859-1-encoding") ; Latin-1 encoding - commented out. - (:file "locale") ; good - (:file "locator") ; good - (:file "macros" - :depends-on ("string")) ; 8 - good - (:file "messages") ; 9 - error messages - (:file "normalize") ; 7 - App: write normalized XML doc - (:file "open-entity") ; good - (:file "package") ; good - (:file "parse-location") ; good - (:file "parser") ; good - (:file "position") ; good - (:file "prolog-parser") ; - (:file "single-byte-encoding") ; arbitrary single byte encoding - (:file "string-cache") ; - (:file "string") ; Unicode garbage - (:file "test") ; Run the W3C test suite - (:file "text-decl") ; - (:file "token") ; good - (:file "utf16be-encoding") ; - (:file "utf16le-encoding") ; - (:file "utf8-encoding") ; - (:file "xml-decl" - :depends-on ("text-decl")) ; - (:file "xml-streams") ; - ) - ) - - - - diff --git a/systems/araneida.system b/systems/araneida.system deleted file mode 100644 index 8f54b6751f3fc9d4ce1eb80a4e97b7a9070e261a..0000000000000000000000000000000000000000 --- a/systems/araneida.system +++ /dev/null @@ -1,38 +0,0 @@ -;;; -*- Lisp -*- - -(defsystem araneida - :pathname #p"cl-library:araneida;" - :depends-on (db-sockets net-telent-date) - :components ((:file "defpackage") - (:file "macros" :depends-on("defpackage")) - (:file "release") - (:module "utility" - :source-pathname "utility;" - :components ((:file "aif") - (:file "lists") - (:file "split") - (:file "seqlet") - (:file "base64" :depends-on ("seqlet")) - (:file "strings"))) - (:file "db-sockets" - :depends-on ("macros")) - (:file "araneida" :depends-on ("db-sockets")) - (:file "pmp" :depends-on ("db-sockets")) - (:file "html") - (:file "url-class") - (:file "url" :depends-on ("utility" "url-class")) - (:file "server-class") - (:file "server" :depends-on ("server-class" "url-class")) - (:file "exports" - :depends-on ("defpackage" "utility" "url")) - (:file "request-class") - (:file "request" :depends-on ("url" "request-class") ) - (:file "auth" :depends-on ("request")) - (:file "file-request" :depends-on ("pmp" "request")) - (:file "define-page" :depends-on ("request")) - (:file "daemon" - :depends-on - ("url" "pmp" "defpackage" "exports" "request")) - (:file "memoization") - (:file "pattern-match" :depends-on ("memoization")))) - diff --git a/systems/cliki.system b/systems/cliki.system deleted file mode 100644 index ced266b2be09db977d20172bb8e4247f4b35644f..0000000000000000000000000000000000000000 --- a/systems/cliki.system +++ /dev/null @@ -1,20 +0,0 @@ -;;; -*- Lisp -*- -(in-package :cl-user) - -(make:defsystem cliki - :depends-on (ARANEIDA xmltools net-telent-date) - :source-pathname #p"telent:cliki;" - :components ((:file "defpackage") - (:file "indexing" :depends-on ("defpackage")) - (:file "index" :depends-on ("defpackage")) - ;(:file "date" :depends-on ("defpackage")) - (:file "link-checker" :depends-on ("indexing")) - (:file "view" :depends-on ("indexing")) - (:file "recent-changes" :depends-on ("defpackage" )) - (:file "view-source" :depends-on ("defpackage")) - (:file "edit" :depends-on ("indexing" "recent-changes")) - (:file "search" :depends-on ("indexing")) - (:file "handlers" :depends-on - ("view" "indexing" "view-source" "edit" "search")))) - - diff --git a/systems/clorb.system b/systems/clorb.system deleted file mode 100644 index 06786d8668a81dbfba4eb26bf7231a3c0784d229..0000000000000000000000000000000000000000 --- a/systems/clorb.system +++ /dev/null @@ -1,13 +0,0 @@ -;;; -*- Lisp -*- - -(make:defsystem "clorb" - :source-extension "lisp" - :binary-pathname "bin/" - :components ((:file "clorb-pkgdcl") - (:file "clorb-macros" :depends-on ("clorb-pkgdcl")) - (:file "clorb-options" :depends-on ("clorb-pkgdcl")) - (:file "clorb-supp") - (:file "clorb-basetypes") - (:file "clorb-exceptions") - (:file "dumpir" :depends-on ("clorb-pkgdcl")))) - diff --git a/systems/dan-barlow.system b/systems/dan-barlow.system deleted file mode 100644 index 5cc80dfe35ffed41b8c6726057f0b1444c1b0fd0..0000000000000000000000000000000000000000 --- a/systems/dan-barlow.system +++ /dev/null @@ -1,10 +0,0 @@ -;;; -*- Lisp -*- -(in-package :user) -(defsystem dan-barlow - :source-pathname #p"src:dan-barlow;" - :components ((:file "defpackage") - (:file "copy-stream" :depends-on ("defpackage")) - (:file "lists" :depends-on ("defpackage")) - (:file "aif" :depends-on ("defpackage")) - (:file "split" :depends-on ("defpackage")))) - diff --git a/systems/db-sockets.system b/systems/db-sockets.system deleted file mode 100644 index 6ccd2c8076b6d7fdec1bc3182b6d6c8209450fa9..0000000000000000000000000000000000000000 --- a/systems/db-sockets.system +++ /dev/null @@ -1,129 +0,0 @@ -;;; -*- Lisp -*- - -(defpackage #:db-sockets-system (:use #:asdf #:cl)) -(in-package #:db-sockets-system) - -;;; constants.lisp requires special treatment - -(defclass constants-file (cl-source-file) ()) - -(defmethod perform ((op compile-op) (component constants-file)) - ;; we want to generate all our temporary files in the fasl directory - ;; because that's where we have write permission. Can't use /tmp; - ;; it's insecure (these files will later be owned by root) - (let* ((output-file (car (output-files op component))) - (filename (component-pathname component)) - (real-output-file - (if (typep output-file 'logical-pathname) - (translate-logical-pathname output-file) - (pathname output-file))) - (tmp-c-source (merge-pathnames #p"foo.c" real-output-file)) - (tmp-a-dot-out (merge-pathnames #p"a.out" real-output-file)) - (tmp-constants (merge-pathnames #p"constants.lisp-temp" - real-output-file))) - (princ (list filename output-file real-output-file - tmp-c-source tmp-a-dot-out tmp-constants)) - (terpri) - (funcall (intern "C-CONSTANTS-EXTRACT" (find-package "DB-SOCKETS-SYSTEM")) - filename tmp-c-source :sockets-internal) - #+nil - (c-constants-extract filename tmp-c-source :sockets-internal) - (and - (= (run-shell-command - "/usr/bin/gcc -o ~S ~S" (namestring tmp-a-dot-out) - (namestring tmp-c-source)) 0) - (= (run-shell-command "~A >~A" - (namestring tmp-a-dot-out) - (namestring tmp-constants)) 0) - (compile-file tmp-constants :output-file output-file)))) - -;;; we also have a shared library with some .o files in it - -(defclass unix-dso (module) ()) -(defun unix-name (pathname) - (namestring - (typecase pathname - (logical-pathname (translate-logical-pathname pathname)) - (t pathname)))) - -(defmethod output-files ((operation compile-op) (dso unix-dso)) - (let ((dir (component-pathname dso))) - (list - (make-pathname :type "so" - :name (car (last (pathname-directory dir))) - :directory (butlast (pathname-directory dir)) - :defaults dir)))) - -(defmethod perform :after ((operation compile-op) (dso unix-dso)) - (let ((dso-name (unix-name (car (output-files operation dso))))) - (unless (zerop - (run-shell-command - "gcc -shared -o ~S ~{~S ~}" - dso-name - (mapcar #'unix-name - (mapcan (lambda (c) - (output-files operation c)) - (module-components dso))))) - (error 'operation-error :operation operation :component dso)))) - -;; XXX this is overridden later -(defmethod perform ((operation load-op) (dso unix-dso)) - (let ((dso-name (unix-name (car (output-files - (make-instance 'compile-op) dso))))) - #+sbcl (sb-alien:load-1-foreign dso-name) - #+cmu (system::load-object-file dso-name))) - - -;;; if this goes into the standard asdf, it could reasonably be extended -;;; to allow cflags to be set somehow -(defmethod output-files ((op compile-op) (c c-source-file)) - (list (let ((*default-pathname-defaults* *component-parent-pathname*)) - (make-pathname :type "o" :defaults - (component-pathname c))))) -(defmethod perform ((op compile-op) (c c-source-file)) - (unless - (= 0 (run-shell-command "/usr/bin/gcc -fPIC -o ~S -c ~S" - (unix-name (car (output-files op c))) - (unix-name (component-pathname c)))) - (error 'operation-error :operation op :component c))) - -(defmethod perform ((operation load-op) (c c-source-file)) - t) - -(defmethod perform ((o load-op) (c unix-dso)) - (let ((co (make-instance 'compile-op))) - (perform co c) - (let ((filename (car (output-files co c)))) - #+cmu (system::load-object-file filename) - #+sbcl (sb-alien:load-1-foreign filename)))) - -(defsystem db-sockets - :components ((:file "defpackage" :depends-on ("rt")) - (:file "split" :depends-on ("defpackage")) - (:file "array-data" :depends-on ("defpackage")) - q (:unix-dso "alien" - :pathname "." - :components ((:c-source-file "undefs") - (:c-source-file "get-h-errno"))) - (:file "malloc" :depends-on ("defpackage")) - (:file "foreign-glue" :depends-on ("defpackage" "malloc")) - (:constants-file "constants" - :pathname "constants.lisp" - :in-order-to - ((compile-op - (load-op "def-to-lisp" - "defpackage" - "foreign-glue")))) - (:file "sockets" - :in-order-to ((compile-op - (load-op "constants")))) - - (:file "sockopt" :depends-on ("sockets")) - (:file "inet" :depends-on ("sockets" "split" "constants" )) - (:file "unix" :depends-on ("sockets" "split" "constants" )) - (:file "name-service" :depends-on ("sockets" "constants" "alien")) - (:file "misc" :depends-on ("sockets" "constants")) - (:file "rt") - (:file "def-to-lisp") - (:file "tests" :depends-on ("inet" "rt")))) - diff --git a/systems/dhttp.system b/systems/dhttp.system deleted file mode 100644 index 9d49eb59fd67689dbd1f95b6be2a86a35692f3be..0000000000000000000000000000000000000000 --- a/systems/dhttp.system +++ /dev/null @@ -1,16 +0,0 @@ -;;; -*- Lisp -*- -(in-package :user) -(defsystem dhttp - :source-pathname #p"src:dhttp;" - :components ((:file "defpackage") - (:file "socket") - (:file "utilities") - (:file "exports" :depends-on ("utilities")) - (:file "html") (:file "auth") (:file "session") - (:file "request") ;(:file "object-request") - (:file "file-request") -; (:file "mail-request") - (:file "daemon" :depends-on ("defpackage" "exports"))) - :depends-on ("dan-barlow")) - - diff --git a/systems/http-server.system b/systems/http-server.system deleted file mode 100644 index 3a9440cf575764d2d25c81e1a09df14a568cb975..0000000000000000000000000000000000000000 --- a/systems/http-server.system +++ /dev/null @@ -1,38 +0,0 @@ -;;; -*- Lisp -*- -(in-package :user) - -(defvar *processor* #+alpha "alpha" #+x86 "i386" nil) -(defvar *system* "linux") -(defvar *implementation* "cmucl") -(defvar *proc-sys-impl* - (format nil "~A-~A-~A" *processor* *system* *implementation*)) -(defvar *impl-macros* - (concatenate 'string *implementation* "-macros")) - -(defsystem http-server - :source-pathname #p"src:http-server;" - :components ((:file "defpackage") - ;; random convenience stuff - (:file "utilities") - ;; system dependencies - (:file #.*impl-macros*) - (:file #.*proc-sys-impl* :depends-on (#.*impl-macros*)) - (:file #.*implementation* - :depends-on (#.*proc-sys-impl* #.*impl-macros*)) - (:file "pmp" :depends-on (#.*implementation*)) - (:file "html") - (:file "url-class") - (:file "url" :depends-on ("utilities" "url-class")) - (:file "server-class") - (:file "server" :depends-on ("server-class" "url-class")) - (:file "exports" - :depends-on ("defpackage" "utilities" "url")) - (:file "session" :depends-on ("request")) - (:file "request-class") - (:file "request" :depends-on ("url" "request-class") ) - (:file "file-request" :depends-on ("pmp" "request")) - (:file "daemon" - :depends-on ("url" "pmp" "defpackage" "exports" "request"))) - :depends-on ("dan-barlow")) - - diff --git a/systems/imap.system b/systems/imap.system deleted file mode 100644 index 3378fccee481225cfa59a392c1d167124ce0274f..0000000000000000000000000000000000000000 --- a/systems/imap.system +++ /dev/null @@ -1,7 +0,0 @@ -;;; -*- Lisp -*- -(defsystem imap - :source-pathname #p"src:imap;" - :components ((:file "defpackage") - (:file "imap" :depends-on ("defpackage"))) - :depends-on nil) - diff --git a/systems/istr.system b/systems/istr.system deleted file mode 100644 index 8b9a9c261bb1b064a0319aca5efebbb7885f55b3..0000000000000000000000000000000000000000 --- a/systems/istr.system +++ /dev/null @@ -1,111 +0,0 @@ -;;; -*- Lisp -*- -(in-package :cl-user) - -(load "/home/stargreen-http/src/telent/uncommonsql-1.0.2/dbms/mysql/system.lisp") - -(make:defsystem istr - :source-pathname #p"stargreen:istr;" - :components ((:file "defpackage") - ;; core - (:file "utilities" :depends-on ("defpackage")) - (:file "smtp") - (:file "uncommonsql" :depends-on ("defpackage")) - (:file "types" :depends-on ("defpackage")) - (:file "istr-instance-class" :depends-on - ("defpackage" "types" "uncommonsql")) - (:file "object-system" :depends-on - ("istr-instance-class" "utilities")) - (:file "searches" :depends-on ("object-system")) - (:file "rewrite-rules" :depends-on ("object-system")) - (:file "pages" :depends-on ("object-system" "rewrite-rules")) - - (:file "admin-stylesheet" :depends-on ("pages")) - (:file "admin-select-objects" - :depends-on ("pages" "admin-stylesheet")) - - (:file "db" :depends-on ("uncommonsql")) - (:file "stargreen" :depends-on ("defpackage")) - ;;(:file "http-server" :depends-on ("defpackage")) - (:file "handlers" :depends-on ("stargreen" #+nil "http-server")) - - ;; classes - (:file "country-class" :depends-on ("object-system")) - (:file "user-class" :depends-on - ("country-class" "object-system")) - (:file "resource-class" :depends-on ("object-system")) - - (:file "artist-class" - :depends-on ("object-system" "resource-class")) - (:file "order-class" :depends-on - ("artist-class" "creditcard-class" "event-class" - "locality-class" "venue-class" - "ticket-class" - "user-class")) - (:file "order-line-class" :depends-on - ("order-class" "ticket-class" "artist-class" - "venue-class" "event-class")) - - (:file "creditcard-class" :depends-on ("object-system")) - (:file "event-class" :depends-on - ("object-system" "venue-class" "artist-class")) - (:file "artist-event-class" :depends-on - ("artist-class" "event-class")) - (:file "locality-class" :depends-on ("object-system")) - (:file "mail-alert-class" :depends-on ("object-system")) - (:file "news-item-class" :depends-on ("object-system")) - - (:file "session-class" :depends-on ("order-class" "object-system")) - (:file "ticket-class" - :depends-on ("event-class" "object-system")) - - (:file "venue-class" :depends-on ("locality-class" "object-system")) - - (:file "artist" :depends-on ("artist-class")) - (:file "session" :depends-on ("session-class")) - (:file "country" :depends-on ("country-class")) - (:file "creditcard" :depends-on ("creditcard-class" "date")) - (:file "date" :depends-on ("defpackage")) - (:file "event" :depends-on ("event-class")) - ;(:file "mail-alert" :depends-on ("mail-alert-class")) - (:file "news-item" :depends-on ("news-item-class")) - (:file "order" :depends-on - ("order-line-class" "ticket-class" "event-class" - "smtp" "locality-class")) - (:file "order-line" :depends-on ("order-line-class")) - (:file "resource" :depends-on ("resource-class")) - (:file "ticket" :depends-on ("ticket-class" "event-class")) - (:file "user" :depends-on ("user-class" "smtp")) - (:file "venue" :depends-on ("venue-class")) - - (:file "relevant-instances" :depends-on ("order" "event" "date")) - - ;; pages - (:file "address-page" :depends-on ("pages" "user")) - (:file "about-us-page" :depends-on ("pages")) - - (:file "admin-menu-page" :depends-on ("pages")) - (:file "stargreen-admin" :depends-on ("admin-menu-page" "order" "event" "order-line")) - (:file "artist-page" :depends-on ("artist" "pages")) - (:file "basket-page" :depends-on ("order" "session" "pages")) - (:file "creditcard-page" :depends-on ("creditcard" "pages")) - ;;(:file "email-alerts-page" - ;; :depends-on ("pages" "mail-alert")) - (:file "event-page" - :depends-on ("pages" "event")) - (:file "front-page" - :depends-on ("pages" "news-item" #+nil "event")) - (:file "listing-page" :depends-on ("pages")) - (:file "my-account-page" :depends-on ("pages")) - (:file "order-confirmation-page" :depends-on ("pages")) - (:file "password-change-page" :depends-on ("pages")) - (:file "password-reminder-page" :depends-on ("pages")) - (:file "registration-page" :depends-on ("pages")) - (:file "review-order-page" :depends-on ("pages")) - (:file "search-page" :depends-on ("pages" "event" "date")) - - - ;; fluff - #+nil (:file "post-migration" :depends-on ("defpackage"))) - :depends-on (araneida uncommonsql xml uncommonsql-mysql)) - ;;:depends-on (araneida maisql xml maisql-mysql)) - diff --git a/systems/maisql-mysql.system b/systems/maisql-mysql.system deleted file mode 100644 index 76146994c69bf2e6b17a065a1333e52a56bc7db6..0000000000000000000000000000000000000000 --- a/systems/maisql-mysql.system +++ /dev/null @@ -1,39 +0,0 @@ -;;; -*- Mode: Lisp -*- -;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases -;;;; This is copyrighted software. See documentation for terms. -;;;; -;;;; MaiSQL.system --- System definition for MaiSQL-MySQL -;;;; -;;;; Checkout Tag: $Name: $ -;;;; $Id: maisql-mysql.system,v 1.1 2001/08/01 17:52:52 dan_b Exp $ - -#+CLISP -(in-package "USER") -#-CLISP -(in-package :CL-USER) - -;;; System definition - -(defsystem "MaiSQL-MySQL" - :source-pathname "onshore:uncommonsql;dbms;mysql" - :source-extension "lisp" - :binary-pathname nil - :binary-extension nil - :components - ((:file "mysql-package") - (:file "mysql-loader" - :depends-on ("mysql-package")) - (:file "mysql" - :depends-on ("mysql-package" - "mysql-loader")) - (:file "mysql-sql" - :depends-on ("mysql")) - ) - :depends-on ("MaiSQL") - ) - -;(oos "MaiSQL-MySQL" :compile) - - - - diff --git a/systems/maisql.system b/systems/maisql.system deleted file mode 100644 index 76f9f3f8a842be0cf27cfd2dacc13433d4e4fb08..0000000000000000000000000000000000000000 --- a/systems/maisql.system +++ /dev/null @@ -1,54 +0,0 @@ -;;; -*- Mode: Lisp -*- -;;;; MaiSQL --- Common Lisp Interface Layer to SQL Databases -;;;; This is copyrighted software. See documentation for terms. -;;;; -;;;; MaiSQL.system --- System definition for MaiSQL -;;;; -;;;; Checkout Tag: $Name: $ -;;;; $Id: maisql.system,v 1.1 2001/08/01 17:52:52 dan_b Exp $ - -#+CLISP -(in-package "USER") -#-CLISP -(in-package :CL-USER) - -;;; System definition for MaiSQL - -(mk:defsystem "MaiSQL" - :source-pathname "onshore:uncommonsql;" - :source-extension "lisp" - :binary-pathname nil - :binary-extension nil - :components ((:file "sql;package") - (:module core - :source-pathname "sql;" - :components ((:file "dbms-interface") - (:file "classes") - (:file "operations" - :depends-on ("classes")) - (:file "syntax") - (:file "sql" - :depends-on ("syntax" - "classes"))) - :depends-on ("sql;package")) - (:module syntax - :source-pathname "sql;" - :components ((:file "table") - (:file "conditions") - (:file "recording") - (:file "transaction")) - :depends-on (core)) - (:module object - :source-pathname "sql;" - :components ((:file "metaclasses") - (:file "objects" - :depends-on ("metaclasses")) - (:file "schema")) - :depends-on (syntax)) - (:module dbms-load - :source-pathname "" - :components ((:file "dbms-loader")) - :depends-on (core))) - :finally-do (pushnew :sql *features*)) - - diff --git a/systems/net-telent-date.system b/systems/net-telent-date.system deleted file mode 100644 index 6049c7687a9beb16cfff3b20d0713d2cc8836d17..0000000000000000000000000000000000000000 --- a/systems/net-telent-date.system +++ /dev/null @@ -1,9 +0,0 @@ -;;; -*- Lisp -*- - -(in-package :cl-user) - -(make:defsystem net-telent-date - :source-pathname #p"cl-library:net-telent-date;" - :components ((:file "defpackage") - (:file "date" :depends-on ("defpackage")) - (:file "parse-time" :depends-on ("defpackage")))) diff --git a/systems/net-telent-pcre.system b/systems/net-telent-pcre.system deleted file mode 100644 index c37007c7c11c26ed25a5b4e60f80be9ee0693ec7..0000000000000000000000000000000000000000 --- a/systems/net-telent-pcre.system +++ /dev/null @@ -1,11 +0,0 @@ -;;; -*- Lisp -*- - -(in-package :cl-user) - - -(make:defsystem net-telent-pcre - :source-pathname "cl-library:net-telent-pcre;" - :components ((:file "defpackage") - (:file "pcre" :depends-on ("defpackage" )))) - - diff --git a/systems/rinaldo.system b/systems/rinaldo.system deleted file mode 100644 index b623e4064fa20ed15b9eb3982c6b0ba255085b3e..0000000000000000000000000000000000000000 --- a/systems/rinaldo.system +++ /dev/null @@ -1,101 +0,0 @@ -;;; -*- Lisp -*- -(in-package :user) - -;;; all per-host configuration is done in e.g kenya_pentacom_co_uk.lisp -;;; - at least, nearly all - -(defvar *rinaldo-host-name* - (ext:host-entry-name (ext:lookup-host-entry (unix:unix-gethostname)))) -(defvar *rinaldo-configuration* - (substitute #\- #\. - (if (boundp '*config-tag*) - (format nil "~A-~A" *rinaldo-host-name* *config-tag*) - *rinaldo-host-name*))) - - -(defsystem rinaldo - :source-pathname #.(translate-logical-pathname #p"stargreen:rinaldo;") - :components ((:file "dhttp") ;dhttp glue - (:file "defpackage" :depends-on - ("dhttp")) - (:file "default-configuration" :depends-on ("defpackage")) - (:file #.*rinaldo-configuration* - :depends-on ("default-configuration")) - ;; core stuff - (:file "smtp") ;pretty standalone, this - (:file "utilities" :depends-on ("defpackage")) - (:file "rinaldo" :depends-on - (#.*rinaldo-configuration* "utilities" "defpackage")) - (:file "html-bits" :depends-on ("rinaldo")) - (:file "mop" :depends-on - ("defpackage" "utilities" #+nil "users")) - (:file "db" :depends-on ("mop")) - (:file "searching" :depends-on ("mop" "db" "defpackage")) - (:file "country-class") - (:file "address-class") - (:file "user-class") - (:file "country" :depends-on ("country-class")) - (:file "address" :depends-on ("address-class" "country-class")) - (:file "users" :depends-on - ("mop" "searching" "address-class" "user-class")) - (:file "styles" :depends-on ("defpackage")) - (:file "idle" :depends-on ("mop")) - - ;; admin system - (:file "admin-stylesheet" :depends-on ("mop" "defpackage")) - (:file "edit-object" :depends-on - ("defpackage" "admin-stylesheet")) - (:file "edit-objects" :depends-on - ("defpackage" "admin-stylesheet")) - (:file "edit" :depends-on - ("defpackage" "admin-stylesheet")) - (:file "edit-class" :depends-on - ("defpackage" "admin-stylesheet")) - (:file "stargreen-admin" :depends-on - ("defpackage" "admin-stylesheet" "transactions" - "stargreen-classes" "bid-offer")) - (:file "admin-stuff" :depends-on - ("admin-stylesheet" - #+nil "addressable-objects" "initial-db")) - - ;; end-user system - (:file "bundled-classes" :depends-on - ("mop" "defpackage" "searching")) - (:file "bid-offer" :depends-on ("bundled-classes")) - (:file "creditcard" :depends-on ("users")) - (:file "transactions" :depends-on ("bundled-classes")) - - ;; handlers - ;;(:file "addressable-objects" :depends-on ("bundled-classes")) - (:file "ooplemod" :depends-on ("bundled-classes")) - (:file "xmls-handler" :depends-on - ("defpackage" "mop" "ooplemod")) - (:file "ooplesearch" - :depends-on ("bundled-classes" "ooplemod")) - ;(:file "basket" :depends-on ("bundled-classes")) - (:file "delivery-handler" :depends-on ("bundled-classes")) - (:file "register" :depends-on - ("mop" "smtp" "defpackage" "address")) - (:file "login" :depends-on ("register")) - (:file "payment-handler" :depends-on ("bundled-classes")) - ;(:file "session" :depends-on ("bundled-classes")) - (:file "single-item" :depends-on ("bundled-classes")) - ;; data - (:file "initial-db" :depends-on - ("bundled-classes" "mop")) - ;; customers - (:file "stargreen-delivery" :depends-on - ("initial-db")) - ;; stargreen files which will one day be in the store not - ;; in files, so won't need loading this way - (:file "stargreen-classes" :depends-on ("initial-db")) - (:file "stargreen-ooplemod" - :depends-on ("stargreen-classes" "ooplemod")) - (:file "stargreen-exports" :depends-on ("exports")) - (:file "stargreen-mail" :depends-on ("stargreen-ooplemod")) - ;;; the export list - (:file "exports" :depends-on ("initial-db"))) - :depends-on (dan-barlow xml http-server maisql maisql-mysql)) - - - diff --git a/systems/telentweb.system b/systems/telentweb.system deleted file mode 100644 index 1ca30d3ea7d2dc9c8f8cf79ed685be744f22e7ba..0000000000000000000000000000000000000000 --- a/systems/telentweb.system +++ /dev/null @@ -1,14 +0,0 @@ -;;; -*- Lisp -*- -(in-package :cl-user) - -(defvar *per-host-configuration* - (substitute #\- #\. (machine-instance))) - -(make:defsystem telentweb - :depends-on (ARANEIDA araneida-examples cliki) - :source-pathname #p"telent:telentweb;" - :components ((:file "defpackage") - (:file "configuration" - :source-pathname #.*per-host-configuration*) - (:file "main" :depends-on ("defpackage" "configuration")))) - diff --git a/systems/todo.system b/systems/todo.system deleted file mode 100644 index 0fbe6ef7a986c48f8d9bdf3490cf9f5e1233f866..0000000000000000000000000000000000000000 --- a/systems/todo.system +++ /dev/null @@ -1,9 +0,0 @@ -;;; -*- Lisp -*- -(in-package :user) -(defsystem todo - :depends-on (rinaldo) - :source-pathname #.(translate-logical-pathname #p"src:todo;") - :components ((:file "defpackage") - (:file "todo-class" :depends-on ("defpackage")) - (:file "todo" :depends-on ("todo-class")))) - diff --git a/systems/xml.system b/systems/xml.system deleted file mode 100644 index edbb7fccdbe75a2d8ac703a6e5c774936cc933e8..0000000000000000000000000000000000000000 --- a/systems/xml.system +++ /dev/null @@ -1,9 +0,0 @@ -;;; -*- Lisp -*- -(in-package :user) -(defsystem xml -; :depends-on (dhttp) - :source-pathname #p"src:xml;" - :components ((:file "defpackage") - (:file "memoization" :depends-on ("defpackage")) - (:file "xml" :depends-on ("memoization" "defpackage")))) - diff --git a/systems/xmltools.system b/systems/xmltools.system deleted file mode 100644 index 2fa9cdfb8cfe44beca08920c68d8043b49a20295..0000000000000000000000000000000000000000 --- a/systems/xmltools.system +++ /dev/null @@ -1,8 +0,0 @@ -;;; -*- Lisp -*- -(in-package :cl-user) - -(make:defsystem xmltools - :source-pathname #p"telent:allegro-xmltools;" - :components ((:file "defpackage") - (:file "ifstar" :depends-on ("defpackage")) - (:file "phtml" :depends-on ("ifstar"))))