* added a bunch of deprecated tags to constructors

  (can't do that on unit level, which is 2.5.1 functionality), as well
  as a warning text.

git-svn-id: branches/fixes_2_4@15504 -

packages/fcl-net/src/httpbase.pp

@@ -1,4 +1,5 @@
 {
+    WARNING: These units are DEPRECATED in FPC 2.5.x and later
 
     HTTPBase: Common HTTP utility declarations and classes
     Copyright (C) 2000-2003 by Sebastian Guenther ([email protected])
@@ -132,7 +133,7 @@ type
 
     HttpVersion: String;
 
-    constructor Create;
+    constructor Create; deprecated;
     destructor Destroy; override;
     procedure SetFieldByName(const AName, AValue: String);
     function  GetFieldByName(const AName: String): String;
@@ -196,7 +197,7 @@ type
   public
     Code: Integer;
     CodeText: String;
-    constructor Create;
+    constructor Create; deprecated;
   end;
 
 

packages/fcl-net/src/httpclient.pp

@@ -1,5 +1,7 @@
 {
 
+    WARNING: These units are DEPRECATED in FPC 2.5.x and later
+
     HTTPClient: HTTP client component
     Copyright (C) 2000-2003 by Sebastian Guenther ([email protected])
 
@@ -113,7 +115,7 @@ type
     ReceivedStream: TStream;
     DoDestroy: Boolean;
 
-    constructor Create(AEventLoop: TEventLoop; ASocket: TInetSocket);
+    constructor Create(AEventLoop: TEventLoop; ASocket: TInetSocket); deprecated;
     destructor Destroy; override;
     procedure Receive;
     procedure Send;

packages/fcl-net/src/mkxmlrpc.pp

@@ -1,5 +1,7 @@
 {
 
+    WARNING: This program is DEPRECATED in FPC 2.5.x and later
+
     Automatic XML-RPC wrapper generator
     Copyright (c) 2003 by
       Areca Systems GmbH / Sebastian Guenther, [email protected]
@@ -31,7 +33,7 @@ type
     Modules, UsedModules: TList;
     CurModule: TPasModule;
   public
-    constructor Create;
+    constructor Create; deprecated;
     destructor Destroy; override;
     function CreateElement(AClass: TPTreeElement; const AName: String;
       AParent: TPasElement; AVisibility: TPasMemberVisibility;
@@ -49,7 +51,7 @@ type
   TRPCList = class
     ServerClasses: TList;
     UsedModules: TStringList;
-    constructor Create;
+    constructor Create; deprecated;
     destructor Destroy; override;
     procedure AddServerClass(const AClassName: String);
   end;

packages/fcl-net/src/servlets.pp

@@ -1,5 +1,7 @@
 {
 
+    WARNING: These units are DEPRECATED in FPC 2.5.x and later
+
     Basic Servlet Support
     Copyright (c) 2003 by
       Areca Systems GmbH / Sebastian Guenther, [email protected]
@@ -10,6 +12,9 @@
     This program is distributed in the hope that it will be useful,
     but WITHOUT ANY WARRANTY; without even the implied warranty of
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+
+
 }
 {$mode objfpc}{$H+}
 unit Servlets;
@@ -43,7 +48,7 @@ type
     function GetContentType: String; virtual; abstract;
     function GetProtocol: String; virtual; abstract;
   public
-    constructor Create(AInputStream: TStream; const AScheme, APathInfo: String);
+    constructor Create(AInputStream: TStream; const AScheme, APathInfo: String); deprecated;
     property Attributes[const AName: String]: TObject;  // !!!: Implement this  rw
     property CharacterEncoding: String; // !!!: Implement this  rw
     property ContentLength: Integer read GetContentLength;
@@ -69,7 +74,7 @@ type
     procedure SetContentType(const Value: String); virtual; abstract;
     procedure SetContentLength(Value: Int64); virtual; abstract;
   public
-    constructor Create(AOutputStream: TStream);
+    constructor Create(AOutputStream: TStream); deprecated;
     property BufferSize: Integer;       // !!!: How to implement?  rw
     property CharacterEncoding: String; // !!!: Implement this
     property ContentLength: Int64 write SetContentLength;

packages/fcl-net/src/xmlrpc.pp

@@ -1,5 +1,7 @@
 {
 
+    WARNING: These units are DEPRECATED in FPC 2.5.x and later
+
     XML-RPC server and client library
     Copyright (c) 2003-2004 by
       Areca Systems GmbH / Sebastian Guenther, [email protected]
@@ -32,8 +34,8 @@ type
   protected
     function CreateValueEl: TXMLRPCValue;
   public
-    constructor Create;
-    destructor Destroy; override;
+    constructor Create; deprecated;
+    destructor Destroy; override; 
     function MakeStream: TMemoryStream;
 
     procedure WriteMethodCall(const AMethodName: DOMString;
@@ -74,7 +76,7 @@ type
       const AMemberName: String): TDOMElement;
     function GetStructMemberValue(MemberNode: TDOMElement): String;
   public
-    constructor Create(AStream: TStream);
+    constructor Create(AStream: TStream); deprecated;
     destructor Destroy; override;
     function GetPostType: TXMLRPCPostType;
     function GetMethodName: String;
@@ -123,7 +125,7 @@ type
     procedure StreamSent(Sender: TObject);
     procedure DataAvailable(Sender: TObject);
   public
-    constructor Create(AEventLoop: TEventLoop);
+    constructor Create(AEventLoop: TEventLoop); deprecated;
     procedure Call(ACallback: TOnXMLRPCCallCompleted;
       const AProcName: String; AArgs: array of const);
     procedure CallAsync(ACallback: TOnXMLRPCCallCompleted;