[Portableaserve-cvslog] CVS: portableaserve/aserve/webactions webactions.asd,1.1,1.2

[Rudi S. <ru...@us...>]

Update of /cvsroot/portableaserve/portableaserve/aserve/webactions
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32003/aserve/webactions

Modified Files:
	webactions.asd 
Log Message:
- Frob webactions.asd: add default file type, author and licence info


Index: webactions.asd
===================================================================
RCS file: /cvsroot/portableaserve/portableaserve/aserve/webactions/webactions.asd,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- webactions.asd	5 Dec 2003 21:23:15 -0000	1.1
+++ webactions.asd	13 Mar 2004 17:46:08 -0000	1.2
@@ -1,3 +1,5 @@
+;;; -*- lisp -*-
+
 (defpackage #:webactions-system
   (:use #:cl #:asdf))
 (in-package #:webactions-system)
@@ -5,53 +7,19 @@
 (defclass acl-file (cl-source-file) ())
 (defmethod asdf:source-file-type ((c acl-file) (s module)) "cl")
 
-(defclass legacy-acl-source-file (acl-file)
-    ()
-  (:documentation
-   "Common Lisp source code module with (non-style) warnings.
-In contrast to CL-SOURCE-FILE, this class does not think that such warnings
-indicate failure."))
-
-(defmethod perform ((operation compile-op) (c legacy-acl-source-file))
-  (let ((source-file (component-pathname c))
-	(output-file (car (output-files operation c)))
-	(warnings-p nil)
-	(failure-p nil))
-    (setf (asdf::component-property c 'last-compiled) nil)
-    (handler-bind ((warning (lambda (c)
-			      (declare (ignore c))
-			      (setq warnings-p t)))
-		   ;; _not_ (or error (and warning (not style-warning)))
-		   (error (lambda (c)
-			    (declare (ignore c))
-			    (setq failure-p t))))
-      (compile-file source-file
-		    :output-file output-file))
-    ;; rest of this method is as for CL-SOURCE-FILE
-    (setf (asdf::component-property c 'last-compiled) (file-write-date output-file))
-    (when warnings-p
-      (case (asdf::operation-on-warnings operation)
-	(:warn (warn "COMPILE-FILE warned while performing ~A on ~A"
-		     c operation))
-	(:error (error 'compile-warned :component c :operation operation))
-	(:ignore nil)))
-    (when failure-p
-      (case (asdf::operation-on-failure operation)
-	(:warn (warn "COMPILE-FILE failed while performing ~A on ~A"
-		     c operation))
-	(:error (error 'compile-failed :component c :operation operation))
-	(:ignore nil)))))
-
 (defsystem webactions
+    :author "John K. Foderaro"
+    :licence "LLGPL"
+    :default-component-class acl-file
     :components
-  ((:acl-file "websession")
-   (:acl-file "webact" :depends-on ("websession"))
-   (:acl-file "clpage" :depends-on ("webact"))
+    ((:file "websession")
+     (:file "webact" :depends-on ("websession"))
+     (:file "clpage" :depends-on ("webact"))
    (:module :clpcode
 	    :components
-	    ((:acl-file "clp")
-	     (:acl-file "http")
-	     (:acl-file "time")
-	     (:acl-file "wa"))
+              ((:file "clp")
+               (:file "http")
+               (:file "time")
+               (:file "wa"))
 	    :depends-on ("clpage")))
-  :depends-on (aserve acl-compat htmlgen))
+    :depends-on (aserve #-allegro acl-compat htmlgen))