Logo Search packages:      
Sourcecode: xcal version File versions  Download package

xcal_cal.c

#ifndef lint
static char *sccsid = "@(#)xcal_cal.c     1.1+ (Hillside Systems) 7/14/90";
#endif  /* lint */
/***

* program name:
      xcal_cal.c
* function:
      read files generated by xcal and produce a file compatible
      with the standard "calendar" utility
* switches:
      -d dir      use "dir" instead of "Calendar"
      -f file use "file" instead of .xcal
      -m    copy all of multi-line entries
* history:
      Written July, 1990
      Ed Gould
      mt Xinu, Inc.
* (C) Copyright: 1990 mt Xinu, Inc.
      
      Permission to use, copy, modify, and distribute this software
      and its documentation for any purpose is hereby granted to
      anyone, provided that the above copyright notice appear in
      all copies and that both that copyright notice and this
      permission notice appear in supporting documentation, and
      that the names of Ed Gould and mt Xinu, Inc. not be used
      in advertising or publicity pertaining to distribution of
      the software without specific, written prior permission.
      mt Xinu, Inc. makes no representations about the suitability
      of this software for any purpose.  It is provided "as is"
      without express or implied warranty.

      Ed Gould and mt Xinu, Inc. DISCLAIM ALL WARRANTIES WITH
      REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES
      OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL Ed Gould
      or mt Xinu, Inc. BE LIABLE FOR ANY SPECIAL, INDIRECT OR
      CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING
      FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF
      CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
      OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
      SOFTWARE.

***/
#include <stdio.h>
#include <ctype.h>
#include <sys/param.h>
#include <unistd.h>
#if defined(NeXT)
# include <sys/fcntl.h>
# include <sys/dir.h>
# include <sys/dirent.h>
#else
# include <dirent.h>
#endif
#include <string.h>
#include <time.h>


char  *directory  = "Calendar";
char  *file       = ".xcal";
char  *home;

#ifndef MAXPATHLEN
#  define MAXPATHLEN 256
#endif

char  usedir[MAXPATHLEN];
char  usefile[MAXPATHLEN];
char  line[BUFSIZ];

char  *months[]   = {"jan", "feb", "mar", "apr", "may", "jun",
                     "jul", "aug", "sep", "oct", "nov", "dec"};

int   debug;
int   mflag;

FILE  *out;

void
main(argc, argv)
      char **argv;
{
      register int c;
      time_t now;
      register struct tm *lt;
      char *getenv();

      while((c = getopt(argc, argv, "d:f:m#")) != EOF) {
            extern char *optarg;

            switch (c) {

            case 'd':
                  directory = optarg;
                  break;

            case 'f':
                  file = optarg;
                  break;

            case 'm':
                  mflag++;
                  break;

            case '#':
                  debug++;
                  break;

            case '?':
            default:
                  fprintf(stderr, "usage: %s [-d dir] [-f file]\n",
                                                argv[0]);
                  exit(1);
            }
      }
      home = getenv("HOME");
      /*
       * For both directory and output file, 
       *
       *   /...   is absolute path
       *   ./...  is relative to current directory
       *
       * otherwise, relative to $HOME, if available
       */
      if(file[0] == '/' || (file[0] == '.' && file[1] == '/') ||
         home == NULL)
            strcpy(usefile, file);
      else
            sprintf(usefile, "%s/%s", home, file);
      if(debug)
            fprintf(stderr, "output to %s\n", usefile);
      if((out = fopen(usefile, "w")) == NULL) {
            perror(usefile);
            exit(1);
      }
      now = time((time_t *)NULL);
      lt = localtime(&now);
      calfiles(directory, lt->tm_year + 1900, lt->tm_mon, lt->tm_mday);
      if(lt->tm_mday >= 25 ) {
            /*
             * close to end of month: include next month, too
             */
            if(lt->tm_mon == 11)
                  calfiles(directory, lt->tm_year + 1900 + 1, 0, 1);
            else
                  calfiles(directory, lt->tm_year + 1900,
                                          lt->tm_mon + 1, 1);
      }
}

calfiles(dir, year, thismonth, today)
      register char *dir;
{
      register DIR *dp;
      register char *to;
      register char *from;
      register struct dirent *d;
      char day[3];
      char month[4];

      if(dir[0] == '/' || (dir[0] == '.' && dir[1] == '/') ||
         home == NULL)
            sprintf(usedir, "%s/xy%4d", dir, year);
      else
            sprintf(usedir, "%s/%s/xy%4d", home, dir, year);
      if(debug)
            fprintf(stderr, "looking in directory %s\n", usedir);
      if((dp = opendir(usedir)) == NULL) {
            perror(usedir);
            exit(1);
      }
      while((d = readdir(dp)) != NULL) {
            register FILE *in;

            if(d->d_name[0] != 'x' || d->d_name[1] != 'c' ||
               !isascii(d->d_name[2]) || !isdigit(d->d_name[2]))
                  continue;
            sprintf(usefile, "%s/%s", usedir, d->d_name);
            if(debug)
                  fprintf(stderr, "looking in file %s\n", usefile);
            if((in = fopen(usefile, "r")) == NULL) {
                  if(debug)
                        perror(usefile);
                  continue;
            }
            from = &d->d_name[2];
            to = day;
            while(isascii(*from) && isdigit(*from))
                  *to++ = *from++;
            *to = '\0';
            to = month;
            while(isascii(*from) && !isdigit(*from)) {
                  if(isupper(*from))
                        *from = tolower(*from);
                  *to++ = *from++;
            }
            *to = '\0';
            if(strcmp(month, months[thismonth]) != 0 ||
               atoi(day) < today) {
                  if(debug)
                        fprintf(stderr, "\tskipped - date\n");
                  fclose(in);
                  continue;
            }
            while(fgets(line, sizeof(line), in) != NULL) {
                  char *cp;

                  if((to = strchr(line, '\n')) != NULL)
                        *to = '\0';
                  cp = line;
                  while(isspace(*cp))
                        cp++;
                  if(*cp == '\0') {
                        if(debug)
                              fprintf(stderr, "\tskipped - empty\n");
                        continue;
                  }
                  if(debug)
                        fprintf(stderr, "==>\t%s %s\t%s\n", month,
                                                day, cp);
                  fprintf(out, "%s %s\t%s\n", month, day, cp);
                  if(mflag == 0)
                        break;
            }
            fclose(in);
      }
}

Generated by  Doxygen 1.6.0   Back to index