From 27bce8924f5819719e7b9fd3096969295b2d5bd6 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Sun, 27 Nov 2011 08:17:49 +0000
Subject: [PATCH] Adds a test project for building JNI Pascal Android apps

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2164 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 .../examples/jnitest/AndroidManifest.xml      |  21 +++++
 .../examples/jnitest/build.properties         |  17 ++++
 .../android-ndk/examples/jnitest/build.xml    |  85 ++++++++++++++++++
 .../examples/jnitest/default.properties       |  11 +++
 .../examples/jnitest/jni/nativetest.pas       |  70 +++++++++++++++
 .../examples/jnitest/local.properties         |  10 +++
 .../examples/jnitest/res/drawable/icon.png    | Bin 0 -> 3180 bytes
 .../examples/jnitest/res/values/strings.xml   |   5 ++
 .../com/pascal/jnitest/AndroidJNITest.java    |  34 +++++++
 9 files changed, 253 insertions(+)
 create mode 100644 bindings/android-ndk/examples/jnitest/AndroidManifest.xml
 create mode 100644 bindings/android-ndk/examples/jnitest/build.properties
 create mode 100644 bindings/android-ndk/examples/jnitest/build.xml
 create mode 100644 bindings/android-ndk/examples/jnitest/default.properties
 create mode 100755 bindings/android-ndk/examples/jnitest/jni/nativetest.pas
 create mode 100644 bindings/android-ndk/examples/jnitest/local.properties
 create mode 100755 bindings/android-ndk/examples/jnitest/res/drawable/icon.png
 create mode 100755 bindings/android-ndk/examples/jnitest/res/values/strings.xml
 create mode 100755 bindings/android-ndk/examples/jnitest/src/com/pascal/jnitest/AndroidJNITest.java

