Return to yow.c CVS log

Up to [CSRG BSD Unix] / 43BSDReno / contrib / emacs-18.55 / etc

Annotation of 43BSDReno/contrib/emacs-18.55/etc/yow.c, revision 1.1

1.1     ! root        1: #include <stdio.h>
        !             2: #include <ctype.h>
        !             3: #include "../src/paths.h"
        !             4: 
        !             5: /* zippy.c
        !             6:  * 
        !             7:  * Print a quotation from Zippy the Pinhead.
        !             8:  * Qux <Kaufman-David@Yale> March 6, 1986
        !             9:  * 
        !            10:  */
        !            11: 
        !            12: #define BUFSIZE  2000
        !            13: #define SEP      '\0'
        !            14: #define YOW_FILE "yow.lines"
        !            15: 
        !            16: main (argc, argv)
        !            17:      int argc;
        !            18:      char *argv[];
        !            19: {
        !            20:   FILE *fp;
        !            21:   char file[BUFSIZ];
        !            22:   void yow();
        !            23: 
        !            24:   if (argc > 2 && !strcmp (argv[1], "-f"))
        !            25:     strcpy (file, argv[2]);
        !            26:   else
        !            27: #ifdef vms
        !            28:     sprintf (file, "%s%s", PATH_EXEC, YOW_FILE);
        !            29: #else
        !            30:     sprintf (file, "%s/%s", PATH_EXEC, YOW_FILE);
        !            31: #endif
        !            32: 
        !            33:   if ((fp = fopen(file, "r")) == NULL) {
        !            34:     perror(file);
        !            35:     exit(1);
        !            36:   }
        !            37: 
        !            38:   /* initialize random seed */
        !            39:   srand((int) (getpid() + time((long *) 0)));
        !            40: 
        !            41:   yow(fp);
        !            42:   fclose(fp);
        !            43:   exit(0);
        !            44: }
        !            45: 
        !            46: void
        !            47: yow (fp)
        !            48:      FILE *fp;
        !            49: {
        !            50:   static long len = -1;
        !            51:   long offset;
        !            52:   int c, i = 0;
        !            53:   char buf[BUFSIZE];
        !            54: 
        !            55:   /* Get length of file, go to a random place in it */
        !            56:   if (len == -1) {
        !            57:     if (fseek(fp, 0, 2) == -1) {
        !            58:       perror("fseek 1");
        !            59:       exit(1);
        !            60:     }
        !            61:     len = ftell(fp);
        !            62:   }
        !            63:   offset = rand() % len;
        !            64:   if (fseek(fp, offset, 0) == -1) {
        !            65:     perror("fseek 2");
        !            66:     exit(1);
        !            67:   }
        !            68: 
        !            69:   /* Read until SEP, read next line, print it.
        !            70:      (Note that we will never print anything before the first seperator.)
        !            71:      If we hit EOF looking for the first SEP, just recurse. */
        !            72:   while ((c = getc(fp)) != SEP)
        !            73:     if (c == EOF) {
        !            74:       yow(fp);
        !            75:       return;
        !            76:     }
        !            77: 
        !            78:   /* Skip leading whitespace, then read in a quotation.
        !            79:      If we hit EOF before we find a non-whitespace char, recurse. */
        !            80:   while (isspace(c = getc(fp)))
        !            81:     ;
        !            82:   if (c == EOF) {
        !            83:     yow(fp);
        !            84:     return;
        !            85:   }
        !            86:   buf[i++] = c;
        !            87:   while ((c = getc(fp)) != SEP && c != EOF) {
        !            88:     buf[i++] = c;
        !            89: 
        !            90:     if (i == BUFSIZ-1)
        !            91:       /* Yow! Is this quotation too long yet? */
        !            92:       break;
        !            93:   }
        !            94:   buf[i++] = 0;
        !            95:   printf("%s\n", buf);
        !            96: }
        !            97: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.