1 /*

     2  * Copyright (c) 2011, 2012, Oracle and/or its affiliates. All rights reserved.

     3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.

     4  *

     5  * This code is free software; you can redistribute it and/or modify it

     6  * under the terms of the GNU General Public License version 2 only, as

     7  * published by the Free Software Foundation.  Oracle designates this

     8  * particular file as subject to the "Classpath" exception as provided

     9  * by Oracle in the LICENSE file that accompanied this code.

    10  *

    11  * This code is distributed in the hope that it will be useful, but WITHOUT

    12  * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or

    13  * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License

    14  * version 2 for more details (a copy is included in the LICENSE file that

    15  * accompanied this code).

    16  *

    17  * You should have received a copy of the GNU General Public License version

    18  * 2 along with this work; if not, write to the Free Software Foundation,

    19  * Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.

    20  *

    21  * Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA

    22  * or visit www.oracle.com if you need additional information or have any

    23  * questions.

    24  */

    25 

    26 #import "apple_applescript_AppleScriptEngine.h"

    27 #import "apple_applescript_AppleScriptEngineFactory.h"

    28 

    29 #import <JavaNativeFoundation/JavaNativeFoundation.h>

    30 

    31 #import "NS_Java_ConversionUtils.h"

    32 #import "AppleScriptExecutionContext.h"

    33 

    34 //#define DEBUG 1

    35 

    36 

    37 /*

    38  * Class:     apple_applescript_AppleScriptEngineFactory

    39  * Method:    initNative

    40  * Signature: ()V

    41  */

    42 JNIEXPORT void JNICALL Java_apple_applescript_AppleScriptEngineFactory_initNative

    43 (JNIEnv *env, jclass clazz)

    44 {

    45     return;

    46 }

    47 

    48 

    49 /*

    50  * Class:     apple_applescript_AppleScriptEngine

    51  * Method:    initNative

    52  * Signature: ()V

    53  */

    54 JNIEXPORT void JNICALL Java_apple_applescript_AppleScriptEngine_initNative

    55 (JNIEnv *env, jclass clazz)

    56 {

    57     return;

    58 }

    59 

    60 

    61 /*

    62  * Class:     apple_applescript_AppleScriptEngine

    63  * Method:    createContextFrom

    64  * Signature: (Ljava/lang/Object;)J

    65  */

    66 JNIEXPORT jlong JNICALL Java_apple_applescript_AppleScriptEngine_createContextFrom

    67 (JNIEnv *env, jclass clazz, jobject javaContext)

    68 {

    69     NSObject *obj = nil;

    70 

    71 JNF_COCOA_ENTER(env);

    72 

    73     obj = [[JavaAppleScriptEngineCoercion coercer] coerceJavaObject:javaContext withEnv:env];

    74 

    75 #ifdef DEBUG

    76     NSLog(@"converted context: %@", obj);

    77 #endif

    78 

    79     CFRetain(obj);

    80 

    81 JNF_COCOA_EXIT(env);

    82 

    83     return ptr_to_jlong(obj);

    84 }

    85 

    86 

    87 /*

    88  * Class:     apple_applescript_AppleScriptEngine

    89  * Method:    createObjectFrom

    90  * Signature: (J)Ljava/lang/Object;

    91  */

    92 JNIEXPORT jobject JNICALL Java_apple_applescript_AppleScriptEngine_createObjectFrom

    93 (JNIEnv *env, jclass clazz, jlong nativeContext)

    94 {

    95     jobject obj = NULL;

    96 

    97 JNF_COCOA_ENTER(env);

    98 

    99     obj = [[JavaAppleScriptEngineCoercion coercer] coerceNSObject:(id)jlong_to_ptr(nativeContext) withEnv:env];

   100 

   101 JNF_COCOA_EXIT(env);

   102 

   103     return obj;

   104 }

   105 

   106 

   107 /*

   108  * Class:     apple_applescript_AppleScriptEngine

   109  * Method:    disposeContext

   110  * Signature: (J)V

   111  */

   112 JNIEXPORT void JNICALL Java_apple_applescript_AppleScriptEngine_disposeContext

   113 (JNIEnv *env, jclass clazz, jlong nativeContext)

   114 {

   115 

   116 JNF_COCOA_ENTER(env);

   117 

   118     id obj = (id)jlong_to_ptr(nativeContext);

   119     if (obj != nil) CFRelease(obj);

   120 

   121 JNF_COCOA_EXIT(env);

   122 

   123 }

   124 

   125 

   126 /*

   127  * Class:     apple_applescript_AppleScriptEngine

   128  * Method:    evalScript

   129  * Signature: (Ljava/lang/String;J)J

   130  */

   131 JNIEXPORT jlong JNICALL Java_apple_applescript_AppleScriptEngine_evalScript

   132 (JNIEnv *env, jclass clazz, jstring ascript, jlong contextptr)

   133 {

   134     id retval = nil;

   135 

   136 JNF_COCOA_ENTER(env);

   137 

   138     NSDictionary *ncontext = jlong_to_ptr(contextptr);

   139     NSString *source = JNFJavaToNSString(env, ascript);

   140 

   141 #ifdef DEBUG

   142     NSLog(@"evalScript(source:\"%@\" context: %@)", source, ncontext);

   143 #endif

   144 

   145     AppleScriptExecutionContext *scriptInvocationCtx = [[[AppleScriptExecutionContext alloc] initWithSource:source context:ncontext] autorelease];

   146     retval = [scriptInvocationCtx invokeWithEnv:env];

   147 

   148 #ifdef DEBUG

   149     NSLog(@"returning: %@", retval);

   150 #endif

   151 

   152     if (retval) CFRetain(retval);

   153 

   154 JNF_COCOA_EXIT(env);

   155 

   156     return ptr_to_jlong(retval);

   157 }

   158 

   159 

   160 /*

   161  * Class:     apple_applescript_AppleScriptEngine

   162  * Method:    evalScriptFromURL

   163  * Signature: (Ljava/lang/String;J)J

   164  */

   165 JNIEXPORT jlong JNICALL Java_apple_applescript_AppleScriptEngine_evalScriptFromURL

   166 (JNIEnv *env, jclass clazz, jstring afilename, jlong contextptr)

   167 {

   168     id retval = nil;

   169 

   170 JNF_COCOA_ENTER(env);

   171 

   172     NSDictionary *ncontext = jlong_to_ptr(contextptr);

   173     NSString *filename = JNFJavaToNSString(env, afilename);

   174 

   175 #ifdef DEBUG

   176     NSLog(@"evalScript(filename:\"%@\" context: %@)", filename, ncontext);

   177 #endif

   178 

   179     AppleScriptExecutionContext *scriptInvocationCtx = [[[AppleScriptExecutionContext alloc] initWithFile:filename context:ncontext] autorelease];

   180     retval = [scriptInvocationCtx invokeWithEnv:env];

   181 

   182 #ifdef DEBUG

   183     NSLog(@"returning: %@", retval);

   184 #endif

   185 

   186     if (retval) CFRetain(retval);

   187 

   188 JNF_COCOA_EXIT(env);

   189 

   190     return ptr_to_jlong(retval);

   191 }