Changeset 1362

Show
Ignore:
Timestamp:
03/02/05 18:55:08 (4 years ago)
Author:
hans
Message:

Beamer-Fernsteuerung fuer's Foyer

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/raw-data/mcp/config.lisp

    r1286 r1362  
    4949(defparameter *event-listener-port* 2210) 
    5050 
     51;; beamer switcher 
     52(defparameter *beamer-switcher-port* 3921) 
     53 
    5154;; cleaner 
    5255(defparameter *cleaner-period* (* 60 30)) 

  • trunk/raw-data/mcp/mcp.lisp

    r1286 r1362  
    1414                                    panel-flasher 
    1515                                    script-executor 
    16                                     mcp-cleaner)) 
     16                                    mcp-cleaner 
     17                                    beamer-switcher)) 
    1718(defvar *mcp-actors* nil) 
    1819 

  • trunk/raw-data/mcp/packages.lisp

    r1328 r1362  
    2222           *panel-port* 
    2323           *player-listener-port* 
     24           *beamer-switcher-port* 
    2425           *event-listener-port* 
    2526           *sensor-check-stale-time* 
    …… 
    173174  (:export event-listener)) 
    174175 
     176(defpackage :mcp.beamer-switcher 
     177  (:use :cl 
     178        :cl-ppcre 
     179        :mcp.tcp-listener 
     180        :mcp.config 
     181        :mcp.sensors 
     182        :bknr.events 
     183        :bknr.utils) 
     184  (:export beamer-switcher)) 
     185 
    175186(defpackage :mcp.sensor-listener 
    176187  (:use :cl 
    …… 
    285296        :mcp.panel-script 
    286297        :mcp.panel-flasher 
     298        :mcp.beamer-switcher 
    287299        :mcp.sensors.sniffer) 
    288300  (:shadowing-import-from :cl-interpol quote-meta-chars) 

  • trunk/raw-data/mcp/panel-listener.lisp

    r1328 r1362  
    3333  (dolist (command (panel-commands panel)) 
    3434    (reply panel command) 
    35     (mp:with-timeout (5 (error "panel ~A failed to respond to command ~S" panel command)) 
     35    (mp:with-timeout (15 (error "panel ~A failed to respond to command ~S" panel command)) 
    3636      (format t "; ~A command ~S reply: ~S~%" panel command (read-command panel))))) 
    3737 
    …… 
    4848              (push panel *all-panels*)) 
    4949            (format t "; new panel identified as ~A~%" name))) 
     50        (sleep 5) 
     51        (setf (panel-commands panel) '("panel top:text:clear" 
     52                                       "panel bottom:text:clear")) 
    5053        (loop (mp:process-wait "Waiting for commands" #'panel-commands panel) 
    5154              (panel-execute-commands panel)