[fpc-devel] FPC-JVM: Status report on Android

[Sven Barth]

On 30.08.2011 22:32, Jonas Maebe wrote:
>
> On 30 Aug 2011, at 22:26, Sven Barth wrote:
>
>> I've also found the class that defines the abstract methods. It's four classes above android.app.Activity in the inheritance tree (android.common.Context). I yet need to check whether all methods are overridden correctly by the subclasses (and crosscheck that with the documentation).
>
> If you create an instance of that class in FPC code and compile with -vw, the compiler should list the abstract methods.

There seems to be none :(

=== output begin ===

[sven at artemis helloandroid]$ ppcjvm -n 
-Fu/mnt/data/subversion/fpc-jvm/rtl/units/jvm-java/ -FEbin/classes 
-Fu../../androidlib/lib 
-FD/home/sven/downloads/dev/freepascal/fpcjvmlinux-snapshot1/bin -XP -vw 
src/androidfpc.pas
Generated: bin/classes/org/freepascal/android/TTestClass.class
Generated: bin/classes/org/freepascal/android/androidfpc.class
Generated: bin/classes/org/freepascal/android/TTestActivity.class

=== output end ===

The unit looks like this:

=== source begin ===

unit androidfpc;

{$mode objfpc}{$H+}
{$modeswitch unicodestrings}
{$namespace org.freepascal.android}

interface

uses
   android;

type
   TTestActivity = class(AAActivity)
   public
     constructor create;
   end;

   TTestClass = class(TObject)//(JLObject)
     function getText: UnicodeString;
     function getTextView(aActivity: AAActivity): AWTextView;
   end;

implementation

constructor TTestActivity.create;
begin
   inherited create;
end;

function TTestClass.getText: UnicodeString;
begin
   Result := 'Hello World through FPC TObject';
end;

function TTestClass.getTextView(aActivity: AAActivity): AWTextView;
var
   js: JLString;
   test: AAActivity;
begin
   test := TTestActivity.Create;
   if test.isTaskRoot then
     js := 'Hello World! Activity is task root'
   else
     js := 'Hello World! Activity is not task root';
   Result := AWTextView.Create(aActivity);
   Result.setText(js);
end;

end.

=== source end ===