blob: 98a24bda2f182f2ad2f3478425abf92b92b484a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
diff -u osicat_0.5.0.orig/osicat-glue.c osicat_0.5.0/osicat-glue.c
--- osicat_0.5.0.orig/osicat-glue.c 2005-10-06 17:25:31.000000000 -0500
+++ osicat_0.5.0/osicat-glue.c 2005-10-28 10:45:59.000000000 -0500
@@ -26,6 +26,7 @@
#include <pwd.h>
#include <errno.h>
#include <unistd.h>
+#include <stdlib.h>
extern int
osicat_mode (char * name, int follow_p)
Only in osicat_0.5.0: osicat-glue.c~
diff -u osicat_0.5.0.orig/osicat.asd osicat_0.5.0/osicat.asd
--- osicat_0.5.0.orig/osicat.asd 2005-10-06 17:25:31.000000000 -0500
+++ osicat_0.5.0/osicat.asd 2005-10-28 10:51:43.000000000 -0500
@@ -31,17 +31,19 @@
#+darwin "-dynamiclib"
"-fPIC"))
-(defmethod output-files ((o compile-op) (c c-source-file))
+(defclass osicat-c-source-file (c-source-file) ())
+
+(defmethod output-files ((o compile-op) (c osicat-c-source-file))
(list (make-pathname :name (component-name c)
:type "so"
:defaults (component-pathname c))))
-(defmethod perform ((o load-op) (c c-source-file))
+(defmethod perform ((o load-op) (c osicat-c-source-file))
(let ((loader (intern "LOAD-FOREIGN-LIBRARY" :uffi)))
(dolist (file (asdf::input-files o c))
(funcall loader file :module "osicat" :force-load t))))
-(defmethod perform ((o compile-op) (c c-source-file))
+(defmethod perform ((o compile-op) (c osicat-c-source-file))
(unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A"
*gcc*
(namestring (component-pathname c))
@@ -72,7 +74,7 @@
:version "0.5.0"
:depends-on (:uffi)
:components
- ((:c-source-file "osicat-glue")
+ ((:osicat-c-source-file "osicat-glue")
(:file "packages")
(:grovel-file "grovel-constants" :depends-on ("packages"))
(:file "early-util" :depends-on ("packages"))
Only in osicat_0.5.0: osicat.asd~
|
GitWeb
