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