From 95030cd0346623e1a0167abea33c42c3322cf37a Mon Sep 17 00:00:00 2001
From: Clint Adams <clint@users.sourceforge.net>
Date: Sun, 28 Sep 2003 16:26:58 +0000
Subject: 19151: Src/Modules/datetime.c: add $SECS parameter for seconds since
 epoch.

---
 Src/Modules/datetime.c | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to 'Src/Modules/datetime.c')

diff --git a/Src/Modules/datetime.c b/Src/Modules/datetime.c
index e43f12b24..d10274f0d 100644
--- a/Src/Modules/datetime.c
+++ b/Src/Modules/datetime.c
@@ -63,10 +63,21 @@ bin_strftime(char *nam, char **argv, Options ops, int func)
     return 0;
 }
 
+static zlong
+getcurrentsecs()
+{
+    return (zlong) time(NULL);
+}
+
 static struct builtin bintab[] = {
     BUILTIN("strftime",    0, bin_strftime,    2,   2, 0, NULL, NULL),
 };
 
+static struct paramdef patab[] = {
+    PARAMDEF("SECS", PM_INTEGER|PM_SPECIAL|PM_READONLY,
+		    NULL, NULL, &getcurrentsecs, NULL),
+};
+
 /**/
 int
 setup_(Module m)
@@ -78,7 +89,9 @@ setup_(Module m)
 int
 boot_(Module m)
 {
-    return !addbuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab));
+    return !(addbuiltins(m->nam, bintab, sizeof(bintab)/sizeof(*bintab)) |
+	     addparamdefs(m->nam, patab, sizeof(patab)/sizeof(*patab))
+	    );
 }
 
 /**/
-- 
cgit 1.4.1