stoc/test/javavm/testjavavm.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20
  21 #include <jni.h>
  22
  23 #include <stdio.h>
  24 #include <sal/main.h>
  25 #include <sal/log.hxx>
  26 #include <rtl/process.h>
  27
  28 #include <cppuhelper/servicefactory.hxx>
  29 #include <cppuhelper/weak.hxx>
  30 #include <cppuhelper/bootstrap.hxx>
  31
  32 #include <com/sun/star/registry/XSimpleRegistry.hpp>
  33 #include <com/sun/star/lang/XComponent.hpp>
  34 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  35 #include <com/sun/star/java/XJavaVM.hpp>
  36 #include <com/sun/star/registry/XImplementationRegistration.hpp>
  37 #include <com/sun/star/java/XJavaThreadRegister_11.hpp>
  38
  39 using namespace cppu;
  40 using namespace css::uno;
  41 using namespace css::lang;
  42 using namespace css::registry;
  43 using namespace css::java;
  44
  45
  46 sal_Bool testJavaVM(const Reference< XMultiServiceFactory > & xMgr )
  47 {
  48
  49       OUString sVMService("com.sun.star.java.JavaVirtualMachine");
  50     Reference<XInterface> xXInt= xMgr->createInstance(sVMService);
  51     if( ! xXInt.is())
  52         return sal_False;
  53     Reference<XJavaVM> xVM( xXInt, UNO_QUERY);
  54     if( ! xVM.is())
  55         return sal_False;
  56     Reference<XJavaThreadRegister_11> xreg11(xVM, UNO_QUERY);
  57     if( ! xreg11.is())
  58         return sal_False;
  59
  60
  61     sal_Int8 arId[16];
  62     rtl_getGlobalProcessId((sal_uInt8*) arId);
  63     Any anyVM = xVM->getJavaVM( Sequence<sal_Int8>(arId, 16));
  64     if ( ! anyVM.hasValue())
  65     {
  66         OSL_FAIL("could not get Java VM");
  67         return sal_False;
  68     }
  69
  70     sal_Bool b= xreg11->isThreadAttached();
  71     xreg11->registerThread();
  72     b= xreg11->isThreadAttached();
  73     xreg11->revokeThread();
  74     b= xreg11->isThreadAttached();
  75
  76
  77     b= xVM->isVMEnabled();
  78     b= xVM->isVMStarted();
  79
  80
  81     b= xVM->isVMEnabled();
  82     b= xVM->isVMStarted();
  83
  84
  85     JavaVM* _jvm= *(JavaVM**) anyVM.getValue();
  86     JNIEnv *p_env;
  87     if( _jvm->AttachCurrentThread((void**) &p_env, 0))
  88         return sal_False;
  89
  90     jclass cls = p_env->FindClass( "TestJavaVM");
  91     if (cls == 0) {
  92         SAL_WARN("stoc", "Can't find Prog class");
  93         exit(1);
  94     }
  95
  96     jmethodID id = p_env->GetStaticMethodID( cls, "getInt", "()I");
  97     if( id)
  98     {
  99         p_env->CallStaticIntMethod(cls, id);
 100     }
 101
 102     if( p_env->ExceptionOccurred()){
 103         p_env->ExceptionDescribe();
 104         p_env->ExceptionClear();
 105     }
 106
 107
 108     _jvm->DetachCurrentThread();
 109     return sal_True;
 110 }
 111
 112 SAL_IMPLEMENT_MAIN()
 113 {
 114     Reference<XSimpleRegistry> xreg= createSimpleRegistry();
 115     xreg->open( OUString("applicat.rdb"),
 116                                sal_False, sal_False );
 117
 118     Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
 119     Reference<XMultiComponentFactory> fac= context->getServiceManager();
 120     Reference<XMultiServiceFactory> xMgr( fac, UNO_QUERY);
 121
 122     sal_Bool bSucc = sal_False;
 123     try
 124     {
 125         OUString sImplReg(
 126             "com.sun.star.registry.ImplementationRegistration");
 127         Reference<css::registry::XImplementationRegistration> xImplReg(
 128             xMgr->createInstance( sImplReg ), UNO_QUERY );
 129         OSL_ENSURE( xImplReg.is(), "### no impl reg!" );
 130
 131
 132         OUString sLibLoader("com.sun.star.loader.SharedLibrary");
 133         OUString sJenLib( "javavm.uno" SAL_DLLEXTENSION );
 134         xImplReg->registerImplementation(
 135             sLibLoader, sJenLib, Reference< XSimpleRegistry >() );
 136
 137         bSucc = testJavaVM( xMgr );
 138     }
 139     catch (const Exception & rExc)
 140     {
 141         DBG_UNHANDLED_EXCEPTION("stoc", "### exception occurred: " << rExc );
 142     }
 143
 144     Reference< XComponent > xCompContext( context, UNO_QUERY );
 145     xCompContext->dispose();
 146     printf("javavm %s", bSucc ? "succeeded" : "failed");
 147     return (bSucc ? 0 : -1);
 148 }
 149
 150
 151 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */