rainlance/amiga-tz
1
0
Fork 0
mirror of https://frontier.innolan.net/rainlance/amiga-tz.git synced 2025-11-20 16:20:10 +00:00
Code Releases Activity

merged version

Browse Source 
SCCS-file: date.c
SCCS-SID: 2.8
This commit is contained in:
Arthur David Olson
1989-03-09 13:20:49 -05:00
committed by Paul Eggert
parent 6f0b8dc05b
commit e133bb3735
1 changed files with 208 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

252
date.c
View File

@ -3,20 +3,10 @@
static char elsieid[] = "%W%"; static char elsieid[] = "%W%";
/* /*
** Modified from the UCB version whose sccsid appears below. ** Modified from the UCB version whose sccsid appears below.
** Add -a option for benefit of Sun?
*/ */
#endif /* !defined NOID */ #endif /* !defined NOID */
#endif /* !defined lint */ #endif /* !defined lint */
/*
** Is this next right???? There's a TSP_SETTIME but no TSP_SETDATE in
** Sun's "protocols/timed.h". Are the two synonymous?
*/
#ifdef sun
#define TSP_SETDATE TSP_SETTIME
#endif /* defined sun */
/* /*
* Copyright (c) 1985, 1987, 1988 The Regents of the University of California. * Copyright (c) 1985, 1987, 1988 The Regents of the University of California.
* All rights reserved. * All rights reserved.
@ -55,6 +45,93 @@ static char sccsid[] = "@(#)date.c 4.23 (Berkeley) 9/20/88";
#include "strings.h" #include "strings.h"
#include "tzfile.h" #include "tzfile.h"
/*
** What options should be provided?
** We normally provide everything we can, and "#define X_OPTION"
** for each option provided. If "NO_X_OPTION" is defined for some case,
** we leave the option out.
**
** "-u" is provided unconditionally.
*/
/*
** Nothing special needed for BSD's "-n" option to not notify networked systems
** of a time change--on non-networked systems, "date -n" == "date".
*/
#ifndef N_OPTION
#ifndef NO_N_OPTION
#define N_OPTION
#endif /* !defined NO_N_OPTION */
#endif /* !defined N_OPTION */
/*
** BSD's "-d dst" and "-t min-west" options, for setting the kernel's
** notion of dst and offset, require the "settimeofday" system call;
** its availability is deduced from "DST_NONE" being defined.
*/
#ifndef D_OPTION
#ifndef NO_D_OPTION
#ifdef DST_NONE
#define D_OPTION
#endif /* defined DST_NONE */
#endif /* !defined NO_D_OPTION */
#endif /* !defined D_OPTION */
#ifndef T_OPTION
#ifndef NO_T_OPTION
#ifdef DST_NONE
#define T_OPTION
#endif /* defined DST_NONE */
#endif /* !defined NO_T_OPTION */
#endif /* !defined T_OPTION */
/*
** Sun's "-a sss.fff" option to slowly adjust the time requires the
** "adjtime" system call. We assume it's available if DST_NONE is defined.
*/
#ifndef A_OPTION
#ifndef NO_A_OPTION
#ifdef DST_NONE
#define A_OPTION
#endif /* defined DST_NONE */
#endif /* !defined NO_A_OPTION */
#endif /* !defined A_OPTION */
/*
** So much for options. One "combination" setting makes life easier.
*/
#ifdef D_OPTION
#define D_OR_T_OPTION
#else /* !defined D_OPTION */
#ifdef T_OPTION
#define D_OR_T_OPTION
#endif /* defined T_OPTION */
#endif /* !defined D_OPTION */
/*
** Finally, features.
*/
#ifndef USG_INPUT
#ifndef NO_USG_INPUT
#define USG_INPUT
#endif /* !defined NO_USG_INPUT */
#endif /* !defined USG_INPUT */
#ifndef USG_OUTPUT
#ifndef NO_USG_OUTPUT
#define USG_OUTPUT
#endif /* !defined NO_USG_OUTPUT */
#endif /* !defined USG_OUTPUT */
/*
** So much for features.
*/
#ifndef TIME_USER #ifndef TIME_USER
#ifdef OTIME_MSG #ifdef OTIME_MSG
#define TIME_USER username #define TIME_USER username
@ -96,16 +173,14 @@ static void display();
static void finalcheck(); static void finalcheck();
static time_t parse(); static time_t parse();
int netsettime(); int netsettime();
static char * nondigit();
static void oops(); static void oops();
static void timeout(); static void timeout();
static void usage(); static void usage();
static time_t xtime(); static time_t xtime();
#ifdef DST_NONE static char * options[132];
#define OPTIONS "und:t:" static char * usemes[132];
#else /* !defined DST_NONE */
#define OPTIONS "un"
#endif /* !defined DST_NONE */
int int
main(argc, argv) main(argc, argv)
@ -119,21 +194,66 @@ char * argv[];
register int ch; register int ch;
register int nflag; register int nflag;
time_t t; time_t t;
#ifdef DST_NONE #ifdef D_OPTION
register int tflag, dflag; register int dflag = 0;
#endif /* defined D_OPTION */
#ifdef T_OPTION
register int tflag = 0;
#endif /* defined T_OPTION */
#ifdef D_OR_T_OPTION */
struct timezone tz; struct timezone tz;
static struct timeval tv; /* static so tv_usec is 0 */ static struct timeval tv; /* static so tv_usec is 0 */
#endif /* defined D_OR_T_OPTION */
#ifdef A_OPTION
register int aflag = 0;
static struct timeval atv; /* static so tv_usec is 0 */
#endif /* defined A_OPTION */
#ifdef D_OR_T_OPTION
if (gettimeofday((struct timeval *) NULL, &tz) != 0) { if (gettimeofday((struct timeval *) NULL, &tz) != 0) {
perror("date: error: gettimeofday"); perror("date: error: gettimeofday");
(void) exit(EXIT_FAILURE); (void) exit(EXIT_FAILURE);
} }
tflag = dflag = 0; #endif /* defined D_OR_T_OPTION */
#endif /* defined DST_NONE */
(void) time(&now); (void) time(&now);
format = value = NULL; format = value = NULL;
nflag = 0; nflag = 0;
while ((ch = getopt(argc, argv, OPTIONS)) != EOF) { /*
** "-u" and are available everywhere.
** (It's easy to obey "-n" if there's no network!)
*/
(void) strcpy(options, "u");
(void) strcpy(usemes, "[-u");
#ifdef N_OPTION
(void) strcat(options, "n");
(void) strcat(usemes, "n");
#endif /* defined N_OPTION */
(void) strcat(usemes, "]");
#ifdef D_OPTION
(void) strcat(options, "d:");
(void) strcat(usemes, " [-d dst]");
#endif /* defined D_OPTION */
#ifdef T_OPTION
(void) strcat(options, "t:");
(void) strcat(usemes, " [-t min-west]");
#endif /* defined T_OPTION */
#ifdef A_OPTION
(void) strcat(options, "a:");
(void) strcat(usemes, " [-a sss.fff]");
#endif /* defined A_OPTION */
/*
** Two time argument variants.
*/
#ifdef USG_INPUT
(void) strcat(usemes, " [[yyyy]mmddhhmm[yy][.ss]]");
#else /* !defined USG_INPUT */
(void) strcat(usemes, " [[yyyy]mmddhhmm[.ss]]");
#endif /* !defined USG_INPUT */
/*
** "+format" is avaialble everywhere.
*/
(void) strcat(usemes, " [+format]");
while ((ch = getopt(argc, argv, options)) != EOF) {
switch (ch) { switch (ch) {
default: default:
usage(); usage();
@ -151,10 +271,12 @@ char * argv[];
environ = saveenv; environ = saveenv;
} }
break; break;
#ifdef N_OPTION
case 'n': /* don't set network */ case 'n': /* don't set network */
nflag = 1; nflag = 1;
break; break;
#ifdef DST_NONE #endif /* defined N_OPTION */
#ifdef D_OPTION
case 'd': /* daylight savings time */ case 'd': /* daylight savings time */
if (dflag) { if (dflag) {
(void) fprintf(stderr, (void) fprintf(stderr,
@ -165,10 +287,11 @@ char * argv[];
tz.tz_dsttime = atoi(optarg); tz.tz_dsttime = atoi(optarg);
if (*optarg == '\0') if (*optarg == '\0')
usage(); usage();
while (*optarg != '\0') if (*nondigit(optarg) != '\0')
if (!isdigit(*optarg))
usage(); usage();
break; break;
#endif /* defined D_OPTION */
#ifdef T_OPTION
case 't': /* minutes west of GMT */ case 't': /* minutes west of GMT */
if (tflag) { if (tflag) {
(void) fprintf(stderr, (void) fprintf(stderr,
@ -181,11 +304,36 @@ char * argv[];
++optarg; ++optarg;
if (*optarg == '\0') if (*optarg == '\0')
usage(); usage();
while (*optarg != '\0') if (*nondigit(optarg) != '\0')
if (!isdigit(*optarg))
usage(); usage();
break; break;
#endif /* defined DST_NONE */ #endif /* defined T_OPTION */
#ifdef A_OPTION
case 'a': /* adjustment */
if (aflag) {
(void) fprintf(stderr,
"date: error: multiple -a's used");
usage();
}
aflag = 1;
{
float f;
extern double atof();
f = atof(optarg);
if (*optarg == '+' || *optarg == '-')
++optarg;
if (*optarg == '\0' || strcmp(optarg, ".") == 0)
usage();
optarg = nondigit(optarg);
if (*optarg == '.')
++optarg;
if (nondigit(optarg) != '\0')
usage();
atv.tv_usec = 100000 * f;
}
break;
#endif /* defined A_OPTION */
} }
} }
while (optind < argc) { while (optind < argc) {
@ -195,14 +343,14 @@ char * argv[];
format = cp + 1; format = cp + 1;
else { else {
(void) fprintf(stderr, (void) fprintf(stderr,
"date: error: multiple formats given\n"); "date: error: multiple formats in command line\n");
usage(); usage();
} }
else if (value == NULL) else if (value == NULL)
value = cp; value = cp;
else { else {
(void) fprintf(stderr, (void) fprintf(stderr,
"date: error: multiple values given\n"); "date: error: multiple values in command line\n");
usage(); usage();
} }
} }
@ -214,11 +362,16 @@ char * argv[];
/* /*
** Entire command line has now been checked. ** Entire command line has now been checked.
*/ */
#ifdef DST_NONE #ifdef A_OPTION
if (aflag)
if (adjtime(&atv, (struct timeval *) NULL) != 0)
oops("date: error: adjtime");
#endif /* defined A_OPTION */
#ifdef D_OR_T_OPTION
if ((tflag || dflag) && if ((tflag || dflag) &&
settimeofday((struct timeval *) NULL, &tz) != 0) settimeofday((struct timeval *) NULL, &tz) != 0)
oops("date: error: settimeofday"); oops("date: error: settimeofday");
#endif /* defined DST_NONE */ #endif /* defined D_OR_T_OPTION */
if (value == NULL) if (value == NULL)
display(format); display(format);
username = getlogin(); username = getlogin();
@ -230,9 +383,14 @@ char * argv[];
** We'll continue to put the entry in unconditionally for compatibility. ** We'll continue to put the entry in unconditionally for compatibility.
*/ */
#ifdef DST_NONE #ifdef DST_NONE
#ifdef TSP_SETDATE
tv.tv_sec = t; tv.tv_sec = t;
if (!nflag && netsettime(tv) != 1) #ifdef N_OPTION
if (!nflag)
#endif /* defined N_OPTION */
if (netsettime(tv) != 1)
retval = EXIT_FAILURE; retval = EXIT_FAILURE;
#endif /* defined TSP_SETDATE */
logwtmp(OTIME_MSG, TIME_USER, ""); logwtmp(OTIME_MSG, TIME_USER, "");
if (settimeofday(&tv, (struct timezone *) NULL) == 0) { if (settimeofday(&tv, (struct timezone *) NULL) == 0) {
logwtmp(NTIME_MSG, TIME_USER, ""); logwtmp(NTIME_MSG, TIME_USER, "");
@ -252,19 +410,19 @@ char * argv[];
; ;
} }
#ifdef DST_NONE static char *
static char usemes[] = "\ nondigit(cp)
date: usage is date [-un][-d dst][-t mins_west] [[yyyy]mmddhhmm[yy][.ss]] [+fmt]\ register char * cp;
"; {
#else /* !defined DST_NONE */ while (isdigit(*cp))
static char usemes[] = "\ ++cp;
date: usage is date [-un] [[yyyy]mmddhhmm[yy][.ss]] [+format]"; return cp;
#endif /* !defined DST_NONE */ }
static void static void
usage() usage()
{ {
(void) fprintf(stderr, usemes); (void) fprintf(stderr, "date: usage is date %s\n", usemes);
retval = EXIT_FAILURE; retval = EXIT_FAILURE;
display((char *) NULL); display((char *) NULL);
} }
@ -465,7 +623,7 @@ struct tm * tmp;
case '%': case '%':
(void) putc('%', fp); (void) putc('%', fp);
break; break;
#ifdef USG_COMPAT #ifdef USG_OUTPUT
/* /*
** Format characters below from: ** Format characters below from:
** the System V Release 2.0 description of the date command; ** the System V Release 2.0 description of the date command;
@ -492,7 +650,7 @@ struct tm * tmp;
case 'T': case 'T':
timeout(fp, "%X", tmp); timeout(fp, "%X", tmp);
break; break;
#endif /* defined USG_COMPAT */ #endif /* defined USG_OUTPUT */
} }
} }
} }
@ -654,9 +812,9 @@ int isdst;
thist = xtime(&tm); thist = xtime(&tm);
#ifndef USG_COMPAT #ifndef USG_INPUT
return thist; return thist;
#else /* defined USG_COMPAT */ #else /* defined USG_INPUT */
tm.tm_mon = pairs[0] - 1; tm.tm_mon = pairs[0] - 1;
tm.tm_mday = pairs[1]; tm.tm_mday = pairs[1];
tm.tm_hour = pairs[2]; tm.tm_hour = pairs[2];
@ -676,7 +834,7 @@ int isdst;
else if (thatt == -1) else if (thatt == -1)
return thist; return thist;
else ambiguous(thist, thatt, 0); else ambiguous(thist, thatt, 0);
#endif /* defined USG_COMPAT */ #endif /* defined USG_INPUT */
case 6: /* yyyymmddhhmm--BSD finally wins in the 21st century */ case 6: /* yyyymmddhhmm--BSD finally wins in the 21st century */
year = pairs[0] * 100 + pairs[1]; year = pairs[0] * 100 + pairs[1];
@ -690,7 +848,7 @@ int isdst;
return -1; return -1;
} }
#ifdef DST_NONE #ifdef TSP_SETDATE
#include <sys/socket.h> #include <sys/socket.h>
#include <netinet/in.h> #include <netinet/in.h>
#include <netdb.h> #include <netdb.h>
@ -826,4 +984,4 @@ bad:
retval = 2; retval = 2;
return (0); return (0);
} }
#endif /* defined DST_NONE */ #endif /* defined TSP_SETDATE */