* move dummy implementions to dummy dir and add

    it as fallback in the includepath


git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@12167 3ad0048d-3df7-0310-abae-a5850022a9f2

15 files changed, 13 insertions, 420 deletions

diff --git a/packages/fcl-process/src/amiga/pipes.inc b/packages/fcl-process/src/amiga/pipes.inc
deleted file mode 100644
index dc35fb365c..0000000000
--- a/packages/fcl-process/src/amiga/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt
-
-    AmigaOS specific part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// Unsupported for the moment...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
-
-begin
-  Result := False;
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  Result := 0;
-end;
-
diff --git a/packages/fcl-process/src/amiga/process.inc b/packages/fcl-process/src/amiga/process.inc
deleted file mode 100644
index 74f9c2fe50..0000000000
--- a/packages/fcl-process/src/amiga/process.inc
+++ /dev/null
@@ -1,42 +0,0 @@
-{
-  Dummy process.inc
-}
-
-procedure TProcess.CloseProcessHandles;
-begin
-end;
-
-Function TProcess.PeekExitStatus : Boolean;
-begin
-end;
-
-Procedure TProcess.Execute;
-begin
-end;
-
-Function TProcess.WaitOnExit : Boolean;
-begin
-  Result:=False;
-end;
-
-Function TProcess.Suspend : Longint;
-begin
-  Result:=0;
-end;
-
-Function TProcess.Resume : LongInt;
-
-begin
-  Result:=0;
-end;
-
-Function TProcess.Terminate(AExitCode : Integer) : Boolean;
-begin
-  Result:=False;
-end;
-
-Procedure TProcess.SetShowWindow (Value : TShowWindowOptions);
-begin
-end;
-
-
diff --git a/packages/fcl-process/src/beos/pipes.inc b/packages/fcl-process/src/beos/pipes.inc
deleted file mode 100644
index 9e0a292569..0000000000
--- a/packages/fcl-process/src/beos/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt
-
-    DOS/go32v2 specific part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// No pipes under beos, sorry...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
-
-begin
-  Result := False;
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  Result := 0;
-end;
-
diff --git a/packages/fcl-process/src/go32v2/pipes.inc b/packages/fcl-process/src/dummy/pipes.inc
index 2734d39a03..2734d39a03 100644
--- a/packages/fcl-process/src/go32v2/pipes.inc
+++ b/packages/fcl-process/src/dummy/pipes.inc
diff --git a/packages/fcl-process/src/go32v2/process.inc b/packages/fcl-process/src/dummy/process.inc
index d3145d0ab0..d3145d0ab0 100644
--- a/packages/fcl-process/src/go32v2/process.inc
+++ b/packages/fcl-process/src/dummy/process.inc
diff --git a/packages/fcl-process/src/dummy/simpleipc.inc b/packages/fcl-process/src/dummy/simpleipc.inc
new file mode 100644
index 0000000000..19ef27feaa
--- /dev/null
+++ b/packages/fcl-process/src/dummy/simpleipc.inc
@@ -0,0 +1,13 @@
+{
+  dummy simpleipc.inc
+}
+
+Function TSimpleIPCServer.CommClass : TIPCServerCommClass;
+begin
+  Result:=nil;
+end;
+
+function TSimpleIPCClient.CommClass: TIPCClientCommClass;
+begin
+  Result:=nil;
+end;
diff --git a/packages/fcl-process/src/haiku/pipes.inc b/packages/fcl-process/src/haiku/pipes.inc
deleted file mode 100644
index 9e0a292569..0000000000
--- a/packages/fcl-process/src/haiku/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt
-
-    DOS/go32v2 specific part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// No pipes under beos, sorry...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
-
-begin
-  Result := False;
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  Result := 0;
-end;
-
diff --git a/packages/fcl-process/src/morphos/pipes.inc b/packages/fcl-process/src/morphos/pipes.inc
deleted file mode 100644
index dc35fb365c..0000000000
--- a/packages/fcl-process/src/morphos/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt
-
-    AmigaOS specific part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// Unsupported for the moment...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : Longint) : Boolean;
-
-begin
-  Result := False;
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  Result := 0;
-end;
-
diff --git a/packages/fcl-process/src/morphos/process.inc b/packages/fcl-process/src/morphos/process.inc
deleted file mode 100644
index 74f9c2fe50..0000000000
--- a/packages/fcl-process/src/morphos/process.inc
+++ /dev/null
@@ -1,42 +0,0 @@
-{
-  Dummy process.inc
-}
-
-procedure TProcess.CloseProcessHandles;
-begin
-end;
-
-Function TProcess.PeekExitStatus : Boolean;
-begin
-end;
-
-Procedure TProcess.Execute;
-begin
-end;
-
-Function TProcess.WaitOnExit : Boolean;
-begin
-  Result:=False;
-end;
-
-Function TProcess.Suspend : Longint;
-begin
-  Result:=0;
-end;
-
-Function TProcess.Resume : LongInt;
-
-begin
-  Result:=0;
-end;
-
-Function TProcess.Terminate(AExitCode : Integer) : Boolean;
-begin
-  Result:=False;
-end;
-
-Procedure TProcess.SetShowWindow (Value : TShowWindowOptions);
-begin
-end;
-
-
diff --git a/packages/fcl-process/src/netware/pipes.inc b/packages/fcl-process/src/netware/pipes.inc
deleted file mode 100644
index 4a031d52a5..0000000000
--- a/packages/fcl-process/src/netware/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2000 by Michael Van Canneyt
-
-    Netware specific part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// Unsupported for the moment...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
-
-begin
-  Result := false;  {dont know how to do that with netware clib}
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  Result := 0;
-end;
-
diff --git a/packages/fcl-process/src/netware/process.inc b/packages/fcl-process/src/netware/process.inc
deleted file mode 100644
index 74f9c2fe50..0000000000
--- a/packages/fcl-process/src/netware/process.inc
+++ /dev/null
@@ -1,42 +0,0 @@
-{
-  Dummy process.inc
-}
-
-procedure TProcess.CloseProcessHandles;
-begin
-end;
-
-Function TProcess.PeekExitStatus : Boolean;
-begin
-end;
-
-Procedure TProcess.Execute;
-begin
-end;
-
-Function TProcess.WaitOnExit : Boolean;
-begin
-  Result:=False;
-end;
-
-Function TProcess.Suspend : Longint;
-begin
-  Result:=0;
-end;
-
-Function TProcess.Resume : LongInt;
-
-begin
-  Result:=0;
-end;
-
-Function TProcess.Terminate(AExitCode : Integer) : Boolean;
-begin
-  Result:=False;
-end;
-
-Procedure TProcess.SetShowWindow (Value : TShowWindowOptions);
-begin
-end;
-
-
diff --git a/packages/fcl-process/src/netwlibc/pipes.inc b/packages/fcl-process/src/netwlibc/pipes.inc
deleted file mode 100644
index fd8b9b6115..0000000000
--- a/packages/fcl-process/src/netwlibc/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1999-2004 by Michael Van Canneyt
-
-    Netware specific part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// Unsupported for the moment...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
-
-begin
-  Result := false;  {todo}
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  Result := 0;
-end;
-
diff --git a/packages/fcl-process/src/netwlibc/process.inc b/packages/fcl-process/src/netwlibc/process.inc
deleted file mode 100644
index 74f9c2fe50..0000000000
--- a/packages/fcl-process/src/netwlibc/process.inc
+++ /dev/null
@@ -1,42 +0,0 @@
-{
-  Dummy process.inc
-}
-
-procedure TProcess.CloseProcessHandles;
-begin
-end;
-
-Function TProcess.PeekExitStatus : Boolean;
-begin
-end;
-
-Procedure TProcess.Execute;
-begin
-end;
-
-Function TProcess.WaitOnExit : Boolean;
-begin
-  Result:=False;
-end;
-
-Function TProcess.Suspend : Longint;
-begin
-  Result:=0;
-end;
-
-Function TProcess.Resume : LongInt;
-
-begin
-  Result:=0;
-end;
-
-Function TProcess.Terminate(AExitCode : Integer) : Boolean;
-begin
-  Result:=False;
-end;
-
-Procedure TProcess.SetShowWindow (Value : TShowWindowOptions);
-begin
-end;
-
-
diff --git a/packages/fcl-process/src/os2/process.inc b/packages/fcl-process/src/os2/process.inc
deleted file mode 100644
index 74f9c2fe50..0000000000
--- a/packages/fcl-process/src/os2/process.inc
+++ /dev/null
@@ -1,42 +0,0 @@
-{
-  Dummy process.inc
-}
-
-procedure TProcess.CloseProcessHandles;
-begin
-end;
-
-Function TProcess.PeekExitStatus : Boolean;
-begin
-end;
-
-Procedure TProcess.Execute;
-begin
-end;
-
-Function TProcess.WaitOnExit : Boolean;
-begin
-  Result:=False;
-end;
-
-Function TProcess.Suspend : Longint;
-begin
-  Result:=0;
-end;
-
-Function TProcess.Resume : LongInt;
-
-begin
-  Result:=0;
-end;
-
-Function TProcess.Terminate(AExitCode : Integer) : Boolean;
-begin
-  Result:=False;
-end;
-
-Procedure TProcess.SetShowWindow (Value : TShowWindowOptions);
-begin
-end;
-
-
diff --git a/packages/fcl-process/src/wince/pipes.inc b/packages/fcl-process/src/wince/pipes.inc
deleted file mode 100644
index af26fb8b63..0000000000
--- a/packages/fcl-process/src/wince/pipes.inc
+++ /dev/null
@@ -1,30 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 1998 by Michael Van Canneyt
-
-    Win32 part of pipe stream.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    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.
-
- **********************************************************************}
-
-// Unsupported for the moment...
-
-Function CreatePipeHandles (Var Inhandle,OutHandle : THandle) : Boolean;
-begin
-  Result := False;
-end;
-
-
-Function TInputPipeStream.GetNumBytesAvailable: DWord;
-
-begin
-  // Windows CE doesn´t have the API function PeekNamedPipe
-  Result := 0;
-end;
-