Update of /cvsroot/fink/experimental/lrosengreen/finkinfo
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11553

Modified Files:
        openmcl.info 
Added Files:
        openmcl.patch 
Log Message:
Add support for ASDF to REQUIRE



Index: openmcl.info
===================================================================
RCS file: /cvsroot/fink/experimental/lrosengreen/finkinfo/openmcl.info,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- openmcl.info        28 Sep 2004 21:52:19 -0000      1.4
+++ openmcl.info        29 Sep 2004 17:07:38 -0000      1.5
@@ -5,10 +5,6 @@
 License: LGPL
 Maintainer: Lars Rosengreen <[EMAIL PROTECTED]>
 
-# NOTE: Portions of this .info file are automatically generated by a
-# script.  Please contact the maintainer if you make any changes to
-# this file.
-
 Source: http://www.margay.org/fink/%n-cvs-%v.tar.bz2
 Source2: ftp://clozure.com/pub/%n-darwinppc-bin-0.14.2-p1.tar.gz
 Source3: ftp://clozure.com/pub/%n-darwin-interfaces-040505.tar.gz
@@ -19,14 +15,7 @@
 
 SourceDirectory: ccl
 
-PatchScript: <<
-  #! /bin/sh -ev
-  echo '(pushnew #P"%p/lib/common-lisp/%n/systems/" asdf:*central-registry*)' >> 
tools/asdf.lisp
-
-  cd level-1
-  sed -e 's/\(defparameter \*openmcl-suffix\* \)"[a-zA-Z0-9]*"/\1"040914"/' -e 
's/\[-~a~\]/\[\-~a~\]/' version.lisp > version.lisp.new
-  mv version.lisp.new version.lisp  
-<<
+PatchScript: sed -e 's|@PREFIX@|%p|g' -e 's|@DATE@|'`echo %v | awk -F'[^0-9]+' '{ 
print $NF }'`'|g' <%a/%n.patch | patch -p1
 
 CompileScript: <<
   cd lisp-kernel/darwin ; make
@@ -35,7 +24,6 @@
   echo '(ccl::save-application "dppccl.image")' | ./dppccl --batch --image-name 
ppc-boot.image
 <<
 
-
 InstallScript: <<
   find %b -type d -name CVS -depth -exec rm -rf {} \;
   find %b -type f -name .cvsignore -exec rm -f {} \;
@@ -64,8 +52,12 @@
 DescDetail: <<
   A free ANSI Common Lisp implementation for the Macintosh with
   several advanced features including native (POSIX) threading,
-  support for most of the MOP, and an elegant interface to
+  support for most of AMOP, and an elegant interface to
   Objective-C/Cocoa.
+
+  The Fink package incorporates recent bug fixes committed to
+  OpenMCL's upstream stable CVS tree and has support for using REQUIRE
+  with ASDF systems.
 << 
 
 DescPackaging: << 
@@ -78,11 +70,13 @@
   * OpenMCL.app is not a normal application.  It is part of OpenMCL's
     support for Cocoa, and needs to go in %p/lib/%n/ccl.
 
-  * A binary of the latest point release is used for bootstrapping.
-
-  * The sed stuff in PatchScript is there to get the date of the CVS
-    snapshot into ccl:*openmcl-version*
+  * The sed/awk stuff in PatchScript is kind of yucky -- its there to
+    get the date of the CVS snapshot into ccl:*openmcl-version*
 
   * Does not install asdf-install -- users who want this feature
     should install cl-asdf-openmcl instead.
+
+  * tools/asdf.lisp has been patched to provide an SBCL style REQUIRE
+    mechanism for ASDF systems, and to add
+    #P"%p/lib/common-lisp/openmcl/systems/" to asdf:*central-registry*
 <<

--- NEW FILE: openmcl.patch ---
diff -Naur ccl.orig/level-1/version.lisp ccl/level-1/version.lisp
--- ccl.orig/level-1/version.lisp       2004-05-11 15:22:54.000000000 -0700
+++ ccl/level-1/version.lisp    2004-09-28 23:59:16.000000000 -0700
@@ -17,7 +17,7 @@
 (defparameter *openmcl-major-version* 0)
 (defparameter *openmcl-minor-version* 14)
 (defparameter *openmcl-revision* 2)
-(defparameter *openmcl-suffix* "p1")
+(defparameter *openmcl-suffix* "@DATE@")
 
 (defparameter *openmcl-version* (format nil "(Beta: ~~A) [EMAIL PROTECTED]@[-~a~]"
                                        *openmcl-major-version*
diff -Naur ccl.orig/tools/asdf.lisp ccl/tools/asdf.lisp
--- ccl.orig/tools/asdf.lisp    2004-02-07 21:08:11.000000000 -0800
+++ ccl/tools/asdf.lisp 2004-09-28 23:53:11.000000000 -0700
@@ -1101,4 +1101,21 @@
   
   (pushnew 'module-provide-asdf sb-ext:*module-provider-functions*))
 
+#+openmcl
+(progn
+  (defun module-provide-asdf (name)
+    (handler-bind ((style-warning #'muffle-warning))
+      (let* ((*verbose-out* (make-broadcast-stream))
+            (system (asdf:find-system name nil)))
+       (when system
+         (asdf:operate 'asdf:load-op name)
+         t))))
+
+  (pushnew
+   #P"@PREFIX@/lib/common-lisp/openmcl/systems/"
+   *central-registry*)
+  
+  (pushnew 'module-provide-asdf ccl:*module-provider-functions*))
+
+
 (provide 'asdf)



-------------------------------------------------------
This SF.net email is sponsored by: IT Product Guide on ITManagersJournal
Use IT products in your business? Tell us what you think of them. Give us
Your Opinions, Get Free ThinkGeek Gift Certificates! Click to find out more
http://productguide.itmanagersjournal.com/guidepromo.tmpl
_______________________________________________
Fink-commits mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/fink-commits

Reply via email to