david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
766 lines
34 KiB
ObjectPascal
766 lines
34 KiB
ObjectPascal
unit uRODLConvertersUtils;
|
|
|
|
{----------------------------------------------------------------------------}
|
|
{ RemObjects SDK Library - CodeGen2 }
|
|
{ }
|
|
{ compiler: Delphi 5 and up, Kylix 2 and up }
|
|
{ platform: Win32, Linux }
|
|
{ }
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
|
{ }
|
|
{ Using this code requires a valid license of the RemObjects SDK }
|
|
{ which can be obtained at http://www.remobjects.com. }
|
|
{----------------------------------------------------------------------------}
|
|
|
|
{$IFDEF LINUX}
|
|
{$I ../RemObjects.inc}
|
|
{$ELSE}
|
|
{$I ..\RemObjects.inc}
|
|
{$ENDIF LINUX}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, uRODLImplConverter, uRODL;
|
|
|
|
const
|
|
DEFAULT_DELPHI_INTF_TEMPLATE_FILENAME = 'template.intf.pas';
|
|
DEFAULT_DELPHI_INVK_TEMPLATE_FILENAME = 'template.invk.pas';
|
|
DEFAULT_DELPHI_IMPL_TEMPLATE_FILENAME = 'template.impl.pas';
|
|
DEFAULT_DELPHI_ASYNC_TEMPLATE_FILENAME = 'template.async.pas';
|
|
DEFAULT_DELPHI_INTF_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_intf.pas';
|
|
DEFAULT_DELPHI_INVK_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_invk.pas';
|
|
DEFAULT_DELPHI_ASYNC_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_async.pas';
|
|
|
|
DEFAULT_CPP_INTF_TEMPLATE_FILENAME = 'template.intf.cpp';
|
|
DEFAULT_CPP_INVK_TEMPLATE_FILENAME = 'template.invk.cpp';
|
|
DEFAULT_CPP_IMPL_TEMPLATE_FILENAME = 'template.impl.cpp';
|
|
DEFAULT_CPP_ASYNC_TEMPLATE_FILENAME = 'template.async.cpp';
|
|
DEFAULT_CPP_INTF_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_intf.h';
|
|
DEFAULT_CPP_INVK_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_invk.h';
|
|
DEFAULT_CPP_ASYNC_WRAPPER_TEMPLATE_FILENAME = 'template.wrapper_async.h';
|
|
|
|
{$IFDEF LINUX}
|
|
{$R Templates/Templates.res}
|
|
{$ELSE}
|
|
{$R Templates\Templates.res}
|
|
{$ENDIF LINUX}
|
|
|
|
type
|
|
TROCodeGenLanguage = (cglDelphiWin32, cglCppWin32);
|
|
TROCodeGenType = (cgtIntf, cgtInvk, cgtImpl, cgtAsync, cgtRes);
|
|
|
|
|
|
// Delphi
|
|
procedure GenerateDelphiIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateDelphiInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateDelphiImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
|
|
procedure GenerateDelphiAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
|
|
procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
|
|
procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
|
|
procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
|
|
procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
|
|
// Cpp
|
|
procedure GenerateCppIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateCppInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateCppImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
|
|
procedure GenerateCppAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
|
|
procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
|
|
procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
|
|
procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = ''); overload;
|
|
procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = ''); overload;
|
|
|
|
procedure GenerateUnitToStream(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aStream, aStream2: TStream; aAncestorName: string = ''; aUnitname: string='');
|
|
procedure GenerateUnitToFile(aLibraryFileName: string; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string=''); overload;
|
|
procedure GenerateUnitToFile(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string=''); overload;
|
|
function GetTargetFileName(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage): string;
|
|
|
|
implementation
|
|
|
|
uses
|
|
SysUtils, uRODLToXML,
|
|
uRODLTemplateBasedConverterUtils,
|
|
uRODLDelphiConverters, uRODLCppConverters;
|
|
|
|
// Delphi
|
|
procedure GenerateDelphiIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateDelphiIntf(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateDelphiInvk(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateDelphiImpl(lib, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateDelphiAsync(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
try
|
|
GenerateDelphiIntf(aLibrary, outputStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, Entities);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
finally
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
try
|
|
GenerateDelphiInvk(aLibrary, outputStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, Entities);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
finally
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
outputDFMStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
outputDFMStream := TMemoryStream.Create;
|
|
try
|
|
GenerateDelphiImpl(aLibrary, outputStream, outputDFMStream, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
if outputDFMStream.Size > 0 then
|
|
outputDFMStream.SaveToFile(ChangeFileExt(outputName, '.dfm'));
|
|
finally
|
|
outputDFMStream.Free;
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
try
|
|
GenerateDelphiAsync(aLibrary, outputStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
finally
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
gen: TRODLDelphiIntfConverter;
|
|
templateName: string;
|
|
outputName: string;
|
|
unitName: string;
|
|
wrapperTemplateName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_DELPHI_INTF_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
|
|
wrapperTemplateName := DEFAULT_DELPHI_INTF_WRAPPER_TEMPLATE_FILENAME
|
|
else
|
|
wrapperTemplateName := AWrapperTemplateName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLDelphiIntfConverter.Create(aLibrary, templateName, unitName,
|
|
ASplit, ExtractFilePath(outputName),
|
|
wrapperTemplateName, entities);
|
|
try
|
|
gen.SaveResultToStream(OutputStream);
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
gen: TRODLDelphiInvkConverter;
|
|
templateName: string;
|
|
outputName: string;
|
|
unitName: string;
|
|
wrapperTemplateName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_DELPHI_INVK_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
|
|
wrapperTemplateName := DEFAULT_DELPHI_INVK_WRAPPER_TEMPLATE_FILENAME
|
|
else
|
|
wrapperTemplateName := AWrapperTemplateName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLDelphiInvkConverter.Create(aLibrary, templateName, unitName,
|
|
ASplit, ExtractFilePath(outputName),
|
|
wrapperTemplateName, entities);
|
|
try
|
|
gen.SaveResultToStream(OutputStream);
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
|
|
var
|
|
gen: TRODLDelphiImplConverter;
|
|
templateName: string;
|
|
outputName: string;
|
|
unitName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_DELPHI_IMPL_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLDelphiImplConverter.Create(aLibrary, templateName, unitName, AncestorName, ServiceName, aRequiredUnits);
|
|
try
|
|
gen.SaveResultToStream(OutputStream);
|
|
|
|
// If datamodule then generate DFM
|
|
if gen.WriteDataModule then
|
|
begin
|
|
gen.TemplateFileName := ChangeFileExt(templateName, '.dfm');
|
|
gen.FileExtension := '.dfm';
|
|
gen.Convert(aLibrary, ServiceName);
|
|
gen.SaveResultToStream(OutputDFMStream);
|
|
end;
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateDelphiAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
gen: TRODLDelphiAsyncConverter;
|
|
templateName: string;
|
|
outputName: string;
|
|
unitName: string;
|
|
wrapperTemplateName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_DELPHI_ASYNC_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
|
|
wrapperTemplateName := DEFAULT_DELPHI_ASYNC_WRAPPER_TEMPLATE_FILENAME
|
|
else
|
|
wrapperTemplateName := AWrapperTemplateName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.pas'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLDelphiAsyncConverter.Create(aLibrary, templateName, unitName,
|
|
ASplit, ExtractFilePath(outputName),
|
|
wrapperTemplateName, entities);
|
|
try
|
|
gen.SaveResultToStream(outputStream);
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
// Cpp
|
|
procedure GenerateCppIntf(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateCppIntf(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppInvk(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateCppInvk(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppImpl(const LibraryFileName: string; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateCppImpl(lib, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppAsync(const LibraryFileName: string; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
lib: TRODLLibrary;
|
|
begin
|
|
lib := ReadRODLFromFile(TXMLToRODL, LibraryFileName);
|
|
try
|
|
GenerateCppAsync(lib, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
finally
|
|
lib.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
outputHStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
outputHStream := TMemoryStream.Create;
|
|
try
|
|
GenerateCppIntf(aLibrary, outputStream, outputHStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
|
|
finally
|
|
outputHStream.Free;
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
outputHStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
outputHStream := TMemoryStream.Create;
|
|
try
|
|
GenerateCppInvk(aLibrary, outputStream, outputHStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
|
|
finally
|
|
outputHStream.Free;
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
outputHStream: TMemoryStream;
|
|
outputDFMStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
outputHStream := TMemoryStream.Create;
|
|
outputDFMStream := TMemoryStream.Create;
|
|
try
|
|
GenerateCppImpl(aLibrary, outputStream, outputHStream, outputDFMStream, ServiceName, TemplateFileName, AncestorName, OutputFileName, aRequiredUnits);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
|
|
if outputDFMStream.Size > 0 then
|
|
outputDFMStream.SaveToFile(ChangeFileExt(outputName, '.dfm'));
|
|
finally
|
|
outputDFMStream.Free;
|
|
outputHStream.Free;
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
outputName: string;
|
|
outputStream: TMemoryStream;
|
|
outputHStream: TMemoryStream;
|
|
begin
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
outputStream := TMemoryStream.Create;
|
|
outputHStream := TMemoryStream.Create;
|
|
try
|
|
GenerateCppAsync(aLibrary, outputStream, outputHStream, TemplateFileName, OutputFileName, ASplit, AWrapperTemplateName, entities);
|
|
|
|
outputStream.SaveToFile(outputName);
|
|
outputHStream.SaveToFile(ChangeFileExt(outputName, '.h'));
|
|
finally
|
|
outputHStream.Free;
|
|
outputStream.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppIntf(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
templateName: string;
|
|
gen: TRODLCppIntfConverter;
|
|
outputName: string;
|
|
unitName: string;
|
|
wrapperTemplateName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_CPP_INTF_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
|
|
wrapperTemplateName := DEFAULT_CPP_INTF_WRAPPER_TEMPLATE_FILENAME
|
|
else
|
|
wrapperTemplateName := AWrapperTemplateName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INTF_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLCppIntfConverter.Create(aLibrary, templateName, unitName,
|
|
ASplit, ExtractFilePath(outputName),
|
|
wrapperTemplateName, entities);
|
|
try
|
|
gen.SaveResultToStream(OutputStream);
|
|
gen.TemplateFileName := ChangeFileExt(templateName, '.h');
|
|
gen.FileExtension := '.h';
|
|
gen.Convert(aLibrary);
|
|
gen.SaveResultToStream(OutputHStream);
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppInvk(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
gen: TRODLCppInvkConverter;
|
|
templateName: string;
|
|
unitName: string;
|
|
outputName: string;
|
|
wrapperTemplateName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_CPP_INVK_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
|
|
wrapperTemplateName := DEFAULT_CPP_INVK_WRAPPER_TEMPLATE_FILENAME
|
|
else
|
|
wrapperTemplateName := AWrapperTemplateName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_INVK_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLCppInvkConverter.Create(aLibrary, templateName, unitName,
|
|
ASplit, ExtractFilePath(outputName),
|
|
wrapperTemplateName, entities);
|
|
try
|
|
gen.SaveResultToStream(OutputStream);
|
|
gen.TemplateFileName := ChangeFileExt(templateName, '.h');
|
|
gen.FileExtension := '.h';
|
|
gen.Convert(aLibrary);
|
|
gen.SaveResultToStream(OutputHStream);
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppImpl(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const OutputDFMStream: TStream; const ServiceName: string; const TemplateFileName: string = ''; const AncestorName: string = DEFAULT_IMPL_SERVICE_ANCESTOR; const OutputFileName: string = ''; const aRequiredUnits: string = '');
|
|
var
|
|
gen: TRODLCppImplConverter;
|
|
templateName: string;
|
|
outputName: string;
|
|
unitName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_CPP_IMPL_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := ServiceName + DEFAULT_IMPL_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLCppImplConverter.Create(aLibrary, templateName, unitName, AncestorName, ServiceName, aRequiredUnits);
|
|
try
|
|
gen.SaveResultToStream(outputStream);
|
|
gen.TemplateFileName := ChangeFileExt(templateName, '.h');
|
|
gen.FileExtension := '.h';
|
|
gen.Convert(aLibrary, ServiceName);
|
|
gen.SaveResultToStream(outputHStream);
|
|
|
|
// If datamodule then generate DFM
|
|
if gen.WriteDataModule then
|
|
begin
|
|
gen.TemplateFileName := ChangeFileExt(templateName, '.dfm');
|
|
gen.FileExtension := '.dfm';
|
|
gen.Convert(aLibrary, ServiceName);
|
|
gen.SaveResultToStream(outputDFMStream);
|
|
end;
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateCppAsync(const aLibrary: TRODLLibrary; const OutputStream: TStream; const OutputHStream: TStream; const TemplateFileName: string = ''; const OutputFileName: string = ''; const ASplit: Boolean = False; const AWrapperTemplateName: string = ''; const entities: string = '');
|
|
var
|
|
templateName: string;
|
|
gen: TRODLCppAsyncConverter;
|
|
outputName: string;
|
|
unitName: string;
|
|
wrapperTemplateName: string;
|
|
begin
|
|
if (Length(TemplateFileName) = 0) or not FileExists(TemplateFileName) then
|
|
templateName := DEFAULT_CPP_ASYNC_TEMPLATE_FILENAME
|
|
else
|
|
templateName := TemplateFileName;
|
|
|
|
if (Length(AWrapperTemplateName) = 0) or not FileExists(AWrapperTemplateName) then
|
|
wrapperTemplateName := DEFAULT_CPP_ASYNC_WRAPPER_TEMPLATE_FILENAME
|
|
else
|
|
wrapperTemplateName := AWrapperTemplateName;
|
|
|
|
if Length(OutputFileName) = 0 then
|
|
outputName := aLibrary.Name + DEFAULT_ASYNC_SUFFIX + '.cpp'
|
|
else
|
|
outputName := OutputFileName;
|
|
|
|
unitName := ChangeFileExt(ExtractFileName(outputName), '');
|
|
|
|
ClearAllCaches;
|
|
gen := TRODLCppAsyncConverter.Create(aLibrary, templateName, unitName,
|
|
ASplit, ExtractFilePath(outputName),
|
|
wrapperTemplateName, entities);
|
|
try
|
|
gen.SaveResultToStream(OutputStream);
|
|
gen.TemplateFileName := ChangeFileExt(templateName, '.h');
|
|
gen.FileExtension := '.h';
|
|
gen.Convert(aLibrary);
|
|
gen.SaveResultToStream(OutputHStream);
|
|
finally
|
|
gen.Free;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateUnitToStream(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aStream, aStream2: TStream; aAncestorName: string = ''; aUnitname: string='');
|
|
begin
|
|
if aUnitname = '' then aUnitname := GetTargetFileName(aLibrary, aService, aType, aLanguage);
|
|
if aAncestorName = '' then aAncestorName := 'TRORemotable';
|
|
|
|
case aLanguage of
|
|
cglDelphiWin32: begin
|
|
case aType of
|
|
cgtIntf : GenerateDelphiIntf(aLibrary, aStream, '', aUnitname);
|
|
cgtInvk : GenerateDelphiInvk(aLibrary, aStream, '', aUnitname);
|
|
cgtImpl : GenerateDelphiImpl(aLibrary, aStream,aStream2, aService.Name, '',aAncestorName,aUnitname);
|
|
//raise Exception.Create('not supported.');
|
|
cgtAsync: GenerateDelphiAsync(aLibrary, aStream, '', aUnitname);
|
|
end;
|
|
end;
|
|
cglCppWin32: begin
|
|
case aType of
|
|
cgtIntf : GenerateCppIntf(aLibrary, aStream, aStream2, '', aUnitname);
|
|
cgtInvk : GenerateCppInvk(aLibrary, aStream, aStream2, '', aUnitname);
|
|
cgtImpl : raise Exception.Create('not supported.');
|
|
cgtAsync: GenerateCppAsync(aLibrary, aStream, aStream2, '', aUnitname);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateUnitToFile(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string='');
|
|
begin
|
|
if aFilename = '' then aFilename := GetTargetFileName(aLibrary, aService, aType, aLanguage);
|
|
if aAncestorName = '' then aAncestorName := 'TRORemotable';
|
|
|
|
case aLanguage of
|
|
cglDelphiWin32: begin
|
|
case aType of
|
|
cgtIntf : GenerateDelphiIntf(aLibrary, '', aFilename);
|
|
cgtInvk : GenerateDelphiInvk(aLibrary, '', aFilename);
|
|
cgtImpl : GenerateDelphiImpl(aLibrary, aService.Name, '', aAncestorName, aFilename);
|
|
cgtAsync: GenerateDelphiAsync(aLibrary, '', aFilename);
|
|
end;
|
|
end;
|
|
cglCppWin32: begin
|
|
case aType of
|
|
cgtIntf : GenerateCppIntf(aLibrary, '', aFilename);
|
|
cgtInvk : GenerateCppInvk(aLibrary, '', aFilename);
|
|
cgtImpl : GenerateCppImpl(aLibrary, aService.Name, '', aAncestorName, aFilename);
|
|
cgtAsync: GenerateCppAsync(aLibrary, '', aFilename);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure GenerateUnitToFile(aLibraryFileName: string; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage; aAncestorName: string = ''; aFilename: string='');
|
|
var
|
|
lLibrary: TRODLLibrary;
|
|
begin
|
|
lLibrary := LoadLibraryFromXml(aLibraryFileName);
|
|
try
|
|
GenerateUnitToFile(lLibrary, aService, aType, aLanguage, aAncestorName, aFileName);
|
|
finally
|
|
lLibrary.Free();
|
|
end;
|
|
end;
|
|
|
|
function GetTargetFileName(aLibrary: TRODLLibrary; aService:TRODLService; aType: TROCodeGenType; aLanguage: TROCodeGenLanguage): string;
|
|
begin
|
|
case aType of
|
|
cgtIntf : result := aLibrary.Name+'_Intf';
|
|
cgtInvk : result := aLibrary.Name+'_Invk';
|
|
cgtImpl : result := aService.Name+'_Impl';
|
|
cgtAsync: result := aLibrary.Name+'_Async';
|
|
end;
|
|
case aLanguage of
|
|
cglDelphiWin32: result := result+'.pas';
|
|
cglCppWin32 : result := result+'.cpp';
|
|
end;
|
|
end;
|
|
|
|
end.
|