workbench/c/Date.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Date CLI command
   6     Lang: English
   7 */
   8 /******************************************************************************
   9
  10     NAME
  11
  12         Date [<day>] [<date>] [<time>] [TO | VER <filename>]
  13
  14     SYNOPSIS
  15
  16         DAY,DATE,TIME,TO=VER/K
  17
  18     LOCATION
  19
  20         C:
  21
  22     FUNCTION
  23
  24         Displays or sets the system date and/or time.
  25
  26     INPUTS
  27
  28         DAY  -- sets date by name (monday, tuesday, ... , tomorrow, yesterday)
  29         DATE -- sets date in format DD-MMM-YY.
  30                 For MMM either the number or the first 3 letters of the
  31                 month in English
  32         TIME -- sets time in format HH:MM:SS
  33         TO   -- output is sent to file
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41         date 2-feb-06
  42         date 21:10
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     INTERNALS
  49
  50     HISTORY
  51
  52 ******************************************************************************/
  53
  54 #include <proto/exec.h>
  55 #include <exec/errors.h>
  56 #include <exec/io.h>
  57 #include <proto/dos.h>
  58 #include <dos/dos.h>
  59 #include <dos/datetime.h>
  60 #include <devices/timer.h>
  61
  62 #include <string.h>
  63
  64 const TEXT version[] = "$VER: Date 41.4 (15.11.2011)\n";
  65
  66 #define ARG_STRING "DAY,DATE,TIME,TO=VER/K"
  67 #define ARG_DAY 0
  68 #define ARG_DATE 1
  69 #define ARG_TIME 2
  70 #define ARG_VER 3
  71 #define ARG_COUNT 4
  72
  73 static WORD chrcount(STRPTR s, UBYTE c)
  74 {
  75     UBYTE sc;
  76     WORD retval = 0;
  77
  78     while((sc = *s++))
  79     {
  80         if (sc == c) retval++;
  81     }
  82
  83     return retval;
  84 }
  85
  86 int setdate(STRPTR *day_date_time)
  87 {
  88     int                error = RETURN_OK;
  89     BYTE               timererror;
  90     struct timerequest *timerReq;
  91     struct MsgPort     *timerMP;
  92     struct DateTime    dt;
  93     WORD               i, count;
  94     UBYTE              fulltime[9];
  95     STRPTR             realtime = NULL, realdate = NULL;
  96
  97     for(i = 0; i < 3; i++)
  98     {
  99         if (day_date_time[i] == NULL) continue;
 100
 101         if (chrcount(day_date_time[i], '-'))
 102         {
 103             /* must be date */
 104
 105             realdate = day_date_time[i];
 106         }
 107         else if ((count = chrcount(day_date_time[i], ':')))
 108         {
 109             /* must be time */
 110             if (count == 1)
 111             {
 112                     /* seconds are missing */
 113
 114                 if (strlen(day_date_time[i]) <= 5)
 115                 {
 116                     strcpy(fulltime, day_date_time[i]);
 117                     strcat(fulltime, ":00");
 118                     realtime = fulltime;
 119                 }
 120                 else
 121                 {
 122                     realtime = day_date_time[i];
 123                 }
 124             }
 125             else
 126             {
 127                 realtime = day_date_time[i];
 128             }
 129         }
 130         else
 131         {
 132             /* must be week day name */
 133
 134             if (!realdate) realdate = day_date_time[i];
 135         }
 136
 137     }
 138
 139     dt.dat_Format  = FORMAT_DOS;
 140     dt.dat_Flags   = DTF_FUTURE;
 141     dt.dat_StrDay  = NULL; /* StrToDate ignores this anyway */
 142     dt.dat_StrDate = realdate;
 143     dt.dat_StrTime = realtime;
 144
 145     DateStamp(&dt.dat_Stamp);
 146
 147     if((!realdate && !realtime) || (StrToDate(&dt) == 0))
 148     {
 149         PutStr( "***Bad args:\n"
 150                 "- use DD-MMM-YY or <dayname> or yesterday etc. to set date\n"
 151                 "      HH:MM:SS or HH:MM to set time\n");
 152         error = RETURN_FAIL;
 153     }
 154     else
 155     {
 156         timerMP = CreateMsgPort();
 157         if (timerMP)
 158         {
 159             timerReq = (struct timerequest *)CreateIORequest(timerMP, sizeof(struct timerequest));
 160
 161             if (timerReq)
 162             {
 163                 timererror = OpenDevice(TIMERNAME, UNIT_VBLANK,
 164                             &timerReq->tr_node, 0L);
 165                 if(timererror == 0)
 166                 {
 167                     timerReq->tr_time.tv_secs = dt.dat_Stamp.ds_Days*60*60*24 +
 168                                                 dt.dat_Stamp.ds_Minute*60 +
 169                                                 dt.dat_Stamp.ds_Tick / TICKS_PER_SECOND;
 170                     timerReq->tr_time.tv_micro = 0;
 171                     timerReq->tr_node.io_Command = TR_SETSYSTIME;
 172                     timerReq->tr_node.io_Flags |= IOF_QUICK;
 173
 174                     DoIO(&timerReq->tr_node);
 175
 176                     CloseDevice(&timerReq->tr_node);
 177                 }
 178                 else
 179                 {
 180                     PutStr("Date: Error opening timer.device\n");
 181                     error = RETURN_FAIL;
 182                 }
 183                 DeleteIORequest(&timerReq->tr_node);
 184             }
 185             else
 186             {
 187                     PutStr("Date: Error creating timerequest\n");
 188                     error = RETURN_FAIL;
 189             }
 190             DeleteMsgPort(timerMP);
 191         }
 192         else
 193         {
 194             PutStr("Date: Error creating MsgPort\n");
 195             error = RETURN_FAIL;
 196         }
 197     }
 198
 199     return error;
 200 }
 201
 202
 203 int printdate(STRPTR filename)
 204 {
 205     BPTR file = Output();
 206     int ownfile = 0;
 207     int error = RETURN_OK;
 208     struct DateTime dt;
 209     char daystring[LEN_DATSTRING * 2], datestring[LEN_DATSTRING * 2],
 210         timestring[LEN_DATSTRING * 2], resstring[LEN_DATSTRING*6+1];
 211
 212     if(filename != NULL)
 213     {
 214         file = Open(filename, MODE_NEWFILE);
 215         ownfile = 1;
 216     }
 217
 218     if(file != (BPTR)NULL)
 219     {
 220         int pos = 0;
 221
 222         DateStamp(&dt.dat_Stamp);
 223
 224         dt.dat_Format = FORMAT_DOS; // FORMAT_DEF;
 225         dt.dat_Flags = 0;
 226         dt.dat_StrDay = daystring;
 227         dt.dat_StrDate = datestring;
 228         dt.dat_StrTime = timestring;
 229         DateToStr(&dt);
 230
 231         CopyMem(daystring, resstring, strlen(daystring));
 232         pos += strlen(daystring);
 233         resstring[pos++] = ' ';
 234         CopyMem(datestring, resstring + pos, strlen(datestring));
 235         pos += strlen(datestring);
 236         resstring[pos++] = ' ';
 237         CopyMem(timestring, resstring + pos, strlen(timestring));
 238         pos += strlen(timestring);
 239         resstring[pos++] = 0x0a;
 240
 241         if(Write(file, resstring, pos) < pos)
 242         {
 243             PrintFault(IoErr(), "Date");
 244             error = RETURN_FAIL;
 245         }
 246
 247         if(ownfile == 1)
 248         {
 249             Close(file);
 250         }
 251     }
 252     else
 253     {
 254         PrintFault(IoErr(), "Date");
 255         error = RETURN_FAIL;
 256     }
 257
 258     return error;
 259 }
 260
 261 int __nocommandline = 1;
 262
 263 int main(void)
 264 {
 265     int           error = RETURN_OK;
 266     STRPTR        args[ARG_COUNT] = {NULL, NULL, NULL, NULL};
 267     struct RDArgs *rda;
 268
 269     rda = ReadArgs(ARG_STRING, (IPTR *)args, NULL);
 270
 271     if (rda != NULL)
 272     {
 273         if (args[ARG_DAY] != NULL || args[ARG_DATE] != NULL || args[ARG_TIME] != NULL)
 274         {
 275             if (((error = setdate(args)) == RETURN_OK))
 276             {
 277                 if (args[ARG_VER] != NULL)
 278                     printdate(args[ARG_VER]);
 279             }
 280         }
 281         else
 282         {
 283             error = printdate(args[ARG_VER]);
 284         }
 285
 286         FreeArgs(rda);
 287     }
 288     else
 289     {
 290         PrintFault(IoErr(), "Date");
 291         error = RETURN_FAIL;
 292     }
 293
 294     return error;
 295 }