From 2bb863c301be7277c42c6f88a29ed71b9aabbcba Mon Sep 17 00:00:00 2001 From: florian Date: Mon, 19 May 2008 17:33:35 +0000 Subject: =?UTF-8?q?+=20Haiku=20support=20by=20Olivier=20Coursi=C3=A8re=20b?= =?UTF-8?q?ased=20on=20old=20BeOS=20support?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@11014 3ad0048d-3df7-0310-abae-a5850022a9f2 --- packages/fcl-process/Makefile.fpc | 3 +++ packages/fcl-process/src/haiku/pipes.inc | 30 ++++++++++++++++++++++++++++++ 2 files changed, 33 insertions(+) create mode 100644 packages/fcl-process/src/haiku/pipes.inc (limited to 'packages/fcl-process') 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; + -- cgit v1.2.1