Changeset 15189


Ignore:
Timestamp:
Feb 1, 2012, 11:55:55 PM (8 years ago)
Author:
gb
Message:

Move jni.lisp from examples/jfli/ to library. We don't need the
kernel-imprort-jvm-init hack on Darwin anymore.

Tweak the jfli swtdemo to REQUIRE jni.

I imagine that more stuff will need to be modified/moved around
in order to make things work and make things more general.

Location:
trunk/source
Files:
1 edited
1 moved

Legend:

Unmodified
Added
Removed
  • trunk/source/examples/jfli/examples/swtdemo.lisp

    r11573 r15189  
    11;Just load this from LispWorks menu
    22;note works on Windows, some issues on OS X due to windowing conflict w/IDE
    3 (load "ccl:examples;jfli;jni")
     3(require "JNI")
    44(load "ccl:examples;jfli;jfli")
    55(use-package :jfli)
  • trunk/source/library/jni.lisp

    r15188 r15189  
    161161        (unless (eql jni-ok
    162162                     (ff-call
    163                       (ccl::%kernel-import target::kernel-import-jvm-init)
    164                       :address (pref jvm #>JavaVM.AttachCurrentThread)
     163                      (pref jvm #>JavaVM.AttachCurrentThread)
    165164                      :address jvm
    166165                      :address pjnienv
     
    11531152           ;; JNI_CreateJavaVM for us.
    11541153           (let* ((result
    1155                    (ff-call (ccl::%kernel-import target::kernel-import-jvm-init)
    1156                             :address (foreign-symbol-address "JNI_CreateJavaVM")
     1154                   (ff-call (foreign-symbol-address "JNI_CreateJavaVM")
    11571155                            :address vm
    11581156                            :address env
Note: See TracChangeset for help on using the changeset viewer.