diff options
| author | Jens Geyer <jensg@apache.org> | 2013-06-04 21:43:40 +0200 |
|---|---|---|
| committer | Jens Geyer <jensg@apache.org> | 2013-06-04 22:06:30 +0200 |
| commit | c2c4d72b90f322e46a8cbb4e196c598bbcb3f615 (patch) | |
| tree | a3f2bf07b76f8b8d43f8ae5a786861478d2593fd /lib/delphi/src | |
| parent | 0ca234f3b667079aad3c6e7ff5d5b54bb30c572c (diff) | |
| download | thrift-c2c4d72b90f322e46a8cbb4e196c598bbcb3f615.tar.gz | |
THRIFT-1993 Factory to create instances from known (generated) interface types with Delphi
Patch: Jens Geyer
Diffstat (limited to 'lib/delphi/src')
| -rw-r--r-- | lib/delphi/src/Thrift.TypeRegistry.pas | 84 |
1 files changed, 84 insertions, 0 deletions
diff --git a/lib/delphi/src/Thrift.TypeRegistry.pas b/lib/delphi/src/Thrift.TypeRegistry.pas new file mode 100644 index 000000000..1b863d2ee --- /dev/null +++ b/lib/delphi/src/Thrift.TypeRegistry.pas @@ -0,0 +1,84 @@ +(*
+ * 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.
+ *)
+
+unit Thrift.TypeRegistry;
+
+interface
+
+uses
+ Generics.Collections;
+
+type
+ TFactoryMethod<T> = function:T;
+
+ TypeRegistry = class
+ private
+ class var FTypeInfoToFactoryLookup : TDictionary<Pointer, Pointer>;
+ public
+ class constructor Create;
+ class destructor Destroy;
+ class procedure RegisterTypeFactory<F>(const aFactoryMethod: TFactoryMethod<F>);
+ class function Construct<F>: F;
+ end;
+
+implementation
+
+uses
+ TypInfo;
+
+{ TypeRegistration }
+
+class constructor TypeRegistry.Create;
+begin
+ FTypeInfoToFactoryLookup := TDictionary<Pointer, Pointer>.Create;
+end;
+
+class destructor TypeRegistry.Destroy;
+begin
+ FTypeInfoToFactoryLookup.Free;
+end;
+
+class procedure TypeRegistry.RegisterTypeFactory<F>(const aFactoryMethod: TFactoryMethod<F>);
+var
+ TypeInfo : Pointer;
+begin
+ TypeInfo := System.TypeInfo(F);
+
+ if (TypeInfo <> nil) and (PTypeInfo(TypeInfo).Kind = tkInterface)
+ then FTypeInfoToFactoryLookup.AddOrSetValue(TypeInfo, @aFactoryMethod);
+end;
+
+class function TypeRegistry.Construct<F>: F;
+var
+ TypeInfo : PTypeInfo;
+ Factory : Pointer;
+begin
+ Result := default(F);
+
+ TypeInfo := System.TypeInfo(F);
+
+ if Assigned(TypeInfo) and (TypeInfo.Kind = tkInterface)
+ then begin
+ if FTypeInfoToFactoryLookup.TryGetValue(TypeInfo, Factory)
+ then Result := TFactoryMethod<F>(Factory)();
+ end;
+end;
+
+
+end.
|