Changeset 61 for branches/home/psmith/restructure/src
- Timestamp:
- 01/30/07 06:27:51 (18 years ago)
- Location:
- branches/home/psmith/restructure/src/nio-logger
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
TabularUnified branches/home/psmith/restructure/src/nio-logger/nio-logger.asd ¶
r60 r61 9 9 ) 10 10 11 :depends-on (:nio-yarpc ))11 :depends-on (:nio-yarpc :nio-utils)) 12 12 -
TabularUnified branches/home/psmith/restructure/src/nio-logger/nio-logger.lisp ¶
r60 r61 40 40 (with-open-file (in filename :direction :input) 41 41 (loop for text = (read-line in nil nil) do 42 (let ((rpc (format nil "(nio-logger: log +log-file-name+ ~A" text)))42 (let ((rpc (format nil "(nio-logger:remote-log \"~A\")" text))) 43 43 (nio-utils:format-log t "Toplevel Submitting job~A~%" rpc) 44 44 (nio-utils:format-log t "Result of remote-log ~A~%" (nio-yarpc:remote-execute sm rpc))))))) 45 45 46 46 ;Runs a multithreaded system with an IO thread dealing with IO only and a 'job' thread taking and executing jobs 47 48 (defparameter +log-file-name+ "/tmp/out") 47 49 48 50 (defun run-logging-server() … … 54 56 (nio-yarpc:run-job))) 55 57 56 (nio-yarpc:defremote remote-log(destination control-string &rest format-arguments) 57 (format-log destination control-string format-arguments)) 58 (nio-yarpc:defremote remote-log(str) 59 (with-open-file (out +log-file-name+ :direction :output :if-exists :append) 60 (nio-utils:format-log out "~A~%" str))) -
TabularUnified branches/home/psmith/restructure/src/nio-logger/run-logging-client.lisp ¶
r60 r61 28 28 (push :nio-debug *features*) 29 29 (require :asdf) 30 (require :nio- yarpc)31 (nio-logger:tail-log )30 (require :nio-logger) 31 (nio-logger:tail-log "/tmp/test" "127.0.0.1") -
TabularUnified branches/home/psmith/restructure/src/nio-logger/run-logging-server.lisp ¶
r60 r61 28 28 (push :nio-debug *features*) 29 29 (require :asdf) 30 (require :nio- yarpc)30 (require :nio-logger) 31 31 (nio-logger:run-logging-server)
Note: See TracChangeset
for help on using the changeset viewer.