Skip to content

S
StarUML Evológica Plugin
Commit 5f660be4 authored by Luis Gustavo Zanoni Bermudes's avatar Luis Gustavo Zanoni Bermudes
Browse files
Options

feat: [EVOUMLPlugin] - Implementação de geração de Classe Java mapeando os... 

feat: [EVOUMLPlugin] -  Implementação de geração de Classe Java mapeando os OQLs do OQLStudio, mudança no fluxo de exportação para acomodar diversas linguagens
parent 2bde221e
Hide whitespace changes
Inline Side-by-side
Showing with 369 additions and 44 deletions
EvoUMLPlugin/src/CurioAddIn.lpi
View file @ 5f660be4
...@@ -459,7 +459,7 @@ ...@@ -459,7 +459,7 @@
</Other> </Other>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<Exceptions Count="3"> <Exceptions Count="4">
<Item1> <Item1>
<Name Value="EAbort"/> <Name Value="EAbort"/>
</Item1> </Item1>
...@@ -469,6 +469,9 @@ ...@@ -469,6 +469,9 @@
<Item3> <Item3>
<Name Value="EFOpenError"/> <Name Value="EFOpenError"/>
</Item3> </Item3>
<Item4>
<Name Value="Exception"/>
</Item4>
</Exceptions> </Exceptions>
</Debugging> </Debugging>
</CONFIG> </CONFIG>
EvoUMLPlugin/src/ituOQLExplorerV2.dfm
View file @ 5f660be4
...@@ -2,10 +2,10 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -2,10 +2,10 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 534 Left = 534
Height = 552 Height = 552
Top = 331 Top = 331
Width = 1090 Width = 1091
Caption = 'Curio OQL Explorer' Caption = 'Curio OQL Explorer'
ClientHeight = 552 ClientHeight = 552
ClientWidth = 1090 ClientWidth = 1091
Color = clBtnFace Color = clBtnFace
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11 Font.Height = -11
...@@ -11577,36 +11577,35 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11577,36 +11577,35 @@ object OQLExplorerV2: TOQLExplorerV2
001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF 001FF80000000000001FF80000000000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
} }
Position = poScreenCenter
ShowInTaskBar = stAlways
OnClose = FormClose OnClose = FormClose
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
OnResize = FormResize OnResize = FormResize
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter
ShowInTaskBar = stAlways
LCLVersion = '2.2.4.0'
object pcCXOQL: TPageControl object pcCXOQL: TPageControl
Left = 0 Left = 0
Height = 517 Height = 517
Top = 35 Top = 35
Width = 1090 Width = 1091
ActivePage = tsCXOQL ActivePage = tsPASunit
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 1
TabOrder = 0 TabOrder = 0
object tsCXOQL: TTabSheet object tsCXOQL: TTabSheet
Caption = 'CXOQL' Caption = 'CXOQL'
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
object pnlCXOQL: TPanel object pnlCXOQL: TPanel
Left = 0 Left = 0
Height = 491 Height = 491
Top = 0 Top = 0
Width = 1082 Width = 1083
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object splVertical: TSplitter object splVertical: TSplitter
...@@ -11615,8 +11614,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11615,8 +11614,8 @@ object OQLExplorerV2: TOQLExplorerV2
Top = 0 Top = 0
Width = 4 Width = 4
Color = clBtnFace Color = clBtnFace
OnCanResize = splVerticalCanResize
ParentColor = False ParentColor = False
OnCanResize = splVerticalCanResize
end end
object pnlOQLList: TPanel object pnlOQLList: TPanel
Left = 0 Left = 0
...@@ -11627,6 +11626,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11627,6 +11626,7 @@ object OQLExplorerV2: TOQLExplorerV2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 274 ClientWidth = 274
ParentBackground = False
TabOrder = 0 TabOrder = 0
object pnlList: TPanel object pnlList: TPanel
Left = 0 Left = 0
...@@ -11637,6 +11637,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11637,6 +11637,7 @@ object OQLExplorerV2: TOQLExplorerV2
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 465 ClientHeight = 465
ClientWidth = 274 ClientWidth = 274
ParentBackground = False
TabOrder = 0 TabOrder = 0
object lvOQLList: TListView object lvOQLList: TListView
Left = 0 Left = 0
...@@ -11696,17 +11697,18 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11696,17 +11697,18 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 278 Left = 278
Height = 491 Height = 491
Top = 0 Top = 0
Width = 804 Width = 805
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 804 ClientWidth = 805
ParentBackground = False
TabOrder = 1 TabOrder = 1
object pnlOQLExplorer: TPanel object pnlOQLExplorer: TPanel
Left = 0 Left = 0
Height = 418 Height = 418
Top = 73 Top = 73
Width = 804 Width = 805
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ParentBackground = False ParentBackground = False
...@@ -11716,11 +11718,11 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11716,11 +11718,11 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 0 Left = 0
Height = 73 Height = 73
Top = 0 Top = 0
Width = 804 Width = 805
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 73 ClientHeight = 73
ClientWidth = 804 ClientWidth = 805
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
object labelName: TLabel object labelName: TLabel
...@@ -11760,25 +11762,32 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -11760,25 +11762,32 @@ object OQLExplorerV2: TOQLExplorerV2
object tsPASunit: TTabSheet object tsPASunit: TTabSheet
Caption = 'Unit' Caption = 'Unit'
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
ImageIndex = 1 ImageIndex = 1
object pnlPASUnit: TPanel object pnlPASUnit: TPanel
Left = 0 Left = 0
Height = 491 Height = 491
Top = 0 Top = 0
Width = 1082 Width = 1083
Align = alClient Align = alClient
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 491 ClientHeight = 491
ClientWidth = 1082 ClientWidth = 1083
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
inline memUnit: TSynEdit inline memUnit: TSynEdit
AnchorSideLeft.Control = pnlPASUnit
AnchorSideTop.Control = pnlRadioOQL
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlPASUnit
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = pnlPASUnit
AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 491 Height = 467
Top = 0 Top = 24
Width = 1082 Width = 1083
Align = alClient Anchors = [akTop, akLeft, akRight, akBottom]
Color = clWindow Color = clWindow
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = 13 Font.Height = 13
...@@ -12246,6 +12255,8 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12246,6 +12255,8 @@ object OQLExplorerV2: TOQLExplorerV2
object SynGutterMarks1: TSynGutterMarks object SynGutterMarks1: TSynGutterMarks
Width = 24 Width = 24
MouseActions = <> MouseActions = <>
MaxExtraMarksColums = 0
Options = [sgmoDeDuplicateMarksOnOverflow]
end end
object SynGutterLineNumber1: TSynGutterLineNumber object SynGutterLineNumber1: TSynGutterLineNumber
Width = 13 Width = 13
...@@ -12278,6 +12289,38 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12278,6 +12289,38 @@ object OQLExplorerV2: TOQLExplorerV2
end end
end end
end end
object pnlRadioOQL: TPanel
AnchorSideLeft.Control = memUnit
AnchorSideRight.Control = memUnit
AnchorSideRight.Side = asrBottom
Left = 0
Height = 24
Top = 0
Width = 1083
Anchors = [akTop, akLeft, akRight]
ClientHeight = 24
ClientWidth = 1083
ParentBackground = False
TabOrder = 1
object rdPascalClass: TRadioButton
Left = 8
Height = 17
Top = 0
Width = 48
Caption = 'Pascal'
TabOrder = 0
OnChange = rdPascalClassChange
end
object rdJavaClass: TRadioButton
Left = 64
Height = 17
Top = 0
Width = 41
Caption = 'Java'
TabOrder = 1
OnChange = rdJavaClassChange
end
end
end end
end end
end end
...@@ -12285,7 +12328,7 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12285,7 +12328,7 @@ object OQLExplorerV2: TOQLExplorerV2
Left = 0 Left = 0
Height = 35 Height = 35
Top = 0 Top = 0
Width = 1090 Width = 1091
ButtonHeight = 24 ButtonHeight = 24
ButtonWidth = 24 ButtonWidth = 24
Caption = 'ToolBar1' Caption = 'ToolBar1'
...@@ -12494,7 +12537,27 @@ object OQLExplorerV2: TOQLExplorerV2 ...@@ -12494,7 +12537,27 @@ object OQLExplorerV2: TOQLExplorerV2
CompilerMode = pcmObjFPC CompilerMode = pcmObjFPC
NestedComments = True NestedComments = True
TypeHelpers = False TypeHelpers = False
StringMultilineMode = []
Left = 1002 Left = 1002
Top = 12 Top = 12
end end
object TaskDialog1: TTaskDialog
Buttons = <>
Caption = 'Export'
RadioButtons = <
item
Caption = 'Pascal'
end
item
Caption = 'Java'
end
item
Caption = 'Nenhum'
Default = True
end>
QueryItemIndex = 0
Text = 'Escolha a linguagem para poder exportar a classe OQL'
Title = 'Exportar classe OQL'
Left = 624
end
end end
EvoUMLPlugin/src/ituOQLExplorerV2.pas
View file @ 5f660be4
...@@ -14,12 +14,12 @@ uses ...@@ -14,12 +14,12 @@ uses
{$ENDIF} {$ENDIF}
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, utuOQL, Menus, ComCtrls, Buttons, ActnList, ituExplorerV2, ImgList, Dialogs, ExtCtrls, StdCtrls, utuOQL, Menus, ComCtrls, Buttons, ActnList, ituExplorerV2, ImgList,
ituDataBaseLogin, ToolWin, SynHighlighterPas, SynEdit; ituDataBaseLogin, ToolWin, SynHighlighterPas, SynEdit, Types;
type type
{ TOQLExplorerV2 } { TOQLExplorerV2 }
TLingaguemExportada = (lgPascal, lgJava, lgNenhuma);
TOQLExplorerV2 = class(TForm) TOQLExplorerV2 = class(TForm)
abCXOQL: TAction; abCXOQL: TAction;
abExportPAS: TAction; abExportPAS: TAction;
...@@ -32,10 +32,14 @@ type ...@@ -32,10 +32,14 @@ type
aNewOQL: TAction; aNewOQL: TAction;
ActionList1: TActionList; ActionList1: TActionList;
ilCXOQL: TImageList; ilCXOQL: TImageList;
pnlRadioOQL: TPanel;
pcCXOQL: TPageControl; pcCXOQL: TPageControl;
rdPascalClass: TRadioButton;
rdJavaClass: TRadioButton;
SelectUnitDirectory: TSelectDirectoryDialog; SelectUnitDirectory: TSelectDirectoryDialog;
memUnit: TSynEdit; memUnit: TSynEdit;
SynFreePascalSyn1: TSynFreePascalSyn; SynFreePascalSyn1: TSynFreePascalSyn;
TaskDialog1: TTaskDialog;
ToolBar1: TToolBar; ToolBar1: TToolBar;
ToolBar2: TToolBar; ToolBar2: TToolBar;
ToolButton1: TToolButton; ToolButton1: TToolButton;
...@@ -77,14 +81,18 @@ type ...@@ -77,14 +81,18 @@ type
procedure aNewFileExecute(Sender: TObject); procedure aNewFileExecute(Sender: TObject);
procedure lvOQLListSelectItem(Sender: TObject; Item: TListItem; procedure lvOQLListSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean); Selected: Boolean);
procedure rdJavaClassChange(Sender: TObject);
procedure rdPascalClassChange(Sender: TObject);
procedure splVerticalCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean); procedure splVerticalCanResize(Sender: TObject; var NewSize: Integer; var Accept: Boolean);
private private
{ Private declarations } { Private declarations }
fFlagFormClosing : Boolean; // Impede que as OQLs sejam inutilmente verificados ao fechar o form fFlagFormClosing : Boolean; // Impede que as OQLs sejam inutilmente verificados ao fechar o form
fExplorer: TExplorerV2; fExplorer: TExplorerV2;
fOQLList: utOQLFile; fOQLList: utOQLFile;
function GerarUnitOQL(piXMLFileName: String): string; lUnitText: string;
lJavaClassText: string;
function GerarUnitOQL(piXMLFileName: String; languageTag: TLingaguemExportada): string;
function GerarClasseJava(piXMLFileName: String; languageTag: TLingaguemExportada): string;
procedure InterfaceToSelectedOQL(piItem: TListItem); procedure InterfaceToSelectedOQL(piItem: TListItem);
function GetQueryType ( piExplorer : TExplorerV2 ) : Integer; function GetQueryType ( piExplorer : TExplorerV2 ) : Integer;
function ValidaQuery(piQuery: string; piOQLType: integer): string; function ValidaQuery(piQuery: string; piOQLType: integer): string;
...@@ -130,6 +138,7 @@ end; ...@@ -130,6 +138,7 @@ end;
procedure TOQLExplorerV2.aExportPASExecute(Sender: TObject); procedure TOQLExplorerV2.aExportPASExecute(Sender: TObject);
var lFileName: string; var lFileName: string;
var LanguageTag: TLingaguemExportada;
begin begin
if fOQLList.FileName = '' then if fOQLList.FileName = '' then
ShowMessage('You need to save before exporting.') ShowMessage('You need to save before exporting.')
...@@ -139,15 +148,25 @@ begin ...@@ -139,15 +148,25 @@ begin
fOQLList.Save; fOQLList.Save;
Screen.Cursor := crHourGlass; Screen.Cursor := crHourGlass;
try try
memUnit.Lines.Text := GerarUnitOQL(fOQLList.FileName); TaskDialog1.Execute;
if (TaskDialog1.RadioButton <> nil) and (TaskDialog1.RadioButton.Caption = 'Pascal') then LanguageTag:= lgPascal
else if (TaskDialog1.RadioButton <> nil) and (TaskDialog1.RadioButton.Caption = 'Java') then LanguageTag:= lgJava
else LanguageTag:= lgNenhuma;
finally
end;
try
lUnitText:=GerarUnitOQL(fOQLList.FileName, LanguageTag);
lJavaClassText:=GerarClasseJava(fOQLList.FileName, LanguageTag);
rdPascalClass.Checked:= true;
finally finally
Screen.Cursor := crDefault; Screen.Cursor := crDefault;
end; end;
pcCXOQL.ActivePage := tsPASUnit; pcCXOQL.ActivePage := tsPASUnit;
end; end;
end; end;
function TOQLExplorerV2.GerarUnitOQL(piXMLFileName: String): string; function TOQLExplorerV2.GerarUnitOQL(piXMLFileName: String; LanguageTag: TLingaguemExportada): string;
procedure AddText(piStringStream: TStringStream; piIndent: integer = 0; piText: string = ''); procedure AddText(piStringStream: TStringStream; piIndent: integer = 0; piText: string = '');
begin begin
...@@ -418,20 +437,22 @@ begin ...@@ -418,20 +437,22 @@ begin
result := lUnit.DataString; result := lUnit.DataString;
lFileName := 'utu' + lFileName + '.pas'; if (LanguageTag = lgPascal) then
SelectUnitDirectory.FileName := lFileName;
if SelectUnitDirectory.Execute then
begin begin
try lFileName := 'utu' + lFileName + '.pas';
lUnitFile := TFileStream.Create(SelectUnitDirectory.FileName + DirectorySeparator + lFileName, fmCreate); SelectUnitDirectory.FileName := lFileName;
lUnit.Position := 0;
lUnitFile.CopyFrom(lUnit, lUnit.Size);
finally
lUnitFile.Free;
end;
end
if SelectUnitDirectory.Execute then
begin
try
lUnitFile := TFileStream.Create(SelectUnitDirectory.FileName + DirectorySeparator + lFileName, fmCreate);
lUnit.Position := 0;
lUnitFile.CopyFrom(lUnit, lUnit.Size);
finally
lUnitFile.Free;
end;
end
end;
finally finally
lFieldOQLFile.free; lFieldOQLFile.free;
end; end;
...@@ -440,6 +461,224 @@ begin ...@@ -440,6 +461,224 @@ begin
end; end;
end; end;
function TOQLExplorerV2.GerarClasseJava(piXMLFileName: String; languageTag: TLingaguemExportada): string;
procedure AddText(piStringStream: TStringStream; piIndent: integer = 0; piText: string = '');
begin
piText := StringOfChar(' ', piIndent) + piText;
piStringStream.WriteString(concat(piText,#13#10));
end;
var
lJavaClass: TStringStream;
lJavaFile: TFileStream;
lFieldOQLFile, lFieldOQL: utField;
lAux: TStringList;
lOQLName, lOQLQuery, lMethodName: string;
lEnum, lEnumParams: acEnumerator;
lOQLParam: acOQLParam;
lOQLtoSQLTranslator: acOQLtoSQLTranslator;
lQueryParams: acQueryParams;
lFileName, lClassName: string;
lOQLType: integer;
lSQL: string;
lParamType: string;
begin
if not FileExists(piXMLFileName) then
raise Exception.Create('File "' + piXMLFileName + '" does not exist');
lJavaClass := TStringStream.Create('');
try
lFieldOQLFile := utField.Create;
try
lAux := TStringList.Create;
try
lAux.LoadFromFile(piXMLFileName);
lFieldOQLFile.LoadFieldFromXMLString(lAux.Text);
finally
lAux.free;
end;
lFileName := ExtractFileName(piXMLFileName);
lFileName := LeftStr(lFileName, pos('.', lFileName) - 1);
lClassName := 'ut' + lFileName + 'Queries';
// Package e imports
AddText(lJavaClass, 0, '//Lembre-se de Definir o pacote da classe');
AddText(lJavaClass);
AddText(lJavaClass, 0, 'import acuFramework.*;');
AddText(lJavaClass, 0, 'import acuOQL.*;');
AddText(lJavaClass);
// Início da classe
AddText(lJavaClass, 0, 'public class ' + lClassName + ' {');
AddText(lJavaClass);
lEnum := lFieldOQLFile.GetFieldsEnumerator;
try
//OQL Interfaces
while not lEnum.EOL do
begin
lFieldOQL := utField(lEnum.Current);
if not lFieldOQL.HasAttribute('name') then raise Exception.Create('Attribute "name" not found for OQL. Not a valid XML OQL file.');
lOQLName := lFieldOQL.AttributeByName('name').AsString;
if not lFieldOQL.HasField('query') then raise Exception.Create('Field "query" not found for OQL. Not a valid XML OQL file.');
lOQLQuery := lFieldOQL.FieldByName('query').AsString;
//Default cOQLQuery
lOQLType := cOQLQuery;
if lFieldOQL.HasAttribute('oqltype') then
lOQLType := lFieldOQL.AttributeByName('oqltype').AsInteger;
AddText(lJavaClass, 2, 'public interface I' + lOQLName + ' {');
lQueryParams := acQueryParams.Create;
try
lOQLtoSQLTranslator := acOQLtoSQLTranslator.Create(fExplorer.Util.MetaModelPersistenceMap);
try
case lOQLType of
cDataSetOQLDataSet:
begin
lSQL := lOQLtoSQLTranslator.TranslateOQLtoSQL(lOQLQuery, fExplorer.SQLDialect, fExplorer.Schema, acQueryResultKind.qrkDataSet, lQueryParams);
end;
else
begin
lSQL := lOQLtoSQLTranslator.TranslateOQLtoSQL(lOQLQuery, fExplorer.SQLDialect, fExplorer.Schema, acQueryResultKind.qrkObject, lQueryParams);
end;
end;
finally
lOQLtoSQLTranslator.Free;
end;
lEnumParams := lQueryParams.GetEnumerator;
try
while not lEnumParams.EOL do
begin
lOQLParam := acOQLParam(lEnumParams.Current);
AddText(lJavaClass, 4, lOQLParam.ClassName +' Param_' + lOQLParam.Name +'();');
lEnumParams.MoveNext;
end;
finally
lEnumParams.free;
end;
AddText(lJavaClass, 2, '}');
AddText(lJavaClass);
finally
lQueryParams.Free;
end;
lEnum.MoveNext;
end;
//OQL Types
lEnum.MoveFirst;
while not lEnum.EOL do
begin
lFieldOQL := utField(lEnum.Current);
lOQLName := lFieldOQL.AttributeByName('name').AsString;
lOQLQuery := lFieldOQL.FieldByName('query').AsString;
//Default cOQLQuery
lOQLType := cOQLQuery;
if lFieldOQL.HasAttribute('oqltype') then
lOQLType := lFieldOQL.AttributeByName('oqltype').AsInteger;
case lOQLType of
cDataSetOQLDataSet: AddText(lJavaClass, 2, 'public static class ' + lOQLName + ' extends acDataSetOQLQuery implements I' +lOQLName + '{');
else AddText(lJavaClass, 2, 'public static class ' + lOQLName + ' extends acOQLQuery implements I' +lOQLName + '{');
end;
lQueryParams := acQueryParams.Create;
try
lOQLtoSQLTranslator := acOQLtoSQLTranslator.Create(fExplorer.Util.MetaModelPersistenceMap);
try
case lOQLType of
cDataSetOQLDataSet:
begin
lSQL := lOQLtoSQLTranslator.TranslateOQLtoSQL(lOQLQuery, fExplorer.SQLDialect, fExplorer.Schema, acQueryResultKind.qrkDataSet, lQueryParams);
end;
else
begin
lSQL := lOQLtoSQLTranslator.TranslateOQLtoSQL(lOQLQuery, fExplorer.SQLDialect, fExplorer.Schema, acQueryResultKind.qrkObject, lQueryParams);
end;
end;
finally
lOQLtoSQLTranslator.Free;
end;
AddText(lJavaClass, 4, 'public ' + lOQLName + '(acPersistenceSession session) {');
AddText(lJavaClass, 6, 'super(session,' + UpperCase(lOQLName) +');');
AddText(lJavaClass, 4,'}');
lEnumParams := lQueryParams.GetEnumerator;
try
while not lEnumParams.EOL do
begin
lOQLParam := acOQLParam(lEnumParams.Current);
AddText(lJavaClass, 4, 'public ' + lOQLParam.ClassName + ' Param_'+ lOQLParam.Name + '() {');
AddText(lJavaClass, 6, 'return (' + lOQLParam.ClassName +') this.ParamByName("'+ lOQLParam.Name+'");');
AddText(lJavaClass, 4,'}');
lEnumParams.MoveNext;
end;
finally
lEnumParams.free;
end;
AddText(lJavaClass, 2, '}');
AddText(lJavaClass);
finally
lQueryParams.Free;
end;
lEnum.MoveNext;
end;
//Factory Class Implementation
AddText(lJavaClass, 0, '// OQLs');
AddText(lJavaClass);
lEnum.MoveFirst;
while not lEnum.EOL do
begin
lFieldOQL := utField(lEnum.Current);
lOQLName := lFieldOQL.AttributeByName('name').AsString;
lOQLQuery := lFieldOQL.FieldByName('query').AsString;
// Escapar aspas duplas para Java
lOQLQuery := StringReplace(lOQLQuery, '"', '\"', [rfReplaceAll]);
lOQLQuery := StringReplace(lOQLQuery, sLineBreak, ' " +' + sLineBreak + ' "', [rfReplaceAll]);
AddText(lJavaClass, 4, 'public static final String ' + UpperCase(lOQLName) + ' = "' + lOQLQuery + '";');
AddText(lJavaClass);
lEnum.MoveNext;
end;
finally
lEnum.free;
end;
AddText(lJavaClass, 0, '}');
result := lJavaClass.DataString;
if (LanguageTag = lgJava) then
begin
lFileName := lClassName + '.java';
SelectUnitDirectory.FileName := lFileName;
if SelectUnitDirectory.Execute then
begin
try
lJavaFile := TFileStream.Create(SelectUnitDirectory.FileName + DirectorySeparator + lFileName, fmCreate);
lJavaClass.Position := 0;
lJavaFile.CopyFrom(lJavaClass, lJavaClass.Size);
finally
lJavaFile.Free;
end;
end
end;
finally
lFieldOQLFile.free;
end;
finally
lJavaClass.free;
end;
end;
procedure TOQLExplorerV2.aLoadFileExecute(Sender: TObject); procedure TOQLExplorerV2.aLoadFileExecute(Sender: TObject);
var var
lM: integer; lM: integer;
...@@ -518,6 +757,26 @@ begin ...@@ -518,6 +757,26 @@ begin
else SelectedOQLToInterface(Item); else SelectedOQLToInterface(Item);
end; end;
procedure TOQLExplorerV2.rdJavaClassChange(Sender: TObject);
begin
try
if rdJavaClass.Checked then
memUnit.Lines.Text := lJavaClassText;
finally
Screen.Cursor := crDefault;
end;
end;
procedure TOQLExplorerV2.rdPascalClassChange(Sender: TObject);
begin
try
if rdPascalClass.Checked then
memUnit.Lines.Text := lUnitText;
finally
Screen.Cursor := crDefault;
end;
end;
procedure TOQLExplorerV2.aNewOQLExecute(Sender: TObject); procedure TOQLExplorerV2.aNewOQLExecute(Sender: TObject);
var lListItem: TListItem; var lListItem: TListItem;
lOQL: utOQL; lOQL: utOQL;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment