Changeset 11687

Timestamp:

02/23/09 21:26:09 (15 years ago)

Author:

ehuelsmann

Message:

Remove libabcl.so, which is about setting a SIGINT signal handler.

Note: NetBeans? didn't find any usages of Native.java outside of Native.java (?!).

Did this ever work?!

Location:

trunk/abcl

Files:

• build-abcl.lisp (modified) (5 diffs)
• src/org/armedbear/lisp/Native.java (deleted)
• src/org/armedbear/lisp/native.c (deleted)

trunk/abcl/build-abcl.lisp

@@ -374 +374 @@
     status))
 
-(defun make-libabcl ()
-  (and (let* ((javah-namestring (namestring (probe-file (merge-pathnames "bin/javah" *jdk*))))
-              (command
-               (format nil "~A -o org/armedbear/lisp/native.h org.armedbear.lisp.Native"
-                       javah-namestring))
-              (status
-               (run-shell-command command :directory *source-root*)))
-         (unless (zerop status)
-           (format t "~A returned ~S~%" command status))
-         (zerop status))
-       (let* ((jdk-namestring (namestring *jdk*))
-              (command
-               (format nil "gcc -shared -o libabcl.so -O -D_REENTRANT -fpic -I~Ainclude -I~Ainclude/~A native.c"
-                       jdk-namestring jdk-namestring
-                       (cond ((eq *platform* :linux)
-                              "linux")
-                             ((search "SunOS" (software-type))
-                              "solaris")
-                             ((search "FreeBSD" (software-type))
-                              "freebsd"))))
-              (status
-               (run-shell-command command :directory *abcl-dir*)))
-         (unless (zerop status)
-           (format t "~A returned ~S~%" command status))
-         (zerop status))))
 
 ;; abcl/abcl.bat
@@ -415 +390 @@
          (let ((pathname (merge-pathnames "abcl" *tree-root*)))
            (with-open-file (s pathname :direction :output :if-exists :supersede)
-             (if (eq *platform* :linux)
-                 ;; On Linux, set java.library.path for libabcl.so.
-                 (format s "#!/bin/sh~%exec ~A -Xss4M -Xmx256M -Xrs -Djava.library.path=~A -cp ~A org.armedbear.lisp.Main \"$@\"~%"
-                         (safe-namestring *java*)
-                         (safe-namestring (merge-pathnames "org/armedbear/lisp/" *build-root*))
-                         (safe-namestring (merge-pathnames "abcl.jar" *dist-root*)))
-                 ;; Not Linux.
-                 (format s "#!/bin/sh~%exec ~A -Xss4M -Xmx256M -cp ~A org.armedbear.lisp.Main \"$@\"~%"
-                         (safe-namestring *java*)
-                         (safe-namestring (merge-pathnames "abcl.jar" *dist-root*)))))
+             (format s "#!/bin/sh~%exec ~A -Xss4M -Xmx256M -cp ~A org.armedbear.lisp.Main \"$@\"~%"
+                     (safe-namestring *java*)
+                     (safe-namestring (merge-pathnames "abcl.jar" *dist-root*))))
            (run-shell-command (format nil "chmod +x ~A" (safe-namestring pathname))
                               :directory *tree-root*)))))
@@ -461 +429 @@
                    (list *abcl-dir* "*.class" "*.abcl" "*.cls"
                                     "native.h" "libabcl.so" "build")
+                   ;; as of 0.14, native.h and libabcl.so have been removed
                    (list (merge-pathnames "util/" *abcl-dir*) "*.class")
                    (list (merge-pathnames "build/classes/org/armedbear/lisp/"
@@ -484 +453 @@
                         jar
                         clean
-                        libabcl
                         full)
   (let ((start (get-internal-real-time)))
@@ -520 +488 @@
           (format t "Build failed.~%")
           (return-from build-abcl nil))))
-    ;; libabcl.so
-    (when (and (or full libabcl)
-               (or (eq *platform* :linux)
-                   (search "SunOS" (software-type))
-                   (search "FreeBSD" (software-type))))
-      ;; A failure here is not fatal.
-      (make-libabcl))
     ;; abcl/abcl.bat
     (make-launch-script)