From 607b9486a81ed6cb65d30227aeecea3412bd1ccd Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sat, 20 Apr 2024 03:18:46 +0200
Subject: restructure: have "tickets" independent of gtfs

this is mostly meant to guard against the gtfs changing under
tracktrain, and not yet complete (e.g. a ticket does not yet save its
expected stops, which it probably should).
---
 tools/obu-guess-trip | 7 +++++--
 tools/obu-state.edn  | 2 +-
 2 files changed, 6 insertions(+), 3 deletions(-)

(limited to 'tools')

diff --git a/tools/obu-guess-trip b/tools/obu-guess-trip
index b9264f6..32aa6d4 100755
--- a/tools/obu-guess-trip
+++ b/tools/obu-guess-trip
@@ -44,8 +44,9 @@ Arguments:
   (define pos
     (with-input-from-process `(obu-ping -s ,statefile -n 1 -d) read))
   (define guessed
-    (closest-stop-to stops pos))
+   (closest-stop-to stops pos))
   (define trip (assoc-ref guessed 'trip))
+  (display stops)
   (do-process `(obu-config -s ,statefile sequencelength ,(assoc-ref guessed 'sequencelength)))
   (display trip))
 
@@ -68,7 +69,7 @@ Arguments:
   (define day (date->string (current-date) "~1"))
   (define tls
     (equal? (uri-ref url 'scheme) "https"))
-  (parameterize
+  (define thing (parameterize
       ; replace all json keys with symbols; everything else is confusing
       ([json-object-handler
         (cut map (lambda p `(,(string->symbol (car (car p))) . ,(cdr (car p)))) <>)])
@@ -76,3 +77,5 @@ Arguments:
      (values-ref (http-get (uri-ref url 'host+port)
                            (format "/api/timetable/stops/~a" day)
                            :secure tls) 2))))
+  (display thing)
+  thing)
diff --git a/tools/obu-state.edn b/tools/obu-state.edn
index db989c8..b0c4b0e 100644
--- a/tools/obu-state.edn
+++ b/tools/obu-state.edn
@@ -1 +1 @@
-{token "5ab95c26-367e-40fc-8d3e-2956af6f61e4"}
\ No newline at end of file
+{sequencelength "#f"}
\ No newline at end of file
-- 
cgit v1.2.3