;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/terror-3/ev3-sensor-init.el

(require 'cl-lib)
(require 'ev3-base)
(require 'ev3-color)
(require 'ev3-ir)
(require 'ev3-touch)
(require 'file-write-to)

(defun sensor-init-check ()
  (message "color-path:  %s" color-path)
  (message "ir-path:     %s" ir-path)
  (message "touch-file:  %s" touch-file) )

(defun sensor-init ()
  (cl-loop for i from 0 to 2 do
    (let*((path      (format "%s/lego-sensor/sensor%d" ev3-base-path i))
          (type-file (concat path "/driver_name"))
          (type      (file-to-string type-file)) )
      (if (string= type "lego-ev3-touch")
          (setq touch-file (format "%s/value0" path))
        (if (string= type "lego-ev3-color")
            (setq color-path path)
          (when (string= type "lego-ev3-ir")
            (setq ir-path path) )))))
  (color-init)
  (ir-init)
  (sensor-init-check) )

(provide 'ev3-sensor-init)