[Linedit-cvs] CVS src

[nsiivola]

Update of /project/linedit/cvsroot/src
In directory cl-net:/tmp/cvs-serv24994

Modified Files:
	linedit.asd 
Log Message:
dylib generation on Mac OS X for Allegro and Lispworks

  Patch by: Kevin M. Rosenberg <kevin at rosenberg.net>



--- /project/linedit/cvsroot/src/linedit.asd	2008/02/15 12:02:37	1.33
+++ /project/linedit/cvsroot/src/linedit.asd	2010/03/11 17:15:42	1.34
@@ -1,5 +1,5 @@
 ;; Copyright (c) 2003 Nikodemus Siivola
-;; 
+;;
 ;; Permission is hereby granted, free of charge, to any person obtaining
 ;; a copy of this software and associated documentation files (the
 ;; "Software"), to deal in the Software without restriction, including
@@ -7,10 +7,10 @@
 ;; distribute, sublicense, and/or sell copies of the Software, and to
 ;; permit persons to whom the Software is furnished to do so, subject to
 ;; the following conditions:
-;; 
+;;
 ;; The above copyright notice and this permission notice shall be included
 ;; in all copies or substantial portions of the Software.
-;; 
+;;
 ;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 ;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 ;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
@@ -28,16 +28,25 @@
 
 (defvar *gcc* "/usr/bin/gcc")
 
-(defvar *gcc-options* '(#-darwin "-shared"
-			#+darwin "-bundle"
-			"-fPIC"))
+(defvar *gcc-options* '(#-(or darwin macosx) "-shared"
+			#+(or darwin macosx)  "-dynamic"
+			#+(or darwin macosx)  "-arch"
+			#+(or darwin macosx)  "x86_64"
+			#+(or darwin macosx)  "-arch"
+			#+(or darwin macosx)  "i386"
+			#+(or darwin macosx)  "-bundle"
+			#+(or darwin macosx)  "/usr/lib/bundle1.o"
+			#+(or darwin macosx)  "-flat_namespace"
+			#+(or darwin macosx)  "-undefined"
+			#+(or darwin macosx)  "suppress"
+			#-(or darwin macosx) "-fPIC"))
 
 ;;; Separate class so that we don't mess up other packages
 (defclass uffi-c-source-file (c-source-file) ())
 
 (defmethod output-files ((o compile-op) (c uffi-c-source-file))
   (list (make-pathname :name (component-name c)
-		       :type "so"
+		       :type #-(or darwin macosx) "so" #+(or darwin macosx) "dylib"
 		       :defaults (component-pathname c))))
 
 (defmethod perform ((o load-op) (c uffi-c-source-file))