workbench/c/Touch.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Touch CLI command.
   6     Lang: english
   7 */
   8
   9 /******************************************************************************
  10
  11
  12     NAME
  13
  14         Touch
  15
  16     SYNOPSIS
  17
  18         NAME/A
  19
  20     LOCATION
  21
  22         C:
  23
  24     FUNCTION
  25
  26         Sets the time stamp of the file to the current time. If the file doesn't
  27         exist it will be created.
  28
  29     INPUTS
  30
  31         NAME -- The name of the file to be touched.
  32
  33     RESULT
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42
  43     INTERNALS
  44
  45     HISTORY
  46
  47 ******************************************************************************/
  48
  49 #include <dos/dos.h>
  50 #include <proto/dos.h>
  51
  52 const TEXT version[] = "$VER: Touch 41.2 (8.8.2016)";
  53
  54 int __nocommandline;
  55
  56 int main(void)
  57 {
  58     IPTR           args[1] = { 0 };
  59     struct RDArgs *rda     = ReadArgs("NAME/A", args, NULL);
  60
  61     if (rda)
  62     {
  63         struct DateStamp ds;
  64
  65         /* Attempt to update the file's date stamp */
  66         if (SetFileDate((CONST_STRPTR)args[0], DateStamp(&ds))) {
  67             FreeArgs(rda);
  68             return RETURN_OK;
  69         } else {
  70             /* Attempt to create the file, if needed */
  71             BPTR fh = Open((STRPTR)args[0], MODE_NEWFILE);
  72             if (fh) {
  73                 Close(fh);
  74                 FreeArgs(rda);
  75                 return RETURN_OK;
  76             }
  77         }
  78         FreeArgs(rda);
  79    }
  80
  81    PrintFault(IoErr(), NULL);
  82    return RETURN_FAIL;
  83 }