You've already forked lazarus-ccr
Starts adding the android java sdk bindings generator
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1677 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
295
bindings/android-sdk/android_bindings_generator.lpi
Normal file
295
bindings/android-sdk/android_bindings_generator.lpi
Normal file
@@ -0,0 +1,295 @@
|
|||||||
|
<?xml version="1.0"?>
|
||||||
|
<CONFIG>
|
||||||
|
<ProjectOptions>
|
||||||
|
<Version Value="9"/>
|
||||||
|
<General>
|
||||||
|
<MainUnit Value="0"/>
|
||||||
|
<Title Value="android_bindings_generator"/>
|
||||||
|
<ResourceType Value="res"/>
|
||||||
|
<UseXPManifest Value="True"/>
|
||||||
|
<Icon Value="0"/>
|
||||||
|
<ActiveWindowIndexAtStart Value="0"/>
|
||||||
|
</General>
|
||||||
|
<i18n>
|
||||||
|
<EnableI18N LFM="False"/>
|
||||||
|
</i18n>
|
||||||
|
<VersionInfo>
|
||||||
|
<StringTable ProductVersion=""/>
|
||||||
|
</VersionInfo>
|
||||||
|
<BuildModes Count="1" Active="Default">
|
||||||
|
<Item1 Name="Default" Default="True"/>
|
||||||
|
</BuildModes>
|
||||||
|
<PublishOptions>
|
||||||
|
<Version Value="2"/>
|
||||||
|
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||||
|
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
|
||||||
|
</PublishOptions>
|
||||||
|
<RunParams>
|
||||||
|
<local>
|
||||||
|
<FormatVersion Value="1"/>
|
||||||
|
<LaunchingApplication PathPlusParams="/usr/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
|
||||||
|
</local>
|
||||||
|
</RunParams>
|
||||||
|
<RequiredPackages Count="2">
|
||||||
|
<Item1>
|
||||||
|
<PackageName Value="LCLBase"/>
|
||||||
|
<MinVersion Valid="True"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<PackageName Value="LCL"/>
|
||||||
|
</Item2>
|
||||||
|
</RequiredPackages>
|
||||||
|
<Units Count="9">
|
||||||
|
<Unit0>
|
||||||
|
<Filename Value="android_bindings_generator.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="android_bindings_generator"/>
|
||||||
|
<IsVisibleTab Value="True"/>
|
||||||
|
<EditorIndex Value="1"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="15" Y="14"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit0>
|
||||||
|
<Unit1>
|
||||||
|
<Filename Value="mainform.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<ComponentName Value="Form1"/>
|
||||||
|
<ResourceBaseClass Value="Form"/>
|
||||||
|
<UnitName Value="mainform"/>
|
||||||
|
<EditorIndex Value="0"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="22" Y="32"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
<LoadedDesigner Value="True"/>
|
||||||
|
</Unit1>
|
||||||
|
<Unit2>
|
||||||
|
<Filename Value="../../../p-tools/turbochessclock4android/androidmenu.pas"/>
|
||||||
|
<UnitName Value="androidmenu"/>
|
||||||
|
<EditorIndex Value="4"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="14"/>
|
||||||
|
<CursorPos X="25" Y="24"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit2>
|
||||||
|
<Unit3>
|
||||||
|
<Filename Value="../../../p-tools/turbochessclock4android/androidutil.pas"/>
|
||||||
|
<UnitName Value="androidutil"/>
|
||||||
|
<EditorIndex Value="3"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit3>
|
||||||
|
<Unit4>
|
||||||
|
<Filename Value="../../../p-tools/turbochessclock4android/androidview.pas"/>
|
||||||
|
<UnitName Value="androidview"/>
|
||||||
|
<EditorIndex Value="6"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="53"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit4>
|
||||||
|
<Unit5>
|
||||||
|
<Filename Value="../../../p-tools/turbochessclock4android/androiddialog.pas"/>
|
||||||
|
<UnitName Value="androiddialog"/>
|
||||||
|
<EditorIndex Value="7"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit5>
|
||||||
|
<Unit6>
|
||||||
|
<Filename Value="../../../p-tools/turbochessclock4android/androidinputevent.pas"/>
|
||||||
|
<UnitName Value="androidinputevent"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="1"/>
|
||||||
|
<CursorPos X="1" Y="1"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
</Unit6>
|
||||||
|
<Unit7>
|
||||||
|
<Filename Value="../../../p-tools/turbochessclock4android/android/src/com/pascal/turbochessclock/AndroidMenu.java"/>
|
||||||
|
<EditorIndex Value="5"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="81"/>
|
||||||
|
<CursorPos X="56" Y="104"/>
|
||||||
|
<UsageCount Value="10"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
<DefaultSyntaxHighlighter Value="Java"/>
|
||||||
|
</Unit7>
|
||||||
|
<Unit8>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<IsPartOfProject Value="True"/>
|
||||||
|
<UnitName Value="android_sdk_bindings_gen"/>
|
||||||
|
<EditorIndex Value="2"/>
|
||||||
|
<WindowIndex Value="0"/>
|
||||||
|
<TopLine Value="72"/>
|
||||||
|
<CursorPos X="19" Y="99"/>
|
||||||
|
<UsageCount Value="20"/>
|
||||||
|
<Loaded Value="True"/>
|
||||||
|
</Unit8>
|
||||||
|
</Units>
|
||||||
|
<JumpHistory Count="30" HistoryIndex="29">
|
||||||
|
<Position1>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="13" Column="3" TopLine="9"/>
|
||||||
|
</Position1>
|
||||||
|
<Position2>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="62" Column="16" TopLine="47"/>
|
||||||
|
</Position2>
|
||||||
|
<Position3>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="14" Column="50" TopLine="1"/>
|
||||||
|
</Position3>
|
||||||
|
<Position4>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="18" Column="17" TopLine="1"/>
|
||||||
|
</Position4>
|
||||||
|
<Position5>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="67" Column="1" TopLine="54"/>
|
||||||
|
</Position5>
|
||||||
|
<Position6>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="55" Column="70" TopLine="34"/>
|
||||||
|
</Position6>
|
||||||
|
<Position7>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="16" Column="39" TopLine="1"/>
|
||||||
|
</Position7>
|
||||||
|
<Position8>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="1" Column="30" TopLine="1"/>
|
||||||
|
</Position8>
|
||||||
|
<Position9>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="17" Column="74" TopLine="1"/>
|
||||||
|
</Position9>
|
||||||
|
<Position10>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="43" Column="20" TopLine="15"/>
|
||||||
|
</Position10>
|
||||||
|
<Position11>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="45" Column="9" TopLine="20"/>
|
||||||
|
</Position11>
|
||||||
|
<Position12>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="72" Column="6" TopLine="43"/>
|
||||||
|
</Position12>
|
||||||
|
<Position13>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="73" Column="39" TopLine="50"/>
|
||||||
|
</Position13>
|
||||||
|
<Position14>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="74" Column="6" TopLine="51"/>
|
||||||
|
</Position14>
|
||||||
|
<Position15>
|
||||||
|
<Filename Value="mainform.pas"/>
|
||||||
|
<Caret Line="38" Column="83" TopLine="1"/>
|
||||||
|
</Position15>
|
||||||
|
<Position16>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="28" Column="1" TopLine="1"/>
|
||||||
|
</Position16>
|
||||||
|
<Position17>
|
||||||
|
<Filename Value="mainform.pas"/>
|
||||||
|
<Caret Line="38" Column="13" TopLine="1"/>
|
||||||
|
</Position17>
|
||||||
|
<Position18>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="35" Column="78" TopLine="33"/>
|
||||||
|
</Position18>
|
||||||
|
<Position19>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="144" Column="17" TopLine="110"/>
|
||||||
|
</Position19>
|
||||||
|
<Position20>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="142" Column="34" TopLine="110"/>
|
||||||
|
</Position20>
|
||||||
|
<Position21>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="144" Column="33" TopLine="110"/>
|
||||||
|
</Position21>
|
||||||
|
<Position22>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="90" Column="143" TopLine="78"/>
|
||||||
|
</Position22>
|
||||||
|
<Position23>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="22" Column="24" TopLine="1"/>
|
||||||
|
</Position23>
|
||||||
|
<Position24>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="116" Column="21" TopLine="96"/>
|
||||||
|
</Position24>
|
||||||
|
<Position25>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="175" Column="35" TopLine="150"/>
|
||||||
|
</Position25>
|
||||||
|
<Position26>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="21" Column="31" TopLine="40"/>
|
||||||
|
</Position26>
|
||||||
|
<Position27>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="98" Column="42" TopLine="75"/>
|
||||||
|
</Position27>
|
||||||
|
<Position28>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="84" Column="3" TopLine="77"/>
|
||||||
|
</Position28>
|
||||||
|
<Position29>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="89" Column="1" TopLine="77"/>
|
||||||
|
</Position29>
|
||||||
|
<Position30>
|
||||||
|
<Filename Value="android_sdk_bindings_gen.pas"/>
|
||||||
|
<Caret Line="114" Column="29" TopLine="91"/>
|
||||||
|
</Position30>
|
||||||
|
</JumpHistory>
|
||||||
|
</ProjectOptions>
|
||||||
|
<CompilerOptions>
|
||||||
|
<Version Value="10"/>
|
||||||
|
<Target>
|
||||||
|
<Filename Value="android_bindings_generator"/>
|
||||||
|
</Target>
|
||||||
|
<SearchPaths>
|
||||||
|
<IncludeFiles Value="$(ProjOutDir)"/>
|
||||||
|
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
|
||||||
|
</SearchPaths>
|
||||||
|
<Linking>
|
||||||
|
<Options>
|
||||||
|
<Win32>
|
||||||
|
<GraphicApplication Value="True"/>
|
||||||
|
</Win32>
|
||||||
|
</Options>
|
||||||
|
</Linking>
|
||||||
|
<Other>
|
||||||
|
<CompilerPath Value="$(CompPath)"/>
|
||||||
|
</Other>
|
||||||
|
</CompilerOptions>
|
||||||
|
<Debugging>
|
||||||
|
<Exceptions Count="3">
|
||||||
|
<Item1>
|
||||||
|
<Name Value="EAbort"/>
|
||||||
|
</Item1>
|
||||||
|
<Item2>
|
||||||
|
<Name Value="ECodetoolError"/>
|
||||||
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Name Value="EFOpenError"/>
|
||||||
|
</Item3>
|
||||||
|
</Exceptions>
|
||||||
|
</Debugging>
|
||||||
|
</CONFIG>
|
||||||
21
bindings/android-sdk/android_bindings_generator.pas
Normal file
21
bindings/android-sdk/android_bindings_generator.pas
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
program android_bindings_generator;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
uses
|
||||||
|
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||||
|
cthreads,
|
||||||
|
{$ENDIF}{$ENDIF}
|
||||||
|
Interfaces, // this includes the LCL widgetset
|
||||||
|
Forms, mainform, android_sdk_bindings_gen
|
||||||
|
{ you can add units after this };
|
||||||
|
|
||||||
|
{$R *.res}
|
||||||
|
|
||||||
|
begin
|
||||||
|
RequireDerivedFormResource := True;
|
||||||
|
Application.Initialize;
|
||||||
|
Application.CreateForm(TForm1, Form1);
|
||||||
|
Application.Run;
|
||||||
|
end.
|
||||||
|
|
||||||
205
bindings/android-sdk/android_sdk_bindings_gen.pas
Normal file
205
bindings/android-sdk/android_sdk_bindings_gen.pas
Normal file
@@ -0,0 +1,205 @@
|
|||||||
|
unit android_sdk_bindings_gen;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TAndroidSDKBindingsGen }
|
||||||
|
|
||||||
|
TAndroidSDKBindingsGen = class
|
||||||
|
private
|
||||||
|
FSourceFile, FPasOutputClasses, FPasOutputImpl: TStringList;
|
||||||
|
FClassName: string; // Class name of the class currently being parsed
|
||||||
|
procedure ProcessModelFile(ASourceFile, APasOutputFile, AJavaOutputDir: string);
|
||||||
|
procedure ProcessModelLine(ASourceLine: string);
|
||||||
|
function GetNextWord(ALine: string; var AStartPos: Integer): string;
|
||||||
|
function GetPascalTypeName(ABaseName: string): string;
|
||||||
|
public
|
||||||
|
procedure GenerateAllBindings(AInputDir, APasOutputDir, AJavaOutputDir: string);
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
AndroidSDKBindingsGen: TAndroidSDKBindingsGen;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{ TAndroidSDKBindingsGen }
|
||||||
|
|
||||||
|
procedure TAndroidSDKBindingsGen.ProcessModelFile(ASourceFile, APasOutputFile,
|
||||||
|
AJavaOutputDir: string);
|
||||||
|
var
|
||||||
|
i: Integer;
|
||||||
|
lPasOutputFile: TStringList;
|
||||||
|
begin
|
||||||
|
FSourceFile := TStringList.Create;
|
||||||
|
FPasOutputClasses := TStringList.Create;
|
||||||
|
FPasOutputImpl := TStringList.Create;
|
||||||
|
lPasOutputFile := TStringList.Create;
|
||||||
|
try
|
||||||
|
FSourceFile.LoadFromFile(ASourceFile);
|
||||||
|
|
||||||
|
// Preparations
|
||||||
|
FClassName := '';
|
||||||
|
|
||||||
|
for i := 0 to FSourceFile.Count - 1 do
|
||||||
|
begin
|
||||||
|
ProcessModelLine(FSourceFile.Strings[i]);
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Now save the output
|
||||||
|
lPasOutputFile.Add('unit ;');
|
||||||
|
lPasOutputFile.Add('');
|
||||||
|
lPasOutputFile.Add('interface');
|
||||||
|
lPasOutputFile.Add('');
|
||||||
|
lPasOutputFile.Add('type');
|
||||||
|
lPasOutputFile.AddStrings(FPasOutputClasses);
|
||||||
|
lPasOutputFile.Add(' end;');
|
||||||
|
lPasOutputFile.Add('');
|
||||||
|
lPasOutputFile.Add('');
|
||||||
|
lPasOutputFile.Add('implementation');
|
||||||
|
lPasOutputFile.Add('');
|
||||||
|
lPasOutputFile.AddStrings(FPasOutputImpl);
|
||||||
|
lPasOutputFile.Add('');
|
||||||
|
lPasOutputFile.Add('end.');
|
||||||
|
|
||||||
|
lPasOutputFile.SaveToFile(APasOutputFile);
|
||||||
|
finally
|
||||||
|
FSourceFile.Free;
|
||||||
|
FPasOutputClasses.Free;
|
||||||
|
FPasOutputImpl.Free;
|
||||||
|
lPasOutputFile.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAndroidSDKBindingsGen.ProcessModelLine(ASourceLine: string);
|
||||||
|
var
|
||||||
|
lReaderPos: Integer = 1;
|
||||||
|
lCurWord, lParentClassName: string;
|
||||||
|
lMethodReturn, lMethodName, lParamType, lParamName: string;
|
||||||
|
TmpStr: string;
|
||||||
|
begin
|
||||||
|
if ASourceLine = '' then Exit;
|
||||||
|
|
||||||
|
lCurWord := GetNextWord(ASourceLine, lReaderPos);
|
||||||
|
|
||||||
|
// Starting a new class
|
||||||
|
if ASourceLine[1] = '[' then
|
||||||
|
begin
|
||||||
|
if FClassName <> '' then
|
||||||
|
begin
|
||||||
|
FPasOutputClasses.Add(' end;');
|
||||||
|
FPasOutputClasses.Add('');
|
||||||
|
end;
|
||||||
|
|
||||||
|
FClassName := GetPascalTypeName(lCurWord);
|
||||||
|
lParentClassName := GetNextWord(ASourceLine, lReaderPos);
|
||||||
|
lParentClassName := GetPascalTypeName(lParentClassName);
|
||||||
|
FPasOutputClasses.Add(Format(' %s = class(%s)', [FClassName, lParentClassName]));
|
||||||
|
FPasOutputClasses.Add(' public');
|
||||||
|
end;
|
||||||
|
|
||||||
|
// Adding methods to a class
|
||||||
|
if lCurWord = 'method' then
|
||||||
|
begin
|
||||||
|
lMethodReturn := GetNextWord(ASourceLine, lReaderPos);
|
||||||
|
lMethodReturn := GetPascalTypeName(lMethodReturn);
|
||||||
|
lMethodName := GetNextWord(ASourceLine, lReaderPos);
|
||||||
|
|
||||||
|
if lMethodReturn = 'void' then TmpStr := ' procedure '
|
||||||
|
else TmpStr := ' function ';
|
||||||
|
|
||||||
|
// Add all parameters
|
||||||
|
TmpStr := TmpStr + lMethodName + '(';
|
||||||
|
|
||||||
|
repeat
|
||||||
|
lParamType := GetNextWord(ASourceLine, lReaderPos);
|
||||||
|
lParamType := GetPascalTypeName(lParamType);
|
||||||
|
lParamName := GetNextWord(ASourceLine, lReaderPos);
|
||||||
|
|
||||||
|
if lParamName = '' then Break;
|
||||||
|
|
||||||
|
TmpStr := TmpStr + lParamName + ': ' + lParamType + '; ';
|
||||||
|
until lParamName = '';
|
||||||
|
|
||||||
|
// Remove the last ; for the parameters, if necessary
|
||||||
|
if TmpStr[Length(TmpStr)-1] = ';' then TmpStr := System.Copy(TmpStr, 0, Length(TmpStr)-2);
|
||||||
|
|
||||||
|
// Add the return
|
||||||
|
if lMethodReturn = 'void' then TmpStr := TmpStr + ');'
|
||||||
|
else TmpStr := TmpStr + '): ' + lMethodReturn + ';';
|
||||||
|
|
||||||
|
FPasOutputClasses.Add(TmpStr);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ Reads one word in a string, starting at AStartPos (1-based index)
|
||||||
|
and going up to a space or comma or ( or ) or another separator }
|
||||||
|
function TAndroidSDKBindingsGen.GetNextWord(ALine: string;
|
||||||
|
var AStartPos: Integer): string;
|
||||||
|
const
|
||||||
|
WordSeparators = [' ','(',')','[',']',','];
|
||||||
|
var
|
||||||
|
lState: Integer = 0;
|
||||||
|
begin
|
||||||
|
Result := '';
|
||||||
|
|
||||||
|
while AStartPos <= Length(ALine) do
|
||||||
|
begin
|
||||||
|
// Searching the word start
|
||||||
|
if lState = 0 then
|
||||||
|
begin
|
||||||
|
if ALine[AStartPos] in WordSeparators then Inc(AStartPos)
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := ALine[AStartPos];
|
||||||
|
Inc(AStartPos);
|
||||||
|
lState := 1;
|
||||||
|
end;
|
||||||
|
end
|
||||||
|
// Reading until the word finishes
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
if ALine[AStartPos] in WordSeparators then Exit
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
Result := Result + ALine[AStartPos];
|
||||||
|
Inc(AStartPos);
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TAndroidSDKBindingsGen.GetPascalTypeName(ABaseName: string): string;
|
||||||
|
begin
|
||||||
|
if ABaseName = '' then Exit('');
|
||||||
|
|
||||||
|
if ABaseName = 'int' then Result := 'Integer'
|
||||||
|
else if ABaseName = 'void' then Result := ABaseName
|
||||||
|
else if ABaseName = 'CharSequence' then Result := 'string'
|
||||||
|
else if ABaseName = 'TJavaObject' then Result := ABaseName
|
||||||
|
else Result := 'T' + ABaseName;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TAndroidSDKBindingsGen.GenerateAllBindings(AInputDir, APasOutputDir,
|
||||||
|
AJavaOutputDir: string);
|
||||||
|
begin
|
||||||
|
ProcessModelFile(IncludeTrailingPathDelimiter(AInputDir) + 'android_view.txt',
|
||||||
|
IncludeTrailingPathDelimiter(APasOutputDir) + 'android_view.pas',
|
||||||
|
IncludeTrailingPathDelimiter(AJavaOutputDir));
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
|
||||||
|
AndroidSDKBindingsGen := TAndroidSDKBindingsGen.Create;
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
AndroidSDKBindingsGen.Free;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
47
bindings/android-sdk/mainform.lfm
Normal file
47
bindings/android-sdk/mainform.lfm
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
object Form1: TForm1
|
||||||
|
Left = 479
|
||||||
|
Height = 414
|
||||||
|
Top = 137
|
||||||
|
Width = 434
|
||||||
|
Caption = 'Android Bindings Generator'
|
||||||
|
ClientHeight = 414
|
||||||
|
ClientWidth = 434
|
||||||
|
LCLVersion = '0.9.31'
|
||||||
|
object Label1: TLabel
|
||||||
|
Left = 8
|
||||||
|
Height = 18
|
||||||
|
Top = 8
|
||||||
|
Width = 43
|
||||||
|
Caption = 'Label1'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object editInputPath: TDirectoryEdit
|
||||||
|
Left = 64
|
||||||
|
Height = 25
|
||||||
|
Top = 72
|
||||||
|
Width = 312
|
||||||
|
Directory = '/home/felipe/Programas/lazarus-ccr/bindings/android-sdk/sdk_level_7'
|
||||||
|
ShowHidden = False
|
||||||
|
ButtonWidth = 23
|
||||||
|
NumGlyphs = 0
|
||||||
|
MaxLength = 0
|
||||||
|
TabOrder = 0
|
||||||
|
end
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 7
|
||||||
|
Height = 18
|
||||||
|
Top = 73
|
||||||
|
Width = 43
|
||||||
|
Caption = 'Label2'
|
||||||
|
ParentColor = False
|
||||||
|
end
|
||||||
|
object Button1: TButton
|
||||||
|
Left = 17
|
||||||
|
Height = 25
|
||||||
|
Top = 120
|
||||||
|
Width = 155
|
||||||
|
Caption = 'Build the Bindings'
|
||||||
|
OnClick = Button1Click
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
end
|
||||||
42
bindings/android-sdk/mainform.pas
Normal file
42
bindings/android-sdk/mainform.pas
Normal file
@@ -0,0 +1,42 @@
|
|||||||
|
unit mainform;
|
||||||
|
|
||||||
|
{$mode objfpc}{$H+}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
||||||
|
EditBtn, android_sdk_bindings_gen;
|
||||||
|
|
||||||
|
type
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
TForm1 = class(TForm)
|
||||||
|
Button1: TButton;
|
||||||
|
editInputPath: TDirectoryEdit;
|
||||||
|
Label1: TLabel;
|
||||||
|
Label2: TLabel;
|
||||||
|
procedure Button1Click(Sender: TObject);
|
||||||
|
private
|
||||||
|
{ private declarations }
|
||||||
|
public
|
||||||
|
{ public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
var
|
||||||
|
Form1: TForm1;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.lfm}
|
||||||
|
|
||||||
|
{ TForm1 }
|
||||||
|
|
||||||
|
procedure TForm1.Button1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
AndroidSDKBindingsGen.GenerateAllBindings(editInputPath.Text, editInputPath.Text, editInputPath.Text);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
6
bindings/android-sdk/sdk_level_7/android_view.txt
Normal file
6
bindings/android-sdk/sdk_level_7/android_view.txt
Normal file
@@ -0,0 +1,6 @@
|
|||||||
|
[MenuItem] TJavaObject
|
||||||
|
classcallback MenuItem.OnMenuItemClickListener boolean onMenuItemClick (MenuItem item)
|
||||||
|
method MenuItem setOnMenuItemClickListener (MenuItem.OnMenuItemClickListener menuItemClickListener)
|
||||||
|
|
||||||
|
[Menu] TJavaObject
|
||||||
|
method MenuItem add(int groupId, int itemId, int order, CharSequence title)
|
||||||
Reference in New Issue
Block a user