pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Java generator fix for simple types.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7601 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2020-08-13 16:58:05 +00:00
parent d7364ed9f8
commit 8dd89d1af9
2 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
wst/trunk/ws_helper/generatorj.pas
View File

@ -23,6 +23,9 @@ uses
type
{$SCOPEDENUMS ON}
TSimpleTypeItem = (Simple, Extendable);
{ TInftGenerator }
TInftGenerator = class(TBaseGenerator)
@ -30,7 +33,7 @@ type
FStream : ISourceStream;
private
function GenerateIntfName(AIntf : TPasElement):string;
function GenerateTypeText(AType : TPasType) : string;
function GenerateTypeText(AType : TPasType; const AItem : TSimpleTypeItem = TSimpleTypeItem.Simple) : string;
procedure GenerateIntfProcParamsTypes(AProc : TPasProcedure);
procedure GenerateIntf(AIntf : TPasClassType);
@ -58,15 +61,26 @@ begin
Result := AIntf.Name;
end;
function TInftGenerator.GenerateTypeText(AType : TPasType) : string;
function TInftGenerator.GenerateTypeText(AType : TPasType; const AItem : TSimpleTypeItem) : string;
var
t : TPasType;
begin
t := GetUltimeType(AType);
if not t.InheritsFrom(TPasArrayType) then begin
if (AItem = TSimpleTypeItem.Extendable) and
t.InheritsFrom(TPasNativeSimpleType) and
(TPasNativeSimpleType(t).ExtendableType <> nil)
then begin
t := TPasNativeSimpleType(t).ExtendableType;
end;
Result := t.Name;
end else begin
t := GetUltimeType(TPasArrayType(t).ElType);
if t.InheritsFrom(TPasNativeSimpleType) and
Assigned(TPasNativeSimpleType(t).ExtendableType)
then begin
t := TPasNativeSimpleType(t).ExtendableType;
end;
Result := Format('java.util.List<%s>',[t.Name]);
end;
end;
@ -423,7 +437,7 @@ procedure TInftGenerator.GenerateClass(ASymbol : TPasClassType);
locLine := locLine+';';
end else begin
locType := GetUltimeType(TPasArrayType(locType).ElType);
locLine := Format('public java.util.List<%s> %s = new java.util.ArrayList<>();',[GenerateTypeText(locType),SymbolTable.GetExternalName(AProp)]);
locLine := Format('public java.util.List<%s> %s = new java.util.ArrayList<>();',[GenerateTypeText(locType,TSimpleTypeItem.Extendable),SymbolTable.GetExternalName(AProp)]);
end;
Indent(); WriteLn(locLine);
end;

16
wst/trunk/ws_helper/pascal_parser_intf.pas
View File

@ -306,14 +306,14 @@ const
// JAVA
JAVA_SIMPLE_TYPES_COUNT = 11;
JAVA_SIMPLE_TYPES : Array[0..Pred(JAVA_SIMPLE_TYPES_COUNT)] Of array[0..2] of string = (
('char', '', ''),
('byte', '', ''),
('short', '', ''),
('int', '', ''),
('long', '', ''),
('float', '', ''),
('double', '', ''),
('boolean', '', ''),
('char', 'Character', ''),
('byte', 'Byte', ''),
('short', 'Short', ''),
('int', 'Integer', ''),
('long', 'Long', ''),
('float', 'Float', ''),
('double', 'Double', ''),
('boolean', 'Boolean', ''),
('String', '', 'string'),
('String', '', 'dateTime') , //('java.util.OffsetDateTime', '', 'dateTime') ,
//('java.time.OffsetTime', '', 'time') ,