Mercurial > emacs
view lib-src/yow.c @ 67894:d742983a2136
(bibtex-entry-type-whitespace)
(bibtex-entry-type-str, bibtex-empty-field-re)
(bibtex-search-backward-string, bibtex-preamble-prefix)
(bibtex-search-entry, bibtex-enclosing-entry-maybe-empty-head):
Removed.
(bibtex-any-valid-entry-type): New variable.
(bibtex-parse-field-name): Simplify.
(bibtex-parse-string, bibtex-search-forward-string): New arg
empty-key.
(bibtex-preamble-prefix): Include left delimiter.
(bibtex-search-forward-field, bibtex-search-backward-field): Allow
unbounded search past entry boundaries (required by bibtex-pop).
(bibtex-text-in-field-bounds): Use push.
(bibtex-text-in-field): Do not use bibtex-narrow-to-entry.
(bibtex-parse-preamble, bibtex-valid-entry)
(bibtex-beginning-first-field): New functions.
(bibtex-skip-to-valid-entry): Use bibtex-valid-entry. Fix regexp.
(bibtex-map-entries): Fix docstring.
(bibtex-flash-head): New arg prompt. Simplify.
(bibtex-enclosing-field): Include code of bibtex-inside-field.
(bibtex-insert-kill): Simplify. Always insert text past the
current field or entry.
(bibtex-format-entry): Use bibtex-parse-field.
(bibtex-pop): Use bibtex-beginning-of-entry and
bibtex-end-of-entry to initiate the search. Insert empty field if
we found ourselves.
(bibtex-print-help-message): New args field and comma. Handle
entry keys.
(bibtex-make-field): Use bibtex-beginning-of-entry.
(bibtex-end-of-entry): Use bibtex-valid-entry. Recognize any
invalid entry.
(bibtex-validate): Use bibtex-valid-entry and bibtex-parse-string.
Handle preambles. Simplify code for thorough test.
(bibtex-next-field, bibtex-find-text, bibtex-find-text-internal):
New arg comma. Handle entry heads.
(bibtex-remove-OPT-or-ALT, bibtex-remove-delimiters)
(bibtex-kill-field, bibtex-copy-field-as-kil, bibtex-empty-field):
New arg comma.
(bibtex-kill-entry): Use bibtex-any-entry-maybe-empty-head.
(bibtex-fill-field): Simplify.
(bibtex-fill-entry): Use bibtex-beginning-first-field and
bibtex-parse-field.
(bibtex-convert-alien): Do not wait before calling
bibtex-validate.
(bibtex-complete): Use bibtex-parse-preamble.
author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> |
---|---|
date | Thu, 29 Dec 2005 15:23:52 +0000 |
parents | 00adf45090ee |
children | 1a11061f92fa 5b029ff3b08d |
line wrap: on
line source
/* * yow.c * * Print a quotation from Zippy the Pinhead. * Qux <Kaufman-David@Yale> March 6, 1986 * * This file is in the public domain because the author published it * with no copyright notice before the US signed the Bern Convention. * * With dynamic memory allocation. */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <stdio.h> #include <ctype.h> #ifdef TIME_WITH_SYS_TIME #include <sys/time.h> #include <time.h> #else #ifdef HAVE_SYS_TIME_H #include <sys/time.h> #else #include <time.h> #endif #endif #ifdef HAVE_UNISTD_H #include <unistd.h> #endif #include "epaths.h" /* For PATH_DATA. */ #define BUFSIZE 80 #define SEP '\0' #ifndef YOW_FILE #define YOW_FILE "yow.lines" #endif #ifdef MSDOS #define rootrelativepath(rel) \ ({\ static char res[BUFSIZE], *p;\ strcpy (res, argv[0]);\ p = res + strlen (res);\ while (p != res && *p != '/' && *p != '\\' && *p != ':') p--;\ strcpy (p + 1, "../");\ strcpy (p + 4, rel);\ &res;}) #endif void yow(); void setup_yow(); int main (argc, argv) int argc; char *argv[]; { FILE *fp; char file[BUFSIZ]; if (argc > 2 && !strcmp (argv[1], "-f")) strcpy (file, argv[2]); else #ifdef vms sprintf (file, "%s%s", PATH_DATA, YOW_FILE); #else sprintf (file, "%s/%s", PATH_DATA, YOW_FILE); #endif if ((fp = fopen(file, "r")) == NULL) { fprintf(stderr, "yow: "); perror(file); exit(EXIT_FAILURE); } /* initialize random seed */ srand((int) (getpid() + time((time_t *) 0))); setup_yow(fp); yow(fp); fclose(fp); return EXIT_SUCCESS; } static long len = -1; static long header_len; #define AVG_LEN 40 /* average length of a quotation */ /* Sets len and header_len */ void setup_yow(fp) FILE *fp; { int c; /* Get length of file */ /* Because the header (stuff before the first SEP) can be very long, * thus biasing our search in favor of the first quotation in the file, * we explicitly skip that. */ while ((c = getc(fp)) != SEP) { if (c == EOF) { fprintf(stderr, "yow: file contains no separators\n"); exit(EXIT_FAILURE); } } header_len = ftell(fp); if (header_len > AVG_LEN) header_len -= AVG_LEN; /* allow the first quotation to appear */ if (fseek(fp, 0L, 2) == -1) { perror("yow"); exit(EXIT_FAILURE); } len = ftell(fp) - header_len; } /* go to a random place in the file and print the quotation there */ void yow (fp) FILE *fp; { long offset; int c, i = 0; char *buf; unsigned int bufsize; offset = rand() % len + header_len; if (fseek(fp, offset, 0) == -1) { perror("yow"); exit(EXIT_FAILURE); } /* Read until SEP, read next line, print it. (Note that we will never print anything before the first separator.) If we hit EOF looking for the first SEP, just recurse. */ while ((c = getc(fp)) != SEP) if (c == EOF) { yow(fp); return; } /* Skip leading whitespace, then read in a quotation. If we hit EOF before we find a non-whitespace char, recurse. */ while (isspace(c = getc(fp))) ; if (c == EOF) { yow(fp); return; } bufsize = BUFSIZE; buf = (char *) malloc(bufsize); if (buf == (char *)0) { fprintf(stderr, "yow: virtual memory exhausted\n"); exit (EXIT_FAILURE); } buf[i++] = c; while ((c = getc(fp)) != SEP && c != EOF) { buf[i++] = c; if (i == bufsize-1) { /* Yow! Is this quotation too long yet? */ bufsize *= 2; buf = (char *) realloc(buf, bufsize); if (buf == (char *)0) { fprintf(stderr, "yow: virtual memory exhausted\n"); exit (EXIT_FAILURE); } } } buf[i++] = 0; printf("%s\n", buf); } /* arch-tag: e40fc0df-bafb-4001-af24-5c883d1c685e (do not change this comment) */ /* yow.c ends here */