Changeset 9387 in project


Ignore:
Timestamp:
03/09/08 20:11:55 (12 years ago)
Author:
sjamaan
Message:

Change to a threaded example in the wmiirc docs

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/wmiirc

    r8663 r9387  
    557557
    558558(define status
    559   (let ((status-pid #f))
     559  (let ((status-thread #f))
    560560    (lambda ()
    561       (and status-pid (process-signal status-pid))
    562       (set! status-pid
    563             (process-fork
    564              (lambda ()
    565                (wmii:connect)
    566                (let loop ()
    567                  (wmii:write-tab "rbar" "status"
    568                                  (with-input-from-pipe "echo -n $(uptime | sed 's/.*://; s/,//g') '|' $(date)" read-string))
    569                  (sleep 1)
    570                  (loop))))))))
     561      (and status-thread (thread-terminate! status-thread))
     562      (set! status-thread
     563            (thread-start!
     564             (make-thread
     565              (lambda ()
     566                (let loop ()
     567                  (wmii:write-tab "rbar" "status"
     568                                  (with-input-from-pipe "echo -n $(uptime | sed 's/.*://; s/,//g') '|' $(date)" read-string))
     569                  (thread-sleep! 1)
     570                  (loop)))))))))
    571571
    572572(wmii:event-handlers-set!
Note: See TracChangeset for help on using the changeset viewer.