rcskeys.c revision 1764 
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.3  1994/05/15  22:15:14  rgrimes
35 * To truely have the OLD behavior of RCS by default make the expansion
36 * of $FreeBSD: head/gnu/usr.bin/rcs/lib/rcskeys.c 1764 1994-06-22 00:51:42Z rgrimes $ false by default.  This should keep them out
37 * of the pre 2.x repository. (Or at least make them useless in it).
38 *
39 * Revision 1.2  1994/05/14  07:00:23  rgrimes
40 * Add new option -K from David Dawes that allows you to turn on and off
41 * specific keyword substitution during a rcs co command.
42 * Add the new keyword FreeBSD that is IDENTICAL in operation to $Id: rcskeys.c,v 1.3 1994/05/15 22:15:14 rgrimes Exp $.
43 *
44 * Revision 1.1.1.1  1993/06/18  04:22:12  jkh
45 * Updated GNU utilities
46 *
47 * Revision 5.2  1991/08/19  03:13:55  eggert
48 * Say `T const' instead of `const T'; it's less confusing for pointer types.
49 * (This change was made in other source files too.)
50 *
51 * Revision 5.1  1991/04/21  11:58:25  eggert
52 * Don't put , just before } in initializer.
53 *
54 * Revision 5.0  1990/08/22  08:12:54  eggert
55 * Add -k.  Ansify and Posixate.
56 *
57 * Revision 4.3  89/05/01  15:13:02  narten
58 * changed copyright header to reflect current distribution rules
59 *
60 * Revision 4.2  87/10/18  10:36:33  narten
61 * Updating version numbers. Changes relative to 1.1 actuallyt
62 * relative to 4.1
63 *
64 * Revision 1.2  87/09/24  14:00:10  narten
65 * Sources now pass through lint (if you ignore printf/sprintf/fprintf
66 * warnings)
67 *
68 * Revision 4.1  83/05/04  10:06:53  wft
69 * Initial revision.
70 *
71 */
72
73
74#include "rcsbase.h"
75
76libId(keysId, "$Id: rcskeys.c,v 1.3 1994/05/15 22:15:14 rgrimes Exp $")
77
78
79char const *const Keyword[] = {
80    /* This must be in the same order as rcsbase.h's enum markers type. */
81	nil,
82	AUTHOR, DATE, HEADER, IDH,
83	LOCKER, LOG, RCSFILE, REVISION, SOURCE, STATE,
84	FREEBSD
85};
86
87
88/* Expand all keywords by default */
89
90static int ExpandKeyword[] = {
91	nil,
92	true, true, true, true,
93	true, true, true, true, true, true,
94	false
95};
96
97	enum markers
98trymatch(string)
99	char const *string;
100/* function: Checks whether string starts with a keyword followed
101 * by a KDELIM or a VDELIM.
102 * If successful, returns the appropriate marker, otherwise Nomatch.
103 */
104{
105        register int j;
106	register char const *p, *s;
107	for (j = sizeof(Keyword)/sizeof(*Keyword);  (--j);  ) {
108		if (!ExpandKeyword[j])
109			continue;
110		/* try next keyword */
111		p = Keyword[j];
112		s = string;
113		while (*p++ == *s++) {
114			if (!*p)
115			    switch (*s) {
116				case KDELIM:
117				case VDELIM:
118				    return (enum markers)j;
119				default:
120				    return Nomatch;
121			    }
122		}
123        }
124        return(Nomatch);
125}
126
127
128setIncExc(arg)
129	char *arg;
130/* Sets up the ExpandKeyword table according to command-line flags */
131{
132	char *key;
133	int include = 0, j;
134
135	arg += 2;
136	switch (*arg++) {
137	    case 'e':
138		include = false;
139		break;
140	    case 'i':
141		include = true;
142		break;
143	    default:
144		return(false);
145	}
146	if (include)
147		for (j = sizeof(Keyword)/sizeof(*Keyword);  (--j);  )
148			ExpandKeyword[j] = false;
149	key = strtok(arg, ",");
150	while (key) {
151		for (j = sizeof(Keyword)/sizeof(*Keyword);  (--j);  )
152			if (!strcmp(key, Keyword[j]))
153				ExpandKeyword[j] = include;
154		key = strtok(NULL, ",");
155	}
156	return(true);
157}
158
159