Source Code 1992 March/Source_Code_CD-ROM_Walnut_Creek_March_1992.iso/usenet/altsrcs/1/1421

Internet Message Format | 1990-12-28 | 4.6 KB

From: [e-mail] (Andrew Rogers)
Newsgroups: comp.lang.postscript,alt.sources
Subject: Pcal: postscript/c calendar printer (VMS version)
Message-ID: <[e-mail]>
Date: 5 Jun 90 16:08:46 GMT

In article <[e-mail]> [e-mail] I wrote:
>(PS: send Email if you'd like a VMS version of this...)

Well, I guess I underestimated how many requests I'd get for this... so I'm
posting the VMS version (actually the changes required to adapt the version
I posted earlier to VMS) below.  The changes visible to the user are:

    1) Default calendar file is SYS$LOGIN:CALENDAR.DAT

    2) Automatically writes to an output file, CALENDAR.PS; added -o
       option to override the default file name

The changes visible only to the programmer are:

    3) Eliminated use of getopt() to parse command line.  There may be
       some minor variations in functionality introduced by this.

The following code replaces main() in the Unix version previously posted:

Andrew W. Rogers

--------------------------- cut here ----------------------------
/*
 * VMS version of pcal.c main module
 *
 * Adapted by Andrew W. Rogers
 */

main(argc, argv)
int argc;
char **argv;
{

#define EXIT_SUCCESS 1
#define EXIT_FAILURE 3

#define GETARG(arg) if ((parg = *++opt ? opt : \
            (*(argv+1) && **(argv+1) != '-' ? *++argv : NULL) ) \
            != NULL) arg = parg; else

#define DOHEADER(phdr) for(ap = phdr; *ap; ap++) PRT("%s\n", *ap);

    register struct tm *lt;
    register char **ap;
    register char *cp;
    char *cfile = NULL;
    char *opt, *pnum, *parg;
    char cbuf[80];
    long t;
    int errflg = 0;
    int nocal = 0;
    int sat = 0;
     char *titlefont = "Times-Bold";
     char *dayfont = "Times-Bold";
    char *outfile = "CALENDAR.PS";
     int rotate = 90;
     int month = 0;
    char doyear = 0;
    char *trnlog();

     while (!errflg && *++argv) {

        if (**argv != '-') {
            errflg = 1;
            break;
            }

        opt = (*argv) + 1;
        switch (*opt) {

         case 'd':        /* Alternate day name/number font */
             GETARG(dayfont);
             break;

        case 'e':        /* Empty calendar */
            nocal++;
            cfile = NULL;
            break;

        case 'f':        /* Alternate calendar file name */
            GETARG(cfile);
            nocal = 0;
            break;

        case 'm':        /* Month */
            pnum = NULL;
            GETARG(pnum);
            month = pnum ? atoi(pnum) : 0;
            if (!month) doyear = 1;
            break;

        case 'o':        /* Alternate output file name */
            GETARG(outfile);
            break;

         case 'r':        /* Portrait */
             rotate = 0;
             break;

        case 's':        /* Saturdays in black */
            sat++;
            break;

         case 't':        /* Alternate title font */
             GETARG(titlefont);
             break;

        case 'y':        /* Year */
            pnum = NULL;
            GETARG(pnum);
            year = pnum ? atoi(pnum) : 0;
            if (year != 0 && year < 1900) year = year % 100 + 1900;
            break;

        default:
            errflg = 1;
            break;
        }
        }

    if (errflg) {
        FPR(stderr,
    "Usage: pcal [ -r ] [ -s ] [ -e | -f <cal> ] [ -m month] [ -y <year> ]\n");
        FPR(stderr,
    "\t\t[ -t <title font> ] [ -d <day font> ] [-o <output file>]\n");
        exit(EXIT_FAILURE);
    }
    t = time((long *)0);
    lt = localtime(&t);

    if (!month && !doyear)
        month = lt->tm_mon + 1;
    if (!year)
        year = lt->tm_year + 1900;

    if (outfile && freopen(outfile, "w", stdout) == (FILE *) NULL) {
        FPR(stderr, "pcal: can't open file: %s\n", outfile);
        exit(EXIT_FAILURE);
        }

    /*
     * In case we don't encounter any year data in the
     * calendar file, assume the current year.
     */
    cyear = year;

    /*
     * Open a supplied calendar file (if any)
     */
    if (cfile != NULL) {
        if ((cfp = fopen(cfile, "r")) == NULL) {
            FPR(stderr, "pcal: can't open file: %s\n", cfile);
            exit(EXIT_FAILURE);
        }
    }
    /*
     * Else see if a calendar file exists in the home directory
     */
    else if (nocal == 0 && (cp = trnlog("SYS$LOGIN")) != NULL) {
        (void)strcpy(cbuf, cp);
        (void)strcat(cbuf, "CALENDAR.DAT");
        cfp = fopen(cbuf, "r");
    }

    /*
     * Write out PostScript prolog
     */
     PRT("%%!\n");
     PRT("/titlefont /%s def\n/dayfont /%s def\n", titlefont, dayfont);

    DOHEADER(header_1);
    if (!sat)
        DOHEADER(header_2);
    DOHEADER(header_3);

     PRT("\t%d rotate\n", rotate);
     if (rotate)
         PRT("\t50 -120 translate\n");
     else
         PRT("\t0.75 0.75 scale\n\t50 460 translate\n");

    DOHEADER(header_4);

    if (month)
        pmonth(month);
    else
        for (month = 1; month <= 12; month++)
            pmonth(month);

    FPR(stderr, "Output is in file %s\n", outfile);
    exit(EXIT_SUCCESS);
}

#include <ssdef.h>
#include <descrip.h>

char *trnlog(logname)    /* look up logical name */
    char *logname;
{
static char trnbuf[81];

$DESCRIPTOR(src, logname);
$DESCRIPTOR(dst, trnbuf);
short len;
int ret;

src.dsc$w_length  = strlen(logname);
ret = LIB$SYS_TRNLOG(&src, &len, &dst);
if (ret != SS$_NORMAL)
    len = 0;
trnbuf[len] = '\0';
return trnbuf;
}