diff options
25 files changed, 1405 insertions, 131 deletions
diff --git a/.gitignore b/.gitignore index c34d9f643..6d077519b 100644 --- a/.gitignore +++ b/.gitignore @@ -198,14 +198,12 @@ project.lock.json /lib/dart/**/packages /lib/dart/**/.pub/ /lib/dart/**/pubspec.lock -/lib/delphi/test/skip/*.request -/lib/delphi/test/skip/*.response +/lib/delphi/test/skip/bin /lib/delphi/test/serializer/*.dat /lib/delphi/**/*.identcache /lib/delphi/**/*.local /lib/delphi/**/*.dcu /lib/delphi/**/*.2007 -/lib/delphi/**/*.dproj /lib/delphi/**/codegen/*.bat /lib/erl/_build/ /lib/erl/.eunit diff --git a/lib/delphi/DelphiThrift.groupproj b/lib/delphi/DelphiThrift.groupproj index a172e496c..179f68051 100644 --- a/lib/delphi/DelphiThrift.groupproj +++ b/lib/delphi/DelphiThrift.groupproj @@ -1,39 +1,57 @@ - <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{6BD327A5-7688-4263-B6A8-B15207CF4EC5}</ProjectGuid> </PropertyGroup> <ItemGroup> - <Projects Include="test\client.dproj"> + <Projects Include="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj"> <Dependencies/> </Projects> - <Projects Include="test\server.dproj"> + <Projects Include="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj"> <Dependencies/> </Projects> - <Projects Include="test\multiplexed\Multiplex.Test.Client.dproj"> + <Projects Include="test\keywords\ReservedKeywords.dproj"> <Dependencies/> </Projects> - <Projects Include="test\multiplexed\Multiplex.Test.Server.dproj"> + <Projects Include="test\client.dproj"> <Dependencies/> </Projects> - <Projects Include="test\serializer\TestSerializer.dproj"> + <Projects Include="test\server.dproj"> <Dependencies/> </Projects> - <Projects Include="test\skip\skiptest_version1.dproj"> + <Projects Include="test\multiplexed\Multiplex.Test.Client.dproj"> <Dependencies/> </Projects> - <Projects Include="test\skip\skiptest_version2.dproj"> + <Projects Include="test\multiplexed\Multiplex.Test.Server.dproj"> <Dependencies/> </Projects> - <Projects Include="test\typeregistry\TestTypeRegistry.dproj"> + <Projects Include="test\skip\skiptest_version1.dproj"> <Dependencies/> </Projects> - <Projects Include="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj"> + <Projects Include="test\skip\skiptest_version2.dproj"> <Dependencies/> </Projects> - <Projects Include="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj"> + <Projects Include="test\serializer\TestSerializer.dproj"> <Dependencies/> </Projects> - <Projects Include="test\keywords\ReservedKeywords.dproj"> + <Projects Include="test\typeregistry\TestTypeRegistry.dproj"> <Dependencies/> </Projects> </ItemGroup> @@ -44,6 +62,33 @@ <Default.Personality/> </BorlandProject> </ProjectExtensions> + <Target Name="DelphiServer"> + <MSBuild Projects="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj"/> + </Target> + <Target Name="DelphiServer:Clean"> + <MSBuild Projects="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj" Targets="Clean"/> + </Target> + <Target Name="DelphiServer:Make"> + <MSBuild Projects="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj" Targets="Make"/> + </Target> + <Target Name="DelphiClient"> + <MSBuild Projects="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj"/> + </Target> + <Target Name="DelphiClient:Clean"> + <MSBuild Projects="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj" Targets="Clean"/> + </Target> + <Target Name="DelphiClient:Make"> + <MSBuild Projects="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj" Targets="Make"/> + </Target> + <Target Name="ReservedKeywords"> + <MSBuild Projects="test\keywords\ReservedKeywords.dproj"/> + </Target> + <Target Name="ReservedKeywords:Clean"> + <MSBuild Projects="test\keywords\ReservedKeywords.dproj" Targets="Clean"/> + </Target> + <Target Name="ReservedKeywords:Make"> + <MSBuild Projects="test\keywords\ReservedKeywords.dproj" Targets="Make"/> + </Target> <Target Name="client"> <MSBuild Projects="test\client.dproj"/> </Target> @@ -80,15 +125,6 @@ <Target Name="Multiplex_Test_Server:Make"> <MSBuild Projects="test\multiplexed\Multiplex.Test.Server.dproj" Targets="Make"/> </Target> - <Target Name="TestSerializer"> - <MSBuild Projects="test\serializer\TestSerializer.dproj"/> - </Target> - <Target Name="TestSerializer:Clean"> - <MSBuild Projects="test\serializer\TestSerializer.dproj" Targets="Clean"/> - </Target> - <Target Name="TestSerializer:Make"> - <MSBuild Projects="test\serializer\TestSerializer.dproj" Targets="Make"/> - </Target> <Target Name="skiptest_version1"> <MSBuild Projects="test\skip\skiptest_version1.dproj"/> </Target> @@ -107,6 +143,15 @@ <Target Name="skiptest_version2:Make"> <MSBuild Projects="test\skip\skiptest_version2.dproj" Targets="Make"/> </Target> + <Target Name="TestSerializer"> + <MSBuild Projects="test\serializer\TestSerializer.dproj"/> + </Target> + <Target Name="TestSerializer:Clean"> + <MSBuild Projects="test\serializer\TestSerializer.dproj" Targets="Clean"/> + </Target> + <Target Name="TestSerializer:Make"> + <MSBuild Projects="test\serializer\TestSerializer.dproj" Targets="Make"/> + </Target> <Target Name="TestTypeRegistry"> <MSBuild Projects="test\typeregistry\TestTypeRegistry.dproj"/> </Target> @@ -116,41 +161,14 @@ <Target Name="TestTypeRegistry:Make"> <MSBuild Projects="test\typeregistry\TestTypeRegistry.dproj" Targets="Make"/> </Target> - <Target Name="DelphiServer"> - <MSBuild Projects="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj"/> - </Target> - <Target Name="DelphiServer:Clean"> - <MSBuild Projects="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj" Targets="Clean"/> - </Target> - <Target Name="DelphiServer:Make"> - <MSBuild Projects="..\..\tutorial\delphi\DelphiServer\DelphiServer.dproj" Targets="Make"/> - </Target> - <Target Name="DelphiClient"> - <MSBuild Projects="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj"/> - </Target> - <Target Name="DelphiClient:Clean"> - <MSBuild Projects="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj" Targets="Clean"/> - </Target> - <Target Name="DelphiClient:Make"> - <MSBuild Projects="..\..\tutorial\delphi\DelphiClient\DelphiClient.dproj" Targets="Make"/> - </Target> - <Target Name="ReservedKeywords"> - <MSBuild Projects="test\keywords\ReservedKeywords.dproj"/> - </Target> - <Target Name="ReservedKeywords:Clean"> - <MSBuild Projects="test\keywords\ReservedKeywords.dproj" Targets="Clean"/> - </Target> - <Target Name="ReservedKeywords:Make"> - <MSBuild Projects="test\keywords\ReservedKeywords.dproj" Targets="Make"/> - </Target> <Target Name="Build"> - <CallTarget Targets="client;server;Multiplex_Test_Client;Multiplex_Test_Server;TestSerializer;skiptest_version1;skiptest_version2;TestTypeRegistry;DelphiServer;DelphiClient;ReservedKeywords"/> + <CallTarget Targets="DelphiServer;DelphiClient;ReservedKeywords;client;server;Multiplex_Test_Client;Multiplex_Test_Server;skiptest_version1;skiptest_version2;TestSerializer;TestTypeRegistry"/> </Target> <Target Name="Clean"> - <CallTarget Targets="client:Clean;server:Clean;Multiplex_Test_Client:Clean;Multiplex_Test_Server:Clean;TestSerializer:Clean;skiptest_version1:Clean;skiptest_version2:Clean;TestTypeRegistry:Clean;DelphiServer:Clean;DelphiClient:Clean;ReservedKeywords:Clean"/> + <CallTarget Targets="DelphiServer:Clean;DelphiClient:Clean;ReservedKeywords:Clean;client:Clean;server:Clean;Multiplex_Test_Client:Clean;Multiplex_Test_Server:Clean;skiptest_version1:Clean;skiptest_version2:Clean;TestSerializer:Clean;TestTypeRegistry:Clean"/> </Target> <Target Name="Make"> - <CallTarget Targets="client:Make;server:Make;Multiplex_Test_Client:Make;Multiplex_Test_Server:Make;TestSerializer:Make;skiptest_version1:Make;skiptest_version2:Make;TestTypeRegistry:Make;DelphiServer:Make;DelphiClient:Make;ReservedKeywords:Make"/> + <CallTarget Targets="DelphiServer:Make;DelphiClient:Make;ReservedKeywords:Make;client:Make;server:Make;Multiplex_Test_Client:Make;Multiplex_Test_Server:Make;skiptest_version1:Make;skiptest_version2:Make;TestSerializer:Make;TestTypeRegistry:Make"/> </Target> <Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/> </Project> diff --git a/lib/delphi/test/client.dpr b/lib/delphi/test/client.dpr index d4875b8a9..eaeeee0a2 100644 --- a/lib/delphi/test/client.dpr +++ b/lib/delphi/test/client.dpr @@ -27,7 +27,7 @@ uses DataFactory in 'Performance\DataFactory.pas', PerfTests in 'Performance\PerfTests.pas', TestClient in 'TestClient.pas', - Thrift.Test, // in 'gen-delphi\Thrift.Test.pas', + Thrift.Test in 'gen-delphi\Thrift.Test.pas', Thrift in '..\src\Thrift.pas', Thrift.Transport in '..\src\Thrift.Transport.pas', Thrift.Socket in '..\src\Thrift.Socket.pas', diff --git a/lib/delphi/test/client.dproj b/lib/delphi/test/client.dproj new file mode 100644 index 000000000..8df93a0e8 --- /dev/null +++ b/lib/delphi/test/client.dproj @@ -0,0 +1,155 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{F262F488-F81C-4B6E-8694-518C54CBB8F3}</ProjectGuid> + <MainSource>client.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="client.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="Performance\DataFactory.pas"/> + <DCCReference Include="Performance\PerfTests.pas"/> + <DCCReference Include="TestClient.pas"/> + <DCCReference Include="gen-delphi\Thrift.Test.pas"/> + <DCCReference Include="..\src\Thrift.pas"/> + <DCCReference Include="..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\src\Thrift.Transport.Pipes.pas"/> + <DCCReference Include="..\src\Thrift.Transport.WinHTTP.pas"/> + <DCCReference Include="..\src\Thrift.Transport.MsxmlHTTP.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.JSON.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.Compact.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.Multiplex.pas"/> + <DCCReference Include="..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\src\Thrift.Server.pas"/> + <DCCReference Include="..\src\Thrift.Stream.pas"/> + <DCCReference Include="..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\src\Thrift.Utils.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi ..\..\..\test\ThriftTest.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">client.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + <Parameters> + <Parameters Name="RunParams"> --transport=framed --transport=winhttp --host=example.org --port=80</Parameters> + </Parameters> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/keywords/ReservedKeywords.dproj b/lib/delphi/test/keywords/ReservedKeywords.dproj index cc369883a..3603abe97 100644 --- a/lib/delphi/test/keywords/ReservedKeywords.dproj +++ b/lib/delphi/test/keywords/ReservedKeywords.dproj @@ -1,4 +1,22 @@ - <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{F2E9B6FC-A931-4271-8E30-5A4E402481B4}</ProjectGuid> <MainSource>ReservedKeywords.dpr</MainSource> @@ -24,11 +42,11 @@ <Base>true</Base> </PropertyGroup> <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> <DCC_ImageBase>00400000</DCC_ImageBase> - <DCC_DcuOutput>.\$(Config)\$(Platform)</DCC_DcuOutput> <DCC_UnitSearchPath>gen-delphi;..\..\src;$(DCC_UnitSearchPath)</DCC_UnitSearchPath> <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;$(DCC_UnitAlias)</DCC_UnitAlias> - <DCC_ExeOutput>.\$(Config)\$(Platform)</DCC_ExeOutput> <DCC_N>false</DCC_N> <DCC_S>false</DCC_S> <DCC_K>false</DCC_K> diff --git a/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas b/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas index 4b6a0a221..b6d5fb62b 100644 --- a/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas +++ b/lib/delphi/test/multiplexed/Multiplex.Client.Main.pas @@ -36,8 +36,8 @@ uses Thrift.Stream, Thrift.Collections, Thrift.Configuration, - Benchmark, // in gen-delphi folder - Aggr, // in gen-delphi folder + Benchmark, + Aggr, Multiplex.Test.Common; type diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr index 19f8f6adf..95215ff33 100644 --- a/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr +++ b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dpr @@ -25,6 +25,8 @@ program Multiplex.Test.Client; uses SysUtils, Multiplex.Client.Main in 'Multiplex.Client.Main.pas', + Benchmark in 'gen-delphi\Benchmark.pas', + Aggr in 'gen-delphi\Aggr.pas', Thrift in '..\..\src\Thrift.pas', Thrift.Socket in '..\..\src\Thrift.Socket.pas', Thrift.Exception in '..\..\src\Thrift.Exception.pas', diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Client.dproj b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dproj new file mode 100644 index 000000000..06118f0fa --- /dev/null +++ b/lib/delphi/test/multiplexed/Multiplex.Test.Client.dproj @@ -0,0 +1,147 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{59132A87-6294-4E25-AE9C-7CD17CD4400D}</ProjectGuid> + <MainSource>Multiplex.Test.Client.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="Multiplex.Test.Client.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="Multiplex.Client.Main.pas"/> + <DCCReference Include="gen-delphi\Benchmark.pas"/> + <DCCReference Include="gen-delphi\Aggr.pas"/> + <DCCReference Include="..\..\src\Thrift.pas"/> + <DCCReference Include="..\..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.Pipes.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.Multiplex.pas"/> + <DCCReference Include="..\..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\..\src\Thrift.Server.pas"/> + <DCCReference Include="..\..\src\Thrift.Stream.pas"/> + <DCCReference Include="..\..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="..\..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\..\src\Thrift.Utils.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi ..\..\..\..\contrib\async-test\Aggr.thrift +thrift.exe -r -gen delphi ..\..\..\..\lib\rb\benchmark\Benchmark.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">Multiplex.Test.Client.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr index 307a9c2dc..d9bbf88af 100644 --- a/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr +++ b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dpr @@ -24,6 +24,8 @@ program Multiplex.Test.Server; uses SysUtils, Multiplex.Server.Main in 'Multiplex.Server.Main.pas', + Benchmark in 'gen-delphi\Benchmark.pas', + Aggr in 'gen-delphi\Aggr.pas', ConsoleHelper in '..\ConsoleHelper.pas', Thrift in '..\..\src\Thrift.pas', Thrift.Exception in '..\..\src\Thrift.Exception.pas', diff --git a/lib/delphi/test/multiplexed/Multiplex.Test.Server.dproj b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dproj new file mode 100644 index 000000000..5f4fa7381 --- /dev/null +++ b/lib/delphi/test/multiplexed/Multiplex.Test.Server.dproj @@ -0,0 +1,149 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{42C6ED3D-36E2-47C5-99B2-02BDA574B9E5}</ProjectGuid> + <MainSource>Multiplex.Test.Server.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="Multiplex.Test.Server.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="Multiplex.Server.Main.pas"/> + <DCCReference Include="gen-delphi\Benchmark.pas"/> + <DCCReference Include="gen-delphi\Aggr.pas"/> + <DCCReference Include="..\ConsoleHelper.pas"/> + <DCCReference Include="..\..\src\Thrift.pas"/> + <DCCReference Include="..\..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.Pipes.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.Multiplex.pas"/> + <DCCReference Include="..\..\src\Thrift.Processor.Multiplex.pas"/> + <DCCReference Include="..\..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\..\src\Thrift.Server.pas"/> + <DCCReference Include="..\..\src\Thrift.Utils.pas"/> + <DCCReference Include="..\..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="..\..\src\Thrift.Stream.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi ..\..\..\..\contrib\async-test\Aggr.thrift +thrift.exe -r -gen delphi ..\..\..\..\lib\rb\benchmark\Benchmark.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">Multiplex.Test.Server.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/serializer/TestSerializer.Data.pas b/lib/delphi/test/serializer/TestSerializer.Data.pas index 2420e9a2f..a90d65066 100644 --- a/lib/delphi/test/serializer/TestSerializer.Data.pas +++ b/lib/delphi/test/serializer/TestSerializer.Data.pas @@ -284,57 +284,57 @@ class function Fixtures.CreateCompactProtoTestStruct : ICompactProtoTestStruct; // superhuge compact proto test struct begin result := TCompactProtoTestStructImpl.Create; - result.A_byte := TDebugProtoTestConstants.COMPACT_TEST.A_byte; - result.A_i16 := TDebugProtoTestConstants.COMPACT_TEST.A_i16; - result.A_i32 := TDebugProtoTestConstants.COMPACT_TEST.A_i32; - result.A_i64 := TDebugProtoTestConstants.COMPACT_TEST.A_i64; - result.A_double := TDebugProtoTestConstants.COMPACT_TEST.A_double; - result.A_string := TDebugProtoTestConstants.COMPACT_TEST.A_string; - result.A_binary := TDebugProtoTestConstants.COMPACT_TEST.A_binary; - result.True_field := TDebugProtoTestConstants.COMPACT_TEST.True_field; - result.False_field := TDebugProtoTestConstants.COMPACT_TEST.False_field; - result.Empty_struct_field := TDebugProtoTestConstants.COMPACT_TEST.Empty_struct_field; - result.Byte_list := TDebugProtoTestConstants.COMPACT_TEST.Byte_list; - result.I16_list := TDebugProtoTestConstants.COMPACT_TEST.I16_list; - result.I32_list := TDebugProtoTestConstants.COMPACT_TEST.I32_list; - result.I64_list := TDebugProtoTestConstants.COMPACT_TEST.I64_list; - result.Double_list := TDebugProtoTestConstants.COMPACT_TEST.Double_list; - result.String_list := TDebugProtoTestConstants.COMPACT_TEST.String_list; - result.Binary_list := TDebugProtoTestConstants.COMPACT_TEST.Binary_list; - result.Boolean_list := TDebugProtoTestConstants.COMPACT_TEST.Boolean_list; - result.Struct_list := TDebugProtoTestConstants.COMPACT_TEST.Struct_list; - result.Byte_set := TDebugProtoTestConstants.COMPACT_TEST.Byte_set; - result.I16_set := TDebugProtoTestConstants.COMPACT_TEST.I16_set; - result.I32_set := TDebugProtoTestConstants.COMPACT_TEST.I32_set; - result.I64_set := TDebugProtoTestConstants.COMPACT_TEST.I64_set; - result.Double_set := TDebugProtoTestConstants.COMPACT_TEST.Double_set; - result.String_set := TDebugProtoTestConstants.COMPACT_TEST.String_set; - result.String_set := TDebugProtoTestConstants.COMPACT_TEST.String_set; - result.String_set := TDebugProtoTestConstants.COMPACT_TEST.String_set; - result.Binary_set := TDebugProtoTestConstants.COMPACT_TEST.Binary_set; - result.Boolean_set := TDebugProtoTestConstants.COMPACT_TEST.Boolean_set; - result.Struct_set := TDebugProtoTestConstants.COMPACT_TEST.Struct_set; - result.Byte_byte_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_byte_map; - result.I16_byte_map := TDebugProtoTestConstants.COMPACT_TEST.I16_byte_map; - result.I32_byte_map := TDebugProtoTestConstants.COMPACT_TEST.I32_byte_map; - result.I64_byte_map := TDebugProtoTestConstants.COMPACT_TEST.I64_byte_map; - result.Double_byte_map := TDebugProtoTestConstants.COMPACT_TEST.Double_byte_map; - result.String_byte_map := TDebugProtoTestConstants.COMPACT_TEST.String_byte_map; - result.Binary_byte_map := TDebugProtoTestConstants.COMPACT_TEST.Binary_byte_map; - result.Boolean_byte_map := TDebugProtoTestConstants.COMPACT_TEST.Boolean_byte_map; - result.Byte_i16_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_i16_map; - result.Byte_i32_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_i32_map; - result.Byte_i64_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_i64_map; - result.Byte_double_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_double_map; - result.Byte_string_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_string_map; - result.Byte_binary_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_binary_map; - result.Byte_boolean_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_boolean_map; - result.List_byte_map := TDebugProtoTestConstants.COMPACT_TEST.List_byte_map; - result.Set_byte_map := TDebugProtoTestConstants.COMPACT_TEST.Set_byte_map; - result.Map_byte_map := TDebugProtoTestConstants.COMPACT_TEST.Map_byte_map; - result.Byte_map_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_map_map; - result.Byte_set_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_set_map; - result.Byte_list_map := TDebugProtoTestConstants.COMPACT_TEST.Byte_list_map; + result.A_byte := DebugProtoTest.TConstants.COMPACT_TEST.A_byte; + result.A_i16 := DebugProtoTest.TConstants.COMPACT_TEST.A_i16; + result.A_i32 := DebugProtoTest.TConstants.COMPACT_TEST.A_i32; + result.A_i64 := DebugProtoTest.TConstants.COMPACT_TEST.A_i64; + result.A_double := DebugProtoTest.TConstants.COMPACT_TEST.A_double; + result.A_string := DebugProtoTest.TConstants.COMPACT_TEST.A_string; + result.A_binary := DebugProtoTest.TConstants.COMPACT_TEST.A_binary; + result.True_field := DebugProtoTest.TConstants.COMPACT_TEST.True_field; + result.False_field := DebugProtoTest.TConstants.COMPACT_TEST.False_field; + result.Empty_struct_field := DebugProtoTest.TConstants.COMPACT_TEST.Empty_struct_field; + result.Byte_list := DebugProtoTest.TConstants.COMPACT_TEST.Byte_list; + result.I16_list := DebugProtoTest.TConstants.COMPACT_TEST.I16_list; + result.I32_list := DebugProtoTest.TConstants.COMPACT_TEST.I32_list; + result.I64_list := DebugProtoTest.TConstants.COMPACT_TEST.I64_list; + result.Double_list := DebugProtoTest.TConstants.COMPACT_TEST.Double_list; + result.String_list := DebugProtoTest.TConstants.COMPACT_TEST.String_list; + result.Binary_list := DebugProtoTest.TConstants.COMPACT_TEST.Binary_list; + result.Boolean_list := DebugProtoTest.TConstants.COMPACT_TEST.Boolean_list; + result.Struct_list := DebugProtoTest.TConstants.COMPACT_TEST.Struct_list; + result.Byte_set := DebugProtoTest.TConstants.COMPACT_TEST.Byte_set; + result.I16_set := DebugProtoTest.TConstants.COMPACT_TEST.I16_set; + result.I32_set := DebugProtoTest.TConstants.COMPACT_TEST.I32_set; + result.I64_set := DebugProtoTest.TConstants.COMPACT_TEST.I64_set; + result.Double_set := DebugProtoTest.TConstants.COMPACT_TEST.Double_set; + result.String_set := DebugProtoTest.TConstants.COMPACT_TEST.String_set; + result.String_set := DebugProtoTest.TConstants.COMPACT_TEST.String_set; + result.String_set := DebugProtoTest.TConstants.COMPACT_TEST.String_set; + result.Binary_set := DebugProtoTest.TConstants.COMPACT_TEST.Binary_set; + result.Boolean_set := DebugProtoTest.TConstants.COMPACT_TEST.Boolean_set; + result.Struct_set := DebugProtoTest.TConstants.COMPACT_TEST.Struct_set; + result.Byte_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_byte_map; + result.I16_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.I16_byte_map; + result.I32_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.I32_byte_map; + result.I64_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.I64_byte_map; + result.Double_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.Double_byte_map; + result.String_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.String_byte_map; + result.Binary_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.Binary_byte_map; + result.Boolean_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.Boolean_byte_map; + result.Byte_i16_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_i16_map; + result.Byte_i32_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_i32_map; + result.Byte_i64_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_i64_map; + result.Byte_double_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_double_map; + result.Byte_string_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_string_map; + result.Byte_binary_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_binary_map; + result.Byte_boolean_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_boolean_map; + result.List_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.List_byte_map; + result.Set_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.Set_byte_map; + result.Map_byte_map := DebugProtoTest.TConstants.COMPACT_TEST.Map_byte_map; + result.Byte_map_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_map_map; + result.Byte_set_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_set_map; + result.Byte_list_map := DebugProtoTest.TConstants.COMPACT_TEST.Byte_list_map; result.Field500 := 500; result.Field5000 := 5000; diff --git a/lib/delphi/test/serializer/TestSerializer.dpr b/lib/delphi/test/serializer/TestSerializer.dpr index 062001461..971401ea1 100644 --- a/lib/delphi/test/serializer/TestSerializer.dpr +++ b/lib/delphi/test/serializer/TestSerializer.dpr @@ -41,8 +41,9 @@ uses Thrift.Stream in '..\..\src\Thrift.Stream.pas', Thrift.WinHTTP in '..\..\src\Thrift.WinHTTP.pas', Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas', - System_, - DebugProtoTest, + System_ in 'gen-delphi\System_.pas', + SysUtils_ in 'gen-delphi\SysUtils_.pas', + DebugProtoTest in 'gen-delphi\DebugProtoTest.pas', TestSerializer.Tests in 'TestSerializer.Tests.pas', TestSerializer.Data in 'TestSerializer.Data.pas'; diff --git a/lib/delphi/test/serializer/TestSerializer.dproj b/lib/delphi/test/serializer/TestSerializer.dproj new file mode 100644 index 000000000..5f26264f5 --- /dev/null +++ b/lib/delphi/test/serializer/TestSerializer.dproj @@ -0,0 +1,150 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{9282EDD8-7C12-41B0-8172-61C6BFA6E238}</ProjectGuid> + <MainSource>TestSerializer.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="TestSerializer.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="..\..\src\Thrift.pas"/> + <DCCReference Include="..\..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.JSON.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.Compact.pas"/> + <DCCReference Include="..\..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\..\src\Thrift.Server.pas"/> + <DCCReference Include="..\..\src\Thrift.Utils.pas"/> + <DCCReference Include="..\..\src\Thrift.Serializer.pas"/> + <DCCReference Include="..\..\src\Thrift.Stream.pas"/> + <DCCReference Include="..\..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="gen-delphi\System_.pas"/> + <DCCReference Include="gen-delphi\SysUtils_.pas"/> + <DCCReference Include="gen-delphi\DebugProtoTest.pas"/> + <DCCReference Include="TestSerializer.Tests.pas"/> + <DCCReference Include="TestSerializer.Data.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi ..\keywords\ReservedKeywords.thrift +thrift.exe -r -gen delphi ..\..\..\..\test\DebugProtoTest.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">TestSerializer.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/server.dpr b/lib/delphi/test/server.dpr index 954d0b606..799428169 100644 --- a/lib/delphi/test/server.dpr +++ b/lib/delphi/test/server.dpr @@ -25,7 +25,7 @@ uses SysUtils, TestServer in 'TestServer.pas', TestServerEvents in 'TestServerEvents.pas', - Thrift.Test, // in gen-delphi folder + Thrift.Test in 'gen-delphi\Thrift.Test.pas', Thrift in '..\src\Thrift.pas', Thrift.Exception in '..\src\Thrift.Exception.pas', Thrift.Transport in '..\src\Thrift.Transport.pas', diff --git a/lib/delphi/test/server.dproj b/lib/delphi/test/server.dproj new file mode 100644 index 000000000..9f7e5c647 --- /dev/null +++ b/lib/delphi/test/server.dproj @@ -0,0 +1,150 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{07CEDA3D-0963-40FE-B3C2-0ED4E24DE067}</ProjectGuid> + <MainSource>server.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="server.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="TestServer.pas"/> + <DCCReference Include="TestServerEvents.pas"/> + <DCCReference Include="gen-delphi\Thrift.Test.pas"/> + <DCCReference Include="..\src\Thrift.pas"/> + <DCCReference Include="..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\src\Thrift.Transport.Pipes.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.JSON.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.Compact.pas"/> + <DCCReference Include="..\src\Thrift.Protocol.Multiplex.pas"/> + <DCCReference Include="..\src\Thrift.Processor.Multiplex.pas"/> + <DCCReference Include="..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\src\Thrift.Server.pas"/> + <DCCReference Include="..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="..\src\Thrift.Utils.pas"/> + <DCCReference Include="..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\src\Thrift.Stream.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi ..\..\..\test\ThriftTest.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">server.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/skip/skiptest_version1.dpr b/lib/delphi/test/skip/skiptest_version1.dpr index f7cde2f5d..6d877de0b 100644 --- a/lib/delphi/test/skip/skiptest_version1.dpr +++ b/lib/delphi/test/skip/skiptest_version1.dpr @@ -23,7 +23,7 @@ program skiptest_version1; uses Classes, Windows, SysUtils, - Skiptest.One, + Skiptest.One in 'gen-delphi\Skiptest.One.pas', Thrift in '..\..\src\Thrift.pas', Thrift.Exception in '..\..\src\Thrift.Exception.pas', Thrift.Socket in '..\..\src\Thrift.Socket.pas', @@ -47,7 +47,7 @@ const function CreatePing : IPing; begin result := TPingImpl.Create; - result.Version1 := Tskiptest_version_1Constants.SKIPTESTSERVICE_VERSION; + result.Version1 := TConstants.SKIPTESTSERVICE_VERSION; result.EnumTest := TPingPongEnum.PingOne; end; @@ -189,7 +189,7 @@ const FILE_COMPACT = 'pingpong.compact'; begin try - Writeln( 'Delphi SkipTest '+IntToStr(Tskiptest_version_1Constants.SKIPTESTSERVICE_VERSION)+' using '+Thrift.Version); + Writeln( 'Delphi SkipTest '+IntToStr(TConstants.SKIPTESTSERVICE_VERSION)+' using '+Thrift.Version); Writeln; Writeln('Binary protocol'); diff --git a/lib/delphi/test/skip/skiptest_version1.dproj b/lib/delphi/test/skip/skiptest_version1.dproj new file mode 100644 index 000000000..2e8997e57 --- /dev/null +++ b/lib/delphi/test/skip/skiptest_version1.dproj @@ -0,0 +1,144 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{894CD87B-337B-49F7-BC7D-2D9F65CE8FE0}</ProjectGuid> + <MainSource>skiptest_version1.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="skiptest_version1.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="gen-delphi\Skiptest.One.pas"/> + <DCCReference Include="..\..\src\Thrift.pas"/> + <DCCReference Include="..\..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.JSON.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.Compact.pas"/> + <DCCReference Include="..\..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\..\src\Thrift.Server.pas"/> + <DCCReference Include="..\..\src\Thrift.Utils.pas"/> + <DCCReference Include="..\..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="..\..\src\Thrift.Stream.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi idl\skiptest_version_1.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">skiptest_version1.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/skip/skiptest_version2.dpr b/lib/delphi/test/skip/skiptest_version2.dpr index 478ea7c7a..b3a270d41 100644 --- a/lib/delphi/test/skip/skiptest_version2.dpr +++ b/lib/delphi/test/skip/skiptest_version2.dpr @@ -23,7 +23,7 @@ program skiptest_version2; uses Classes, Windows, SysUtils, - Skiptest.Two, + Skiptest.Two in 'gen-delphi\Skiptest.Two.pas', Thrift in '..\..\src\Thrift.pas', Thrift.Exception in '..\..\src\Thrift.Exception.pas', Thrift.Socket in '..\..\src\Thrift.Socket.pas', @@ -49,7 +49,7 @@ var list : IThriftList<IPong>; set_ : IHashSet<string>; begin result := TPingImpl.Create; - result.Version1 := Tskiptest_version_2Constants.SKIPTESTSERVICE_VERSION; + result.Version1 := TConstants.SKIPTESTSERVICE_VERSION; result.EnumTest := TPingPongEnum.PingTwo; result.BoolVal := TRUE; @@ -219,7 +219,7 @@ const FILE_COMPACT = 'pingpong.compact'; begin try - Writeln( 'Delphi SkipTest '+IntToStr(Tskiptest_version_2Constants.SKIPTESTSERVICE_VERSION)+' using '+Thrift.Version); + Writeln( 'Delphi SkipTest '+IntToStr(TConstants.SKIPTESTSERVICE_VERSION)+' using '+Thrift.Version); Writeln; Writeln('Binary protocol'); diff --git a/lib/delphi/test/skip/skiptest_version2.dproj b/lib/delphi/test/skip/skiptest_version2.dproj new file mode 100644 index 000000000..3192d2889 --- /dev/null +++ b/lib/delphi/test/skip/skiptest_version2.dproj @@ -0,0 +1,144 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{DBB2D6D8-0FC6-4329-8408-28B1452B33AD}</ProjectGuid> + <MainSource>skiptest_version2.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="skiptest_version2.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="gen-delphi\Skiptest.Two.pas"/> + <DCCReference Include="..\..\src\Thrift.pas"/> + <DCCReference Include="..\..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.JSON.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.Compact.pas"/> + <DCCReference Include="..\..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\..\src\Thrift.Server.pas"/> + <DCCReference Include="..\..\src\Thrift.Utils.pas"/> + <DCCReference Include="..\..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="..\..\src\Thrift.Stream.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi idl\skiptest_version_2.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">skiptest_version2.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/lib/delphi/test/typeregistry/TestTypeRegistry.dpr b/lib/delphi/test/typeregistry/TestTypeRegistry.dpr index 2896bbf9b..c7a976756 100644 --- a/lib/delphi/test/typeregistry/TestTypeRegistry.dpr +++ b/lib/delphi/test/typeregistry/TestTypeRegistry.dpr @@ -37,7 +37,8 @@ uses Thrift.Stream in '..\..\src\Thrift.Stream.pas', Thrift.WinHTTP in '..\..\src\Thrift.WinHTTP.pas', Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas', - Thrift.Test, // in 'gen-delphi\Thrift.Test.pas', + Thrift.Test in 'gen-delphi\Thrift.Test.pas', + DebugProtoTest in 'gen-delphi\DebugProtoTest.pas', Test.TypeRegistry, Test.EnumToString; diff --git a/lib/delphi/test/typeregistry/TestTypeRegistry.dproj b/lib/delphi/test/typeregistry/TestTypeRegistry.dproj new file mode 100644 index 000000000..814faf400 --- /dev/null +++ b/lib/delphi/test/typeregistry/TestTypeRegistry.dproj @@ -0,0 +1,146 @@ +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <PropertyGroup> + <ProjectGuid>{D6B3910D-CD64-449F-B7A6-404D5DF1DAC5}</ProjectGuid> + <MainSource>TestTypeRegistry.dpr</MainSource> + <Basis>True</Basis> + <Config Condition="'$(Config)'==''">Debug</Config> + <Platform>Win32</Platform> + <AppType>Console</AppType> + <FrameworkType>None</FrameworkType> + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler> + <ProjectVersion>12.3</ProjectVersion> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Basis' or '$(Base)'!=''"> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> + <Cfg_1>true</Cfg_1> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> + <Cfg_2>true</Cfg_2> + <CfgParent>Base</CfgParent> + <Base>true</Base> + </PropertyGroup> + <PropertyGroup Condition="'$(Base)'!=''"> + <DCC_DcuOutput>dcu\$(Project)\$(Config)\$(Platform)</DCC_DcuOutput> + <DCC_ExeOutput>bin\$(Config)\$(Platform)</DCC_ExeOutput> + <DCC_E>false</DCC_E> + <DCC_ImageBase>00400000</DCC_ImageBase> + <DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias> + <DCC_F>false</DCC_F> + <DCC_S>false</DCC_S> + <DCC_N>false</DCC_N> + <DCC_K>false</DCC_K> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_1)'!=''"> + <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> + <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> + <DCC_DebugInformation>false</DCC_DebugInformation> + </PropertyGroup> + <PropertyGroup Condition="'$(Cfg_2)'!=''"> + <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> + <DCC_Optimize>false</DCC_Optimize> + <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> + </PropertyGroup> + <ItemGroup> + <DelphiCompile Include="TestTypeRegistry.dpr"> + <MainSource>MainSource</MainSource> + </DelphiCompile> + <DCCReference Include="..\..\src\Thrift.pas"/> + <DCCReference Include="..\..\src\Thrift.Transport.pas"/> + <DCCReference Include="..\..\src\Thrift.Exception.pas"/> + <DCCReference Include="..\..\src\Thrift.Socket.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.pas"/> + <DCCReference Include="..\..\src\Thrift.Protocol.JSON.pas"/> + <DCCReference Include="..\..\src\Thrift.Collections.pas"/> + <DCCReference Include="..\..\src\Thrift.Configuration.pas"/> + <DCCReference Include="..\..\src\Thrift.Server.pas"/> + <DCCReference Include="..\..\src\Thrift.Utils.pas"/> + <DCCReference Include="..\..\src\Thrift.Serializer.pas"/> + <DCCReference Include="..\..\src\Thrift.Stream.pas"/> + <DCCReference Include="..\..\src\Thrift.WinHTTP.pas"/> + <DCCReference Include="..\..\src\Thrift.TypeRegistry.pas"/> + <DCCReference Include="gen-delphi\Thrift.Test.pas"/> + <DCCReference Include="gen-delphi\DebugProtoTest.pas"/> + <BuildConfiguration Include="Debug"> + <Key>Cfg_2</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + <BuildConfiguration Include="Basis"> + <Key>Base</Key> + </BuildConfiguration> + <BuildConfiguration Include="Release"> + <Key>Cfg_1</Key> + <CfgParent>Base</CfgParent> + </BuildConfiguration> + </ItemGroup> + <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> + <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[thrift.exe -r -gen delphi:register_types ..\..\..\..\test\ThriftTest.thrift +thrift.exe -r -gen delphi:register_types ..\..\..\..\test\DebugProtoTest.thrift]]></PreBuildEvent> + </PropertyGroup> + <ProjectExtensions> + <Borland.Personality>Delphi.Personality.12</Borland.Personality> + <Borland.ProjectType>VCLApplication</Borland.ProjectType> + <BorlandProject> + <Delphi.Personality> + <Source> + <Source Name="MainSource">TestTypeRegistry.dpr</Source> + </Source> + <VersionInfo> + <VersionInfo Name="IncludeVerInfo">False</VersionInfo> + <VersionInfo Name="AutoIncBuild">False</VersionInfo> + <VersionInfo Name="MajorVer">1</VersionInfo> + <VersionInfo Name="MinorVer">0</VersionInfo> + <VersionInfo Name="Release">0</VersionInfo> + <VersionInfo Name="Build">0</VersionInfo> + <VersionInfo Name="Debug">False</VersionInfo> + <VersionInfo Name="PreRelease">False</VersionInfo> + <VersionInfo Name="Special">False</VersionInfo> + <VersionInfo Name="Private">False</VersionInfo> + <VersionInfo Name="DLL">False</VersionInfo> + <VersionInfo Name="Locale">1031</VersionInfo> + <VersionInfo Name="CodePage">1252</VersionInfo> + </VersionInfo> + <VersionInfoKeys> + <VersionInfoKeys Name="CompanyName"/> + <VersionInfoKeys Name="FileDescription"/> + <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="InternalName"/> + <VersionInfoKeys Name="LegalCopyright"/> + <VersionInfoKeys Name="LegalTrademarks"/> + <VersionInfoKeys Name="OriginalFilename"/> + <VersionInfoKeys Name="ProductName"/> + <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> + <VersionInfoKeys Name="Comments"/> + </VersionInfoKeys> + </Delphi.Personality> + <Platforms> + <Platform value="Win32">True</Platform> + </Platforms> + </BorlandProject> + <ProjectFileVersion>12</ProjectFileVersion> + </ProjectExtensions> + </Project> diff --git a/tutorial/delphi/DelphiClient/DelphiClient.dpr b/tutorial/delphi/DelphiClient/DelphiClient.dpr index 64d7d6857..e44ae3b5c 100644 --- a/tutorial/delphi/DelphiClient/DelphiClient.dpr +++ b/tutorial/delphi/DelphiClient/DelphiClient.dpr @@ -36,8 +36,8 @@ uses Thrift.Transport.WinHTTP in '..\..\..\lib\delphi\src\Thrift.Transport.WinHTTP.pas', Thrift.Transport.MsxmlHTTP in '..\..\..\lib\delphi\src\Thrift.Transport.MsxmlHTTP.pas', Thrift.WinHTTP in '..\..\..\lib\delphi\src\Thrift.WinHTTP.pas', - Shared in '..\..\gen-delphi\Shared.pas', - Tutorial in '..\..\gen-delphi\Tutorial.pas'; + Shared in '..\gen-delphi\Shared.pas', + Tutorial in '..\gen-delphi\Tutorial.pas'; type diff --git a/tutorial/delphi/DelphiClient/DelphiClient.dproj b/tutorial/delphi/DelphiClient/DelphiClient.dproj index 47262e3b7..1e2ab3dae 100644 --- a/tutorial/delphi/DelphiClient/DelphiClient.dproj +++ b/tutorial/delphi/DelphiClient/DelphiClient.dproj @@ -1,4 +1,22 @@ - <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{2B8FB3A1-2F9E-4883-8C53-0F56220B34F6}</ProjectGuid> <MainSource>DelphiClient.dpr</MainSource> @@ -62,8 +80,8 @@ <DCCReference Include="..\..\..\lib\delphi\src\Thrift.Transport.WinHTTP.pas"/> <DCCReference Include="..\..\..\lib\delphi\src\Thrift.Transport.MsxmlHTTP.pas"/> <DCCReference Include="..\..\..\lib\delphi\src\Thrift.WinHTTP.pas"/> - <DCCReference Include="..\..\gen-delphi\Shared.pas"/> - <DCCReference Include="..\..\gen-delphi\Tutorial.pas"/> + <DCCReference Include="..\gen-delphi\Shared.pas"/> + <DCCReference Include="..\gen-delphi\Tutorial.pas"/> <BuildConfiguration Include="Release"> <Key>Cfg_2</Key> <CfgParent>Base</CfgParent> @@ -78,6 +96,11 @@ </ItemGroup> <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[pushd .. +thrift.exe -r -gen delphi ..\tutorial.thrift +popd]]></PreBuildEvent> + </PropertyGroup> <ProjectExtensions> <Borland.Personality>Delphi.Personality.12</Borland.Personality> <Borland.ProjectType/> @@ -113,6 +136,9 @@ <Source> <Source Name="MainSource">DelphiClient.dpr</Source> </Source> + <Parameters> + <Parameters Name="RunParams">--transport framed --http http://example.org</Parameters> + </Parameters> </Delphi.Personality> <Platforms> <Platform value="Win32">True</Platform> diff --git a/tutorial/delphi/DelphiServer/DelphiServer.dpr b/tutorial/delphi/DelphiServer/DelphiServer.dpr index 41a3514d0..5f2dc454d 100644 --- a/tutorial/delphi/DelphiServer/DelphiServer.dpr +++ b/tutorial/delphi/DelphiServer/DelphiServer.dpr @@ -36,8 +36,8 @@ uses Thrift.Server in '..\..\..\lib\delphi\src\Thrift.Server.pas', Thrift.Transport in '..\..\..\lib\delphi\src\Thrift.Transport.pas', Thrift.WinHTTP in '..\..\..\lib\delphi\src\Thrift.WinHTTP.pas', - Shared in '..\..\gen-delphi\Shared.pas', - Tutorial in '..\..\gen-delphi\Tutorial.pas'; + Shared in '..\gen-delphi\Shared.pas', + Tutorial in '..\gen-delphi\Tutorial.pas'; type diff --git a/tutorial/delphi/DelphiServer/DelphiServer.dproj b/tutorial/delphi/DelphiServer/DelphiServer.dproj index 2624f9243..b1b7f480a 100644 --- a/tutorial/delphi/DelphiServer/DelphiServer.dproj +++ b/tutorial/delphi/DelphiServer/DelphiServer.dproj @@ -1,4 +1,22 @@ - <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> +<!-- + Licensed to the Apache Software Foundation (ASF) under one + or more contributor license agreements. See the NOTICE file + distributed with this work for additional information + regarding copyright ownership. The ASF licenses this file + to you under the Apache License, Version 2.0 (the + "License"); you may not use this file except in compliance + with the License. You may obtain a copy of the License at + + http://www.apache.org/licenses/LICENSE-2.0 + + Unless required by applicable law or agreed to in writing, + software distributed under the License is distributed on an + "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY + KIND, either express or implied. See the License for the + specific language governing permissions and limitations + under the License. +--> + <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <ProjectGuid>{2B8FB3A1-2F9E-4883-8C53-0F56220B34F6}</ProjectGuid> <MainSource>DelphiServer.dpr</MainSource> @@ -59,8 +77,8 @@ <DCCReference Include="..\..\..\lib\delphi\src\Thrift.Server.pas"/> <DCCReference Include="..\..\..\lib\delphi\src\Thrift.Transport.pas"/> <DCCReference Include="..\..\..\lib\delphi\src\Thrift.WinHTTP.pas"/> - <DCCReference Include="..\..\gen-delphi\Shared.pas"/> - <DCCReference Include="..\..\gen-delphi\Tutorial.pas"/> + <DCCReference Include="..\gen-delphi\Shared.pas"/> + <DCCReference Include="..\gen-delphi\Tutorial.pas"/> <BuildConfiguration Include="Release"> <Key>Cfg_2</Key> <CfgParent>Base</CfgParent> @@ -75,6 +93,11 @@ </ItemGroup> <Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/> <Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/> + <PropertyGroup> + <PreBuildEvent><![CDATA[pushd .. +thrift.exe -r -gen delphi ..\tutorial.thrift +popd]]></PreBuildEvent> + </PropertyGroup> <ProjectExtensions> <Borland.Personality>Delphi.Personality.12</Borland.Personality> <Borland.ProjectType/> |