grep, there is no question you're talking about grep. grep is grep, it has a unique name and there is no room confusion.
multiple-value-bind. It was very easy to type and didn't waste me much time.
(cffi:defcenum inotify-mask
(:IN_ACCESS #16r1)
(:IN_MODIFY #16r2)
(:IN_ATTRIB #16r4)
(:IN_CLOSE_WRITE #16r8)
(:IN_CLOSE_NOWRITE #16r10)
; (:IN_CLOSE #16r18) ; 0x8 | 0x10
(:IN_OPEN #16r20)
(:IN_MOVED_FROM #16r40)
(:IN_MOVED_TO #16r80)
; (:IN_MOVE #16r40 #16r80) ; 0x40 | 0x80
(:IN_CREATE #16r100)
(:IN_DELETE #16r200)
(:IN_DELETE_SELF #16r400)
(:IN_MOVE_SELF #16r800)
(:IN_UNMOUNT #16r2000)
(:IN_Q_OVERFLOW #16r4000)
(:IN_IGNORED #16r8000)
(:IN_ONLY_DIR #16r1000000)
(:IN_DONT_FOLLOW #16r2000000)
(:IN_MASK_ADD #16r20000000)
(:IN_ISDIR #16r40000000)
(:IN_ONESHOT #16r80000000)
(:IN_ALL_EVENTS #16rFFFFFFFF))
(cffi:defctype uint32_t :unsigned-int)
(cffi:defcfun "inotify_init1" :int
(flags :int))
(cffi:defcfun "inotify_add_watch" :int
(fd :int) (pathname :string) (mask inotify-mask))
(cffi:defcfun "inotify_rm_watch" :int
(fd :int) (wd uint32_t))
(defconstant +INOTIFY-MEMORY+ 256)
(defclass inotify ()
((inotify-instance
:initform (let ((x (inotify-init1 0)))
(if (= x -1)
(error "inotify-init1")
x))
:reader inotify-instance
:documentation "Inotify instance file descriptor")
(inotify-table
:initform (make-hash-table)
:initarg :table
:reader inotify-table
:documentation "Hash table that pathname->wd entries are stored")))
(defmacro with-inotify-instance ((name &optional (flags 0)) &body body)
`(let ((,name (make-instance 'inotify)))
(unwind-protect
(progn ,@body)
(cffi:foreign-funcall "close"
:int (inotify-instance ,name)))))
(defun inotify-add (inotify file-or-dir events)
"Add or modify file-or-dir to watch list"
(let ((watch-descriptor (inotify-add-watch (inotify-instance inotify)
file-or-dir events)))
(setf (gethash file-or-dir (inotify-table inotify))
watch-descriptor)))
(defun inotify-remove (inotify file-or-dir)
(multiple-value-bind (watch-descriptor bool)
(gethash file-or-dir
(inotify-table inotify))
(when bool
(inotify-rm-watch (inotify-instance inotify)
watch-descriptor))))
(defun inotify-parse-event (event)
"Parse event from foreign pointer to lisp data"
(let* ((watch-descriptor (cffi:mem-aref event :int))
(mask (cffi:mem-aref event :unsigned-int 1))
(pointer-name (cffi:mem-aref event :pointer 4)))
(list watch-descriptor mask pointer-name)))
(defun inotify-event (inotify)
"Read event from inotify object"
(cffi:with-foreign-pointer (pointer +INOTIFY-MEMORY+)
(if (< 0 (cffi:foreign-funcall "read"
:int (inotify-instance inotify)
:pointer pointer
:unsigned-int +INOTIFY-MEMORY+
:int))
(inotify-parse-event pointer))))sizeof(struct inotify_event) + NAME_MAX + 1 (16 + 255 + 1 for me).
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
#include <time.h>
#include <unistd.h>
#include <sys/inotify.h>
/*
struct inotify_event {
int wd; // Watch descriptor
uint32_t mask; // Mask of events
uint32_t cookie; // Unique cookie associating related
events (for rename(2))
uint32_t len; // Size of name field
char name[]; // Optional null-terminated name
};
*/
#define WRITE_LOG "inotify.log"
int main(int argc, char **argv) {
int *pfd, watch_fd[10], i, iev = inotify_init();
struct inotify_event *s;
size_t sn = sizeof *s + FILENAME_MAX; /* should be path max */
ssize_t n;
FILE *log;
clock_t t;
if(iev == -1) {
perror("inotify_init");
exit(EXIT_FAILURE);
}
s = malloc(sn);
if(s == NULL) {
perror("malloc");
exit(EXIT_FAILURE);
}
for(pfd = watch_fd, i = 1; i < argc; i++) {
*pfd = inotify_add_watch(iev, argv[i], IN_ACCESS | IN_DELETE);
if(*pfd == -1)
perror("inotify_add_watch");
else pfd++;
}
i = pfd - watch_fd;
#ifdef DEBUG
// BUG: Duplicate filenames report additions
printf("%d added to watch list\n", i);
#endif
log = fopen(WRITE_LOG, "w");
if(log == NULL) log = stdout;
/*
{
perror(WRITE_LOG);
free(s);
exit(EXIT_FAILURE);
}
*/
while((n = read(iev, s, sn)) > 0) {
t = clock();
fprintf(log, "%s occured in %d at %s!\n", s->mask == IN_ACCESS ?
"ACCESS" : "DELETION", s->wd, ctime(&t));
fflush(log);
}
free(s);
close(iev);
return 0;
}
main() function if you want to be a pedantic little shit. it's not a fully fledged program, you fucking moron, did you not notice that with your head shoved so far up your anus?setuid(whatever);
chdir(whatever);
execvl(whatever, whatever)create_process(NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 24, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, "\\some\\directory",NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, 180);(define (square x)
(* x x))
(define (abs x)
(cond ((< x 0) (- x))
(else x)))
(define (average x y)
(/ ( + x y) 2))
(define (factorial n)
(fact-iter 1 1 n))
(define (fact-iter product counter max-count)
(if (> counter max-count)
product
(fact-iter (* counter product)
(+ counter 1)
max-count)))
(define (sqrt x)
(define (good-enough? guess)
(< (abs (- (square guess) x)) 0.001))
(define (improve guess)
(average guess (/ x guess)))
(define (sqrt-iter guess)
(if (good-enough? guess)
guess
(sqrt-iter (improve guess))))
(sqrt-iter 1.0))