From 2d7dbacee0c9b70917814a52d93c0b486e2f7167 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 9 Dec 2011 16:05:35 +0000
Subject: [PATCH] * Added inotify calls

git-svn-id: trunk@19788 -
---
 rtl/linux/linux.pp | 92 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 92 insertions(+)

diff --git a/rtl/linux/linux.pp b/rtl/linux/linux.pp
index 099471e94f..d6624af582 100644
--- a/rtl/linux/linux.pp
+++ b/rtl/linux/linux.pp
@@ -353,6 +353,73 @@ const
 function sync_file_range(fd: cInt; offset, nbytes: off64_t; flags: cuInt): cInt; {$ifdef FPC_USE_LIBC} cdecl; external name 'sync_file_range'; {$ENDIF}
 function fdatasync (fd: cint): cint; {$ifdef FPC_USE_LIBC} cdecl; external name 'sync_file_range'; {$ENDIF}
 
+{$PACKRECORDS 1}
+
+  { Flags for the parameter of inotify_init1.   }
+
+Const
+  IN_CLOEXEC  = &02000000;
+  IN_NONBLOCK = &00004000;
+
+Type
+  inotify_event = record
+    wd     : cint;
+    mask   : cuint32;
+    cookie : cuint32;
+    len    : cuint32;
+    name   : char;
+  end;
+  Pinotify_event = ^inotify_event;
+
+  { Supported events suitable for MASK parameter of INOTIFY_ADD_WATCH.   }
+
+  const
+    IN_ACCESS        = $00000001;     { File was accessed.   }
+    IN_MODIFY        = $00000002;     { File was modified.   }
+    IN_ATTRIB        = $00000004;     { Metadata changed.   }
+    IN_CLOSE_WRITE   = $00000008;     { Writtable file was closed.   }
+    IN_CLOSE_NOWRITE = $00000010;     { Unwrittable file closed.   }
+    IN_OPEN          = $00000020;     { File was opened.   }
+    IN_MOVED_FROM    = $00000040;     { File was moved from X.   }
+    IN_MOVED_TO      = $00000080;     { File was moved to Y.   }
+    
+    IN_CLOSE         = IN_CLOSE_WRITE or IN_CLOSE_NOWRITE;      { Close.   }
+    IN_MOVE          = IN_MOVED_FROM or IN_MOVED_TO;      { Moves.   }
+
+    IN_CREATE        = $00000100;     { Subfile was created.   }
+    IN_DELETE        = $00000200;     { Subfile was deleted.   }
+    IN_DELETE_SELF   = $00000400;     { Self was deleted.   }
+    IN_MOVE_SELF     = $00000800;     { Self was moved.   }
+
+  { Events sent by the kernel.   }
+    IN_UNMOUNT       = $00002000;     { Backing fs was unmounted.   }
+    IN_Q_OVERFLOW    = $00004000;     { Event queued overflowed.   }
+    IN_IGNORED       = $00008000;     { File was ignored.   }
+
+  { Special flags.   }
+    IN_ONLYDIR       = $01000000;     { Only watch the path if it is a directory.   }
+    IN_DONT_FOLLOW   = $02000000;     { Do not follow a sym link.   }
+    IN_MASK_ADD      = $20000000;     { Add to the mask of an already  existing watch.   }
+    IN_ISDIR         = $40000000;     { Event occurred against dir.   }
+    IN_ONESHOT       = $80000000;     { Only send event once.   }
+
+  { All events which a program can wait on.   }
+    IN_ALL_EVENTS = IN_ACCESS or IN_MODIFY or IN_ATTRIB or IN_CLOSE 
+                    or IN_OPEN or IN_MOVE or IN_CREATE or IN_DELETE 
+                    or IN_DELETE_SELF or IN_MOVE_SELF;    
+                    
+{ Create and initialize inotify instance.   }
+function inotify_init: cint;
+{ Create and initialize inotify instance.   }
+function inotify_init1(flags:cint):cint;
+
+{ Add watch of object NAME to inotify instance FD.  
+  Notify about events specified by MASK.   }
+function inotify_add_watch(fd:cint; name:Pchar; mask:cuint32):cint;
+
+{ Remove the watch specified by WD from the inotify instance FD.   }
+function inotify_rm_watch(fd:cint; wd: cint):cint;
+
 implementation
 
 
@@ -577,4 +644,29 @@ begin
   FUTEX_OP := ((op and $F) shl 28) or ((cmp and $F) shl 24) or ((oparg and $FFF) shl 12) or (cmparg and $FFF);
 end;
 
+
+function inotify_init:cint;
+
+begin
+  inotify_init:=inotify_init1(0);
+end;
+
+function inotify_init1(flags:cint):cint;
+
+begin
+  inotify_init1:=do_SysCall(syscall_nr_inotify_init,tsysparam(flags));
+end;
+
+function inotify_add_watch(fd:cint; name:Pchar; mask:cuint32):cint;
+
+begin
+  inotify_add_watch:=do_SysCall(syscall_nr_inotify_add_watch,tsysparam(fd),tsysparam(name),tsysparam(mask));
+end;
+
+function inotify_rm_watch(fd:cint; wd:cint):cint;
+
+begin
+  inotify_rm_watch:=do_SysCall(syscall_nr_inotify_rm_watch,tsysparam(fd),tsysparam(wd));
+end;
+
 end.