home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
OSK
/
CMDS
/
rcs4.lha
/
ident.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-03-03
|
4KB
|
151 lines
/*
* RCS identification operation
*/
#ifndef lint
static char rcsid[]=
"$Header: /arthur/src/local/bin/rcs/src/RCS/ident.c,v 4.4 87/10/23 17:09:57 narten Exp $Purdue CS";
#endif
/*****************************************************************************
*****************************************************************************
*
* Copyright (C) 1982 by Walter F. Tichy
* Purdue University
* Computer Science Department
* West Lafayette, IN 47907
*
* All rights reserved. No part of this software may be sold or distributed
* in any form or by any means without the prior written permission of the
* author.
* Report problems and direct all inquiries to Tichy@purdue (ARPA net).
*/
/* $Log: ident.c,v $
* 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 1.1 84/01/23 14:50:03 kcs
* Initial revision
*
* 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"
#define fflsbuf _flsbuf
/* redefinition of _flsbuf in putc not needed */
#ifndef lint
static char rcsbaseid[] = RCSBASE;
#endif
extern enum markers trymatch();
int quietflag;
main(argc, argv)
int argc; char *argv[];
/* Ident searches the named files for all occurrences
* of the pattern $keyword:...$, where the keywords are
* Author, Date, Header, Id, Log, RCSfile, Revision, Source, and State.
*/
{
FILE *fp, *fopen();
quietflag = false;
if (argc > 1 && strcmp("-q",argv[1])==0) {
quietflag = true;
argc--; argv++;
}
if (argc<2) {
if ((scanfile(stdin) == 0) && !quietflag)
VOID fprintf(stderr, "ident warning: no id keywords in input\n");
exit(0);
}
while ( --argc > 0 ) {
if ( (fp = fopen(*++argv, "r") ) == NULL ) {
VOID fprintf(stderr, "ident error: can't open %s\n", *argv);
continue;
} else {
VOID printf( "%s:\n", *argv); /* print file name */
if ((scanfile(fp) == 0) && !quietflag)
VOID fprintf(stderr, "ident warning: no id keywords in %s\n", *argv);
if (argc>1) putchar('\n');
VOID fclose(fp);
}
}
exit(0);
}
int scanfile(file)
FILE * file;
/* Function: scan an open file with descriptor file for keywords.
* Returns the number of matches.
*/
{
register int matchcount;
register int c;
matchcount = 0;
while( (c=getc(file)) != EOF) {
if ( (char)c==KDELIM)
matchcount += match(file);
}
return matchcount;
}
match(fp) /* group substring between two KDELIM's; then do pattern match */
FILE *fp;
{
char line[keyvallength];
register int c;
register char * tp;
tp = line;
while( (c = getc(fp)) != KDELIM ) {
*tp++ = c;
if ( c==EOF || c=='\n' || tp>= line+keyvallength-2)
return(0);
}
*tp++ = c; /*append trailing KDELIM*/
*tp = '\0';
if (trymatch(line,true)!=Nomatch) {
VOID fprintf(stdout," $%s\n",line);
return(1);
} else {
/* no match; put trailing KDELIM back into input */
VOID ungetc(c,fp );
return(0);
}
}