fnf@unisoft.UUCP (Fred Fish) (02/14/85)
<......>
Here is a user friendly interface to the date utility, for
setting the date and time. It recognizes dates and times
in any of several formats. For example:
January 18,1983 18:45
Jan 18, 1983 18:45:00
jan 18, 1983 6:45 PM
18:43 18-Jan-83
1/18/83
18:43
8 AM
Users on V7 type systems will need to define "OLDFORMAT" when
compiling.
-Fred
#--------CUT---------CUT---------CUT---------CUT--------#
#########################################################
# #
# This is a shell archive file. To extract files: #
# #
# 1) Make a directory for the files. #
# 2) Write a file, such as "file.shar", containing #
# this archive file into the directory. #
# 3) Type "sh file.shar". Do not use csh. #
# #
#########################################################
#
#
echo Extracting Makefile:
sed 's/^Z//' >Makefile <<\STUNKYFLUFF
Z#
Z# FILE
Z#
Z# Makefile
Z#
Z# SCCS
Z#
Z# @(#)Makefile 1.2 2/10/85
Z#
Z# DESCRIPTION
Z#
Z# Makefile for the system boot utility "setdate" which
Z# sets the current date and time. Accepts a wide variety
Z# of date formats.
Z#
Z# AUTHOR
Z#
Z# Fred Fish
Z# (Currently at UniSoft Systems Inc.)
Z#
Z
Z.l~.c:
Z $(GET) $(GFLAGS) -p $< >$*.l
Z $(LEX) $(LFLAGS) $*.l
Z mv lex.yy.c $*.c
Z rm -f $*.l
Z
Zsetdate : setdate.o
Z $(CC) -o $@ $? -ly
Z
Zsetdate.o : setdate.c lex.c
Z
Z#
Z# Clean up the directory.
Z#
Z
Zclean :
Z rm -f *.BAK *.o
Z
Zclobber :
Z rm -f setdate.c lex.c setdate
Z
Z
STUNKYFLUFF
set `sum Makefile`
if test 09406 != $1
then
echo Makefile: Checksum error. Is: $1, should be: 09406.
fi
#
#
echo Extracting lex.l:
sed 's/^Z//' >lex.l <<\STUNKYFLUFF
Z%{
Z/************************************************************************
Z * *
Z * Copyright (c) 1985, Fred Fish *
Z * All Rights Reserved *
Z * *
Z * This software and/or documentation is released into the *
Z * public domain for personal, non-commercial use only. *
Z * Limited rights to use, modify, and redistribute are hereby *
Z * granted for non-commercial purposes, provided that all *
Z * copyright notices remain intact and all changes are clearly *
Z * documented. The author makes no warranty of any kind with *
Z * respect to this product and explicitly disclaims any implied *
Z * warranties of merchantability or fitness for any particular *
Z * purpose. *
Z * *
Z ************************************************************************
Z */
Z
Z
Z/*
Z * FILE
Z *
Z * lex.l
Z *
Z * SCCS
Z *
Z * @(#)lex.l 1.2 2/10/85
Z *
Z * DESCRIPTION
Z *
Z * Lex code for setdate utility. This must be processed by the
Z * UNIX "lex" utility to produce a lexical analyzer.
Z *
Z * Note that month names and other such strings are recognized
Z * case independently.
Z *
Z * The values returned for month names are in the range [1-12]
Z * for the months [Jan-Dec] respectively.
Z *
Z * AUTHOR
Z *
Z * Fred Fish
Z * (Currently at UniSoft Systems Inc.)
Z *
Z */
Z%}
Z
Z%%
Z
Z(P|p)(M|m) {
Z return (PM);
Z }
Z
Z(A|a)(M|m) {
Z return (AM);
Z }
Z
Z[0-9]+ {
Z yylval = atoi(yytext);
Z return(DIGITS);
Z }
Z
Z((J|j)(A|a)(N|n))((U|u)(A|a)(R|r)(Y|y))? {
Z yylval = 1;
Z return (MONTH);
Z }
Z
Z((F|f)(E|e)(B|b))((R|r)(U|u)(A|a)(R|r)(Y|y))? {
Z yylval = 2;
Z return (MONTH);
Z }
Z
Z((M|m)(A|a)(R|r))((C|c)(H|h))? {
Z yylval = 3;
Z return (MONTH);
Z }
Z
Z((A|a)(P|p)(R|r))((I|i)(L|l))? {
Z yylval = 4;
Z return (MONTH);
Z }
Z
Z(M|m)(A|a)(Y|y) {
Z yylval = 5;
Z return(MONTH);
Z }
Z
Z((J|j)(U|u)(N|n))((E|e))? {
Z yylval = 6;
Z return(MONTH);
Z }
Z
Z((J|j)(U|u)(L|l))((Y|y))? {
Z yylval = 7;
Z return(MONTH);
Z }
Z
Z((A|a)(U|u)(G|g))((U|u)(S|s)(T|t))? {
Z yylval = 8;
Z return(MONTH);
Z }
Z
Z((S|s)(E|e)(P|p))((T|t)(E|e)(M|m)(B|b)(E|e)(R|r))? {
Z yylval = 9;
Z return(MONTH);
Z }
Z
Z((O|o)(C|c)(T|t))((O|o)(B|b)(E|e)(R|r))? {
Z yylval = 10;
Z return(MONTH);
Z }
Z
Z((N|n)(O|o)(V|v))((E|e)(M|m)(B|b)(E|e)(R|r))? {
Z yylval = 11;
Z return(MONTH);
Z }
Z
Z((D|d)(E|e)(C|c))((E|e)(M|m)(B|b)(E|e)(R|r))? {
Z yylval = 12;
Z return(MONTH);
Z }
Z
Z"," {
Z return(COMMA);
Z }
Z
Z"/" {
Z return(SLASH);
Z }
Z
Z"-" {
Z return(DASH);
Z }
Z
Z":" {
Z return(COLON);
Z }
Z
Z[ \t] {;}
Z
Z[\n] {
Z return(-1);
Z }
Z%%
Z
STUNKYFLUFF
set `sum lex.l`
if test 41284 != $1
then
echo lex.l: Checksum error. Is: $1, should be: 41284.
fi
#
#
echo Extracting setdate.y:
sed 's/^Z//' >setdate.y <<\STUNKYFLUFF
Z/************************************************************************
Z * *
Z * Copyright (c) 1985, Fred Fish *
Z * All Rights Reserved *
Z * *
Z * This software and/or documentation is released into the *
Z * public domain for personal, non-commercial use only. *
Z * Limited rights to use, modify, and redistribute are hereby *
Z * granted for non-commercial purposes, provided that all *
Z * copyright notices remain intact and all changes are clearly *
Z * documented. The author makes no warranty of any kind with *
Z * respect to this product and explicitly disclaims any implied *
Z * warranties of merchantability or fitness for any particular *
Z * purpose. *
Z * *
Z ************************************************************************
Z */
Z
Z
Z/*
Z * FILE
Z *
Z * setdate.y
Z *
Z * SCCS
Z *
Z * @(#)setdate.y 1.1 2/10/85
Z *
Z * DESCRIPTION
Z *
Z * YACC grammar for a system bootup time/date set utility.
Z *
Z * Accepts date and time in several common formats, for
Z * example:
Z *
Z * January 18,1983 18:45
Z * Jan 18, 1983 18:45:00
Z * Jan 18, 1983 6:45 PM
Z * 18:43 18-Jan-83
Z * 01/18/83
Z * 18:43
Z * 8 AM
Z *
Z * AUTHOR
Z *
Z * Fred Fish
Z * (Currently at UniSoft Systems Inc.)
Z *
Z */
Z
Z%{
Z#include <stdio.h>
Z#include <time.h>
Z
Z#define SYS_ERROR (-1) /* Returned by system calls on error */
Z#define FALSE (0) /* Boolean false */
Z#define TRUE (1) /* Boolean true */
Z
Zstatic struct tm *newtime; /* Time to set current time to */
Zstatic int morning = FALSE; /* Explicit morning specified */
Zstatic int evening = FALSE; /* Explicit evening specified */
Z
Zextern long time (); /* Get current clock value */
Zextern struct tm *localtime (); /* Get local time from clock value */
Zextern char *asctime (); /* Convert local time to string form */
Z
Z%}
Z
Z%token DIGITS MONTH SLASH DASH COMMA COLON AM PM
Z
Z%%
Z
Zwhen : date
Z | time
Z | date time
Z | time date
Z | /* empty */
Z ;
Z
Zdate : DIGITS SLASH DIGITS SLASH DIGITS
Z {
Z newtime -> tm_mon = $1 - 1;
Z newtime -> tm_mday = $3;
Z newtime -> tm_year = $5 % 100;
Z }
Z | DIGITS DASH MONTH DASH DIGITS
Z {
Z newtime -> tm_mday = $1;
Z newtime -> tm_mon = $3 - 1;
Z newtime -> tm_year = $5 % 100;
Z }
Z | MONTH DIGITS COMMA DIGITS
Z {
Z newtime -> tm_mon = $1 - 1;
Z newtime -> tm_mday = $2;
Z newtime -> tm_year = $4 % 100;
Z }
Z | MONTH DIGITS
Z {
Z newtime -> tm_mon = $1 - 1;
Z newtime -> tm_mday = $2;
Z }
Z ;
Z
Ztime : clock
Z | clock period
Z ;
Z
Zclock : DIGITS COLON DIGITS COLON DIGITS
Z {
Z newtime -> tm_hour = $1;
Z newtime -> tm_min = $3;
Z newtime -> tm_sec = $5;
Z }
Z | DIGITS COLON DIGITS
Z {
Z newtime -> tm_hour = $1;
Z newtime -> tm_min = $3;
Z newtime -> tm_sec = 0;
Z }
Z | DIGITS
Z {
Z newtime -> tm_hour = $1;
Z newtime -> tm_min = 0;
Z newtime -> tm_sec = 0;
Z }
Z ;
Z
Zperiod : AM
Z {
Z morning = TRUE;
Z }
Z | PM
Z {
Z evening = TRUE;
Z }
Z ;
Z
Z%%
Z
Zint main (argc, argv)
Zint argc;
Zchar *argv[];
Z{
Z char buffer[64]; /* buffer to hold arg for date util */
Z register char ch; /* peek at first character of input */
Z register int status; /* system call result code */
Z auto long systime; /* Current system time */
Z
Z if (time (&systime) == SYS_ERROR) {
Z fprintf (stderr, "%s: can't get current time: ", argv[0]);
Z perror ("");
Z }
Z newtime = localtime (&systime);
Z do {
Z printf ("Enter current date & time (? for help) >> ");
Z fflush (stdout);
Z ch = getchar (); /* Peek at first */
Z if (ch == '?') { /* Wants help? */
Z usage (); /* Give good help */
Z while (getchar () != '\n') {;} /* Flush line */
Z } else {
Z ungetc (ch, stdin); /* Put back peek */
Z }
Z } while (ch == '?'); /* Until no ? */
Z yyparse ();
Z if (morning) {
Z newtime -> tm_hour %= 12;
Z } else if (evening) {
Z newtime -> tm_hour %= 12;
Z newtime -> tm_hour += 12;
Z }
Z#ifdef OLDFORMAT
Z sprintf (buffer,"date %02.2d%02.2d%02.2d%02.2d%02.2d.%02.2d",
Z newtime -> tm_year,
Z newtime -> tm_mon + 1,
Z newtime -> tm_mday,
Z newtime -> tm_hour,
Z newtime -> tm_min,
Z newtime -> tm_sec);
Z#else
Z sprintf (buffer,"date %02.2d%02.2d%02.2d%02.2d%02.2d",
Z newtime -> tm_mon + 1,
Z newtime -> tm_mday,
Z newtime -> tm_hour,
Z newtime -> tm_min,
Z newtime -> tm_year);
Z#endif
Z status = system (buffer);
Z if (status == SYS_ERROR) {
Z fprintf (stderr, "%s: can't set time: ", argv[0]);
Z perror ("");
Z }
Z return (status);
Z}
Z
Zstatic char *documentation[] = {
Z "",
Z "Date and time may be entered in any of several common formats.",
Z "Default is current date and time. Examples are:",
Z "",
Z "\tApril 14, 1983 13:41",
Z "\t14-Apr-83 13:41:00",
Z "\t4/14/83 13:41",
Z "\t1:41 PM",
Z "\tApr 14",
Z "",
Z "Acceptable but not recommended are:",
Z "",
Z "\tApr 14, 83",
Z "\t14-April-1983",
Z "\t4/14/1983",
Z "",
Z 0, /* MARKS END OF STRING LIST */
Z};
Z
Zstatic usage()
Z{
Z register char **dp;
Z
Z dp = documentation; /* Init string pointer pointer */
Z while (*dp) { /* While another good pointer */
Z printf ("%s\n", *dp++); /* Print what it points to */
Z }
Z}
Z
Zyywrap () /* Thought this was in library */
Z{
Z return (1);
Z}
Z
Z#include "lex.c" /* Output of "lex" from lex.l */
Z
STUNKYFLUFF
set `sum setdate.y`
if test 25520 != $1
then
echo setdate.y: Checksum error. Is: $1, should be: 25520.
fi
echo ALL DONE BUNKY!
exit 0