2016-11-20 09:33:07 +00:00
|
|
|
#lang syndicate/actor
|
|
|
|
|
|
|
|
(require/activate syndicate/drivers/filesystem)
|
|
|
|
(require racket/file)
|
|
|
|
|
|
|
|
(require (only-in racket/port read-bytes-line-evt))
|
|
|
|
(require (only-in racket/string string-trim string-split))
|
|
|
|
|
|
|
|
(let ((e (read-bytes-line-evt (current-input-port) 'any)))
|
2017-02-15 23:18:19 +00:00
|
|
|
(spawn #:name 'monitor-shell
|
2016-11-20 09:33:07 +00:00
|
|
|
(stop-when (message (inbound (external-event e (list (? eof-object? _)))))
|
|
|
|
(send! (list "close" ?)))
|
|
|
|
(on (message (inbound (external-event e (list (? bytes? $command-bytes)))))
|
|
|
|
(send! (string-split (string-trim (bytes->string/utf-8 command-bytes)))))))
|
|
|
|
|
2017-02-15 23:18:19 +00:00
|
|
|
(spawn #:name 'monitor-opener
|
2016-11-20 09:33:07 +00:00
|
|
|
(on (message (list "open" $name))
|
2017-02-15 23:18:19 +00:00
|
|
|
(spawn #:name (list 'monitor name)
|
2016-11-20 09:33:07 +00:00
|
|
|
(stop-when (message (list "close" name)))
|
|
|
|
(on (asserted (file-content name file->bytes $bs))
|
2016-12-04 04:33:12 +00:00
|
|
|
(log-info "~a: ~v" name bs))))
|
|
|
|
|
|
|
|
;; The driver can track directory "contents" just as well as files.
|
|
|
|
(on (message (list "opendir" $name))
|
2017-02-15 23:18:19 +00:00
|
|
|
(spawn #:name (list 'monitor name)
|
2016-12-04 04:33:12 +00:00
|
|
|
(stop-when (message (list "close" name)))
|
|
|
|
(on (asserted (file-content name directory-list $files))
|
|
|
|
(log-info "~a: ~v" name files)))))
|