#pragma prototyped

static const char usage[] =

"times]"

"both of each \afile\a. The modification time is the \ast_mtime\a member "

"of the \bstat\b(2) information and the access time is the \ast_atime\a "

"member. On most systems the file status change time is always set to "

"the current time when either the access or modification times are "

"changed.]"

"specified then the time used will be the \adate\a operand or the "

"current time if \adate\a is omitted.]"

"followed by an optional \b.\b and two digits then it is interpreted as: "

"\aHHMM.SS\a, \addHHMM.SS\a, \ammddHHMM.SS\a, \ammddHHMMyy.SS\a or "

"\ayymmddHHMM.SS\a, or \ammddHHMMccyy.SS\a or \accyymmddHHMM.SS\a. "

"Conflicting standards and practice allow a leading or trailing 2 or 4 "

"digit year for the 10 and 12 digit forms; the X/Open leading form is "

"used to disambiguate (\bdate\b(1) uses the trailing form.) Avoid the 10 "

"digit form to avoid confusion. The digit fields are:]"

"{"

"[+cc?Century - 1, 19-20.]"

"[+yy?Year in century, 00-99.]"

"[+mm?Month, 01-12.]"

"[+dd?Day of month, 01-31.]"

"[+HH?Hour, 00-23.]"

"[+MM?Minute, 00-59.]"

"[+SS?Seconds, 00-60.]"

"}"

"modification time unless \b--modify\b is also specified.]"

"diagnostic.]"

"access time unless \b--access\b is also specified.]"

"current time.]:[file]"

"\ast_ctime\a. Most systems summarily set \ast_ctime\a to the current "

"time.]"

"date-time. Most common formats are accepted. See \btmdate\b(3) for "

"details. If \adate-time\a consists of 4, 6, 8, 10 or 12 digits followed "

"by an optional \b.\b and 2 digits and another optional \b.\b and 1 or "

"more digits then it is interpreted as the \adate\a operand above, "

"except that the leading 2 or 4 digit year form is used to disambiguate. "

"Avoid the 10 digit form to avoid confusion. If \b--reference\b is "

"specified or if \afile\a already exists then \atime\a may also be one "

"of:]:[date-time]"

"{"

"[+access|atime|use?The access time of the reference file.]"

"[+change|ctime?The change time of the reference file.]"

"[+modify|mtime|modification?The modify time of the reference "

"file.]"

"}"

"\n\n"

"file ...\n\n"

"times that can be set. These limitations may not show up until a "

"subsequent \bstat\b(2) call (yes, the time can be set but not checked!) "

"Upper limits of <0xffffffff and <0x7fffffff have been observed.]"

;

#include <ast.h>

#include <ls.h>

#include <tmx.h>

#include <error.h>

#define ATIME 01

#define CTIME 02

#define MTIME 04

main(int argc, register char** argv)

{

register char* reference = 0;

int create = 1;

int set = 0;

int use = 0;

int verbose = 0;

register char* file;

char* e;

int n;

struct stat st;

Time_t t;

Tv_t* ap;

Tv_t* cp;

Tv_t* mp;

Tv_t* up;

Tv_t av;

Tv_t cv;

Tv_t mv;

Tv_t uv;

NoP(argc);

error_info.id = "touch";

up = 0;

for (;;)

{

switch (optget(argv, usage))

{

case 'a':

set |= ATIME;

continue;

case 'c':

create = 0;

continue;

case 'd':

case 't':

if (streq(opt_info.arg, "access") || streq(opt_info.arg, "atime") || streq(opt_info.arg, "use"))

use = ATIME;

else if (streq(opt_info.arg, "change") || streq(opt_info.arg, "ctime"))

use = CTIME;

else if (streq(opt_info.arg, "modify") || streq(opt_info.arg, "mtime") || streq(opt_info.arg, "modification"))

use = MTIME;

else

{

reference = 0;

t = tmxdate(opt_info.arg, &e, TMX_NOW);

if (*e)

error(3, "%s: invalid date specification", e);

up = &uv;

tmx2tv(t, up);

}

continue;

case 'f':

continue;

case 'm':

set |= MTIME;

continue;

case 'r':

reference = opt_info.arg;

continue;

case 's':

set |= CTIME;

continue;

case 'v':

verbose = 1;

continue;

case ':':

error(2, "%s", opt_info.arg);

break;

case '?':

error(ERROR_USAGE|4, "%s", opt_info.arg);

break;

}

break;

}

argv += opt_info.index;

if (error_info.errors || !*argv)

error(ERROR_USAGE|4, "%s", optusage(NiL));

if (reference)

{

if (stat(reference, &st))

error(ERROR_SYSTEM|3, "%s: not found", reference);

if (use)

{

up = &uv;

switch (use)

{

case ATIME:

tvgetatime(up, &st);

break;

case CTIME:

tvgetctime(up, &st);

break;

case MTIME:

tvgetmtime(up, &st);

break;

}

}

}

else if (!use && !up)

{

for (file = *argv; *file >= '0' && *file <= '9'; file++);

if (((n = (file - *argv)) == 4 || n == 6 || n == 8 || n == 10 || n == 12) && (!*file || *file == '.' && *(file + 1) >= '0' && *(file + 1) <= '9' && *(file + 2) >= '0' && *(file + 2) <= '9' && !*(file + 3)))

{

t = tmxdate(file = *argv++, &e, TMX_NOW);

if (*e)

error(3, "%s: invalid date specification", file);

up = &uv;

tmx2tv(t, up);

}

}

if (!set)

set = MTIME;

if (set & ATIME)

{

if (use || !reference)

ap = up;

else

{

ap = &av;

tvgetatime(ap, &st);

}

}

else

ap = TV_TOUCH_RETAIN;

if (set & CTIME)

{

if (use || !reference)

cp = up;

else

{

cp = &cv;

tvgetctime(cp, &st);

}

}

else

cp = TV_TOUCH_RETAIN;

if (set & MTIME)

{

if (use || !reference)

mp = up;

else

{

mp = &mv;

tvgetmtime(mp, &st);

}

}

else

mp = TV_TOUCH_RETAIN;

if (reference)

use = 0;

else if (use)

up = &uv;

while (file = *argv++)

{

if (use)

{

if (stat(file, &st))

{

error(2, "%s: not found", file);

continue;

}

switch (use)

{

case ATIME:

tvgetatime(up, &st);

break;

case CTIME:

tvgetctime(up, &st);

break;

case MTIME:

tvgetmtime(up, &st);

break;

}

if (set & ATIME)

ap = up;

if (set & CTIME)

cp = up;

if (set & MTIME)

mp = up;

}

if (tvtouch(file, ap, mp, cp, create))

if (errno != ENOENT)

error(ERROR_SYSTEM|2, "%s: cannot touch", file);

else if (verbose)

error(1, "%s: not found", file);

}

return error_info.errors != 0;

}