February 1995 - tz - lists.iana.org

Re:unistd.h
by ado 22 Feb '95

22 Feb '95

After receiving the message... > I ftped the tz*95 data from elsie.nci.nih.gov. However, all the little > utilities #include the file 'private.h', which in turn #includes > a file called 'unistd.h', which unfortunately is not available > on my system. ...I followed up asking for details and learned that... > What I'm using is a win311/dos system. My c compiler is > microsoft's c/c++ ver. 7. If anyone knows where F_OK and R_OK (manifest constants needed when calling "access") can be found when using the above compiler, I'd appreciate hearing from you by electronic mail. Note that it isn't any of... #include "sys/types.h" /* for time_t */ #include "stdio.h" #include "ctype.h" #include "errno.h" #include "string.h" #include "limits.h" /* for CHAR_BIT */ #include "time.h" #include "stdlib.h" #include "unistd.h" /* for F_OK and R_OK */ --ado

1 0

unistd.h
by peternm＠oslonett.no 21 Feb '95

21 Feb '95

Following Paul Eggert's (eggert(a)twinsun.com) advice, I ftped the tz*95 data from elsie.nci.nih.gov. However, all the little utilities #include the file 'private.h', which in turn #includes a file called 'unistd.h', which unfortunately is not available on my system. Is this file crucial to any of the functions in the package, or can I safely delete the reference without ill side effects? All the best, Peter ============================================================ Peter N. M. Hansteen peternm(a)oslonett.no Datadokumentasjon A/S, Bredsgaarden 2, N-5003 Bergen, Norway Tel: +47 55 32 08 02 Fax: +47 55 32 14 95

1 0

FYI: date_parse - simple date parsing routine and programs
by Monty Solomon 20 Feb '95

20 Feb '95

