avr/cmd_date.c

   1 /*
   2  * (C) Copyright 2014 Leo C. <erbl259-lmu@yahoo.de>
   3  *
   4  * (C) Copyright 2001
   5  * Wolfgang Denk, DENX Software Engineering, wd@denx.de.
   6  *
   7  * SPDX-License-Identifier:     GPL-2.0
   8  */
   9
  10 /*
  11  * RTC, Date & Time support: get and set date & time
  12  */
  13 #include "cmd_date.h"
  14 #include "time.h"
  15 #include "rtc.h"
  16
  17
  18 /*
  19  * simple conversion of two-digit string with error checking
  20  */
  21 static int cnvrt2 (const char *str, int *valp)
  22 {
  23         int val;
  24
  25         if ((*str < '0') || (*str > '9'))
  26                 return (-1);
  27
  28         val = *str - '0';
  29
  30         ++str;
  31
  32         if ((*str < '0') || (*str > '9'))
  33                 return (-1);
  34
  35         *valp = 10 * val + (*str - '0');
  36
  37         return (0);
  38 }
  39
  40 /*
  41  * Convert date string: MMDDhhmm[[CC]YY][.ss]
  42  *
  43  * Some basic checking for valid values is done, but this will not catch
  44  * all possible error conditions.
  45  */
  46 int mk_date (const char *datestr, struct tm *tmp)
  47 {
  48         int len, val;
  49         char *ptr;
  50
  51         ptr = strchr (datestr,'.');
  52         len = strlen (datestr);
  53
  54         /* Set seconds */
  55         if (ptr) {
  56                 int sec;
  57
  58                 *ptr++ = '\0';
  59                 if ((len - (ptr - datestr)) != 2)
  60                         return (-1);
  61
  62                 len = strlen (datestr);
  63
  64                 if (cnvrt2 (ptr, &sec))
  65                         return (-1);
  66
  67                 tmp->tm_sec = sec;
  68         } else {
  69                 tmp->tm_sec = 0;
  70         }
  71
  72         if (len == 12) {                        /* MMDDhhmmCCYY */
  73                 int year, century;
  74
  75                 if (cnvrt2 (datestr+ 8, &century) ||
  76                     cnvrt2 (datestr+10, &year) ) {
  77                         return (-1);
  78                 }
  79                 tmp->tm_year = 100 * century + year - 1900;
  80         } else if (len == 10) {         /* MMDDhhmmYY   */
  81                 int year, century;
  82
  83                 century = (tmp->tm_year + 1900) / 100;
  84                 if (cnvrt2 (datestr+ 8, &year))
  85                         return (-1);
  86                 tmp->tm_year = 100 * century + year -1900;
  87         }
  88
  89         switch (len) {
  90         case 8:                                 /* MMDDhhmm     */
  91                 /* fall thru */
  92         case 10:                                /* MMDDhhmmYY   */
  93                 /* fall thru */
  94         case 12:                                /* MMDDhhmmCCYY */
  95                 if (cnvrt2 (datestr+0, &val) ||
  96                     val > 12) {
  97                         break;
  98                 }
  99                 tmp->tm_mon  = val - 1;
 100                 if (cnvrt2 (datestr+2, &val) ||
 101                     val > ((tmp->tm_mon==2-1) ? 29 : 31)) {
 102                         break;
 103                 }
 104                 tmp->tm_mday = val;
 105
 106                 if (cnvrt2 (datestr+4, &val) ||
 107                     val > 23) {
 108                         break;
 109                 }
 110                 tmp->tm_hour = val;
 111
 112                 if (cnvrt2 (datestr+6, &val) ||
 113                     val > 59) {
 114                         break;
 115                 }
 116                 tmp->tm_min  = val;
 117
 118                 return (0);
 119         default:
 120                 break;
 121         }
 122
 123         return (-1);
 124 }
 125
 126 command_ret_t do_date(cmd_tbl_t *cmdtp, uint_fast8_t flag, int argc, char * const argv[])
 127 {
 128         struct tm t;
 129         char buf[30];
 130         int rc;
 131         command_ret_t rcode = CMD_RET_FAILURE;
 132
 133         (void) cmdtp; (void) flag;
 134
 135         switch (argc) {
 136         case 2:                 /* set date & time */
 137                 /* initialize t with current time */
 138                 if(rtc_get(&t) < 0) {
 139                         my_puts_P(PSTR("## Get date failed\n"));
 140                         break;
 141                 } else {
 142                         /* insert new date & time */
 143                         if (mk_date (argv[1], &t) != 0) {
 144                                 my_puts_P(PSTR("## Bad date format\n"));
 145                                 break;
 146                         }
 147
 148                         time_t time;
 149                         time = mk_gmtime(&t);
 150                         gmtime_r(&time, &t);
 151
 152                         /* and write to RTC */
 153                         if(rtc_set(&t) < 0) {
 154                                 my_puts_P(PSTR("## Set date failed\n"));
 155                                 break;
 156                         }
 157                 }
 158                 /* FALL TROUGH */
 159         case 1:                 /* get date & time */
 160                 rc = rtc_get(&t);
 161                 if (rc >= 0) {
 162                         asctime_r(&t, buf);
 163                         printf_P(PSTR("%s"), buf);
 164                         if (rc == 1)
 165                                 printf_P(PSTR("  (Invalid)"));
 166                         putchar('\n');
 167                         rcode = CMD_RET_SUCCESS;
 168                 } else {
 169                         my_puts_P(PSTR("## Get date failed\n"));
 170                 }
 171                 break;
 172
 173         default:
 174                 rcode = CMD_RET_USAGE;
 175         }
 176
 177         return rcode;
 178 }