Initial checkin of a very primitive hwclock replacement

git-svn-id: svn://busybox.net/trunk/busybox@5072 69ca8d6d-28ef-0310-b511-8ec308f3f277

3 files changed, 234 insertions, 0 deletions

diff --git a/util-linux/Makefile.in b/util-linux/Makefile.in
index fbe075ded..03012fb6e 100644
--- a/util-linux/Makefile.in
+++ b/util-linux/Makefile.in
@@ -30,6 +30,7 @@ UTILLINUX-$(CONFIG_FREERAMDISK)	+= freeramdisk.o
 UTILLINUX-$(CONFIG_FSCK_MINIX)  += fsck_minix.o
 UTILLINUX-$(CONFIG_GETOPT)              += getopt.o
 UTILLINUX-$(CONFIG_HEXDUMP)             += hexdump.o
+UTILLINUX-$(CONFIG_HWCLOCK)             += hwclock.o
 UTILLINUX-$(CONFIG_LOSETUP)             += losetup.o
 UTILLINUX-$(CONFIG_MKFS_MINIX)  += mkfs_minix.o
 UTILLINUX-$(CONFIG_MKSWAP)              += mkswap.o
diff --git a/util-linux/config.in b/util-linux/config.in
index f96fa1823..bcc99bbe1 100644
--- a/util-linux/config.in
+++ b/util-linux/config.in
@@ -23,6 +23,10 @@ if [ "$CONFIG_FSCK_MINIX" = "y" -o "$CONFIG_MKFS_MINIX" = "y" ]; then
 fi
 bool 'getopt'               CONFIG_GETOPT
 bool 'hexdump'              CONFIG_HEXDUMP  
+bool 'hwclock'              CONFIG_HWCLOCK  
+if [ "$CONFIG_HWCLOCK" = "y" ]; then
+    bool '  Support long options (--hctosys,...)'               CONFIG_FEATURE_HWCLOCK_LONGOPTIONS
+fi
 bool 'losetup'              CONFIG_LOSETUP
 bool 'mkswap'               CONFIG_MKSWAP
 bool 'more'                 CONFIG_MORE
