From 5e84d37b2db6b95a4f8781f6984961fb07d07edb Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Thu, 9 Feb 2006 15:17:29 +0000
Subject: [PATCH] + flock implemented in pascal

git-svn-id: trunk@2499 -
---
 rtl/solaris/unxfunc.inc | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/rtl/solaris/unxfunc.inc b/rtl/solaris/unxfunc.inc
index 1fc9cff21e..3ce9a982be 100644
--- a/rtl/solaris/unxfunc.inc
+++ b/rtl/solaris/unxfunc.inc
@@ -70,5 +70,44 @@ end;
 
 
 Function fpFlock (fd,mode : longint) : cint;
+{
+  var
+    fl : flock;
+    cmd : cint;
+}
   begin
+{
+	  { initialize the flock struct to set lock on entire file }
+    fillchar(fl,sizeof(fl),0);
+
+		{ In non-blocking lock, use F_SETLK for cmd, F_SETLKW otherwise }
+		if (operation and LOCK_NB)<>0 then
+		  begin
+			  cmd:=F_SETLK;
+			  { turn off this bit }
+			  operation:=operation and not(LOCK_NB);	
+			end
+		else
+			cmd:=F_SETLKW;
+	
+		case operation of
+		  LOCK_UN:
+			  fl.l_type:=fl.l_type or F_UNLCK;
+  		LOCK_SH:
+			  fl.l_type:=fl.l_type or F_RDLCK;
+		  LOCK_EX:
+			  fl.l_type:=fl.l_type or F_WRLCK;
+		  else
+		    begin
+			    errno:=EINVAL;
+			    result:=-1
+			    exit;
+			  end;
+		end;
+	
+		result:=fpFcntl(fd,cmd,@fl);
+	
+		if (result=-1) and (errno=EACCES)
+			errno:=EWOULDBLOCK;
+}
   end;
\ No newline at end of file