Usenet 1994 October/usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso/misc/volume6/pcal

Text File | 1989-03-21 | 16KB | 517 lines

Newsgroups: comp.sources.misc
From: [e-mail] (Brandon S. Allbery - comp.sources.misc)
Message-Id: <[e-mail]>
Subject: v06i074: calendar program, 1 month per page
Reply-To: THE MASTER <[e-mail]>

Posting-number: Volume 6, Issue 74
Submitted-by: THE MASTER <[e-mail]>
Archive-name: pcal

#! /bin/sh
# To extract, remove mail header lines and type "sh filename"
echo x - README
sed -e 's/^X//' > README << '!FaR!OuT!'
XTo compile:
X-----------
X
X  cc -o pcal pcal.c
X
X
X
X
X
XInfo on usage etc:
X------------------
X
XI wrote this because I was interested in writing a routine to figure
Xout the day of the week for a specific date(as it ended up, I couldn't
Xget my hands on any algorithm so I got ripped some code from some one's
Xprogram in the archives). Any how I ended up writing this calendar program.
X
X
XI call this program 'pcal' because it it prints out one month per page.
XEach month is separated by control-L type form feed character.
XFor testing, I picked random years and verified them.
XEach month is made up of a grid of 7(width) by 5(height) squares. Any
Xmonth that requires over 5 squares high wil have the the appropriate
Xdays split in half.
X
X
XA typical month looks like.
X
X
X                                      1989
X
X                                     April
X
X    |   SUN   |   MON   |   TUE   |   WED   |   THU   |   FRI   |   SAT   |
X    -----------------------------------------------------------------------
X    |         |         |         |         |         |         | 1|      |
X    |         |         |         |         |         |         |---      |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    -----------------------------------------------------------------------
X    | 2|      | 3|      | 4|      | 5|      | 6|      | 7|      | 8|      |
X    |---      |---      |---      |---      |---      |---      |---      |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    -----------------------------------------------------------------------
X    | 9|      |10|      |11|      |12|      |13|      |14|      |15|      |
X    |---      |---      |---      |---      |---      |---      |---      |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    -----------------------------------------------------------------------
X    |16|      |17|      |18|      |19|      |20|      |21|      |22|      |
X    |---      |---      |---      |---      |---      |---      |---      |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    |         |         |         |         |         |         |         |
X    -----------------------------------------------------------------------
X    |23|    _/|24|      |25|      |26|      |27|      |28|      |29|      |
X    |---  _/  |---      |---      |---      |---      |---      |---      |
X    |   _/    |         |         |         |         |         |         |
X    | _/   ---|         |         |         |         |         |         |
X    |/     |30|         |         |         |         |         |         |
X    -----------------------------------------------------------------------
X
X
X
X
XUsage: pcal [-l] [-m startmonth]
X            [-n nummonths] [-u] [-y startyear]
X       startmonth:day of month to start on(1=jan...12=dec)
X       startyear :year to start on(1989=1989, 89=0089)
X                  default startday=1, startmonth=1,
X                  startyear=current year
X       nummonths :#of months to print out(default is 12)
X       -l        :suppress printing of ^L's after each month
X                  default is to print them
X       -u        :print this synopsis
X
X
X
XExamples:
X   Say todays date is March 17, 1989.
X
X
X   pcal   -> print out a 12 month calendar for the year 1989.
X             Each month is printed on a separate page.
X
X   pcal -n 3     ->print out Jan,Feb,March of 1989, each on a separate
X                   page.
X
X   pcal -n 3 -l  ->print out Jan,Feb,March of 1989. Each month is printed
X                   one after another.
X
X   pcal -m 4 -n 1 -> prints out the month of April, 1989 and a form feed.
X
X   pcal -m 4 -y 1992 -n 24 ->prints out months from April, 1992 to
X                             April, 1994. Each month separated by a control-L.
X
X
XFeel free to make any changes to the code, but leave my name at the top
Xof the code file(s).
X
!FaR!OuT!
echo x - pcal.c
sed -e 's/^X//' > pcal.c << '!FaR!OuT!'
X/*pcal.c                                    Sun Feb 26 23:08:25 EST 1989*/
X
X
X
X/*
X *Contents: One page per month calendar program.
X *
X *Author  : Troy Saville([e-mail])
X *
X *Compiling: cc -o pcal pcal.c
X *
X *byebye     - make a clean exit from the program
X *getmmddyy  - get month,day,year of todays date(from the system)
X *isleapyear - determine if year is a leap year
X *jan1       - get day of week for 1st day of a year
X *dayofweek  - get day of week for any day of any year
X *genweek    - driver to print out one week of a month
X *genmonth   - driver to print out a complete month
X *main       - the pcal program
X *
X */
X
X
X
X
X
X
X/*generate a calender, 1 month per page*/
X
X
X#include <stdio.h>
X#include <strings.h>
X#include <time.h>
X
X
X
X/*width of calendar, not including margin*/
X#define NUMWIDTH 71
X/*#of spaces to indent calendar*/
X#define NUMINDENT 4
X
X#define INDENT() printf("%-*.*s",NUMINDENT,NUMINDENT,spaces)
X
X/*check for split sqaure on calendar*/
X#define THESPLIT (weeknum == 5) && (endday < numdays) && (week[i]+7 <= numdays)
X
X
Xstatic char *spaces = "                                                   ";
Xstatic char *dashes = "-------------------------------------------------------------------------------";
X
Xstatic int daysinmonth[12] = {31,28,31,30,31,30,31,31,30,31,30,31};
X
Xchar *monthnames[] = {"January", "February", "March", "April", "May", "June",
X                      "July", "August", "September", "October", "November",
X                      "December"};
X
Xchar *daynames[] = {"Sun" ,"Mon" ,"Tue" ,"Wed" ,"Thu" ,"Fri" ,"Sat" };
X
X
X/*day of week that first day starts on*/
X#define DAYSTART 0
X
X/*first month to print out*/
X#define MONSTART 0
X
X
X/*exit the program cleanly - display error message*/
Xvoid byebye(fmt,a1,a2,a3,a4,a5,a6,a7)
X   char *fmt;
X   int a1,a2,a3,a4,a5,a6,a7;
X   {
X   if (fmt != NULL)
X      {
X      char tmp[80];
X      sprintf(tmp,fmt,a1,a2,a3,a4,a5,a6,a7);
X      printf(tmp);
X      }
X
X   printf("\n");
X   printf("Usage: pcal [-l] [-m startmonth]\n");
X   printf("            [-n nummonths] [-u] [-y startyear]\n");
X   printf("       startmonth:day of month to start on(1=jan...12=dec)\n");
X   printf("       startyear :year to start on(1989=1989, 89=0089)\n");
X   printf("                  default startday=1, startmonth=1,\n");
X   printf("                  startyear=current year\n");
X   printf("       nummonths :#of months to print out(default is 12)\n");
X   printf("       -l        :suppress printing of ^L's after each month\n");
X   printf("                  default is to print them\n");
X   printf("       -u        :print this synopsis\n");
X
X   exit(0);
X   }
X
X
X
X/*get month,day,year of today date, year=89(mean actual year is 1989*/
Xvoid getmmddyy(month,day,year)
X   int *month, *day, *year;
X   {
X   long clockval,time();
X   struct tm *dateinfo,*localtime();
X
X   clockval = time((long *) 0);
X
X   dateinfo = localtime(&clockval);
X   if (month)
X     *month = dateinfo->tm_mon+1;
X   if (day)
X      *day = dateinfo->tm_mday;
X   if (year)
X      *year = dateinfo->tm_year;
X   }
X
X
X
X
X/******************************************************************************
X *isleapyear                                     Tue Oct 25, 1988 -> 21:42:56
X *
X *returns 1 if 'year' is a leap year else returns 0.
X *1988 should be passed as 1988 and not 88.
X */
Xint isleapyear(year)
X   int year;
X   {
X   return((!(year % 4)) && (year % 100) ? 1 : 0);
X   }
X
X
X/*Return day of the week for Jan 1 of the specified year.*/
X/*0=sunday....6=saturday*/
X/*I ripped this out of someone elses program*/
X/*author unknown*/
Xint jan1(year)
X   int year;
X   {
X   int day;
X
X   day = year + 4 + ((year + 3) / 4);     /* Julian Calendar      */
X   if (year > 1800)                       /* If it's recent, do   */
X      {
X      day -= ((year - 1701) / 100);       /* Clavian correction   */
X      day += ((year - 1601) / 400);       /* Gregorian correction */
X      }
X    if (year > 1752)                      /* Adjust for Gregorian */
X      day += 3;                           /* calendar             */
X
X   return (day % 7);
X   }
X
X
X
X
X/*return day of the week for the date passed in*/
X/*month = 0-11, day is 1 based, year is assumed to be 4 digits*/
X/*RETURN:0= sunday.....6=saturday*/
Xint dayofweek(month,day,year)
X   int month,day,year;
X   {
X   int i;
X   int dow = (-1);
X
X   dow += day + jan1(year);
X
X   for(i=0;i < month;i++)
X      dow += daysinmonth[i] + ((i == 1) * isleapyear(year));
X
X   return(dow % 7);
X   }
X
X
X/************************************************************************
X *genweek                                    Mon Feb 27 00:46:16 EST 1989
X * - generate calander for 1 week
X */
Xvoid genweek(week,weeknum,startday,daysinweek,numdays)
X   int week[];     /*#of each day of week to be generated*/
X   int weeknum;    /*week # for current month*/
X   int startday;   /*starting day
X   int daysinweek; /*last day to be generated*/
X   int numdays;    /*#days in month*/
X   {
X   int i;
X   int row;
X   int endday;
X
X   if (weeknum > 5)
X      return;
X
X   endday = startday + daysinweek - 1;
X
X
X   for(row=0;row < 5;row++)
X      {
X      INDENT();
X      printf("|");
X
X      for(i=0;i< 7;i++)
X         {
X         /*see if day of the week contains a day for this month*/
X         if (week[i])
X            switch(row)
X               {
X               case 0:
X                  printf("%2d|    %s",week[i],
X                         (THESPLIT) ? "_/" : "  ");
X                  break;
X
X               case 1:
X                  printf("---  %s  ",(THESPLIT) ? "_/" : "  ");
X                  break;
X
X               case 2:
X                  printf("   %s    ",(THESPLIT) ? "_/" : "  ");
X                  break;
X
X               case 3:
X                  printf(" %s",(THESPLIT) ? "_/   ---" : "        ");
X                  break;
X
X               case 4:
X                  if (THESPLIT)
X                     printf("/     |%2d",week[i]+7);
X                  else
X                     printf("         ");
X                  break;
X               }
X         else /*this day of the week is in last month or next month*/
X            printf("%-9.9s",spaces);
X         printf("|");
X         }
X
X      printf("\n");
X      }
X
X   INDENT();
X   printf("%-*.*s\n", NUMWIDTH, NUMWIDTH,dashes);
X   }
X
X
X
X/************************************************************************
X *genmonth                                   Sun Feb 26 23:21:30 EST 1989
X * - generate calander for 1 month
X */
Xvoid genmonth(month,year)
X   int month;
X   int year;
X   {
X   int i,j,k;
X   int startday; /*day of week 1st day starts on*/
X   int numdays;  /*#days in month*/
X   int dow;      /*dat of week*/
X   int weeknum = 1; /*# of the current week to print*/
X   int week[7];
X
X   i = (80 - strlen(monthnames[month])) / 2;
X
X   printf("%-*.*s%-s\n\n",i,i,spaces,monthnames[month]);
X
X   numdays = daysinmonth[month] + ((month==1) * isleapyear(year));
X
X   startday = dayofweek(month,1,year);
X
X   INDENT();
X   printf("|   SUN   |   MON   |   TUE   |   WED   |   THU   |   FRI   |   SAT   |\n");
X   INDENT();
X   printf("%-*.*s\n", NUMWIDTH, NUMWIDTH,dashes);
X
X   /*figure out first row*/
X   /*first row of calander*/
X   for(i=0,j=0;i < 7;i++)
X      if (i >= startday)
X         week[i] = ++j;
X      else
X         week[i] = 0;
X
X   /*generate row for one week of calendar*/
X   i = 7 - startday;
X   genweek(week,weeknum,1,i,numdays);
X
X   /*rest of calendar*/
X   for(k=0; i < numdays;i += k,k=0)
X      {
X      for(j=0;j < 7;j++)
X         if ((i+k) < numdays)
X            week[j] = ++k + i;
X         else
X            week[j] = 0;
X      if (k)
X         genweek(week,++weeknum,i+1,k,numdays);
X      }
X   }
X
X
X
X/**************************************************************************
X *main
X * - main program
X *
X */
Xmain(argc,argv)
X   int argc;
X   char *argv[];
X   {
X   int i,j;
X   int curmonth = 1;   /*current month of year*/
X   int curyear;        /*current year*/
X   int numday;         /*#of the day of the week*/
X   int nummonths = 12; /*#of months to print out*/
X   int controll = 0;   /*suppress printing of control L's 0=no, 1=yes*/
X
X
X   /*set defaults*/
X   getmmddyy(0,0,&curyear);
X   curyear += 1900;
X
X   /*parse command line args*/
X   for(i=1;i<argc;i++)
X      {
X      if (argv[i][0] == '-')
X         switch(argv[i][1])
X            {
X            case 'm': /*day # of the week to start calander on*/
X               if (++i == argc)
X                  byebye("-m requires integer arguement");
X               else if ( (sscanf(argv[i],"%d", &curmonth) != 1) ||
X                         (curmonth < 1) || (curmonth > 12) )
X                  byebye("Bad arg '%s' for -m flag\n", argv[i]);
X               break;
X
X            case 'n': /*#of months to print*/
X               if (++i == argc)
X                  byebye("-n requires integer arguement");
X               else if ( (sscanf(argv[i],"%d", &nummonths) != 1) ||
X                         (nummonths < 1) )
X                  byebye("Bad arg '%s' for -n flag\n", argv[i]);
X               break;
X
X            case 'y': /*day # of the week to start calander on*/
X               if (++i == argc)
X                  byebye("-y requires integer arguement");
X               else if (sscanf(argv[i],"%d", &curyear) != 1)
X                  byebye("Bad arg '%s' for -y flag\n", argv[i]);
X               break;
X
X            case 'l': /*suppress ^L's*/
X               controll = 1;
X               break;
X
X            case 'u': /*usage*/
X               byebye(0);
X               break;
X
X            default:
X               byebye("Bad command line arguement: %s",argv[i]);
X               break;
X            }
X      else
X         byebye("Bad command line arguement: %s",argv[i]);
X      }
X
X   curmonth--;
X
X
X   /*loop through months*/
X   for(;nummonths > 0;nummonths--, curmonth++)
X      {
X      if (curmonth == 12)
X         {
X         curmonth = 0;
X         curyear++;
X         }
X
X      printf("\n\n\n%-*.*s%-4d\n\n",38,38,spaces,curyear);
X
X      genmonth(curmonth,curyear);
X
X      if (!controll)
X         printf("       \n"); /*form feed to next page*/
X      }
X
X
X   }
X
X
X
X
X
X
X
!FaR!OuT!
exit