gnu/usr.bin/rcs/lib/rcskeys.c

   1 /*      $NetBSD: rcskeys.c,v 1.7 1996/10/15 07:00:22 veego Exp $        */
   2
   3 /* RCS keyword table and match operation */
   4
   5 /* Copyright 1982, 1988, 1989 Walter Tichy
   6    Copyright 1990, 1991, 1992, 1993, 1995 Paul Eggert
   7    Distributed under license by the Free Software Foundation, Inc.
   8
   9 This file is part of RCS.
  10
  11 RCS is free software; you can redistribute it and/or modify
  12 it under the terms of the GNU General Public License as published by
  13 the Free Software Foundation; either version 2, or (at your option)
  14 any later version.
  15
  16 RCS is distributed in the hope that it will be useful,
  17 but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 GNU General Public License for more details.
  20
  21 You should have received a copy of the GNU General Public License
  22 along with RCS; see the file COPYING.
  23 If not, write to the Free Software Foundation,
  24 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  25
  26 Report problems and direct all questions to:
  27
  28     rcs-bugs@cs.purdue.edu
  29
  30 */
  31
  32 /*
  33  * $Log: rcskeys.c,v $
  34  * Revision 1.7  1996/10/15 07:00:22  veego
  35  * Merge rcs 5.7.
  36  *
  37  * Revision 5.4  1995/06/16 06:19:24  eggert
  38  * Update FSF address.
  39  *
  40  * Revision 5.3  1993/11/03 17:42:27  eggert
  41  * Add Name keyword.
  42  *
  43  * Revision 5.2  1991/08/19  03:13:55  eggert
  44  * Say `T const' instead of `const T'; it's less confusing for pointer types.
  45  * (This change was made in other source files too.)
  46  *
  47  * Revision 5.1  1991/04/21  11:58:25  eggert
  48  * Don't put , just before } in initializer.
  49  *
  50  * Revision 5.0  1990/08/22  08:12:54  eggert
  51  * Add -k.  Ansify and Posixate.
  52  *
  53  * Revision 4.3  89/05/01  15:13:02  narten
  54  * changed copyright header to reflect current distribution rules
  55  *
  56  * Revision 4.2  87/10/18  10:36:33  narten
  57  * Updating version numbers. Changes relative to 1.1 actuallyt
  58  * relative to 4.1
  59  *
  60  * Revision 1.2  87/09/24  14:00:10  narten
  61  * Sources now pass through lint (if you ignore printf/sprintf/fprintf
  62  * warnings)
  63  *
  64  * Revision 4.1  83/05/04  10:06:53  wft
  65  * Initial revision.
  66  *
  67  */
  68
  69
  70 #include "rcsbase.h"
  71
  72 libId(keysId, "Id: rcskeys.c,v 5.4 1995/06/16 06:19:24 eggert Exp")
  73
  74
  75 char const *const Keyword[] = {
  76     /* This must be in the same order as rcsbase.h's enum markers type. */
  77         0,
  78         AUTHOR, DATE, HEADER, IDH,
  79 #ifdef LOCALID
  80         LOCALID,
  81 #endif
  82         LOCKER, LOG, NAME, RCSFILE, REVISION, SOURCE, STATE
  83 };
  84
  85
  86
  87         enum markers
  88 trymatch(string)
  89         char const *string;
  90 /* function: Checks whether string starts with a keyword followed
  91  * by a KDELIM or a VDELIM.
  92  * If successful, returns the appropriate marker, otherwise Nomatch.
  93  */
  94 {
  95         register int j;
  96         register char const *p, *s;
  97         for (j = sizeof(Keyword)/sizeof(*Keyword);  (--j);  ) {
  98                 /* try next keyword */
  99                 p = Keyword[j];
 100                 s = string;
 101                 while (*p++ == *s++) {
 102                         if (!*p)
 103                             switch (*s) {
 104                                 case KDELIM:
 105                                 case VDELIM:
 106                                     return (enum markers)j;
 107                                 default:
 108                                     return Nomatch;
 109                             }
 110                 }
 111         }
 112         return(Nomatch);
 113 }
 114