# 2.11BSD#431 - /usr/src/new/rcs/src/ident.c

##### Functions

    main              X
    match             X
    scanfile          X

##### Variables

    quietflag         X

##### Macros

    fflsbuf           X

       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: }

#### Defined functions

main defined in line 69; never used
match defined in line 127; used 1 times

- in line 120

scanfile defined in line 107; used 2 times

- in line 86, 97

#### Defined variables

quietflag defined in line 67; used 13 times

- in line 79-86(3), 97
- in /usr/src/new/rcs/src/rcs.c line 217, 401, 538, 1516
- in /usr/src/new/rcs/src/rcsclean.c line 75, 88
- in /usr/src/new/rcs/src/rcsdiff.c line 137
- in /usr/src/new/rcs/src/rcsfnms.c line 720, 730

rcsbaseid defined in line 62; never used
rcsid defined in line 5; never used

#### Defined macros

fflsbuf defined in line 59; never used

Last modified: 1988-02-18 Generated: 2016-12-26 | Generated by src2html V0.67 page hit count: 553 |