From a1f8779a4774e1058c2a1142482bc8fd41fcbe5f Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Thu, 9 Mar 2023 16:49:03 +0100
Subject: testing vdv452 things

---
 vdv-server/Example452.hs | 19 +++++++++++++++++--
 vdv-server/VDV452.hs     |  8 +++-----
 2 files changed, 20 insertions(+), 7 deletions(-)

(limited to 'vdv-server')

diff --git a/vdv-server/Example452.hs b/vdv-server/Example452.hs
index 319500b..51d4a46 100644
--- a/vdv-server/Example452.hs
+++ b/vdv-server/Example452.hs
@@ -10,6 +10,9 @@ import Data.Time (Day, fromGregorian, getCurrentTime, utctDay)
 import Codec.Archive.Zip (Archive)
 
 
+-- TODO: RecHp, MengeFztTyp, OrtHztf, RecUeb, UebFzt, RecUmlauf
+
+
 t993 :: Day -> Vector BasisVerGueltigkeit
 t993 day = [ BasisVerGueltigkeit day 1 ]
 
@@ -26,10 +29,15 @@ t997 = [ MengeOrtTyp 1 OrtHaltestelle "Haltestelle" ]
 
 t253 :: Vector RecOrt
 t253 = [ RecOrt 1 OnrHaltepunkt 10 "Passau Hbf" 10 8000298 "de:09262:156" 0 OrtHaltestelle Nothing "PA" "Passau Hbf" Nothing (Just $ Longitude 13.450776) (Just $ Latitude 48.573632) Nothing Nothing
-       , RecOrt 1 OnrHaltepunkt 11 "Freyung Bf" 11 8002094 "de:09272:4851" 1 OrtHaltestelle Nothing "FR" "Freyung" Nothing (Just $ Longitude 13.548351) (Just $ Latitude 48.802843) Nothing Nothing]
-
+       , RecOrt 1 OnrHaltepunkt 11 "Freyung Bf" 11 8002094 "de:09272:4851" 1 OrtHaltestelle Nothing "FR" "Freyung" Nothing (Just $ Longitude 13.548351) (Just $ Latitude 48.802843) Nothing Nothing
+       ]
 
+t229 :: Vector RecHp
+t229 = [ RecHp 1 OrtHaltestelle 10 10 "Passau Hbf"
+       , RecHp 1 OrtHaltestelle 11 11 "Freyung Bf"]
 
+t293 :: Vector MengeFzgTyp
+t293 = [ MengeFzgTyp 1 1 0 0 0 0 80 30 "irgendein Fahrzeug" 1 "dings" Nothing Nothing Nothing ]
 
 -- mögliche anzeigetexte eines DFI
 t994 :: Vector RecZnr
@@ -62,6 +70,10 @@ t299 = [ RecSel 1 1 OnrHaltepunkt 10 11 OrtHaltestelle 30000 ]
 t282 :: Vector SelFztFeld
 t282 = [ SelFztFeld 1 1 1 OrtHaltestelle 10 11 OrtHaltestelle 3600 ]
 
+t999 :: Vector OrtHztf
+t999 = [ OrtHztf 1 1 OrtHaltestelle 10 60
+       , OrtHztf 1 1 OrtHaltestelle 11 60
+       ]
 
 -- zwei halte für eine fahrt auf linie 13
 t246 :: Vector LidVerlauf
@@ -93,6 +105,8 @@ mkArchive = do
     , ÖPNVTable t998
     , ÖPNVTable t997
     , ÖPNVTable t253
+    , ÖPNVTable t229
+    , ÖPNVTable t293
     , ÖPNVTable t994
     , ÖPNVTable t290
     , ÖPNVTable t348
@@ -101,6 +115,7 @@ mkArchive = do
     , ÖPNVTable t333
     , ÖPNVTable t299
     , ÖPNVTable t282
+    , ÖPNVTable t999
     , ÖPNVTable t246
     , ÖPNVTable t226
     , ÖPNVTable t715
diff --git a/vdv-server/VDV452.hs b/vdv-server/VDV452.hs
index d1b315f..e8840ce 100644
--- a/vdv-server/VDV452.hs
+++ b/vdv-server/VDV452.hs
@@ -299,11 +299,9 @@ data MengeFzgTyp = MengeFzgTyp
   , fzgtypSonderPlatz :: Int
   , fzgtypStrFzgTyp :: Text
   -- ^ kursbezeichnung des fahrzeugtyps
-  -- , fzgtypBatterieTypNr :: Maybe Int
-  -- -- this one is optional, but the others maybe not?
-  -- -- fremdschlüssel MengeBatterieTyp
-  -- , fzgtypVerbrauchDistanz :: Int
-  -- , fzgtypVerbrauchZeit :: Int
+  , fzgtypBatterieTypNr :: Maybe Int
+  , fzgtypVerbrauchDistanz :: Maybe Int
+  , fzgtypVerbrauchZeit :: Maybe Int
   }
 
 instance ÖPNVDatum MengeFzgTyp where
-- 
cgit v1.2.3