Ignore:
Timestamp:
01/30/07 06:27:51 (18 years ago)
Author:
psmith
Message:

first working logger

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  
    99                 )
    1010
    11     :depends-on (:nio-yarpc))
     11    :depends-on (:nio-yarpc :nio-utils))
    1212
  • TabularUnified branches/home/psmith/restructure/src/nio-logger/nio-logger.lisp

    r60 r61  
    4040    (with-open-file (in filename :direction :input)
    4141      (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)))
    4343          (nio-utils:format-log t "Toplevel Submitting job~A~%" rpc)
    4444          (nio-utils:format-log t "Result of remote-log ~A~%" (nio-yarpc:remote-execute sm rpc)))))))
    4545
    4646;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")
    4749
    4850(defun run-logging-server()
     
    5456     (nio-yarpc:run-job)))
    5557
    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  
    2828(push :nio-debug *features*)
    2929(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  
    2828(push :nio-debug *features*)
    2929(require :asdf)
    30 (require :nio-yarpc)
     30(require :nio-logger)
    3131(nio-logger:run-logging-server)
Note: See TracChangeset for help on using the changeset viewer.