Newsgroups: alt.sources From: jef(a)netcom.com (Jef Poskanzer) Subject: date_parse - simple date parsing routine and programs Message-ID: <jefD3uzqC.Mos(a)netcom.com> Reply-To: Jef Poskanzer <jef(a)netcom.com> Organization: Paratheo-Anametamystikhood Of Eris Esoteric Date: Sat, 11 Feb 1995 23:25:24 GMT Lines: 2048 Sender: jef(a)netcom18.netcom.com date_parse - date parsing routine and programs version 1.0 of 11feb95 For a while now I've been somewhat unhappy with the various date-parsing routines available - yacc-based, lex-based, ad-hoc. Large code size and not very portable are the main complaints. So I wrote a new one that just does a bunch of sscanf's until one matches. Slow, but small and portable. To figure out what formats to support I did a survey of Date: lines in a bunch of Usenet articles. The following two formats accounted for more than 99% of all articles: N mth YYYY HH:MM:SS ampm zone wdy, N mth YYYY HH:MM:SS ampm zone I added Unix ctime() format and a few others: wdy mth N HH:MM:SS ampm zone YYYY HH:MM:SS ampm zone N mth YYYY N mth YYYY HH:MM:SS ampm No-zone, no-seconds, and no-am/pm versions of each are also supported. Note that dd/mm/yy and mm/dd/yy are NOT supported - those formats are dumb. Aside from the date-parsing routine, this package includes some programs that exercise it: o date_sort - sort a file's lines by date o date_order - order a list of files by netnews/mail-format Date: lines o deltime - subtract two times and show the difference o xmit_time - figure transmission time of netnews articles - - - - - - - - - - #! /bin/sh # This is a shell archive, meaning: # 1. Remove everything above the #! /bin/sh line. # 2. Save the resulting text in a file. # 3. Execute the file with /bin/sh (not csh) to create the files: # Makefile # README # ctime.c # date_order.1 # date_order.c # date_parse.3 # date_parse.c # date_sort.1 # date_sort.c # deltime.1 # deltime.c # dptest.c # test_input # test_output # xmit_time.1 # xmit_time.c # This archive created: Sat Feb 11 15:21:30 1995 # By: Jef Poskanzer export PATH; PATH=/bin:$PATH echo shar: extracting "'Makefile'" '(1873 characters)' if test -f 'Makefile' then echo shar: will not over-write existing file "'Makefile'" else sed 's/^X//' << \SHAR_EOF > 'Makefile' X# Makefile for date_parse and friends X X# CONFIGURE: the directory where you want the library installed XLIBDIR = /usr/local/lib X X# CONFIGURE: the directory where you want the executables installed XBINDIR = /usr/local/bin X X# CONFIGURE: the directory tree where you want the man pages installed XMANDIR = /usr/local/man X X# CONFIGURE: type of system - uncomment one of these XDEFINES = -DBSD X#DEFINES = -DSYSV X X# CONFIGURE: your compiler X#CC = cc XCC = gcc -ansi -pedantic X X# CONFIGURE: your compiler flags XCFLAGS = -O $(DEFINES) X#CFLAGS = -g $(DEFINES) X#CFLAGS = $(DEFINES) X X# CONFIGURE: your loader flags XLDFLAGS = -s X#LDFLAGS = X X# End of configurable definitions. X XLIB = libdate_parse.a XEXES = date_order date_sort deltime xmit_time X Xall: $(LIB) $(EXES) X Xlibdate_parse.a: date_parse.o X rm -f libdate_parse.a X ar rc libdate_parse.a date_parse.o X -ranlib libdate_parse.a X Xdate_order: date_order.c $(LIB) X $(CC) $(CFLAGS) $(LDFLAGS) date_order.c $(LIB) -o date_order X Xdate_sort: date_sort.c $(LIB) X $(CC) $(CFLAGS) $(LDFLAGS) date_sort.c $(LIB) -o date_sort X Xdeltime: deltime.c $(LIB) X $(CC) $(CFLAGS) $(LDFLAGS) deltime.c $(LIB) -o deltime X Xxmit_time: xmit_time.c $(LIB) X $(CC) $(CFLAGS) $(LDFLAGS) xmit_time.c $(LIB) -o xmit_time X Xctime: ctime.c X $(CC) $(CFLAGS) $(LDFLAGS) ctime.c -o ctime X X.c.o: X $(CC) $(CFLAGS) -c $< X Xtest: all dptest X ./dptest < test_input | diff test_output - X Xdptest: dptest.c $(LIB) X $(CC) $(CFLAGS) $(LDFLAGS) dptest.c $(LIB) -o dptest X Xinstall: all X for i in $(LIB) ; do \ X rm -f $(LIBDIR)/$$i ; \ X cp $$i $(LIBDIR) ; \ X done X for i in $(EXES) ; do \ X rm -f $(BINDIR)/$$i ; \ X cp $$i $(BINDIR) ; \ X done X rm -f $(MANDIR)/man3/date_parse.3 X cp date_parse.3 $(MANDIR)/man3 X for i in $(EXES) ; do \ X rm -f $(MANDIR)/man1/$$i.1 ; \ X cp $$i.1 $(MANDIR)/man1 ; \ X done X Xclean: X rm -f *.o *.a $(EXES) dptest ctime a.out core SHAR_EOF if test 1873 -ne "`wc -c < 'Makefile'`" then echo shar: error transmitting "'Makefile'" '(should have been 1873 characters)' fi fi # end of overwriting check echo shar: extracting "'README'" '(1546 characters)' if test -f 'README' then echo shar: will not over-write existing file "'README'" else sed 's/^X//' << \SHAR_EOF > 'README' X date_parse - date parsing routine and programs X version 1.0 of 11feb95 X XFor a while now I've been somewhat unhappy with the various Xdate-parsing routines available - yacc-based, lex-based, ad-hoc. Large Xcode size and not very portable are the main complaints. So I wrote a Xnew one that just does a bunch of sscanf's until one matches. Slow, Xbut small and portable. To figure out what formats to support I did a Xsurvey of Date: lines in a bunch of Usenet articles. The following two Xformats accounted for more than 99% of all articles: X X N mth YYYY HH:MM:SS ampm zone X wdy, N mth YYYY HH:MM:SS ampm zone X XI added Unix ctime() format and a few others: X X wdy mth N HH:MM:SS ampm zone YYYY X HH:MM:SS ampm zone N mth YYYY X N mth YYYY X HH:MM:SS ampm X XNo-zone, no-seconds, and no-am/pm versions of each are also supported. XNote that dd/mm/yy and mm/dd/yy are NOT supported - those formats are Xdumb. X XAside from the date-parsing routine, this package includes some programs Xthat exercise it: X o date_sort - sort a file's lines by date X o date_order - order a list of files by netnews/mail-format Date: lines X o deltime - subtract two times and show the difference X o xmit_time - figure transmission time of netnews articles X XSee the manual entries for more details. X X XTo install: X Unpack the files. X Edit the Makefile to change the configuration options if necessary. X Make test to check that it works right. X Make install. X XComments to: X Jef Poskanzer jef(a)netcom.com jef(a)well.com SHAR_EOF if test 1546 -ne "`wc -c < 'README'`" then echo shar: error transmitting "'README'" '(should have been 1546 characters)' fi fi # end of overwriting check echo shar: extracting "'ctime.c'" '(225 characters)' if test -f 'ctime.c' then echo shar: will not over-write existing file "'ctime.c'" else sed 's/^X//' << \SHAR_EOF > 'ctime.c' X/* simple debugging tool */ X X#include <stdio.h> X#include <time.h> X Xvoid Xmain( argc, argv ) X int argc; X char* argv[]; X { X time_t t; X X t = atoi( argv[1] ); X printf( "%s\n", ctime( &t ) ); X exit( 0 ); X } SHAR_EOF if test 225 -ne "`wc -c < 'ctime.c'`" then echo shar: error transmitting "'ctime.c'" '(should have been 225 characters)' fi fi # end of overwriting check echo shar: extracting "'date_order.1'" '(1535 characters)' if test -f 'date_order.1' then echo shar: will not over-write existing file "'date_order.1'" else sed 's/^X//' << \SHAR_EOF > 'date_order.1' X.TH date_order 1 "11 February 1995" X.SH NAME Xdate_order - order filenames by date X.SH SYNOPSIS X.B date_order X.RI [ file X.IR ... ] X.SH DESCRIPTION X.PP XGiven a set of filenames as arguments, looks in each file for Xan email/netnews-format Date: line and writes the filenames out again Xsorted by the dates. X.PP XThis does not change or rearrange the actual files in any way. XAll it does it produce a new list of the fileNAMEs, sorted by the dates Xin the files. X.PP XThe intended use is with a shell's backquote construct. XFor instance, if you have a version of uudecode that automatically Xskips headers and trailers and handles multiple input and output files X(such as my version), Xthen you can decode the entire current contents of a picture-newsgroup spool Xdirectory with one command: X.nf X uudecode `date_order *` X.fi XThe reason you want to use date_order instead of just doing "uudecode *" Xis that netnews articles often arrive out of order. XUsing date_order hands them to uudecode in the order they were posted. X.SH "SEE ALSO" Xdate_sort(1), deltime(1), xmit_time(1), date_parse(3), uudecode(1) X.SH AUTHOR XCopyright (C) 1995 by Jef Poskanzer. X.\" Permission to use, copy, modify, and distribute this software and its X.\" documentation for any purpose and without fee is hereby granted, provided X.\" that the above copyright notice appear in all copies and that both that X.\" copyright notice and this permission notice appear in supporting X.\" documentation. This software is provided "as is" without express or X.\" implied warranty. SHAR_EOF if test 1535 -ne "`wc -c < 'date_order.1'`" then echo shar: error transmitting "'date_order.1'" '(should have been 1535 characters)' fi fi # end of overwriting check echo shar: extracting "'date_order.c'" '(3040 characters)' if test -f 'date_order.c' then echo shar: will not over-write existing file "'date_order.c'" else sed 's/^X//' << \SHAR_EOF > 'date_order.c' X/* date_order - order filenames by date X** X** Copyright (C) 1995 by Jef Poskanzer <jef(a)netcom.com>. X** X** Permission to use, copy, modify, and distribute this software and its X** documentation for any purpose and without fee is hereby granted, provided X** that the above copyright notice appear in all copies and that both that X** copyright notice and this permission notice appear in supporting X** documentation. This software is provided "as is" without express or X** implied warranty. X*/ X X#include <stdio.h> X#include <string.h> X#include <malloc.h> X#include <time.h> X Xextern time_t date_parse(); X Xstatic void usage(); Xstatic time_t date_file(); Xstatic int file_compare(); Xstatic char* my_malloc(); Xstatic char* my_realloc(); Xstatic void out_of_mem(); X Xstatic char* argv0; X Xstruct file X { X char* name; X time_t date; X }; X Xstatic int maxfiles, nfiles; Xstatic struct file* files; X Xvoid Xmain( argc, argv ) X int argc; X char* argv[]; X { X int argn; X int i; X X argv0 = argv[0]; X argn = 1; X if ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' ) X usage(); X X maxfiles = argc - argn; X files = (struct file*) my_malloc( maxfiles * sizeof(struct file) ); X nfiles = 0; X X while ( argn < argc ) X { X files[nfiles].name = (char*) my_malloc( strlen( argv[argn] ) + 1 ); X (void) strcpy( files[nfiles].name, argv[argn] ); X files[nfiles].date = date_file( argv[argn] ); X ++nfiles; X ++argn; X } X X qsort( files, nfiles, sizeof(struct file), file_compare ); X X for ( i = 0; i < nfiles; ++i ) X { X if ( i != 0 ) X putchar( ' ' ); X fputs( files[i].name, stdout ); X } X putchar( '\n' ); X X exit( 0 ); X } X Xstatic void Xusage() X { X (void) fprintf( stderr, "usage: %s [file ...]\n", argv0 ); X exit( 1 ); X } X Xstatic time_t Xdate_file( name ) X char* name; X { X FILE* f; X char line[30000]; X time_t t; X X f = fopen( name, "r" ); X if ( f == (FILE*) 0 ) X { X perror( name ); X return (time_t) -1; X } X X for (;;) X { X if ( fgets( line, sizeof(line), f ) == (char*) 0 ) X break; X if ( line[0] == '\n' ) X break; X if ( strncmp( line, "Date:", 5 ) == 0 ) X { X (void) fclose( f ); X t = date_parse( &line[5] ); X if ( t == (time_t) -1 ) X (void) fprintf( X stderr, "%s: unparsable date in %s - %s", X argv0, name, &line[5] ); X return t; X } X } X X (void) fprintf( stderr, "%s: no Date: line found in %s\n", argv0, name ); X (void) fclose( f ); X return (time_t) -1; X } X Xstatic int Xfile_compare( f1, f2 ) X struct file* f1; X struct file* f2; X { X return f1->date - f2->date; X } X Xstatic char* Xmy_malloc( size ) X unsigned size; X { X char* r; X X r = malloc( size ); X if ( r == (char*) 0 ) X out_of_mem(); X return r; X } X Xstatic char* Xmy_realloc( p, size ) X char* p; X unsigned size; X { X char* r; X X r = realloc( p, size ); X if ( r == (char*) 0 ) X out_of_mem(); X return r; X } X Xstatic void Xout_of_mem() X { X (void) fprintf( stderr, "%s: out of memory\n", argv0 ); X exit( 1 ); X } SHAR_EOF if test 3040 -ne "`wc -c < 'date_order.c'`" then echo shar: error transmitting "'date_order.c'" '(should have been 3040 characters)' fi fi # end of overwriting check echo shar: extracting "'date_parse.3'" '(1789 characters)' if test -f 'date_parse.3' then echo shar: will not over-write existing file "'date_parse.3'" else sed 's/^X//' << \SHAR_EOF > 'date_parse.3' X.TH date_parse 3 "11 February 1995" X.SH NAME Xdate_parse - parse string dates into internal form X.SH SYNOPSIS Xtime_t date_parse( char* str ) X.SH DESCRIPTION X.PP XParses a date string into standard Unix internal time form (seconds Xsince epoch). XThe date should be in one of the following formats: X.nf X N mth YYYY HH:MM:SS ampm zone X HH:MM:SS ampm zone N mth YYYY X wdy, N mth YYYY HH:MM:SS ampm zone X wdy mth N HH:MM:SS ampm zone YYYY X N mth YYYY X HH:MM:SS ampm X.fi XNo-zone, no-seconds, and no-am/pm versions of each are also allowed. XAny missing parts default to the current date/time. XNote that dd/mm/yy and mm/dd/yy are not supported - those formats are dumb. X.SH SPEED X.PP XThe implementation is just a bunch of sscanf's - small and portable, but slow. XStill, it's not that bad. XOn a SPARCstation 2 parsing ~70000 random dates, the average time Xwas 0.94 msec/date. XThis compares surprising well with the lex-based date parser from Xthe MH package, which took 0.34 msec/date in the same test. XThe yacc-based parser used in many netnews packages is about halfway Xbetween the two. X.PP XIn any application which has to open a file for each date - and both XMH and netnews are such applications - the difference in date parsing Xspeed will not be perceptible to the user. X.SH "SEE ALSO" Xdate_sort(1), date_order(1), deltime(1), xmit_time(1) X.SH AUTHOR XCopyright (C) 1995 by Jef Poskanzer. X.\" Permission to use, copy, modify, and distribute this software and its X.\" documentation for any purpose and without fee is hereby granted, provided X.\" that the above copyright notice appear in all copies and that both that X.\" copyright notice and this permission notice appear in supporting X.\" documentation. This software is provided "as is" without express or X.\" implied warranty. SHAR_EOF if test 1789 -ne "`wc -c < 'date_parse.3'`" then echo shar: error transmitting "'date_parse.3'" '(should have been 1789 characters)' fi fi # end of overwriting check echo shar: extracting "'date_parse.c'" '(19522 characters)' if test -f 'date_parse.c' then echo shar: will not over-write existing file "'date_parse.c'" else sed 's/^X//' << \SHAR_EOF > 'date_parse.c' X/* date_parse - parse string dates into internal form X** X** Copyright (C) 1995 by Jef Poskanzer <jef(a)netcom.com>. X** X** Permission to use, copy, modify, and distribute this software and its X** documentation for any purpose and without fee is hereby granted, provided X** that the above copyright notice appear in all copies and that both that X** copyright notice and this permission notice appear in supporting X** documentation. This software is provided "as is" without express or X** implied warranty. X*/ X X/* For a while now I've been somewhat unhappy with the various X** date-parsing routines available - yacc-based, lex-based, ad-hoc. Large X** code size and not very portable are the main complaints. So I wrote a X** new one that just does a bunch of sscanf's until one matches. Slow, X** but small and portable. To figure out what formats to support I did a X** survey of Date: lines in a bunch of Usenet articles. The following X** two formats accounted for more than 99% of all articles: X** N mth YYYY HH:MM:SS ampm zone X** wdy, N mth YYYY HH:MM:SS ampm zone X** I added Unix ctime() format and a few others: X** wdy mth N HH:MM:SS ampm zone YYYY X** HH:MM:SS ampm zone N mth YYYY X** N mth YYYY X** HH:MM:SS ampm X** No-zone, no-seconds, and no-am/pm versions of each are also supported. X** Note that dd/mm/yy and mm/dd/yy are NOT supported - those formats are X** dumb. X*/ X X#include <sys/types.h> X#include <stdio.h> X#include <string.h> X#include <ctype.h> X#include <time.h> X X#ifdef SYSV Xextern long timezone; X#define bzero(p, n) memset(p, 0, n) X#endif /* SYSV */ X X#undef DEBUG X X#ifdef DEBUG X#define DP(str) (void) fprintf( stderr, "%s\n", str ) X#else X#define DP(str) (0) X#endif X Xstruct strint { X char* s; X int i; X }; X Xstatic void Xpound_case( str ) X char* str; X { X for ( ; *str != '\0'; ++str ) X { X if ( isupper( *str ) ) X *str = tolower( *str ); X } X } X Xstatic int Xstrint_compare( v1, v2 ) X char* v1; X char* v2; X { X return strcmp( ((struct strint*) v1)->s, ((struct strint*) v2)->s ); X } X Xstatic int Xstrint_search( str, tab, n, iP ) X char* str; X struct strint* tab; X int n; X int* iP; X { X int i, h, l, r; X X l = 0; X h = n - 1; X for (;;) X { X i = ( h + l ) / 2; X r = strcmp( str, tab[i].s ); X if ( r < 0 ) X h = i - 1; X else if ( r > 0 ) X l = i + 1; X else X { X *iP = tab[i].i; X return 1; X } X if ( h < l ) X return 0; X } X } X X#define AMPM_NONE 0 X#define AMPM_AM 1 X#define AMPM_PM 2 Xstatic int Xampm_fix( hour, ampm ) X int hour, ampm; X { X switch ( ampm ) X { X case AMPM_NONE: X break; X case AMPM_AM: X if ( hour == 12 ) X hour = 0; X break; X case AMPM_PM: X if ( hour != 12 ) X hour += 12; X break; X } X return hour; X } X Xstatic int Xscan_ampm( str_ampm, ampmP ) X char* str_ampm; X int* ampmP; X { X static struct strint ampm_tab[] = { X { "am", AMPM_AM }, { "pm", AMPM_PM }, X }; X static int sorted = 0; X X if ( ! sorted ) X { X (void) qsort( X ampm_tab, sizeof(ampm_tab)/sizeof(struct strint), X sizeof(struct strint), strint_compare ); X sorted = 1; X } X pound_case( str_ampm ); X return strint_search( X str_ampm, ampm_tab, sizeof(ampm_tab)/sizeof(struct strint), ampmP ); X } X Xstatic int Xscan_wday( str_wday, tm_wdayP ) X char* str_wday; X int* tm_wdayP; X { X static struct strint wday_tab[] = { X { "sun", 0 }, { "sunday", 0 }, X { "mon", 1 }, { "monday", 1 }, X { "tue", 2 }, { "tuesday", 2 }, X { "wed", 3 }, { "wednesday", 3 }, X { "thu", 4 }, { "thursday", 4 }, X { "fri", 5 }, { "friday", 5 }, X { "sat", 6 }, { "saturday", 6 }, X }; X static int sorted = 0; X X if ( ! sorted ) X { X (void) qsort( X wday_tab, sizeof(wday_tab)/sizeof(struct strint), X sizeof(struct strint), strint_compare ); X sorted = 1; X } X pound_case( str_wday ); X return strint_search( X str_wday, wday_tab, sizeof(wday_tab)/sizeof(struct strint), tm_wdayP ); X } X Xstatic int Xscan_mon( str_mon, tm_monP ) X char* str_mon; X int* tm_monP; X { X static struct strint mon_tab[] = { X { "jan", 0 }, { "january", 0 }, X { "feb", 1 }, { "february", 1 }, X { "mar", 2 }, { "march", 2 }, X { "apr", 3 }, { "april", 3 }, X { "may", 4 }, X { "jun", 5 }, { "june", 5 }, X { "jul", 6 }, { "july", 6 }, X { "aug", 7 }, { "august", 7 }, X { "sep", 8 }, { "september", 8 }, X { "oct", 9 }, { "october", 9 }, X { "nov", 10 }, { "november", 10 }, X { "dec", 11 }, { "december", 11 }, X }; X static int sorted = 0; X X if ( ! sorted ) X { X (void) qsort( X mon_tab, sizeof(mon_tab)/sizeof(struct strint), X sizeof(struct strint), strint_compare ); X sorted = 1; X } X pound_case( str_mon ); X return strint_search( X str_mon, mon_tab, sizeof(mon_tab)/sizeof(struct strint), tm_monP ); X } X Xstatic int Xscan_gmtoff( str_gmtoff, gmtoffP ) X char* str_gmtoff; X int* gmtoffP; X { X static struct strint gmtoff_tab[] = { X { "gmt", 0 }, { "utc", 0 }, { "ut", 0 }, X { "0000", 0 }, { "+0000", 0 }, { "-0000", 0 }, X { "0100", 3600 }, { "+0100", 3600 }, { "-0100", -3600 }, X { "0200", 7200 }, { "+0200", 7200 }, { "-0200", -7200 }, X { "0300", 10800 }, { "+0300", 10800 }, { "-0300", -10800 }, X { "0400", 14400 }, { "+0400", 14400 }, { "-0400", -14400 }, X { "0500", 18000 }, { "+0500", 18000 }, { "-0500", -18000 }, X { "0600", 21600 }, { "+0600", 21600 }, { "-0600", -21600 }, X { "0700", 25200 }, { "+0700", 25200 }, { "-0700", -25200 }, X { "0800", 28800 }, { "+0800", 28800 }, { "-0800", -28800 }, X { "0900", 32400 }, { "+0900", 32400 }, { "-0900", -32400 }, X { "1000", 36000 }, { "+1000", 36000 }, { "-1000", -36000 }, X { "1100", 39600 }, { "+1100", 39600 }, { "-1100", -39600 }, X { "1200", 43200 }, { "+1200", 43200 }, { "-1200", -43200 }, X { "jst", 7200 }, { "jdt", 10800 }, X { "bst", -3600 }, X { "nst", -12600 }, X { "ast", -14400 }, { "edt", -10800 }, X { "est", -18000 }, { "edt", -14400 }, X { "cst", -21600 }, { "cdt", -18000 }, X { "mst", -25200 }, { "mdt", -21600 }, X { "pst", -28800 }, { "pdt", -25200 }, X { "yst", -32400 }, { "ydt", -28800 }, X { "hst", -36000 }, { "hdt", -32400 }, X { "a", -3600 }, { "b", -7200 }, { "c", -10800 }, { "d", -14400 }, X { "e", -18000 }, { "f", -21600 }, { "g", -25200 }, { "h", -28800 }, X { "i", -32400 }, { "k", -36000 }, { "l", -39600 }, { "m", -43200 }, X { "n", -3600 }, { "o", -7200 }, { "p", -10800 }, { "q", -14400 }, X { "r", -18000 }, { "s", -21600 }, { "t", -25200 }, { "u", -28800 }, X { "v", -32400 }, { "w", -36000 }, { "x", -39600 }, { "y", -43200 }, X }; X static int sorted = 0; X X if ( ! sorted ) X { X (void) qsort( X gmtoff_tab, sizeof(gmtoff_tab)/sizeof(struct strint), X sizeof(struct strint), strint_compare ); X sorted = 1; X } X pound_case( str_gmtoff ); X return strint_search( X str_gmtoff, gmtoff_tab, sizeof(gmtoff_tab)/sizeof(struct strint), X gmtoffP ); X } X Xstatic int Xis_leap( year ) X int year; X { X return year % 400? ( year % 100 ? ( year % 4 ? 0 : 1 ) : 0 ) : 1; X } X X/* Basically the same as mktime(). */ Xstatic time_t Xtm_to_time( tmP ) X struct tm* tmP; X { X time_t t; X static int monthtab[12] = { X 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334 }; X X /* Years since epoch, converted to days. */ X t = ( tmP->tm_year - 70 ) * 365; X /* Leap days for previous years. */ X t += ( tmP->tm_year - 68 ) / 4; X /* Days for the beginning of this month. */ X t += monthtab[tmP->tm_mon]; X /* Leap day for this year. */ X if ( tmP->tm_mon >= 2 && is_leap( tmP->tm_year ) ) X ++t; X /* Days since the beginning of this month. */ X t += tmP->tm_mday - 1; /* 1-based field */ X /* Hours, minutes, and seconds. */ X t = t * 24 + tmP->tm_hour; X t = t * 60 + tmP->tm_min; X t = t * 60 + tmP->tm_sec; X X return t; X } X Xtime_t Xdate_parse( str ) X char* str; X { X time_t now; X struct tm* now_tmP; X struct tm tm; X char* cp; X char str_mon[500], str_wday[500], str_gmtoff[500], str_ampm[500]; X int tm_sec, tm_min, tm_hour, tm_mday, tm_mon, tm_year, tm_wday, gmtoff; X int ampm, got_zone; X time_t t; X X /* Initialize tm with relevant parts of current local time. */ X now = time( (time_t*) 0 ); X now_tmP = localtime( &now ); X X bzero( (char*) &tm, sizeof(struct tm) ); X tm.tm_sec = now_tmP->tm_sec; X tm.tm_min = now_tmP->tm_min; X tm.tm_hour = now_tmP->tm_hour; X tm.tm_mday = now_tmP->tm_mday; X tm.tm_mon = now_tmP->tm_mon; X tm.tm_year = now_tmP->tm_year; X ampm = AMPM_NONE; X got_zone = 0; X X /* Find local zone offset. This is the only real area of X ** non-portability, and it's only used for local times that don't X ** specify a zone - those don't occur in email and netnews. X */ X#ifdef SYSV X tzset(); X gmtoff = -timezone; X#else /* SYSV */ X#ifdef BSD X gmtoff = now_tmP->tm_gmtoff; X#else /* BSD */ X /* You have to fill this in yourself. */ X gmtoff = !!!; X#endif /* BSD */ X#endif /* SYSV */ X X /* Skip initial whitespace ourselves - sscanf is clumsy at this. */ X for ( cp = str; *cp == ' ' || *cp == '\t'; ++cp ) X ; X X /* And do the sscanfs. WARNING: you can add more formats here, X ** but be careful! You can easily screw up the parsing of existing X ** formats when you add new ones. X */ X X /* N mth YYYY HH:MM:SS ampm zone */ X if ( ( ( sscanf( cp, "%d %[a-zA-Z] %d %d:%d:%d %[apmAPM] %[^: ]", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, &tm_sec, X str_ampm, str_gmtoff ) == 8 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d %[a-zA-Z] %d %d:%d:%d %[^: ]", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, &tm_sec, X str_gmtoff ) == 7 ) && X scan_mon( str_mon, &tm_mon ) && X scan_gmtoff( str_gmtoff, &gmtoff ) ) X { X DP( "N mth YYYY HH:MM:SS ampm zone" ); X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X got_zone = 1; X } X /* N mth YYYY HH:MM ampm zone */ X else if ( ( ( sscanf( cp, "%d %[a-zA-Z] %d %d:%d %[apmAPM] %[^: ]", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, str_ampm, X str_gmtoff ) == 7 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d %[a-zA-Z] %d %d:%d %[^: ]", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X str_gmtoff ) == 6 ) && X scan_mon( str_mon, &tm_mon ) && X scan_gmtoff( str_gmtoff, &gmtoff ) ) X { X DP( "N mth YYYY HH:MM ampm zone" ); X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X got_zone = 1; X } X /* N mth YYYY HH:MM:SS ampm */ X else if ( ( ( sscanf( cp, "%d %[a-zA-Z] %d %d:%d:%d %[apmAPM]", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, &tm_sec, X str_ampm ) == 7 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d %[a-zA-Z] %d %d:%d:%d", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X &tm_sec ) == 6 ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "N mth YYYY HH:MM:SS ampm" ); X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X } X /* N mth YYYY HH:MM ampm */ X else if ( ( ( sscanf( cp, "%d %[a-zA-Z] %d %d:%d %[apmAPM]", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X str_ampm ) == 6 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d %[a-zA-Z] %d %d:%d", X &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min ) == 5 ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "N mth YYYY HH:MM ampm" ); X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X } X /* HH:MM:SS ampm zone N mth YYYY */ X else if ( ( ( sscanf( cp, "%d:%d:%d %[apmAPM] %[^: ] %d %[a-zA-Z] %d", X &tm_hour, &tm_min, &tm_sec, str_ampm, str_gmtoff, &tm_mday, X str_mon, &tm_year ) == 8 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d:%d:%d %[^: ] %d %[a-zA-Z] %d", X &tm_hour, &tm_min, &tm_sec, str_gmtoff, &tm_mday, str_mon, X &tm_year ) == 7 ) && X scan_gmtoff( str_gmtoff, &gmtoff ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "HH:MM:SS ampm zone N mth YYYY" ); X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X } X /* HH:MM ampm zone N mth YYYY */ X else if ( ( ( sscanf( cp, "%d:%d %[apmAPM] %[^: ] %d %[a-zA-Z] %d", X &tm_hour, &tm_min, str_ampm, str_gmtoff, &tm_mday, str_mon, X &tm_year ) == 7 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d:%d %[^: ] %d %[a-zA-Z] %d", X &tm_hour, &tm_min, str_gmtoff, &tm_mday, str_mon, X &tm_year ) == 6 ) && X scan_gmtoff( str_gmtoff, &gmtoff ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "HH:MM ampm N mth YYYY" ); X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X } X /* HH:MM:SS ampm N mth YYYY */ X else if ( ( ( sscanf( cp, "%d:%d:%d %[apmAPM] %d %[a-zA-Z] %d", X &tm_hour, &tm_min, &tm_sec, str_ampm, &tm_mday, str_mon, X &tm_year ) == 7 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d:%d:%d %d %[a-zA-Z] %d", X &tm_hour, &tm_min, &tm_sec, &tm_mday, str_mon, X &tm_year ) == 6 ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "HH:MM:SS ampm N mth YYYY" ); X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X } X /* HH:MM ampm N mth YYYY */ X else if ( ( ( sscanf( cp, "%d:%d %[apmAPM] %d %[a-zA-Z] %d", X &tm_hour, &tm_min, str_ampm, &tm_mday, str_mon, X &tm_year ) == 6 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d:%d %d %[a-zA-Z] %d", X &tm_hour, &tm_min, &tm_mday, str_mon, &tm_year ) == 5 ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "HH:MM ampm N mth YYYY" ); X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X } X /* wdy, N mth YYYY HH:MM:SS ampm zone */ X else if ( ( ( sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d:%d %[apmAPM] %[^: ]", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X &tm_sec, str_ampm, str_gmtoff ) == 9 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d:%d %[^: ]", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X &tm_sec, str_gmtoff ) == 8 ) && X scan_wday( str_wday, &tm_wday ) && X scan_mon( str_mon, &tm_mon ) && X scan_gmtoff( str_gmtoff, &gmtoff ) ) X { X DP( "wdy, N mth YYYY HH:MM:SS ampm zone" ); X tm.tm_wday = tm_wday; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X got_zone = 1; X } X /* wdy, N mth YYYY HH:MM ampm zone */ X else if ( ( ( sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d %[apmAPM] %[^: ]", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X str_ampm, str_gmtoff ) == 8 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d %[^: ]", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X str_gmtoff ) == 7 ) && X scan_wday( str_wday, &tm_wday ) && X scan_mon( str_mon, &tm_mon ) && X scan_gmtoff( str_gmtoff, &gmtoff ) ) X { X DP( "wdy, N mth YYYY HH:MM ampm zone" ); X tm.tm_wday = tm_wday; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X got_zone = 1; X } X /* wdy, N mth YYYY HH:MM:SS ampm */ X else if ( ( ( sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d:%d %[apmAPM]", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X &tm_sec, str_ampm ) == 8 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d:%d", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X &tm_sec ) == 7 ) && X scan_wday( str_wday, &tm_wday ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "wdy, N mth YYYY HH:MM:SS ampm" ); X tm.tm_wday = tm_wday; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X } X /* wdy, N mth YYYY HH:MM ampm */ X else if ( ( ( sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d %[apmAPM]", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, &tm_min, X str_ampm ) == 7 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%[a-zA-Z], %d %[a-zA-Z] %d %d:%d", X str_wday, &tm_mday, str_mon, &tm_year, &tm_hour, X &tm_min ) == 6 ) && X scan_wday( str_wday, &tm_wday ) && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "wdy, N mth YYYY HH:MM ampm" ); X tm.tm_wday = tm_wday; X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X } X /* wdy mth N HH:MM:SS ampm zone YYYY */ X else if ( ( ( sscanf( cp, "%[a-zA-Z] %[a-zA-Z] %d %d:%d:%d %[apmAPM] %[^: ] %d", X str_wday, str_mon, &tm_mday, &tm_hour, &tm_min, &tm_sec, X str_ampm, str_gmtoff, &tm_year ) == 9 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%[a-zA-Z] %[a-zA-Z] %d %d:%d:%d %[^: ] %d", X str_wday, str_mon, &tm_mday, &tm_hour, &tm_min, &tm_sec, X str_gmtoff, &tm_year ) == 8 ) && X scan_wday( str_wday, &tm_wday ) && X scan_mon( str_mon, &tm_mon ) && X scan_gmtoff( str_gmtoff, &gmtoff ) ) X { X DP( "wdy mth N HH:MM:SS ampm zone YYYY" ); X tm.tm_wday = tm_wday; X tm.tm_mon = tm_mon; X tm.tm_mday = tm_mday; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X got_zone = 1; X tm.tm_year = tm_year; X } X /* wdy mth N HH:MM ampm zone YYYY */ X else if ( ( ( sscanf( cp, "%[a-zA-Z] %[a-zA-Z] %d %d:%d %[apmAPM] %[^: ] %d", X str_wday, str_mon, &tm_mday, &tm_hour, &tm_min, X str_ampm, str_gmtoff, &tm_year ) == 8 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%[a-zA-Z] %[a-zA-Z] %d %d:%d %[^: ] %d", X str_wday, str_mon, &tm_mday, &tm_hour, &tm_min, X str_gmtoff, &tm_year ) == 7 ) && X scan_wday( str_wday, &tm_wday ) && X scan_mon( str_mon, &tm_mon ) && X scan_gmtoff( str_gmtoff, &gmtoff ) ) X { X DP( "wdy mth N HH:MM ampm zone YYYY" ); X tm.tm_wday = tm_wday; X tm.tm_mon = tm_mon; X tm.tm_mday = tm_mday; X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X got_zone = 1; X tm.tm_year = tm_year; X } X /* N mth YYYY */ X else if ( sscanf( cp, "%d %[a-zA-Z] %d", X &tm_mday, str_mon, &tm_year ) == 3 && X scan_mon( str_mon, &tm_mon ) ) X { X DP( "N mth YYYY" ); X tm.tm_mday = tm_mday; X tm.tm_mon = tm_mon; X tm.tm_year = tm_year; X tm.tm_hour = 0; X tm.tm_min = 0; X tm.tm_sec = 0; X } X /* HH:MM:SS ampm */ X else if ( ( sscanf( cp, "%d:%d:%d %[apmAPM]", X &tm_hour, &tm_min, &tm_sec, str_ampm ) == 4 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d:%d:%d", &tm_hour, &tm_min, &tm_sec ) == 3 ) X { X DP( "HH:MM:SS ampm" ); X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = tm_sec; X } X /* HH:MM ampm */ X else if ( ( sscanf( cp, "%d:%d %[apmAPM]", &tm_hour, &tm_min, X str_ampm ) == 3 && X scan_ampm( str_ampm, &ampm ) ) || X sscanf( cp, "%d:%d", &tm_hour, &tm_min ) == 2 ) X { X DP( "HH:MM" ); X tm.tm_hour = ampm_fix( tm_hour, ampm ); X tm.tm_min = tm_min; X tm.tm_sec = 0; X } X else X return (time_t) -1; X X if ( tm.tm_year > 1900 ) X tm.tm_year -= 1900; X else if ( tm.tm_year < 70 ) X tm.tm_year += 100; X X t = tm_to_time( &tm ); X t -= gmtoff; X if ( tm.tm_isdst && ! got_zone ) X t -= 60*60; X X return t; X } SHAR_EOF if test 19522 -ne "`wc -c < 'date_parse.c'`" then echo shar: error transmitting "'date_parse.c'" '(should have been 19522 characters)' fi fi # end of overwriting check echo shar: extracting "'date_sort.1'" '(784 characters)' if test -f 'date_sort.1' then echo shar: will not over-write existing file "'date_sort.1'" else sed 's/^X//' << \SHAR_EOF > 'date_sort.1' X.TH date_sort 1 "11 February 1995" X.SH NAME Xdate_sort - sort input by date X.SH SYNOPSIS X.B date_sort X.RI [ file X.IR ... ] X.SH DESCRIPTION X.PP XReads in lines from the input files or stdin. XThe lines should consist of or begin with dates. XSorts the lines and writes them out. X.SH "SEE ALSO" Xdate_order(1), deltime(1), xmit_time(1), date_parse(3) X.SH AUTHOR XCopyright (C) 1995 by Jef Poskanzer. X.\" Permission to use, copy, modify, and distribute this software and its X.\" documentation for any purpose and without fee is hereby granted, provided X.\" that the above copyright notice appear in all copies and that both that X.\" copyright notice and this permission notice appear in supporting X.\" documentation. This software is provided "as is" without express or X.\" implied warranty. SHAR_EOF if test 784 -ne "`wc -c < 'date_sort.1'`" then echo shar: error transmitting "'date_sort.1'" '(should have been 784 characters)' fi fi # end of overwriting check echo shar: extracting "'date_sort.c'" '(3085 characters)' if test -f 'date_sort.c' then echo shar: will not over-write existing file "'date_sort.c'" else sed 's/^X//' << \SHAR_EOF > 'date_sort.c' X/* date_sort - sort input by date X** X** Copyright (C) 1995 by Jef Poskanzer <jef(a)netcom.com>. X** X** Permission to use, copy, modify, and distribute this software and its X** documentation for any purpose and without fee is hereby granted, provided X** that the above copyright notice appear in all copies and that both that X** copyright notice and this permission notice appear in supporting X** documentation. This software is provided "as is" without express or X** implied warranty. X*/ X X#include <stdio.h> X#include <string.h> X#include <malloc.h> X#include <time.h> X Xextern time_t date_parse(); X Xstatic void usage(); Xstatic void read_file(); Xstatic int line_compare(); Xstatic char* my_malloc(); Xstatic char* my_realloc(); Xstatic void out_of_mem(); X Xstatic char* argv0; X Xstruct line X { X char* text; X time_t date; X }; X Xstatic int maxlines, nlines; Xstatic struct line* lines; X Xvoid Xmain( argc, argv ) X int argc; X char* argv[]; X { X int argn; X FILE* f; X int i; X X argv0 = argv[0]; X argn = 1; X if ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' ) X usage(); X X maxlines = 500; /* arbitrary initial value */ X lines = (struct line*) my_malloc( maxlines * sizeof(struct line) ); X nlines = 0; X X if ( argn == argc ) X read_file( stdin ); X else X while ( argn < argc ) X { X if ( strcmp( argv[argn], "-" ) == 0 ) X read_file( stdin ); X else X { X f = fopen( argv[argn], "r" ); X if ( f == (FILE*) 0 ) X { X perror( argv[argn] ); X exit( 1 ); X } X read_file( f ); X (void) fclose( f ); X } X ++argn; X } X X qsort( lines, nlines, sizeof(struct line), line_compare ); X X for ( i = 0; i < nlines; ++i ) X fputs( lines[i].text, stdout ); X X exit( 0 ); X } X Xstatic void Xusage() X { X (void) fprintf( stderr, "usage: %s [file ...]\n", argv0 ); X exit( 1 ); X } X Xstatic void Xread_file( f ) X FILE* f; X { X char aline[10000]; X X /* Read until end of file. */ X while ( fgets( aline, sizeof(aline), f ) != (char*) 0 ) X { X /* Make sure there's enough room in the lines array. */ X if ( nlines >= maxlines ) X { X maxlines *= 2; X lines = (struct line*) my_realloc( X (char*) lines, maxlines * sizeof(struct line) ); X } X lines[nlines].text = (char*) my_malloc( strlen( aline ) + 1 ); X (void) strcpy( lines[nlines].text, aline ); X lines[nlines].date = date_parse( aline ); X if ( lines[nlines].date == (time_t) -1 ) X (void) fprintf( stderr, "%s: unparsable date - %s", argv0, aline ); X ++nlines; X } X } X Xstatic int Xline_compare( l1, l2 ) X struct line* l1; X struct line* l2; X { X return l1->date - l2->date; X } X Xstatic char* Xmy_malloc( size ) X unsigned size; X { X char* r; X X r = malloc( size ); X if ( r == (char*) 0 ) X out_of_mem(); X return r; X } X Xstatic char* Xmy_realloc( p, size ) X char* p; X unsigned size; X { X char* r; X X r = realloc( p, size ); X if ( r == (char*) 0 ) X out_of_mem(); X return r; X } X Xstatic void Xout_of_mem() X { X (void) fprintf( stderr, "%s: out of memory\n", argv0 ); X exit( 1 ); X } SHAR_EOF if test 3085 -ne "`wc -c < 'date_sort.c'`" then echo shar: error transmitting "'date_sort.c'" '(should have been 3085 characters)' fi fi # end of overwriting check echo shar: extracting "'deltime.1'" '(978 characters)' if test -f 'deltime.1' then echo shar: will not over-write existing file "'deltime.1'" else sed 's/^X//' << \SHAR_EOF > 'deltime.1' X.TH deltime 1 "11 February 1995" X.SH NAME Xdeltime - show difference between two dates X.SH SYNOPSIS X.B deltime X.I date1 X.RI [ date2 ] X.SH DESCRIPTION X.PP XComputes the elapsed time between now and a Xspecified date/time, or between two specified date/times. XBe careful to put the dates in quotes if they contain spaces. XThe output format is dddd hh:mm:ss. X.PP XTimes earlier than 1970 cannot Xbe handled, because that's as far back as the internal Unix time format goes. X.SH "SEE ALSO" Xdate_sort(1), date_order(1), xmit_time(1), date_parse(3) X.SH AUTHOR XCopyright (C) 1995 by Jef Poskanzer. X.\" Permission to use, copy, modify, and distribute this software and its X.\" documentation for any purpose and without fee is hereby granted, provided X.\" that the above copyright notice appear in all copies and that both that X.\" copyright notice and this permission notice appear in supporting X.\" documentation. This software is provided "as is" without express or X.\" implied warranty. SHAR_EOF if test 978 -ne "`wc -c < 'deltime.1'`" then echo shar: error transmitting "'deltime.1'" '(should have been 978 characters)' fi fi # end of overwriting check echo shar: extracting "'deltime.c'" '(1932 characters)' if test -f 'deltime.c' then echo shar: will not over-write existing file "'deltime.c'" else sed 's/^X//' << \SHAR_EOF > 'deltime.c' X/* deltime - show difference between two dates X** X** Copyright (C) 1995 by Jef Poskanzer <jef(a)netcom.com>. X** X** Permission to use, copy, modify, and distribute this software and its X** documentation for any purpose and without fee is hereby granted, provided X** that the above copyright notice appear in all copies and that both that X** copyright notice and this permission notice appear in supporting X** documentation. This software is provided "as is" without express or X** implied warranty. X*/ X X#include <stdio.h> X#include <time.h> X Xextern time_t date_parse(); X Xstatic void usage(); Xstatic void unparsable(); X Xstatic char* argv0; X X#define SECSPERMINUTE 60 X#define SECSPERHOUR (60 * SECSPERMINUTE) X#define SECSPERDAY (24 * SECSPERHOUR) X Xvoid Xmain( argc, argv ) X int argc; X char* argv[]; X { X time_t t1, t2; X long delta; X int days, hours, minutes, secs; X X argv0 = argv[0]; X X if ( argc == 2 ) X { X t1 = date_parse( argv[1] ); X if ( t1 == (time_t) -1 ) X unparsable( argv[1] ); X t2 = time( (time_t*) 0 ); X } X else if ( argc == 3 ) X { X t1 = date_parse( argv[1] ); X if ( t1 == (time_t) -1 ) X unparsable( argv[1] ); X t2 = date_parse( argv[2] ); X if ( t2 == (time_t) -1 ) X unparsable( argv[2] ); X } X else X usage(); X X delta = t2 - t1; X if ( delta < 0 ) X { X (void) printf( "-" ); X delta = -delta; X } X X days = delta / SECSPERDAY; X delta = delta - days * SECSPERDAY; X hours = delta / SECSPERHOUR; X delta = delta - hours * SECSPERHOUR; X minutes = delta / SECSPERMINUTE; X delta = delta - minutes * SECSPERMINUTE; X secs = delta; X X printf( "%d %2d:%02d:%02d\n", days, hours, minutes, secs ); X X exit( 0 ); X } X Xstatic void Xusage() X { X (void) fprintf( stderr, "usage: %s date1 [date2]\n", argv0 ); X exit( 1 ); X } X Xstatic void Xunparsable( str ) X char* str; X { X (void) fprintf( stderr, "%s: unparsable date - %s\n", argv0, str ); X exit( 1 ); X } SHAR_EOF if test 1932 -ne "`wc -c < 'deltime.c'`" then echo shar: error transmitting "'deltime.c'" '(should have been 1932 characters)' fi fi # end of overwriting check echo shar: extracting "'dptest.c'" '(286 characters)' if test -f 'dptest.c' then echo shar: will not over-write existing file "'dptest.c'" else sed 's/^X//' << \SHAR_EOF > 'dptest.c' X#include <sys/types.h> X#include <stdio.h> X#include <time.h> X Xextern time_t date_parse(); X Xmain( argc, argv ) X int argc; X char* argv; X { X char line[5000]; X X while ( gets( line ) != (char*) 0 ) X (void) printf( "%s - %d\n", line, date_parse( line ) ); X X exit( 0 ); X } SHAR_EOF if test 286 -ne "`wc -c < 'dptest.c'`" then echo shar: error transmitting "'dptest.c'" '(should have been 286 characters)' fi fi # end of overwriting check echo shar: extracting "'test_input'" '(4336 characters)' if test -f 'test_input' then echo shar: will not over-write existing file "'test_input'" else sed 's/^X//' << \SHAR_EOF > 'test_input' X6 Feb 1995 09:00:00 AM PST X6 Feb 1995 09:00:00 PST X6 Feb 1995 09:00 AM PST X6 Feb 1995 09:00 PST X6 Feb 1995 09:00:00 AM X6 Feb 1995 09:00:00 X6 Feb 1995 09:00 AM X6 Feb 1995 09:00 X09:00:00 AM PST 6 Feb 1995 X09:00:00 PST 6 Feb 1995 X09:00 AM PST 6 Feb 1995 X09:00 PST 6 Feb 1995 X09:00:00 AM 6 Feb 1995 X09:00:00 6 Feb 1995 X09:00 AM 6 Feb 1995 X09:00 6 Feb 1995 XMon, 6 Feb 1995 09:00:00 AM PST XMon, 6 Feb 1995 09:00:00 PST XMon, 6 Feb 1995 09:00 AM PST XMon, 6 Feb 1995 09:00 PST XMon, 6 Feb 1995 09:00:00 AM XMon, 6 Feb 1995 09:00:00 XMon, 6 Feb 1995 09:00 AM XMon, 6 Feb 1995 09:00 XMon Feb 6 09:00:00 AM PST 1995 XMon Feb 6 09:00:00 PST 1995 XMon Feb 6 09:00 AM PST 1995 XMon Feb 6 09:00 PST 1995 XMon, 6 Feb 1995 09:00:00 AM PST XMon, 6 Feb 1995 09:00:00 PM PST XSun, 6 Feb 1995 09:00:00 PST XSunday, 6 Feb 1995 09:00:00 PST XMon, 6 Feb 1995 09:00:00 PST XMonday, 6 Feb 1995 09:00:00 PST XTue, 6 Feb 1995 09:00:00 PST XTuesday, 6 Feb 1995 09:00:00 PST XWed, 6 Feb 1995 09:00:00 PST XWednesday, 6 Feb 1995 09:00:00 PST XThu, 6 Feb 1995 09:00:00 PST XThursday, 6 Feb 1995 09:00:00 PST XFri, 6 Feb 1995 09:00:00 PST XFriday, 6 Feb 1995 09:00:00 PST XSat, 6 Feb 1995 09:00:00 PST XSaturday, 6 Feb 1995 09:00:00 PST XMon, 6 Jan 1995 09:00:00 PST XMon, 6 January 1995 09:00:00 PST XMon, 6 Feb 1995 09:00:00 PST XMon, 6 February 1995 09:00:00 PST XMon, 6 Mar 1995 09:00:00 PST XMon, 6 March 1995 09:00:00 PST XMon, 6 Apr 1995 09:00:00 PST XMon, 6 April 1995 09:00:00 PST XMon, 6 May 1995 09:00:00 PST XMon, 6 Jun 1995 09:00:00 PST XMon, 6 June 1995 09:00:00 PST XMon, 6 Jul 1995 09:00:00 PST XMon, 6 July 1995 09:00:00 PST XMon, 6 Aug 1995 09:00:00 PST XMon, 6 August 1995 09:00:00 PST XMon, 6 Sep 1995 09:00:00 PST XMon, 6 September 1995 09:00:00 PST XMon, 6 Oct 1995 09:00:00 PST XMon, 6 October 1995 09:00:00 PST XMon, 6 Nov 1995 09:00:00 PST XMon, 6 November 1995 09:00:00 PST XMon, 6 Dec 1995 09:00:00 PST XMon, 6 December 1995 09:00:00 PST XMon, 6 Feb 1995 09:00:00 GMT XMon, 6 Feb 1995 09:00:00 UTC XMon, 6 Feb 1995 09:00:00 UT XMon, 6 Feb 1995 09:00:00 0000 XMon, 6 Feb 1995 09:00:00 +0000 XMon, 6 Feb 1995 09:00:00 -0000 XMon, 6 Feb 1995 09:00:00 0100 XMon, 6 Feb 1995 09:00:00 +0100 XMon, 6 Feb 1995 09:00:00 -0100 XMon, 6 Feb 1995 09:00:00 0200 XMon, 6 Feb 1995 09:00:00 +0200 XMon, 6 Feb 1995 09:00:00 -0200 XMon, 6 Feb 1995 09:00:00 0300 XMon, 6 Feb 1995 09:00:00 +0300 XMon, 6 Feb 1995 09:00:00 -0300 XMon, 6 Feb 1995 09:00:00 0400 XMon, 6 Feb 1995 09:00:00 +0400 XMon, 6 Feb 1995 09:00:00 -0400 XMon, 6 Feb 1995 09:00:00 0500 XMon, 6 Feb 1995 09:00:00 +0500 XMon, 6 Feb 1995 09:00:00 -0500 XMon, 6 Feb 1995 09:00:00 0600 XMon, 6 Feb 1995 09:00:00 +0600 XMon, 6 Feb 1995 09:00:00 -0600 XMon, 6 Feb 1995 09:00:00 0700 XMon, 6 Feb 1995 09:00:00 +0700 XMon, 6 Feb 1995 09:00:00 -0700 XMon, 6 Feb 1995 09:00:00 0800 XMon, 6 Feb 1995 09:00:00 +0800 XMon, 6 Feb 1995 09:00:00 -0800 XMon, 6 Feb 1995 09:00:00 0900 XMon, 6 Feb 1995 09:00:00 +0900 XMon, 6 Feb 1995 09:00:00 -0900 XMon, 6 Feb 1995 09:00:00 1000 XMon, 6 Feb 1995 09:00:00 +1000 XMon, 6 Feb 1995 09:00:00 -1000 XMon, 6 Feb 1995 09:00:00 1100 XMon, 6 Feb 1995 09:00:00 +1100 XMon, 6 Feb 1995 09:00:00 -1100 XMon, 6 Feb 1995 09:00:00 1200 XMon, 6 Feb 1995 09:00:00 +1200 XMon, 6 Feb 1995 09:00:00 -1200 XMon, 6 Feb 1995 09:00:00 JST XMon, 6 Feb 1995 09:00:00 JDT XMon, 6 Feb 1995 09:00:00 BST XMon, 6 Feb 1995 09:00:00 NST XMon, 6 Feb 1995 09:00:00 AST XMon, 6 Feb 1995 09:00:00 EDT XMon, 6 Feb 1995 09:00:00 EST XMon, 6 Feb 1995 09:00:00 EDT XMon, 6 Feb 1995 09:00:00 CST XMon, 6 Feb 1995 09:00:00 CDT XMon, 6 Feb 1995 09:00:00 MST XMon, 6 Feb 1995 09:00:00 MDT XMon, 6 Feb 1995 09:00:00 PST XMon, 6 Feb 1995 09:00:00 PDT XMon, 6 Feb 1995 09:00:00 YST XMon, 6 Feb 1995 09:00:00 YDT XMon, 6 Feb 1995 09:00:00 HST XMon, 6 Feb 1995 09:00:00 HDT XMon, 6 Feb 1995 09:00:00 A XMon, 6 Feb 1995 09:00:00 B XMon, 6 Feb 1995 09:00:00 C XMon, 6 Feb 1995 09:00:00 D XMon, 6 Feb 1995 09:00:00 E XMon, 6 Feb 1995 09:00:00 F XMon, 6 Feb 1995 09:00:00 G XMon, 6 Feb 1995 09:00:00 H XMon, 6 Feb 1995 09:00:00 I XMon, 6 Feb 1995 09:00:00 K XMon, 6 Feb 1995 09:00:00 L XMon, 6 Feb 1995 09:00:00 M XMon, 6 Feb 1995 09:00:00 N XMon, 6 Feb 1995 09:00:00 O XMon, 6 Feb 1995 09:00:00 P XMon, 6 Feb 1995 09:00:00 Q XMon, 6 Feb 1995 09:00:00 R XMon, 6 Feb 1995 09:00:00 S XMon, 6 Feb 1995 09:00:00 T XMon, 6 Feb 1995 09:00:00 U XMon, 6 Feb 1995 09:00:00 V XMon, 6 Feb 1995 09:00:00 W XMon, 6 Feb 1995 09:00:00 X XMon, 6 Feb 1995 09:00:00 Y SHAR_EOF if test 4336 -ne "`wc -c < 'test_input'`" then echo shar: error transmitting "'test_input'" '(should have been 4336 characters)' fi fi # end of overwriting check echo shar: extracting "'test_output'" '(6148 characters)' if test -f 'test_output' then echo shar: will not over-write existing file "'test_output'" else sed 's/^X//' << \SHAR_EOF > 'test_output' X6 Feb 1995 09:00:00 AM PST - 792090000 X6 Feb 1995 09:00:00 PST - 792090000 X6 Feb 1995 09:00 AM PST - 792090000 X6 Feb 1995 09:00 PST - 792090000 X6 Feb 1995 09:00:00 AM - 792090000 X6 Feb 1995 09:00:00 - 792090000 X6 Feb 1995 09:00 AM - 792090000 X6 Feb 1995 09:00 - 792090000 X09:00:00 AM PST 6 Feb 1995 - 792090000 X09:00:00 PST 6 Feb 1995 - 792090000 X09:00 AM PST 6 Feb 1995 - 792090000 X09:00 PST 6 Feb 1995 - 792090000 X09:00:00 AM 6 Feb 1995 - 792090000 X09:00:00 6 Feb 1995 - 792090000 X09:00 AM 6 Feb 1995 - 792090000 X09:00 6 Feb 1995 - 792090000 XMon, 6 Feb 1995 09:00:00 AM PST - 792090000 XMon, 6 Feb 1995 09:00:00 PST - 792090000 XMon, 6 Feb 1995 09:00 AM PST - 792090000 XMon, 6 Feb 1995 09:00 PST - 792090000 XMon, 6 Feb 1995 09:00:00 AM - 792090000 XMon, 6 Feb 1995 09:00:00 - 792090000 XMon, 6 Feb 1995 09:00 AM - 792090000 XMon, 6 Feb 1995 09:00 - 792090000 XMon Feb 6 09:00:00 AM PST 1995 - 792090000 XMon Feb 6 09:00:00 PST 1995 - 792090000 XMon Feb 6 09:00 AM PST 1995 - 792090000 XMon Feb 6 09:00 PST 1995 - 792090000 XMon, 6 Feb 1995 09:00:00 AM PST - 792090000 XMon, 6 Feb 1995 09:00:00 PM PST - 792133200 XSun, 6 Feb 1995 09:00:00 PST - 792090000 XSunday, 6 Feb 1995 09:00:00 PST - 792090000 XMon, 6 Feb 1995 09:00:00 PST - 792090000 XMonday, 6 Feb 1995 09:00:00 PST - 792090000 XTue, 6 Feb 1995 09:00:00 PST - 792090000 XTuesday, 6 Feb 1995 09:00:00 PST - 792090000 XWed, 6 Feb 1995 09:00:00 PST - 792090000 XWednesday, 6 Feb 1995 09:00:00 PST - 792090000 XThu, 6 Feb 1995 09:00:00 PST - 792090000 XThursday, 6 Feb 1995 09:00:00 PST - 792090000 XFri, 6 Feb 1995 09:00:00 PST - 792090000 XFriday, 6 Feb 1995 09:00:00 PST - 792090000 XSat, 6 Feb 1995 09:00:00 PST - 792090000 XSaturday, 6 Feb 1995 09:00:00 PST - 792090000 XMon, 6 Jan 1995 09:00:00 PST - 789411600 XMon, 6 January 1995 09:00:00 PST - 789411600 XMon, 6 Feb 1995 09:00:00 PST - 792090000 XMon, 6 February 1995 09:00:00 PST - 792090000 XMon, 6 Mar 1995 09:00:00 PST - 794509200 XMon, 6 March 1995 09:00:00 PST - 794509200 XMon, 6 Apr 1995 09:00:00 PST - 797187600 XMon, 6 April 1995 09:00:00 PST - 797187600 XMon, 6 May 1995 09:00:00 PST - 799779600 XMon, 6 Jun 1995 09:00:00 PST - 802458000 XMon, 6 June 1995 09:00:00 PST - 802458000 XMon, 6 Jul 1995 09:00:00 PST - 805050000 XMon, 6 July 1995 09:00:00 PST - 805050000 XMon, 6 Aug 1995 09:00:00 PST - 807728400 XMon, 6 August 1995 09:00:00 PST - 807728400 XMon, 6 Sep 1995 09:00:00 PST - 810406800 XMon, 6 September 1995 09:00:00 PST - 810406800 XMon, 6 Oct 1995 09:00:00 PST - 812998800 XMon, 6 October 1995 09:00:00 PST - 812998800 XMon, 6 Nov 1995 09:00:00 PST - 815677200 XMon, 6 November 1995 09:00:00 PST - 815677200 XMon, 6 Dec 1995 09:00:00 PST - 818269200 XMon, 6 December 1995 09:00:00 PST - 818269200 XMon, 6 Feb 1995 09:00:00 GMT - 792061200 XMon, 6 Feb 1995 09:00:00 UTC - 792061200 XMon, 6 Feb 1995 09:00:00 UT - 792061200 XMon, 6 Feb 1995 09:00:00 0000 - 792061200 XMon, 6 Feb 1995 09:00:00 +0000 - 792061200 XMon, 6 Feb 1995 09:00:00 -0000 - 792061200 XMon, 6 Feb 1995 09:00:00 0100 - 792057600 XMon, 6 Feb 1995 09:00:00 +0100 - 792057600 XMon, 6 Feb 1995 09:00:00 -0100 - 792064800 XMon, 6 Feb 1995 09:00:00 0200 - 792054000 XMon, 6 Feb 1995 09:00:00 +0200 - 792054000 XMon, 6 Feb 1995 09:00:00 -0200 - 792068400 XMon, 6 Feb 1995 09:00:00 0300 - 792050400 XMon, 6 Feb 1995 09:00:00 +0300 - 792050400 XMon, 6 Feb 1995 09:00:00 -0300 - 792072000 XMon, 6 Feb 1995 09:00:00 0400 - 792046800 XMon, 6 Feb 1995 09:00:00 +0400 - 792046800 XMon, 6 Feb 1995 09:00:00 -0400 - 792075600 XMon, 6 Feb 1995 09:00:00 0500 - 792043200 XMon, 6 Feb 1995 09:00:00 +0500 - 792043200 XMon, 6 Feb 1995 09:00:00 -0500 - 792079200 XMon, 6 Feb 1995 09:00:00 0600 - 792039600 XMon, 6 Feb 1995 09:00:00 +0600 - 792039600 XMon, 6 Feb 1995 09:00:00 -0600 - 792082800 XMon, 6 Feb 1995 09:00:00 0700 - 792036000 XMon, 6 Feb 1995 09:00:00 +0700 - 792036000 XMon, 6 Feb 1995 09:00:00 -0700 - 792086400 XMon, 6 Feb 1995 09:00:00 0800 - 792032400 XMon, 6 Feb 1995 09:00:00 +0800 - 792032400 XMon, 6 Feb 1995 09:00:00 -0800 - 792090000 XMon, 6 Feb 1995 09:00:00 0900 - 792028800 XMon, 6 Feb 1995 09:00:00 +0900 - 792028800 XMon, 6 Feb 1995 09:00:00 -0900 - 792093600 XMon, 6 Feb 1995 09:00:00 1000 - 792025200 XMon, 6 Feb 1995 09:00:00 +1000 - 792025200 XMon, 6 Feb 1995 09:00:00 -1000 - 792097200 XMon, 6 Feb 1995 09:00:00 1100 - 792021600 XMon, 6 Feb 1995 09:00:00 +1100 - 792021600 XMon, 6 Feb 1995 09:00:00 -1100 - 792100800 XMon, 6 Feb 1995 09:00:00 1200 - 792018000 XMon, 6 Feb 1995 09:00:00 +1200 - 792018000 XMon, 6 Feb 1995 09:00:00 -1200 - 792104400 XMon, 6 Feb 1995 09:00:00 JST - 792054000 XMon, 6 Feb 1995 09:00:00 JDT - 792050400 XMon, 6 Feb 1995 09:00:00 BST - 792064800 XMon, 6 Feb 1995 09:00:00 NST - 792073800 XMon, 6 Feb 1995 09:00:00 AST - 792075600 XMon, 6 Feb 1995 09:00:00 EDT - 792072000 XMon, 6 Feb 1995 09:00:00 EST - 792079200 XMon, 6 Feb 1995 09:00:00 EDT - 792072000 XMon, 6 Feb 1995 09:00:00 CST - 792082800 XMon, 6 Feb 1995 09:00:00 CDT - 792079200 XMon, 6 Feb 1995 09:00:00 MST - 792086400 XMon, 6 Feb 1995 09:00:00 MDT - 792082800 XMon, 6 Feb 1995 09:00:00 PST - 792090000 XMon, 6 Feb 1995 09:00:00 PDT - 792086400 XMon, 6 Feb 1995 09:00:00 YST - 792093600 XMon, 6 Feb 1995 09:00:00 YDT - 792090000 XMon, 6 Feb 1995 09:00:00 HST - 792097200 XMon, 6 Feb 1995 09:00:00 HDT - 792093600 XMon, 6 Feb 1995 09:00:00 A - 792064800 XMon, 6 Feb 1995 09:00:00 B - 792068400 XMon, 6 Feb 1995 09:00:00 C - 792072000 XMon, 6 Feb 1995 09:00:00 D - 792075600 XMon, 6 Feb 1995 09:00:00 E - 792079200 XMon, 6 Feb 1995 09:00:00 F - 792082800 XMon, 6 Feb 1995 09:00:00 G - 792086400 XMon, 6 Feb 1995 09:00:00 H - 792090000 XMon, 6 Feb 1995 09:00:00 I - 792093600 XMon, 6 Feb 1995 09:00:00 K - 792097200 XMon, 6 Feb 1995 09:00:00 L - 792100800 XMon, 6 Feb 1995 09:00:00 M - 792104400 XMon, 6 Feb 1995 09:00:00 N - 792064800 XMon, 6 Feb 1995 09:00:00 O - 792068400 XMon, 6 Feb 1995 09:00:00 P - 792072000 XMon, 6 Feb 1995 09:00:00 Q - 792075600 XMon, 6 Feb 1995 09:00:00 R - 792079200 XMon, 6 Feb 1995 09:00:00 S - 792082800 XMon, 6 Feb 1995 09:00:00 T - 792086400 XMon, 6 Feb 1995 09:00:00 U - 792090000 XMon, 6 Feb 1995 09:00:00 V - 792093600 XMon, 6 Feb 1995 09:00:00 W - 792097200 XMon, 6 Feb 1995 09:00:00 X - 792100800 XMon, 6 Feb 1995 09:00:00 Y - 792104400 SHAR_EOF if test 6148 -ne "`wc -c < 'test_output'`" then echo shar: error transmitting "'test_output'" '(should have been 6148 characters)' fi fi # end of overwriting check echo shar: extracting "'xmit_time.1'" '(989 characters)' if test -f 'xmit_time.1' then echo shar: will not over-write existing file "'xmit_time.1'" else sed 's/^X//' << \SHAR_EOF > 'xmit_time.1' X.TH xmit_time 1 "11 February 1995" X.SH NAME Xxmit_time - figure transmission time of netnews articles X.SH SYNOPSIS X.B xmit_time X.IR file ... X.SH DESCRIPTION X.PP XGiven a set of netnews article filenames as arguments, looks in each file for Xa netnews-format Date: line. XAlso looks at the last-modified time of the file. XThe difference between the two is how long it took that article to Xtravel from the poster's site to your site, and that number (in seconds) Xis written to stdout. X.SH "SEE ALSO" Xdate_sort(1), date_order(1), deltime(1), date_parse(3) X.SH AUTHOR XCopyright (C) 1995 by Jef Poskanzer. X.\" Permission to use, copy, modify, and distribute this software and its X.\" documentation for any purpose and without fee is hereby granted, provided X.\" that the above copyright notice appear in all copies and that both that X.\" copyright notice and this permission notice appear in supporting X.\" documentation. This software is provided "as is" without express or X.\" implied warranty. SHAR_EOF if test 989 -ne "`wc -c < 'xmit_time.1'`" then echo shar: error transmitting "'xmit_time.1'" '(should have been 989 characters)' fi fi # end of overwriting check echo shar: extracting "'xmit_time.c'" '(1975 characters)' if test -f 'xmit_time.c' then echo shar: will not over-write existing file "'xmit_time.c'" else sed 's/^X//' << \SHAR_EOF > 'xmit_time.c' X/* xmit_time - figure out transmission time of netnews articles X** X** Copyright (C) 1995 by Jef Poskanzer <jef(a)netcom.com>. X** X** Permission to use, copy, modify, and distribute this software and its X** documentation for any purpose and without fee is hereby granted, provided X** that the above copyright notice appear in all copies and that both that X** copyright notice and this permission notice appear in supporting X** documentation. This software is provided "as is" without express or X** implied warranty. X*/ X X#include <stdio.h> X#include <string.h> X#include <sys/stat.h> X#include <time.h> X Xextern time_t date_parse(); X Xstatic void usage(); Xstatic void do_file(); X Xstatic char* argv0; X Xvoid Xmain( argc, argv ) X int argc; X char* argv[]; X { X int argn; X X argv0 = argv[0]; X argn = 1; X if ( argn < argc && argv[argn][0] == '-' && argv[argn][1] != '\0' ) X usage(); X X while ( argn < argc ) X { X do_file( argv[argn] ); X ++argn; X } X X exit( 0 ); X } X Xstatic void Xusage() X { X (void) fprintf( stderr, "usage: %s file ...\n", argv0 ); X exit( 1 ); X } X Xstatic void Xdo_file( name ) X char* name; X { X struct stat sb; X time_t posted, arrived; X FILE* f; X char line[30000]; X X f = fopen( name, "r" ); X if ( f == (FILE*) 0 ) X { X perror( name ); X return; X } X X if ( fstat( fileno( f ), &sb ) < 0 ) X { X perror( name ); X (void) fclose( f ); X return; X } X arrived = sb.st_mtime; X X for (;;) X { X if ( fgets( line, sizeof(line), f ) == (char*) 0 ) X break; X if ( line[0] == '\n' ) X break; X if ( strncmp( line, "Date:", 5 ) == 0 ) X { X (void) fclose( f ); X posted = date_parse( &line[5] ); X if ( posted == (time_t) -1 ) X (void) fprintf( X stderr, "%s: unparsable date in %s - %s", X argv0, name, &line[5] ); X else X (void) printf( "%d\n", arrived - posted ); X return; X } X } X X (void) fprintf( stderr, "%s: no Date: line found in %s\n", argv0, name ); X (void) fclose( f ); X } X X SHAR_EOF if test 1975 -ne "`wc -c < 'xmit_time.c'`" then echo shar: error transmitting "'xmit_time.c'" '(should have been 1975 characters)' fi fi # end of overwriting check # End of shell archive exit 0

1 0