From: Jake Farrell <jfarrell@apache.org>
Date: Sat, 5 Nov 2011 13:36:27 +0000 (+0000)
Subject: Thrift-1415: delphi: add version Info to the library
X-Git-Tag: 0.8.0~30
X-Git-Url: https://source.supwisdom.com/gerrit/gitweb?a=commitdiff_plain;h=28459dc9c56eb2b4148d719d5559eaac669eff06;p=common%2Fthrift.git

Thrift-1415: delphi: add version Info to the library
Client: delphi
Patch: Jens Geyer

Adding versioning to delphi library



git-svn-id: https://svn.apache.org/repos/asf/thrift/trunk@1197957 13f79535-47bb-0310-9956-ffa450edef68
---

diff --git a/compiler/cpp/src/generate/t_delphi_generator.cc b/compiler/cpp/src/generate/t_delphi_generator.cc
index 148d2845..9395457c 100644
--- a/compiler/cpp/src/generate/t_delphi_generator.cc
+++ b/compiler/cpp/src/generate/t_delphi_generator.cc
@@ -149,7 +149,7 @@ class t_delphi_generator : public t_oop_generator
     virtual std::string autogen_comment() {
       return
         std::string("(**\n") +
-        " * Autogenerated by Thrift\n" +
+        " * Autogenerated by Thrift Compiler (" + THRIFT_VERSION + ")\n" +
         " *\n" +
         " * DO NOT EDIT UNLESS YOU ARE SURE THAT YOU KNOW WHAT YOU ARE DOING\n" +
         " *)\n";
diff --git a/lib/delphi/src/Thrift.pas b/lib/delphi/src/Thrift.pas
index 48c3d472..a1c959d0 100644
--- a/lib/delphi/src/Thrift.pas
+++ b/lib/delphi/src/Thrift.pas
@@ -24,6 +24,9 @@ interface
 uses
   SysUtils, Thrift.Protocol;
 
+const
+  Version = '0.8.0-dev';
+	
 type
   IProcessor = interface
     ['{B1538A07-6CAC-4406-8A4C-AFED07C70A89}']
diff --git a/lib/delphi/test/client.dpr b/lib/delphi/test/client.dpr
index d0152bf1..d14079d2 100644
--- a/lib/delphi/test/client.dpr
+++ b/lib/delphi/test/client.dpr
@@ -44,6 +44,7 @@ var
 
 begin
   try
+    Writeln( 'Delphi TestClient '+Thrift.Version);
     nParamCount := ParamCount;
     SetLength( args, nParamCount);
     for i := 1 to nParamCount do
diff --git a/lib/delphi/test/server.dpr b/lib/delphi/test/server.dpr
index 768de014..d6a53bcb 100644
--- a/lib/delphi/test/server.dpr
+++ b/lib/delphi/test/server.dpr
@@ -43,6 +43,7 @@ var
 
 begin
   try
+    Writeln( 'Delphi TestServer '+Thrift.Version);
     nParamCount := ParamCount;
     SetLength( args, nParamCount);
     for i := 1 to nParamCount do