From bafd71344d2d2c1523b0f3a34ac238a59fb46d27 Mon Sep 17 00:00:00 2001
From: Christian Hesse <mail@eworm.de>
Date: Wed, 10 May 2023 13:44:11 +0200
Subject: global-functions: introduce $ParseDate

The extra indention is intended for a later change.
---
 global-functions.rsc | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/global-functions.rsc b/global-functions.rsc
index 4ec5857..fa8b767 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -45,6 +45,7 @@
 :global LogPrintExit2;
 :global MkDir;
 :global NotificationFunctions;
+:global ParseDate;
 :global ParseKeyValueStore;
 :global PrettyPrint;
 :global RandomDelay;
@@ -682,6 +683,18 @@
   :set NotificationFunctions ({});
 }
 
+# parse the date and return a named array
+:set ParseDate do={
+  :local Date [ :tostr $1 ];
+
+    :local Months { "jan"=1; "feb"=2; "mar"=3; "apr"=4; "may"=5; "jun"=6;
+                    "jul"=7; "aug"=8; "sep"=9; "oct"=10; "nov"=11; "dec"=12 };
+
+    :return ({ "year"=[ :tonum [ :pick $Date 7 11 ] ];
+              "month"=($Months->[ :pick $Date 0 3 ]);
+                "day"=[ :tonum [ :pick $Date 4 6 ] ] });
+}
+
 # parse key value store
 :set ParseKeyValueStore do={
   :local Source $1;
-- 
cgit v1.2.3-54-g00ecf