Remove time.now and parsetime functions

c/builtins.c

@@ -2,7 +2,6 @@
   Extra femtoLisp builtin functions
 */
 
-#include <sys/time.h>
 #include <sys/types.h>
 
 #include <assert.h>
@@ -20,8 +19,6 @@
 #include "utils.h"
 #include "utf8.h"
 #include "ios.h"
-#include "socket.h"
-#include "timefuncs.h"
 #include "hashing.h"
 #include "htable.h"
 #include "htableh_inc.h"
@@ -336,13 +333,6 @@ static value_t fl_vector_alloc(value_t *args, uint32_t nargs)
     return v;
 }
 
-static value_t fl_time_now(value_t *args, uint32_t nargs)
-{
-    argcount("time.now", nargs, 0);
-    (void)args;
-    return mk_double(clock_now());
-}
-
 static double todouble(value_t a, char *fname)
 {
     if (isfixnum(a))
@@ -520,8 +510,6 @@ static struct builtinspec builtin_info[] = {
 
     { "vector.alloc", fl_vector_alloc },
 
-    { "time.now", fl_time_now },
-
     { "rand", fl_rand },
     { "rand.uint32", fl_rand32 },
     { "rand.uint64", fl_rand64 },

c/time_unix.c

@@ -28,14 +28,6 @@ uint64_t i64time(void)
     return a;
 }
 
-double clock_now(void)
-{
-    struct timeval now;
-
-    gettimeofday(&now, NULL);
-    return tv2float(&now);
-}
-
 void sleep_ms(int ms)
 {
     struct timeval timeout;
@@ -57,23 +49,3 @@ void timeparts(int32_t *buf, double t)
     tm.tm_year += 1900;
     memcpy(buf, (char *)&tm, sizeof(struct tm));
 }
-
-double parsetime(const char *str)
-{
-    char *fmt = "%c"; /* needed to suppress GCC warning */
-    char *res;
-    time_t t;
-    struct tm tm;
-
-    res = strptime(str, fmt, &tm);
-    if (res != NULL) {
-        tm.tm_isdst =
-        -1; /* Not set by strptime(); tells mktime() to determine
-              whether daylight saving time is in effect */
-        t = mktime(&tm);
-        if (t == ((time_t)-1))
-            return -1;
-        return (double)t;
-    }
-    return -1;
-}

c/time_windows.c

@@ -10,14 +10,6 @@ double tvals2float(struct tm *t, struct timeb *tstruct)
 }
 #endif
 
-double floattime(void)
-{
-    struct timeb tstruct;
-
-    ftime(&tstruct);
-    return (double)tstruct.time + (double)tstruct.millitm / 1.0e3;
-}
-
 uint64_t i64time(void)
 {
     uint64_t a;
@@ -28,8 +20,6 @@ uint64_t i64time(void)
     return a;
 }
 
-double clock_now(void) { return floattime(); }
-
 void sleep_ms(int ms)
 {
     if (ms == 0) {

c/timefuncs.h

@@ -1,5 +1,3 @@
 uint64_t i64time();
-double clock_now();
-double parsetime(const char *str);
 void sleep_ms(int ms);
 void timeparts(int32_t *buf, double t);