diff --git a/bindings/android-ndk/examples/jnitest/AndroidManifest.xml b/bindings/android-ndk/examples/jnitest/AndroidManifest.xml
new file mode 100644
index 000000000..50e597cba
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/AndroidManifest.xml
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="utf-8"?>
+<manifest xmlns:android="http://schemas.android.com/apk/res/android"
+      package="com.pascal.jnitest"
+      android:versionCode="1"
+      android:versionName="1.0">
+    <uses-permission android:name="android.permission.VIBRATE" />
+    <supports-screens android:smallScreens="true" android:normalScreens="true" android:largeScreens="true" android:anyDensity="true" />
+    <uses-sdk android:minSdkVersion="4" android:targetSdkVersion="4" />
+    <application android:label="@string/app_name" android:icon="@drawable/icon"
+        android:debuggable="True">
+        <activity android:name="AndroidJNITest"
+                  android:configChanges="orientation|keyboardHidden"
+                  android:label="@string/app_name"
+                  android:launchMode="singleTop">
+            <intent-filter>
+                <action android:name="android.intent.action.MAIN" />
+                <category android:name="android.intent.category.LAUNCHER" />
+            </intent-filter>
+        </activity>
+    </application>
+</manifest> 
diff --git a/bindings/android-ndk/examples/jnitest/build.properties b/bindings/android-ndk/examples/jnitest/build.properties
new file mode 100644
index 000000000..edc7f2305
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/build.properties
@@ -0,0 +1,17 @@
+# This file is used to override default values used by the Ant build system.
+# 
+# This file must be checked in Version Control Systems, as it is
+# integral to the build system of your project.
+
+# This file is only used by the Ant script.
+
+# You can use this to override default values such as
+#  'source.dir' for the location of your java source folder and
+#  'out.dir' for the location of your output folder.
+
+# You can also use it define how the release builds are signed by declaring
+# the following properties:
+#  'key.store' for the location of your keystore and
+#  'key.alias' for the name of the key to use.
+# The password will be asked during the build when you use the 'release' target.
+
diff --git a/bindings/android-ndk/examples/jnitest/build.xml b/bindings/android-ndk/examples/jnitest/build.xml
new file mode 100644
index 000000000..b3f5ea6e0
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/build.xml
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<project name="AndroidLCLTest" default="help">
+
+    <!-- The local.properties file is created and updated by the 'android' tool.
+         It contains the path to the SDK. It should *NOT* be checked into
+         Version Control Systems. -->
+    <loadproperties srcFile="local.properties" />
+
+    <!-- The ant.properties file can be created by you. It is only edited by the
+         'android' tool to add properties to it.
+         This is the place to change some Ant specific build properties.
+         Here are some properties you may want to change/update:
+
+         source.dir
+             The name of the source directory. Default is 'src'.
+         out.dir
+             The name of the output directory. Default is 'bin'.
+
+         For other overridable properties, look at the beginning of the rules
+         files in the SDK, at tools/ant/build.xml
+
+         Properties related to the SDK location or the project target should
+         be updated using the 'android' tool with the 'update' action.
+
+         This file is an integral part of the build system for your
+         application and should be checked into Version Control Systems.
+
+         -->
+    <property file="ant.properties" />
+
+    <!-- The project.properties file is created and updated by the 'android'
+         tool, as well as ADT.
+
+         This contains project specific properties such as project target, and library
+         dependencies. Lower level build properties are stored in ant.properties
+         (or in .classpath for Eclipse projects).
+
+         This file is an integral part of the build system for your
+         application and should be checked into Version Control Systems. -->
+    <loadproperties srcFile="project.properties" />
+
+    <!-- quick check on sdk.dir -->
+    <fail
+            message="sdk.dir is missing. Make sure to generate local.properties using 'android update project'"
+            unless="sdk.dir"
+    />
+
+
+<!-- extension targets. Uncomment the ones where you want to do custom work
+     in between standard targets -->
+<!--
+    <target name="-pre-build">
+    </target>
+    <target name="-pre-compile">
+    </target>
+
+    /* This is typically used for code obfuscation.
+       Compiled code location: ${out.classes.absolute.dir}
+       If this is not done in place, override ${out.dex.input.absolute.dir} */
+    <target name="-post-compile">
+    </target>
+-->
+
+    <!-- Import the actual build file.
+
+         To customize existing targets, there are two options:
+         - Customize only one target:
+             - copy/paste the target into this file, *before* the
+               <import> task.
+             - customize it to your needs.
+         - Customize the whole content of build.xml
+             - copy/paste the content of the rules files (minus the top node)
+               into this file, replacing the <import> task.
+             - customize to your needs.
+
+         ***********************
+         ****** IMPORTANT ******
+         ***********************
+         In all cases you must update the value of version-tag below to read 'custom' instead of an integer,
+         in order to avoid having your file be overridden by tools such as "android update project"
+    -->
+    <!-- version-tag: 1 -->
+    <import file="${sdk.dir}/tools/ant/build.xml" />
+
+</project>
diff --git a/bindings/android-ndk/examples/jnitest/default.properties b/bindings/android-ndk/examples/jnitest/default.properties
new file mode 100644
index 000000000..9d79b12c7
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/default.properties
@@ -0,0 +1,11 @@
+# This file is automatically generated by Android Tools.
+# Do not modify this file -- YOUR CHANGES WILL BE ERASED!
+# 
+# This file must be checked in Version Control Systems.
+# 
+# To customize properties used by the Ant build system use,
+# "build.properties", and override values to adapt the script to your
+# project structure.
+
+# Project target.
+target=android-4
diff --git a/bindings/android-ndk/examples/jnitest/jni/nativetest.pas b/bindings/android-ndk/examples/jnitest/jni/nativetest.pas
new file mode 100755
index 000000000..31d9d6cfc
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/jni/nativetest.pas
@@ -0,0 +1,70 @@
+library nativetest;
+{$ifdef fpc}
+ {$mode delphi}
+{$endif}
+
+uses
+  SysUtils,
+  jni in 'jni.pas',
+  log in 'log.pas';
+
+const curClass:JClass=nil;
+      nativeCodeLoaded:JfieldID=nil;
+
+function Java_com_bero_nativetest_Main_stringFromJNI(env:PJNIEnv;this:jobject):jstring;{$ifdef mswindows}stdcall;{$else}cdecl;{$endif}
+var x:single;
+begin
+ __android_log_write(ANDROID_LOG_INFO,'nativetest','Java_com_bero_nativetest_Main_stringFromJNI entered');
+ curEnv^.SetLongField(curEnv,curClass,nativeCodeLoaded,1);
+ x:=8;
+ result:=env^.NewStringUTF(env,pchar('Hello from native free pascal code by BeRo to the java world on the android platform ! '+floattostr(x*0.5)));
+ __android_log_write(ANDROID_LOG_INFO,'nativetest','Java_com_bero_nativetest_Main_stringFromJNI exited');
+end;
+     
+const NativeMethods:array[0..0] of JNINativeMethod=
+       ((name:'stringFromJNI';
+         signature:'()Ljava/lang/String;';
+         fnPtr:@Java_com_bero_nativetest_Main_stringFromJNI;));
+
+function JNI_OnLoad(vm:PJavaVM;reserved:pointer):jint;{$ifdef mswindows}stdcall;{$else}cdecl;{$endif}
+begin
+ curVM:=vm;
+ __android_log_write(ANDROID_LOG_INFO,'nativetest','JNI_OnLoad called');
+ if curVM^.GetEnv(curVM,@curEnv,JNI_VERSION_1_6)<>JNI_OK then begin
+  __android_log_write(ANDROID_LOG_FATAL,'nativetest','curVM^.GetEnv failed');
+  result:=JNI_ERR;
+  exit;
+ end;
+
+ curClass:=curEnv^.FindClass(curEnv,'com/bero/nativetest/Main');
+ if not assigned(curClass) then begin
+  __android_log_write(ANDROID_LOG_FATAL,'nativetest','curEnv^.FindClass failed');
+  result:=JNI_ERR;
+  exit;
+ end;
+ if curEnv^.RegisterNatives(curEnv,curClass,@NativeMethods[0],length(NativeMethods))<0 then begin
+  __android_log_write(ANDROID_LOG_FATAL,'nativetest','curEnv^.RegisterNatives failed');
+  result:=JNI_ERR;
+  exit;
+ end;
+
+ nativeCodeLoaded:=curEnv^.GetFieldID(curEnv,curClass,'nativeCodeLoaded','J');
+ if not assigned(nativeCodeLoaded) then begin
+  __android_log_write(ANDROID_LOG_FATAL,'nativetest','curEnv^.GetFieldID failed');
+  result:=JNI_ERR;
+  exit;
+ end;
+
+ result:=JNI_VERSION_1_6;
+end;
+
+procedure JNI_OnUnload(vm:PJavaVM;reserved:pointer);{$ifdef mswindows}stdcall;{$else}cdecl;{$endif}
+begin
+end;
+
+exports JNI_OnLoad name 'JNI_OnLoad',
+        JNI_OnUnload name 'JNI_OnUnload',
+        Java_com_bero_nativetest_Main_stringFromJNI name 'Java_com_bero_nativetest_Main_stringFromJNI';
+
+begin
+end.
diff --git a/bindings/android-ndk/examples/jnitest/local.properties b/bindings/android-ndk/examples/jnitest/local.properties
new file mode 100644
index 000000000..6a8ab1aa4
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/local.properties
@@ -0,0 +1,10 @@
+# This file is automatically generated by Android Tools.
+# Do not modify this file -- YOUR CHANGES WILL BE ERASED!
+# 
+# This file must *NOT* be checked in Version Control Systems,
+# as it contains information specific to your local configuration.
+
+# location of the SDK. This is only used by Ant
+# For customization when using a Version Control System, please read the
+# header note.
+sdk.dir=/home/felipe/Programas/android-sdk-linux
diff --git a/bindings/android-ndk/examples/jnitest/res/drawable/icon.png b/bindings/android-ndk/examples/jnitest/res/drawable/icon.png
new file mode 100755
index 0000000000000000000000000000000000000000..75024841d327c4fbaefef7c8e9c8d0e892895f93
GIT binary patch
literal 3180
zcmV-y43qPTP)<h;3K|Lk000e1NJLTq001xm001xu1^@s6R|5Hm0000PbVXQnQ*UN;
zcVTj606}DLVr3vnZDD6+Qe|Oed2z{QJOBU;4oO5oRCwC#T5D_^)fGOo58H`f>-8%y
z>?Lk&?1bQy00olTw5rOVwrM3QR77j2sF13vY1JS6sbZvxR;?=9{z8-xlkf-)&`7j@
zLPDIDmN(g8j2*{G>^OcucGvIhdUtxhGxyHUj@Mv*5J2jUj_=Ifnc4H5^PR_?jbWN5
zeUXQUzTo5k06yzs=!5%z{F9Jj7?1K{fTfRP;}p;BPws!b?{g2}k>CBkB{CIxbbfw5
zu&}U@aRCDXfOeKMEa3xB{<Zyc1>pG?UJCJiQ7-_%)Z`S)Bu!3D(!%^gw)?^i4ZzND
z5(~p)Pqpn2e^vmRc|IAcuA-ZF-YARX;}bMCF~RdV4Gs+pnCa<hnw+!%xxJ)(#onT*
z1&#o&pM}p&0e0}I1D}fLd`uC1Ddn$SOVMbQ!ePshp-_mnes#ATN24){#G*1o#uykt
z%?p@$0hUN4XgW5H_-W4eMfd*jKFvuDk{m!8z8vd#3qO6RExPI$IDF(qb6Z0_l?F?w
zt*wm~7Z>HjJMX;HJ`Mx|A^?UlH$P8vbMxY*I4ckEIFH6+3?ya&Vy|ILPE5)y>q`lz
z(_B8xIJ@terw_J$tOrz}(uKZ0DladihaP%}Mn*=ckIx$$8|ksf9uwu9W8J!S0tPdr
zzOI(?^78D@alHj9W`m2z6ZWy?t(aVk<5<iBy1+&m85x!}M)PxCYFm{Dp8MMi5tTkE
zP+UychN`KeqMS+svLs&6pr8N*$9i0M-F0#e)-^DAZ>0es@0~tF16|#;?eG!uFD%mZ
z#`P4b*-V3VTj<2GSHx4#J^Qq=S`UPC{Ql<MyKa-kNF+)hbbcsvety0U=BAr&l5;%(
z3W`H%#Eu5#_LzI{chP1xQuO$%RI~SIWHQwtOPyWx%Jd8s78Nn=CRP{3nnHm<F;$e8
z%Od8w+AS8>=jJHF3PH~H^w2ExJU@Re6|BvdxuT*%xZB*^{E4!MslIov^*2=Vdb<Ev
zc;efXR~n=>Yw{>%ralpXsBTJONzHA^PWkyFn>KDF+S*{>I65{i;Ks(r<TxIWGd1E=
zpst4$FhFb0&+we~LLx7h{I}jhi~HNi_mx{H=bPUUP<d<C&}zG6pGs|9kjy<eY;SKD
z3Lq$vaUcMrvyUE?74VkjvFjb{05uD*G5uy|=jhVFAO~ffruaO;AS){^kKyz9`gQc*
zsR(U4@)G$EK1&I<{PbPlBeTDc%#^wMR^s3@&$Y6Z_I>v|-?F(4K05;!qqVhF00Nx$
zk~8}(qlwFkLKy&LVDJ_|m<sfq0*wGa+ucoPySnh%j+b6M5?&RBW@cwI(xj%4GYe^O
z5Df|eym#+j0jBQ-sOswKtYAQ;wOlkYHg4FcE4V$MIN46!sgzuwOeTZ;fmer2wsK)-
zA-w=apdeBsXafZ`oiOgc`|f3+G%$eDK=jb}RaREYbBZ}l<C&(=u!3^MgQn8T<OEVC
z%BNUjv1k!50z{H!2^m<;Ne#s3w9XXs5f+3pM~@!O@P>|ufT|5nP)=aFA=D{W&!eNG
z@;#V!b$1SU><9PUBi95=OF0HoG%+zzg946vhsUzaSpAi(U13T2?3S4^Ad|rI5NTAH
z|5`L4&3_HXO*hFR4sdmKb<1dk*#b8zhQzUe;`Ozhxe&m(hTHp)vU*Y}48?KNfSMNt
z!2LhEw{QP}r|1d;&=u8bbtg@<XkZvEEiKf|froWmpPQR2_ZJrjq`qV-Z#^qF7jaUR
z!GFy8TwhQFaJ|>-E#<`$MVFMKQ?c4f!Xt5?Rt}uA+T}SqeE6_fS9?Q)a9dl)0xYhr
zsI!-oCiwh;2Od!LbH`$u{{R8S;eixWsIahb1Aow?F7ztFC}Sx=HnsuqO}vey5EOp!
z!3XWu;Egxlu!GSlPUSRJ+;njQk-&9OC?n09P7tQ;fh@($qd@rde%|4MRNu_ZOh{W=
zH)FbSg8-DyG61O?J7gGVP0(MAH8*vZ&q{eSO(UPrrvPN_KvF8Gk&R5J2kib`j~JiN
zaM39VmeRIu+vLGIv%sR@JwWN2paWc|N}W0}BQDG=l+kKA*9r@Zcup<fFjxyZBc-#D
z_JGr6C)@u;C~i;&e8gs@p}sC7!!&UN*VNQxgVG-9@9&rS)TvV$->!j4!^kxN-EC1(
zu|i-e@8=!~6iTJCQpi+_qv|eZ0N}jaKQ?Z)umhI|X@Uc~h}&8y4A1nOJ4dCZB~)Hk
zh6*VU_jo+ieYQvXoM1_S>gyXQC&zD7LQ@2Qa5_4gjtN<F2Cq5}mXt^hz<oJ6ImIpj
zNT>6TI*_Ii5bK8zvo){ZwpB{LVHnbk#drsG;?;J-=HKHnC>RV%;hW=qF@Su?o0HS0
z!}Rs9-9cq#rK;01$iq@qRV~U@RaMyv@7lF1&40xqQxVLvehS_QWTDTDl0?RvIliF}
zRKeK5T_SpN>v5*lN|O{8di$MsS>B^J-+D*7&UMUhSnLXe$Nu<<C-%#XjsNV-jBF2~
z%*y=N9<XSH33`~zDU?#Qi7E;$xjc}Ps&tv@Q&d#Qw20X4s>kc$4Nfg}e9%dpsf1Qi
zCwMQ6zzzh8<jXE!zAT07%$YMb&)2WtAZtFK9}aP)Ov>s37^IMOnB$t{q7M|0C>og=
zX_Uu4D0XRJfbt6pWVhw>dTkKJti<l!xAU>VZEu7FvWS6sMG3B$oTVDL4Om0}dF?go
z=;#nyO-@b;u-x1nDk$*Elgunu&*lNI*XP_5n5w0SDv4_VLZLtW@zEAmqM3t60(f+E
zjO^#B>PV`v;9m&`8ot2dLArwa*&9&?H#IdSfj`d{#M=m=M3$6ED|o=?_gVL()2I&K
zNfp3L86K#u-Lmh>mAKFW*1TrZMhV_D2MzUCJ<`y(TL+*9|D|Kcj<e#RSgs_1a^72)
za%YLYN3Jm`BW2PG9tf5Mt)?(HFXRYbSbjnQu{X@V&JVlrRvJQ1$-XBwGzrLbfw*w~
zg2VtkfcHxPfJ_Dc`~5!W>&Im=;HHuUy?8C9gBMDVEB?ow6%MZ!L*^=eDCq6&<>2HE
zf8{!A+|ejSi4655MzeYIwX~kA@F0T#{|mW54GoV_c||2t!Y`Y6c-JsI>9-ONt2@s@
zpOo6vD21W;m<r;I*A*UlH>xf+R}d66yeI1D=%ho34pHmAR_f$)J2sRxo0^+sO}~}!
zc)T>sAkJ|S93CE)*OAFoaz(}UggOwAf+hf<^oXL*q8osZ3s#uZ<1g5lO?>&DY}Uty
z8?<V^;|@uq6P)9_yU$WXL%kg#pj1sw4L$PPM?_id%KZKuDURpPo#nXNL|Zr&=kS{0
zH_}zX1w;y2CWVGs2GN?SU|zndXApnl2|}G+U3>T$f6sh{Qo+F(6pKPhyfXz5I}jZp
zkfFeRD`-t>KlN|wJ=ZG<0zH&z2SM86rfQ@0)*Z^HESXimU5sY4zPk>{*jitIlmi?4
zN81}nYdd$|NJB%zszWfOT3dl`*a2#|f*aQj4GnQ0)hjQ*Iy<`=T#0J4NoooDEoT}<
z%hG>o0QU}#jgS45moBN+A-VF4E!W^)=wS}XJ<cMI0IaIIM)FYhOl4#RF*ta+H5!@f
z=XM%x(X|T;i^;ye{wBwbjo9y~XT{j+@3Rb?zi|H77cX8MQ<hI=>#Z|><a3TU-+KE1
z2VsjlwHhARIc1)YkB>z-Tb-<}t@CpJ4{|n&R9&;_9`)FSlGI1MWHTHIQEy(%kAJo3
z{PFAkju2a;C2Ji>x$<qAJrb<{c=?}s4?n!`SzdXUWk`37EB=O&<$do*09@to#HJa5
zHJ7DT6==Fkbbof@_z7gIH7zao-Rf|;TR#0Cx*KoU9!@2bJFvmgAXu^9myaI3>&@3+
zzhQQE_WQ}D<jZalx9_@5a(^SLoW<L#@}DrW2Jx47G=@12c5rjonn)$TwEywPe|7xW
zvGeEq`%o3%XF1Z{({mblb-dz7iS66BQ&(5lpH;(^ysE#{uQY0^L-3Nx%4b-Vw~`^g
z`!v%n;88)$dx*c>ymRL-R}*|!4ZueY2C;_~Z{(+hmlBEgtql!Py2|5!0t^7z)gsDo
S`hb-H0000<MNUMnLSTYdDjDnm

literal 0
HcmV?d00001

diff --git a/bindings/android-ndk/examples/jnitest/res/values/strings.xml b/bindings/android-ndk/examples/jnitest/res/values/strings.xml
new file mode 100755
index 000000000..dd202524f
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/res/values/strings.xml
@@ -0,0 +1,5 @@
+<?xml version="1.0" encoding="utf-8"?>
+<resources>
+    <string name="hello">Hello World, Main!</string>
+    <string name="app_name">NativeTest</string>
+</resources>
diff --git a/bindings/android-ndk/examples/jnitest/src/com/pascal/jnitest/AndroidJNITest.java b/bindings/android-ndk/examples/jnitest/src/com/pascal/jnitest/AndroidJNITest.java
new file mode 100755
index 000000000..aea7f1941
--- /dev/null
+++ b/bindings/android-ndk/examples/jnitest/src/com/pascal/jnitest/AndroidJNITest.java
@@ -0,0 +1,34 @@
+package com.pascal.jnitest;
+
+import android.app.Activity;
+import android.os.Bundle;
+import android.widget.TextView;
+import android.util.Log;
+
+public class AndroidJNITest extends Activity {
+    /** Called when the activity is first created. */
+    @Override
+    public void onCreate(Bundle savedInstanceState) {
+        super.onCreate(savedInstanceState);
+        setContentView(R.layout.main);
+          
+        TextView  tv = new TextView(this);
+        tv.setText( stringFromJNI() );
+        setContentView(tv);
+    }
+    
+    public native String stringFromJNI();
+    
+    public long nativeCodeLoaded=0;
+     
+    static {
+    	try {
+     		Log.i("JNI", "Trying to load libnativetest.so");  
+    		System.loadLibrary("nativetest");
+    	} catch(UnsatisfiedLinkError ule) {
+            Log.e("JNI", "WARNING: Could not load libnativetest.so");
+            ule.printStackTrace();
+        }
+
+    }    
+}
\ No newline at end of file