diff --git a/util-linux/hwclock.c b/util-linux/hwclock.c
new file mode 100644
index 000000000..88222e6ba
--- /dev/null
+++ b/util-linux/hwclock.c
@@ -0,0 +1,229 @@
+/* vi: set sw=4 ts=4: */
+/*
+ * really dumb hwclock implementation for busybox
+ * Copyright (C) 2002 Robert Griebl <griebl@gmx.de>
+ *
+ */
+
+
+#include <sys/utsname.h>
+#include <stdlib.h>
+#include <unistd.h>
+#include <syslog.h>
+#include <string.h>
+#include <ctype.h>
+#include <fcntl.h>
+#include <sys/time.h>
+#include <time.h>
+#include <linux/rtc.h>
+#include <sys/ioctl.h>
+#include "busybox.h"
+
+#ifdef CONFIG_FEATURE_HWCLOCK_LONGOPTIONS
+# ifndef _GNU_SOURCE
+#  define _GNU_SOURCE
+# endif
+#endif
+
+#include <getopt.h>
+
+
+enum OpMode {
+        SHOW,
+        SYSTOHC,
+        HCTOSYS
+};
+
+
+time_t read_rtc ( int utc )
+{
+        int rtc;
+        struct tm tm;
+        char *oldtz = 0;
+        time_t t = 0;
+
+        if (( rtc = open ( "/dev/rtc", O_RDONLY )) < 0 ) {
+                if (( rtc = open ( "/dev/misc/rtc", O_RDONLY )) < 0 )
+                        perror_msg_and_die ( "Could not access RTC" );
+        }
+        memset ( &tm, 0, sizeof( struct tm ));
+        if ( ioctl ( rtc, RTC_RD_TIME, &tm ) < 0 )
+                perror_msg_and_die ( "Could not read time from RTC" );
+        tm. tm_isdst = -1; // not known
+        
+        close ( rtc );
+
+        if ( utc ) {    
+                oldtz = getenv ( "TZ" );
+                setenv ( "TZ", "UTC 0", 1 );
+                tzset ( );
+        }
+        
+        t = mktime ( &tm );
+        
+        if ( utc ) {
+                if ( oldtz )
+                        setenv ( "TZ", oldtz, 1 );
+                else
+                        unsetenv ( "TZ" );
+                tzset ( );
+        }
+        return t;
+}
+
+void write_rtc ( time_t t, int utc )
+{
+        int rtc;
+        struct tm tm;
+
+        if (( rtc = open ( "/dev/rtc", O_WRONLY )) < 0 ) {
+                if (( rtc = open ( "/dev/misc/rtc", O_WRONLY )) < 0 )
+                        perror_msg_and_die ( "Could not access RTC" );
+        }
+        
+        printf ( "1\n" );
+        
+        tm = *( utc ? gmtime ( &t ) : localtime ( &t ));
+        tm. tm_isdst = 0;
+        
+        printf ( "2\n") ;
+        
+        if ( ioctl ( rtc, RTC_SET_TIME, &tm ) < 0 )
+                perror_msg_and_die ( "Could not set the RTC time" );
+        
+        close ( rtc );
+}
+
+int show_clock ( int utc )
+{
+        struct tm *ptm;
+        time_t t;
+        char buffer [64];
+
+        t = read_rtc ( utc );           
+        ptm = localtime ( &t );  /* Sets 'tzname[]' */
+        
+        safe_strncpy ( buffer, ctime ( &t ), sizeof( buffer ));
+        if ( buffer [0] )
+                buffer [xstrlen ( buffer ) - 1] = 0;
+        
+        //printf ( "%s  %.6f seconds %s\n", buffer, 0.0, utc ? "" : ( ptm-> tm_isdst ? tzname [1] : tzname [0] ));
+        printf ( "%s  %.6f seconds\n", buffer, 0.0 );
+        
+        return 0;
+}
+
+int to_sys_clock ( int utc )
+{
+        struct timeval tv = { 0, 0 };
+        const struct timezone tz = { timezone/60 - 60*daylight, 0 };
+        
+        tv. tv_sec = read_rtc ( utc );
+
+        if ( settimeofday ( &tv, &tz ))
+                perror_msg_and_die ( "settimeofday() failed" );
+
+        return 0;
+}
+
+int from_sys_clock ( int utc )
+{
+        struct timeval tv = { 0, 0 };
+        struct timezone tz = { 0, 0 };
+
+        if ( gettimeofday ( &tv, &tz ))
+                perror_msg_and_die ( "gettimeofday() failed" );
+
+        write_rtc ( tv. tv_sec, utc );
+        return 0;
+}
+
+
+int check_utc ( void )
+{
+        int utc = 0;
+        FILE *f = fopen ( "/etc/adjtime", "r" );
+        
+        if ( f ) {
+                char buffer [128];
+        
+                while ( fgets ( buffer, sizeof( buffer ), f )) {
+                        int len = xstrlen ( buffer );
+                        
+                        while ( len && isspace ( buffer [len - 1] ))
+                                len--;
+                                
+                        buffer [len] = 0;
+                
+                        if ( strncmp ( buffer, "UTC", 3 ) == 0 ) {
+                                utc = 1;
+                                break;
+                        }
+                }
+                fclose ( f );
+        }
+        return utc;
+}
+
+extern int hwclock_main ( int argc, char **argv )
+{
+        int     opt;
+        enum OpMode mode = SHOW;
+        int utc = 0;
+        int utc_arg = 0;
+
+#ifdef CONFIG_FEATURE_HWCLOCK_LONGOPTIONS
+        struct option long_options[] = {
+                { "show",      0, 0, 'r' },
+                { "utc",       0, 0, 'u' },
+                { "localtime", 0, 0, 'l' },
+                { "hctosys",   0, 0, 's' },
+                { "systohc",   0, 0, 'w' },
+                { 0,           0, 0, 0 }
+        };
+        
+        while (( opt = getopt_long ( argc, argv, "rwsul", long_options, 0 )) != EOF ) {
+#else
+        while (( opt = getopt ( argc, argv, "rwsul" )) != EOF ) {
+#endif
+                switch ( opt ) {
+                case 'r': 
+                        mode = SHOW; 
+                        break;
+                case 'w': 
+                        mode = SYSTOHC;
+                        break;
+                case 's': 
+                        mode = HCTOSYS;
+                        break;
+                case 'u': 
+                        utc = 1;
+                        utc_arg = 1;
+                        break;
+                case 'l': // -l is not supported by the normal hwclock (only --localtime)
+                        utc = 0;
+                        utc_arg = 1;
+                        break;
+                default:
+                        show_usage();
+                        break;
+                }
+        }
+
+        if ( !utc_arg )
+                utc = check_utc ( );
+        
+        switch ( mode ) {
+        case SYSTOHC:
+                return from_sys_clock ( utc );
+
+        case HCTOSYS:
+                return to_sys_clock ( utc );
+
+        case SHOW:
+        default:
+                return show_clock ( utc );      
+        }       
+}
+
+