忍者ブログ

LAL 昭和な気まぐれ飛行機

LALのブログです。 http://eisl.kan-be.com/index.html

ISLispとラズパイでLチカ

EISLにラズパイのWiringPIを組み込んでいます。
いくつか関数を追加しました。

まだ、途中ですが、Lチカが動作するようになりました。setupはroot権限がないとエラーになるので

sudo ./eisl

で起動します。

こんなコードになりました。

(defglobal pin 5)
(defglobal flag nil)
(defun test ()
   (cond ((null flag) (wiringpi-setup-gpio)(setq flag t))) 
   (pin-mode pin 'output)
   (for ((i 0 (+ i 1)))
        ((> i 100) t)
        (digital-write pin 1)
        (delay 1000)
        (digital-write pin 0)
        (delay 1000)))

PR

コメント

プロフィール

HN:
笹川
性別:
非公開

P R