9a4fe3afc6
them. Good greif! This was causing an unimaginable amount of brain-damage! The mere fact that I griped about $ Log $ in a previous commit (misspelled deliberately here) meant that the blasted thing was being expanded from the middle of the log entry as well as the beginning, and using " * All these" as the comment leader.. AARGH!!!! We *really* need to prevent these from being expanded! (or remove the magic identifier from the source).
271 lines
6.6 KiB
C
271 lines
6.6 KiB
C
/* Identify RCS keyword strings in files. */
|
|
|
|
/* Copyright 1982, 1988, 1989 Walter Tichy
|
|
Copyright 1990, 1991, 1992, 1993, 1994, 1995 Paul Eggert
|
|
Distributed under license by the Free Software Foundation, Inc.
|
|
|
|
This file is part of RCS.
|
|
|
|
RCS is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
RCS is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with RCS; see the file COPYING.
|
|
If not, write to the Free Software Foundation,
|
|
59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
Report problems and direct all questions to:
|
|
|
|
rcs-bugs@cs.purdue.edu
|
|
|
|
*/
|
|
|
|
/*
|
|
* Revision 5.9 1995/06/16 06:19:24 eggert
|
|
* Update FSF address.
|
|
*
|
|
* Revision 5.8 1995/06/01 16:23:43 eggert
|
|
* (exiterr, reportError): New functions, needed for DOS and OS/2 ports.
|
|
* (scanfile): Use them.
|
|
*
|
|
* Revision 5.7 1994/03/20 04:52:58 eggert
|
|
* Remove `exiting' from identExit.
|
|
*
|
|
* Revision 5.6 1993/11/09 17:40:15 eggert
|
|
* Add -V.
|
|
*
|
|
* Revision 5.5 1993/11/03 17:42:27 eggert
|
|
* Test for char == EOF, not char < 0.
|
|
*
|
|
* Revision 5.4 1992/01/24 18:44:19 eggert
|
|
* lint -> RCS_lint
|
|
*
|
|
* Revision 5.3 1991/09/10 22:15:46 eggert
|
|
* Open files with FOPEN_R, not FOPEN_R_WORK,
|
|
* because they might be executables, not working files.
|
|
*
|
|
* Revision 5.2 1991/08/19 03:13:55 eggert
|
|
* Report read errors immediately.
|
|
*
|
|
* Revision 5.1 1991/02/25 07:12:37 eggert
|
|
* Don't report empty keywords. Check for I/O errors.
|
|
*
|
|
* Revision 5.0 1990/08/22 08:12:37 eggert
|
|
* Don't limit output to known keywords.
|
|
* Remove arbitrary limits and lint. Ansify and Posixate.
|
|
*
|
|
* Revision 4.5 89/05/01 15:11:54 narten
|
|
* changed copyright header to reflect current distribution rules
|
|
*
|
|
* Revision 4.4 87/10/23 17:09:57 narten
|
|
* added exit(0) so exit return code would be non random
|
|
*
|
|
* Revision 4.3 87/10/18 10:23:55 narten
|
|
* Updating version numbers. Changes relative to 1.1 are actually relative
|
|
* to 4.1
|
|
*
|
|
* Revision 1.3 87/07/09 09:20:52 trinkle
|
|
* Added check to make sure there is at least one arg before comparing argv[1]
|
|
* with "-q". This necessary on machines that don't allow dereferncing null
|
|
* pointers (i.e. Suns).
|
|
*
|
|
* Revision 1.2 87/03/27 14:21:47 jenkins
|
|
* Port to suns
|
|
*
|
|
* Revision 4.1 83/05/10 16:31:02 wft
|
|
* Added option -q and input from reading stdin.
|
|
* Marker matching is now done with trymatch() (independent of keywords).
|
|
*
|
|
* Revision 3.4 83/02/18 17:37:49 wft
|
|
* removed printing of new line after last file.
|
|
*
|
|
* Revision 3.3 82/12/04 12:48:55 wft
|
|
* Added LOCKER.
|
|
*
|
|
* Revision 3.2 82/11/28 18:24:17 wft
|
|
* removed Suffix; added ungetc to avoid skipping over trailing KDELIM.
|
|
*
|
|
* Revision 3.1 82/10/13 15:58:51 wft
|
|
* fixed type of variables receiving from getc() (char-->int).
|
|
*/
|
|
|
|
#include "rcsbase.h"
|
|
|
|
static int match P((FILE*));
|
|
static int scanfile P((FILE*,char const*,int));
|
|
static void reportError P((char const*));
|
|
|
|
mainProg(identId, "ident", "$Id: ident.c,v 1.3 1995/10/28 21:49:19 peter Exp $")
|
|
/* Ident searches the named files for all occurrences
|
|
* of the pattern $@: text $ where @ is a keyword.
|
|
*/
|
|
|
|
{
|
|
FILE *fp;
|
|
int quiet = 0;
|
|
int status = EXIT_SUCCESS;
|
|
char const *a;
|
|
|
|
while ((a = *++argv) && *a=='-')
|
|
while (*++a)
|
|
switch (*a) {
|
|
case 'q':
|
|
quiet = 1;
|
|
break;
|
|
|
|
case 'V':
|
|
VOID printf("RCS version %s\n", RCS_version_string);
|
|
quiet = -1;
|
|
break;
|
|
|
|
default:
|
|
VOID fprintf(stderr,
|
|
"ident: usage: ident -{qV} [file...]\n"
|
|
);
|
|
exitmain(EXIT_FAILURE);
|
|
break;
|
|
}
|
|
|
|
if (0 <= quiet)
|
|
if (!a)
|
|
VOID scanfile(stdin, (char*)0, quiet);
|
|
else
|
|
do {
|
|
if (!(fp = fopen(a, FOPEN_RB))) {
|
|
reportError(a);
|
|
status = EXIT_FAILURE;
|
|
} else if (
|
|
scanfile(fp, a, quiet) != 0
|
|
|| (argv[1] && putchar('\n') == EOF)
|
|
)
|
|
break;
|
|
} while ((a = *++argv));
|
|
|
|
if (ferror(stdout) || fclose(stdout)!=0) {
|
|
reportError("standard output");
|
|
status = EXIT_FAILURE;
|
|
}
|
|
exitmain(status);
|
|
}
|
|
|
|
#if RCS_lint
|
|
# define exiterr identExit
|
|
#endif
|
|
void
|
|
exiterr()
|
|
{
|
|
_exit(EXIT_FAILURE);
|
|
}
|
|
|
|
static void
|
|
reportError(s)
|
|
char const *s;
|
|
{
|
|
int e = errno;
|
|
VOID fprintf(stderr, "%s error: ", cmdid);
|
|
errno = e;
|
|
perror(s);
|
|
}
|
|
|
|
|
|
static int
|
|
scanfile(file, name, quiet)
|
|
register FILE *file;
|
|
char const *name;
|
|
int quiet;
|
|
/* Function: scan an open file with descriptor file for keywords.
|
|
* Return -1 if there's a write error; exit immediately on a read error.
|
|
*/
|
|
{
|
|
register int c;
|
|
|
|
if (name) {
|
|
VOID printf("%s:\n", name);
|
|
if (ferror(stdout))
|
|
return -1;
|
|
} else
|
|
name = "standard input";
|
|
c = 0;
|
|
while (c != EOF || ! (feof(file)|ferror(file))) {
|
|
if (c == KDELIM) {
|
|
if ((c = match(file)))
|
|
continue;
|
|
if (ferror(stdout))
|
|
return -1;
|
|
quiet = true;
|
|
}
|
|
c = getc(file);
|
|
}
|
|
if (ferror(file) || fclose(file) != 0) {
|
|
reportError(name);
|
|
/*
|
|
* The following is equivalent to exit(EXIT_FAILURE), but we invoke
|
|
* exiterr to keep lint happy. The DOS and OS/2 ports need exiterr.
|
|
*/
|
|
VOID fflush(stderr);
|
|
VOID fflush(stdout);
|
|
exiterr();
|
|
}
|
|
if (!quiet)
|
|
VOID fprintf(stderr, "%s warning: no id keywords in %s\n", cmdid, name);
|
|
return 0;
|
|
}
|
|
|
|
|
|
|
|
static int
|
|
match(fp) /* group substring between two KDELIM's; then do pattern match */
|
|
register FILE *fp;
|
|
{
|
|
char line[BUFSIZ];
|
|
register int c;
|
|
register char * tp;
|
|
|
|
tp = line;
|
|
while ((c = getc(fp)) != VDELIM) {
|
|
if (c == EOF && feof(fp) | ferror(fp))
|
|
return c;
|
|
switch (ctab[c]) {
|
|
case LETTER: case Letter:
|
|
*tp++ = c;
|
|
if (tp < line+sizeof(line)-4)
|
|
break;
|
|
/* fall into */
|
|
default:
|
|
return c ? c : '\n'/* anything but 0 or KDELIM or EOF */;
|
|
}
|
|
}
|
|
if (tp == line)
|
|
return c;
|
|
*tp++ = c;
|
|
if ((c = getc(fp)) != ' ')
|
|
return c ? c : '\n';
|
|
*tp++ = c;
|
|
while( (c = getc(fp)) != KDELIM ) {
|
|
if (c == EOF && feof(fp) | ferror(fp))
|
|
return c;
|
|
switch (ctab[c]) {
|
|
default:
|
|
*tp++ = c;
|
|
if (tp < line+sizeof(line)-2)
|
|
break;
|
|
/* fall into */
|
|
case NEWLN: case UNKN:
|
|
return c ? c : '\n';
|
|
}
|
|
}
|
|
if (tp[-1] != ' ')
|
|
return c;
|
|
*tp++ = c; /*append trailing KDELIM*/
|
|
*tp = '\0';
|
|
VOID printf(" %c%s\n", KDELIM, line);
|
|
return 0;
|
|
}
|