KMRCLを眺める(231) SIGNAL-KEY-TO-NUMBER — #:g1

Posted 2011-01-03 12:58:00 GMT

strmatch.lispも眺め終えたので、今回はKMRCLのsignals.lispから、SIGNAL-KEY-TO-NUMBERです。
signals.lispはPOSIXのシグナル関係の処理系依存のところを纏めたもののようです。
SIGNAL-KEY-TO-NUMBERは、名前のとおりシグナルの名前から番号に変換するもので定義は、

(defun signal-key-to-number (sig)
  "These signals and numbers are only valid on POSIX systems, perhaps
some are Linux-specific."
  (case sig
    (:hup 1)
    (:int 2)
    (:quit 3)
    (:kill 9)
    (:usr1 10)
    (:usr2 12)
    (:pipe 13)
    (:alrm 14)
    (:term 15)
    (t
     (error "Signal ~A not known." sig))))
となっています。
動作は、
(kl::signal-key-to-number :usr1)
;=> 10
というところ

comments powered by Disqus