example 'meshtastic': send phone GPS position to radio; revisions

examples/meshtastic/lisp/location.lisp

@@ -0,0 +1,41 @@
+(in-package :loc)
+
+(defvar *positions*   nil)
+(defvar *my-position* nil)
+
+(defun ini ()
+  #+android
+  (qt:ini-positioning qt:*cpp*)
+  #+mobile
+  (progn
+    (q> |active| ui:*position-source* t)
+    (update-my-position)))
+
+(defun update-my-position ()
+  "Mobile only: update position from GPS of mobile device."
+  (unless (getf *positions* (lora:my-num))
+    (destructuring-bind (lat lon time)
+        #+android
+        (qt:last-position qt:*cpp*)
+        #-android
+        (qjs |lastPosition| ui:*position-source*)
+      (if (zerop lat)
+          (qsingle-shot 1000 'update-my-position)
+          (let ((pos (list :lat lat
+                           :lon lon
+                           :time (if (zerop (length time)) 0 (parse-integer time)))))
+            (setf *my-position* pos)
+            (qlog "position-updated: ~A" pos)
+            (set-position (lora:my-num) pos)
+            (send-to-radio)))))) ; just once on startup (for now)
+
+(defun send-to-radio ()
+  (if lora:*config-complete*
+      (lora:send-position *my-position*)
+      (qsingle-shot 1000 'send-to-radio)))
+
+(defun set-position (node pos)
+  (let ((lat (getf pos :lat)))
+    (when (and node lat (not (zerop lat)))
+      (setf (getf *positions* node) pos))))
+