Return to ident.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / rcs / src

Annotation of 43BSDTahoe/new/rcs/src/ident.c, revision 1.1

1.1     ! root        1: /*
        !             2:  *                     RCS identification operation
        !             3:  */
        !             4: #ifndef lint
        !             5: static char rcsid[]=
        !             6: "$Header: /arthur/src/local/bin/rcs/src/RCS/ident.c,v 4.4 87/10/23 17:09:57 narten Exp $Purdue CS";
        !             7: #endif
        !             8: /*****************************************************************************
        !             9:  *****************************************************************************
        !            10:  *
        !            11:  * Copyright (C) 1982 by Walter F. Tichy
        !            12:  *                       Purdue University
        !            13:  *                       Computer Science Department
        !            14:  *                       West Lafayette, IN 47907
        !            15:  *
        !            16:  * All rights reserved. No part of this software may be sold or distributed
        !            17:  * in any form or by any means without the prior written permission of the
        !            18:  * author.
        !            19:  * Report problems and direct all inquiries to Tichy@purdue (ARPA net).
        !            20:  */
        !            21: 
        !            22: /* $Log:       ident.c,v $
        !            23:  * Revision 4.4  87/10/23  17:09:57  narten
        !            24:  * added exit(0) so exit return code would be non random
        !            25:  * 
        !            26:  * Revision 4.3  87/10/18  10:23:55  narten
        !            27:  * Updating version numbers. Changes relative to 1.1 are actually relative
        !            28:  * to 4.1
        !            29:  * 
        !            30:  * Revision 1.3  87/07/09  09:20:52  trinkle
        !            31:  * Added check to make sure there is at least one arg before comparing argv[1]
        !            32:  * with "-q".  This necessary on machines that don't allow dereferncing null
        !            33:  * pointers (i.e. Suns).
        !            34:  * 
        !            35:  * Revision 1.2  87/03/27  14:21:47  jenkins
        !            36:  * Port to suns
        !            37:  * 
        !            38:  * Revision 1.1  84/01/23  14:50:03  kcs
        !            39:  * Initial revision
        !            40:  * 
        !            41:  * Revision 4.1  83/05/10  16:31:02  wft
        !            42:  * Added option -q and input from reading stdin.
        !            43:  * Marker matching is now done with trymatch() (independent of keywords).
        !            44:  * 
        !            45:  * Revision 3.4  83/02/18  17:37:49  wft
        !            46:  * removed printing of new line after last file.
        !            47:  *
        !            48:  * Revision 3.3  82/12/04  12:48:55  wft
        !            49:  * Added LOCKER.
        !            50:  *
        !            51:  * Revision 3.2  82/11/28  18:24:17  wft
        !            52:  * removed Suffix; added ungetc to avoid skipping over trailing KDELIM.
        !            53:  *
        !            54:  * Revision 3.1  82/10/13  15:58:51  wft
        !            55:  * fixed type of variables receiving from getc() (char-->int).
        !            56: */
        !            57: 
        !            58: #include  "rcsbase.h"
        !            59: #define fflsbuf _flsbuf
        !            60: /* redefinition of _flsbuf in putc not needed */
        !            61: #ifndef lint
        !            62: static char rcsbaseid[] = RCSBASE;
        !            63: #endif
        !            64: 
        !            65: extern enum markers trymatch();
        !            66: 
        !            67: int quietflag;
        !            68: 
        !            69: main(argc, argv)
        !            70: int  argc; char  *argv[];
        !            71: /*  Ident searches the named files for all occurrences
        !            72:  *  of the pattern $keyword:...$, where the keywords are
        !            73:  *  Author, Date, Header, Id, Log, RCSfile, Revision, Source, and State.
        !            74:  */
        !            75: 
        !            76: {
        !            77:    FILE *fp, *fopen();
        !            78: 
        !            79:    quietflag = false;
        !            80:    if (argc > 1 && strcmp("-q",argv[1])==0) {
        !            81:         quietflag = true;
        !            82:         argc--; argv++;
        !            83:    }
        !            84: 
        !            85:    if (argc<2) {
        !            86:         if ((scanfile(stdin) == 0) && !quietflag)
        !            87:            VOID fprintf(stderr, "ident warning: no id keywords in input\n");
        !            88:        exit(0);
        !            89:    }
        !            90: 
        !            91:    while ( --argc > 0 ) {
        !            92:       if ( (fp = fopen(*++argv, "r") ) == NULL ) {
        !            93:          VOID fprintf(stderr,  "ident error: can't open %s\n", *argv);
        !            94:          continue;
        !            95:       } else {
        !            96:          VOID printf( "%s:\n", *argv);   /*  print file name  */
        !            97:         if ((scanfile(fp) == 0) && !quietflag)
        !            98:            VOID fprintf(stderr, "ident warning: no id keywords in %s\n", *argv);
        !            99:         if (argc>1) putchar('\n');
        !           100:         VOID fclose(fp);
        !           101:       }
        !           102:    }
        !           103:    exit(0);
        !           104: }
        !           105: 
        !           106: 
        !           107: int scanfile(file)
        !           108: FILE * file;
        !           109: /* Function: scan an open file with descriptor file for keywords.
        !           110:  * Returns the number of matches.
        !           111:  */
        !           112: {
        !           113:    register int matchcount;
        !           114:    register int c;
        !           115: 
        !           116: 
        !           117:    matchcount = 0;
        !           118:    while( (c=getc(file)) != EOF) {
        !           119:       if ( (char)c==KDELIM)
        !           120:         matchcount += match(file);
        !           121:    }
        !           122:    return matchcount;
        !           123: }
        !           124: 
        !           125: 
        !           126: 
        !           127: match(fp)   /* group substring between two KDELIM's; then do pattern match */
        !           128: FILE *fp;
        !           129: {
        !           130:    char line[keyvallength];
        !           131:    register int c;
        !           132:    register char * tp;
        !           133: 
        !           134:    tp = line;
        !           135:    while( (c = getc(fp)) != KDELIM ) {
        !           136:       *tp++ = c;
        !           137:       if ( c==EOF || c=='\n' || tp>= line+keyvallength-2)
        !           138:          return(0);
        !           139:    }
        !           140:    *tp++ = c;     /*append trailing KDELIM*/
        !           141:    *tp   = '\0';
        !           142:    if (trymatch(line,true)!=Nomatch) {
        !           143:         VOID fprintf(stdout,"     $%s\n",line);
        !           144:         return(1);
        !           145:    } else {
        !           146:       /* no match; put trailing KDELIM back into input */
        !           147:       VOID ungetc(c,fp );
        !           148:       return(0);
        !           149:    }
        !           150: }

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