| Jens Geyer | 07f4bb5 | 2022-09-03 14:50:06 +0200 | [diff] [blame] | 1 | library SerializerData; |
| 2 | (* |
| 3 | * Licensed to the Apache Software Foundation (ASF) under one |
| 4 | * or more contributor license agreements. See the NOTICE file |
| 5 | * distributed with this work for additional information |
| 6 | * regarding copyright ownership. The ASF licenses this file |
| 7 | * to you under the Apache License, Version 2.0 (the |
| 8 | * "License"); you may not use this file except in compliance |
| 9 | * with the License. You may obtain a copy of the License at |
| 10 | * |
| 11 | * http://www.apache.org/licenses/LICENSE-2.0 |
| 12 | * |
| 13 | * Unless required by applicable law or agreed to in writing, |
| 14 | * software distributed under the License is distributed on an |
| 15 | * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| 16 | * KIND, either express or implied. See the License for the |
| 17 | * specific language governing permissions and limitations |
| 18 | * under the License. |
| 19 | *) |
| 20 | |
| 21 | uses |
| 22 | Classes, |
| 23 | Windows, |
| 24 | SysUtils, |
| 25 | Generics.Collections, |
| 26 | Thrift in '..\..\src\Thrift.pas', |
| 27 | Thrift.Exception in '..\..\src\Thrift.Exception.pas', |
| 28 | Thrift.Socket in '..\..\src\Thrift.Socket.pas', |
| 29 | Thrift.Transport in '..\..\src\Thrift.Transport.pas', |
| 30 | Thrift.Protocol in '..\..\src\Thrift.Protocol.pas', |
| 31 | Thrift.Protocol.JSON in '..\..\src\Thrift.Protocol.JSON.pas', |
| 32 | Thrift.Protocol.Compact in '..\..\src\Thrift.Protocol.Compact.pas', |
| 33 | Thrift.Collections in '..\..\src\Thrift.Collections.pas', |
| 34 | Thrift.Configuration in '..\..\src\Thrift.Configuration.pas', |
| 35 | Thrift.Server in '..\..\src\Thrift.Server.pas', |
| 36 | Thrift.Utils in '..\..\src\Thrift.Utils.pas', |
| 37 | Thrift.Serializer in '..\..\src\Thrift.Serializer.pas', |
| 38 | Thrift.Stream in '..\..\src\Thrift.Stream.pas', |
| 39 | Thrift.WinHTTP in '..\..\src\Thrift.WinHTTP.pas', |
| 40 | Thrift.TypeRegistry in '..\..\src\Thrift.TypeRegistry.pas', |
| 41 | System_ in 'gen-delphi\System_.pas', |
| 42 | SysUtils_ in 'gen-delphi\SysUtils_.pas', |
| 43 | DebugProtoTest in 'gen-delphi\DebugProtoTest.pas', |
| 44 | TestSerializer.Data in 'TestSerializer.Data.pas'; |
| 45 | |
| 46 | {$R *.res} |
| 47 | |
| 48 | function CreateOneOfEach : IOneOfEach; stdcall; |
| 49 | begin |
| 50 | result := Fixtures.CreateOneOfEach; |
| 51 | end; |
| 52 | |
| 53 | |
| 54 | function CreateNesting : INesting; stdcall; |
| 55 | begin |
| 56 | result := Fixtures.CreateNesting; |
| 57 | end; |
| 58 | |
| 59 | |
| 60 | function CreateHolyMoley : IHolyMoley; stdcall; |
| 61 | begin |
| 62 | result := Fixtures.CreateHolyMoley; |
| 63 | end; |
| 64 | |
| 65 | |
| 66 | function CreateCompactProtoTestStruct : ICompactProtoTestStruct; stdcall; |
| 67 | begin |
| 68 | result := Fixtures.CreateCompactProtoTestStruct; |
| 69 | end; |
| 70 | |
| 71 | |
| 72 | exports |
| 73 | CreateOneOfEach, |
| 74 | CreateNesting, |
| 75 | CreateHolyMoley, |
| 76 | CreateCompactProtoTestStruct; |
| 77 | |
| 78 | begin |
| 79 | IsMultiThread := TRUE; |
| 80 | ASSERT( cDebugProtoTest_Option_COM_types); |
| 81 | ASSERT( cSystem__Option_COM_types); |
| 82 | end. |