rcskeys.c revision 1500
1/* 2 * RCS keyword table and match operation 3 */ 4 5/* Copyright (C) 1982, 1988, 1989 Walter Tichy 6 Copyright 1990, 1991 by Paul Eggert 7 Distributed under license by the Free Software Foundation, Inc. 8 9This file is part of RCS. 10 11RCS is free software; you can redistribute it and/or modify 12it under the terms of the GNU General Public License as published by 13the Free Software Foundation; either version 2, or (at your option) 14any later version. 15 16RCS is distributed in the hope that it will be useful, 17but WITHOUT ANY WARRANTY; without even the implied warranty of 18MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 19GNU General Public License for more details. 20 21You should have received a copy of the GNU General Public License 22along with RCS; see the file COPYING. If not, write to 23the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 24 25Report problems and direct all questions to: 26 27 rcs-bugs@cs.purdue.edu 28 29*/ 30 31 32 33/* $Log: rcskeys.c,v $ 34 * Revision 1.2 1994/05/14 07:00:23 rgrimes 35 * Add new option -K from David Dawes that allows you to turn on and off 36 * specific keyword substitution during a rcs co command. 37 * Add the new keyword FreeBSD that is IDENTICAL in operation to $Id$. 38 * 39 * Revision 1.1.1.1 1993/06/18 04:22:12 jkh 40 * Updated GNU utilities 41 * 42 * Revision 5.2 1991/08/19 03:13:55 eggert 43 * Say `T const' instead of `const T'; it's less confusing for pointer types. 44 * (This change was made in other source files too.) 45 * 46 * Revision 5.1 1991/04/21 11:58:25 eggert 47 * Don't put , just before } in initializer. 48 * 49 * Revision 5.0 1990/08/22 08:12:54 eggert 50 * Add -k. Ansify and Posixate. 51 * 52 * Revision 4.3 89/05/01 15:13:02 narten 53 * changed copyright header to reflect current distribution rules 54 * 55 * Revision 4.2 87/10/18 10:36:33 narten 56 * Updating version numbers. Changes relative to 1.1 actuallyt 57 * relative to 4.1 58 * 59 * Revision 1.2 87/09/24 14:00:10 narten 60 * Sources now pass through lint (if you ignore printf/sprintf/fprintf 61 * warnings) 62 * 63 * Revision 4.1 83/05/04 10:06:53 wft 64 * Initial revision. 65 * 66 */ 67 68 69#include "rcsbase.h" 70 71libId(keysId, "$Id: rcskeys.c,v 1.2 1994/05/14 07:00:23 rgrimes Exp $") 72 73 74char const *const Keyword[] = { 75 /* This must be in the same order as rcsbase.h's enum markers type. */ 76 nil, 77 AUTHOR, DATE, HEADER, IDH, 78 LOCKER, LOG, RCSFILE, REVISION, SOURCE, STATE, 79 FREEBSD 80}; 81 82 83/* Expand all keywords by default */ 84 85static int ExpandKeyword[] = { 86 nil, 87 true, true, true, true, 88 true, true, true, true, true, true, true, 89 false 90}; 91 92 enum markers 93trymatch(string) 94 char const *string; 95/* function: Checks whether string starts with a keyword followed 96 * by a KDELIM or a VDELIM. 97 * If successful, returns the appropriate marker, otherwise Nomatch. 98 */ 99{ 100 register int j; 101 register char const *p, *s; 102 for (j = sizeof(Keyword)/sizeof(*Keyword); (--j); ) { 103 if (!ExpandKeyword[j]) 104 continue; 105 /* try next keyword */ 106 p = Keyword[j]; 107 s = string; 108 while (*p++ == *s++) { 109 if (!*p) 110 switch (*s) { 111 case KDELIM: 112 case VDELIM: 113 return (enum markers)j; 114 default: 115 return Nomatch; 116 } 117 } 118 } 119 return(Nomatch); 120} 121 122 123setIncExc(arg) 124 char *arg; 125/* Sets up the ExpandKeyword table according to command-line flags */ 126{ 127 char *key; 128 int include = 0, j; 129 130 arg += 2; 131 switch (*arg++) { 132 case 'e': 133 include = false; 134 break; 135 case 'i': 136 include = true; 137 break; 138 default: 139 return(false); 140 } 141 if (include) 142 for (j = sizeof(Keyword)/sizeof(*Keyword); (--j); ) 143 ExpandKeyword[j] = false; 144 key = strtok(arg, ","); 145 while (key) { 146 for (j = sizeof(Keyword)/sizeof(*Keyword); (--j); ) 147 if (!strcmp(key, Keyword[j])) 148 ExpandKeyword[j] = include; 149 key = strtok(NULL, ","); 150 } 151 return(true); 152} 153 154