From 9c46df53ad401e060664aafe8fdfbcb9a3da5731 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Sun, 26 Dec 2021 17:13:33 +0100
Subject: Initial commit.

---
 src/Struct/Flags.elm | 43 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)
 create mode 100644 src/Struct/Flags.elm

(limited to 'src/Struct/Flags.elm')

diff --git a/src/Struct/Flags.elm b/src/Struct/Flags.elm
new file mode 100644
index 0000000..43fc7c2
--- /dev/null
+++ b/src/Struct/Flags.elm
@@ -0,0 +1,43 @@
+module Struct.Flags exposing
+   (
+      Type,
+      force_get_parameter,
+      get_parameters_as_url
+   )
+
+-- Elm -------------------------------------------------------------------------
+import List
+
+--------------------------------------------------------------------------------
+-- TYPES -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+type alias Type =
+   {
+      url_parameters : (List (List String))
+   }
+
+--------------------------------------------------------------------------------
+-- LOCAL -----------------------------------------------------------------------
+--------------------------------------------------------------------------------
+parameter_as_url : (List String) -> String
+parameter_as_url parameter =
+   case parameter of
+      [name, value] -> (name ++ "=" ++ value)
+      _ -> ""
+
+--------------------------------------------------------------------------------
+-- EXPORTED --------------------------------------------------------------------
+--------------------------------------------------------------------------------
+force_get_parameter : String -> Type -> String
+force_get_parameter parameter flags = ""
+   -- TODO: implement using Tactician Online's, but without Shared.Util.List
+
+get_parameters_as_url : Type -> String
+get_parameters_as_url flags =
+   (List.foldl
+      (\parameter -> \current_parameters ->
+         (current_parameters ++ "&" ++ (parameter_as_url parameter))
+      )
+      ""
+      flags.url_parameters
+   )
-- 
cgit v1.2.3-70-g09d2