/* $OpenBSD: ident.c,v 1.20 2006/05/09 12:33:42 ray Exp $ */ /* * Copyright (c) 2005 Xavier Santolaria * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission. * * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include "includes.h" #include "rcsprog.h" #define KEYDELIM '$' /* keywords delimiter */ #define VALDELIM ':' /* values delimiter */ static int found = 0; static int flags = 0; static void ident_file(const char *, FILE *); static void ident_line(FILE *); int ident_main(int argc, char **argv) { int i, ch; FILE *fp; while ((ch = rcs_getopt(argc, argv, "qV")) != -1) { switch(ch) { case 'q': flags |= QUIET; break; case 'V': printf("%s\n", rcs_version); exit(0); default: (usage)(); exit(1); } } argc -= rcs_optind; argv += rcs_optind; if (argc == 0) ident_file(NULL, stdin); else { for (i = 0; i < argc; i++) { if ((fp = fopen(argv[i], "r")) == NULL) { warn("%s", argv[i]); continue; } ident_file(argv[i], fp); (void)fclose(fp); } } return (0); } static void ident_file(const char *filename, FILE *fp) { int c; if (filename != NULL) printf("%s:\n", filename); else filename = "standard output"; for (c = 0; c != EOF; c = getc(fp)) { if (feof(fp) || ferror(fp)) break; if (c == KEYDELIM) ident_line(fp); } if (found == 0 && !(flags & QUIET)) fprintf(stderr, "ident warning: no id keywords in %s\n", filename); found = 0; } static void ident_line(FILE *fp) { int c; BUF *bp; char *keyw; size_t len; bp = rcs_buf_alloc(512, BUF_AUTOEXT); while ((c = getc(fp)) != VALDELIM) { if (c == EOF && (feof(fp) | ferror(fp))) goto out; if (isalpha(c)) rcs_buf_putc(bp, c); else goto out; } rcs_buf_putc(bp, VALDELIM); while ((c = getc(fp)) != KEYDELIM) { if (c == EOF && (feof(fp) | ferror(fp))) goto out; if (c == '\n') goto out; rcs_buf_putc(bp, c); } len = rcs_buf_len(bp); if (rcs_buf_getc(bp, len - 1) != ' ') goto out; /* append trailing KEYDELIM */ rcs_buf_putc(bp, c); rcs_buf_putc(bp, '\0'); keyw = rcs_buf_release(bp); bp = NULL; found++; printf(" %c%s\n", KEYDELIM, keyw); out: if (bp != NULL) rcs_buf_free(bp); } void ident_usage(void) { fprintf(stderr, "usage: ident [-qV] file ...\n"); }