+ Haiku support by Olivier Coursière based on old BeOS support

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

2 files changed, 33 insertions, 0 deletions

diff --git a/packages/fcl-process/Makefile.fpc b/packages/fcl-process/Makefile.fpc
index 2e552e3b98..4abdcbe1a1 100644
--- a/packages/fcl-process/Makefile.fpc
+++ b/packages/fcl-process/Makefile.fpc
@@ -9,6 +9,7 @@ version=2.0.0
 [target]
 units=pipes process
 units_beos=simpleipc dbugmsg dbugintf
+units_haiku=simpleipc dbugmsg dbugintf
 units_freebsd=simpleipc dbugmsg dbugintf
 units_darwin=simpleipc dbugmsg dbugintf
 units_solaris=simpleipc dbugmsg dbugintf
@@ -22,6 +23,7 @@ units_qnx=simpleipc dbugmsg dbugintf
 units_os2=simpleipc dbugmsg dbugintf
 units_emx=simpleipc dbugmsg dbugintf
 rsts_beos=process simpleipc
+rsts_haiku=process simpleipc
 rsts_freebsd=process simpleipc
 rsts_darwin=process simpleipc
 rsts_solaris=process simpleipc
@@ -46,6 +48,7 @@ includedir_openbsd=src/unix
 includedir_solaris=src/unix
 includedir_qnx=src/unix
 includedir_beos=src/unix
+includedir_haiku=src/unix
 includedir_emx=src/os2
 includedir_win32=src/win
 includedir_win64=src/win
diff --git a/packages/fcl-process/src/haiku/pipes.inc b/packages/fcl-process/src/haiku/pipes.inc
new file mode 100644
index 0000000000..9e0a292569
--- /dev/null
+++ b/packages/fcl-process/src/haiku/pipes.inc
@@ -0,0 +1,30 @@
+{
+    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;
+