1 /* Extract RCS keyword string values from working files. */
3 /* Copyright 1982, 1988, 1989 Walter Tichy
4 Copyright 1990, 1991, 1992, 1993, 1994, 1995 Paul Eggert
5 Distributed under license by the Free Software Foundation, Inc.
7 This file is part of RCS.
9 RCS is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2, or (at your option)
14 RCS is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with RCS; see the file COPYING.
21 If not, write to the Free Software Foundation,
22 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
24 Report problems and direct all questions to:
26 rcs-bugs@cs.purdue.edu
31 * $FreeBSD: src/gnu/usr.bin/rcs/lib/rcskeep.c,v 1.8 1999/08/27 23:36:46 peter Exp $
32 * $DragonFly: src/gnu/usr.bin/rcs/lib/rcskeep.c,v 1.2 2003/06/17 04:25:47 dillon Exp $
34 * Revision 5.10 1995/06/16 06:19:24 eggert
37 * Revision 5.9 1995/06/01 16:23:43 eggert
38 * (getoldkeys): Don't panic if a Name: is empty.
40 * Revision 5.8 1994/03/17 14:05:48 eggert
43 * Revision 5.7 1993/11/09 17:40:15 eggert
44 * Use simpler timezone parsing strategy now that we're using ISO 8601 format.
46 * Revision 5.6 1993/11/03 17:42:27 eggert
47 * Scan for Name keyword. Improve quality of diagnostics.
49 * Revision 5.5 1992/07/28 16:12:44 eggert
50 * Statement macro names now end in _.
52 * Revision 5.4 1991/08/19 03:13:55 eggert
55 * Revision 5.3 1991/04/21 11:58:25 eggert
56 * Shorten names to keep them distinct on shortname hosts.
58 * Revision 5.2 1990/10/04 06:30:20 eggert
59 * Parse time zone offsets; future RCS versions may output them.
61 * Revision 5.1 1990/09/20 02:38:56 eggert
62 * ci -k now checks dates more thoroughly.
64 * Revision 5.0 1990/08/22 08:12:53 eggert
65 * Retrieve old log message if there is one.
66 * Don't require final newline.
67 * Remove compile-time limits; use malloc instead. Tune.
68 * Permit dates past 1999/12/31. Ansify and Posixate.
70 * Revision 4.6 89/05/01 15:12:56 narten
71 * changed copyright header to reflect current distribution rules
73 * Revision 4.5 88/08/09 19:13:03 eggert
74 * Remove lint and speed up by making FILE *fp local, not global.
76 * Revision 4.4 87/12/18 11:44:21 narten
77 * more lint cleanups (Guy Harris)
79 * Revision 4.3 87/10/18 10:35:50 narten
80 * Updating version numbers. Changes relative to 1.1 actually relative
83 * Revision 1.3 87/09/24 14:00:00 narten
84 * Sources now pass through lint (if you ignore printf/sprintf/fprintf
87 * Revision 1.2 87/03/27 14:22:29 jenkins
90 * Revision 4.1 83/05/10 16:26:44 wft
91 * Added new markers Id and RCSfile; extraction added.
92 * Marker matching with trymatch().
94 * Revision 3.2 82/12/24 12:08:26 wft
95 * added missing #endif.
97 * Revision 3.1 82/12/04 13:22:41 wft
104 libId(keepId, "$DragonFly: src/gnu/usr.bin/rcs/lib/rcskeep.c,v 1.2 2003/06/17 04:25:47 dillon Exp $")
106 static int badly_terminated P((void));
107 static int checknum P((char const*));
108 static int get0val P((int,RILE*,struct buf*,int));
109 static int getval P((RILE*,struct buf*,int));
110 static int keepdate P((RILE*));
111 static int keepid P((int,RILE*,struct buf*));
112 static int keeprev P((RILE*));
115 struct buf prevauthor, prevdate, prevname, prevrev, prevstate;
120 /* Function: Tries to read keyword values for author, date,
121 * revision number, and state out of the file fp.
122 * If fp is null, workname is opened and closed instead of using fp.
123 * The results are placed into
124 * prevauthor, prevdate, prevname, prevrev, prevstate.
125 * Aborts immediately if it finds an error and returns false.
126 * If it returns true, it doesn't mean that any of the
127 * values were found; instead, check to see whether the corresponding arrays
128 * contain the empty string.
132 char keyword[keylength+1];
140 needs_closing = false;
142 if (!(fp = Iopen(workname, FOPEN_R_WORK, (struct stat*)0))) {
146 needs_closing = true;
149 /* initialize to empty */
150 bufscpy(&prevauthor, "");
151 bufscpy(&prevdate, "");
152 bufscpy(&prevname, ""); prevname_found = 0;
153 bufscpy(&prevrev, "");
154 bufscpy(&prevstate, "");
156 c = '\0'; /* anything but KDELIM */
160 /* try to get keyword */
163 Igeteof_(fp, c, goto ok;)
166 if (keyword+keylength <= tp)
171 case '\n': case KDELIM: case VDELIM:
177 if (c!=VDELIM) continue;
179 Igeteof_(fp, c, break;)
181 case ' ': case '\t': break;
185 switch (trymatch(keyword)) {
187 if (!keepid(0, fp, &prevauthor))
192 if (!(c = keepdate(fp)))
199 getval(fp, (struct buf*)0, false) &&
201 (c = keepdate(fp)) &&
202 keepid(c, fp, &prevauthor) &&
203 keepid(0, fp, &prevstate)
206 /* Skip either ``who'' (new form) or ``Locker: who'' (old). */
207 if (getval(fp, (struct buf*)0, true) &&
208 getval(fp, (struct buf*)0, true))
216 (void) getval(fp, (struct buf*)0, false);
222 if (!getval(fp, (struct buf*)0, false))
227 if (getval(fp, &prevname, false)) {
228 if (*prevname.string)
229 checkssym(prevname.string);
240 if (!keepid(0, fp, &prevstate))
248 Igeteof_(fp, c, c=0;)
250 workerror("closing %c missing on keyword", KDELIM);
253 if (prevname_found &&
254 *prevauthor.string && *prevdate.string &&
255 *prevrev.string && *prevstate.string
259 Igeteof_(fp, c, break;)
274 workerror("badly terminated keyword value");
279 getval(fp, target, optional)
283 /* Reads a keyword value from FP into TARGET.
284 * Returns true if one is found, false otherwise.
285 * Does not modify target if it is 0.
286 * Do not report an error if OPTIONAL is set and KDELIM is found instead.
290 Igeteof_(fp, c, return badly_terminated();)
291 return get0val(c, fp, target, optional);
295 get0val(c, fp, target, optional)
300 /* Reads a keyword value from C+FP into TARGET, perhaps OPTIONALly.
301 * Same as getval, except C is the lookahead character.
303 { register char * tp;
310 tlim = tp + target->size;
321 tp = bufenlarge(target, &tlim);
330 VOID printf("getval: %s\n", target);
336 if (!got1 && optional)
341 return badly_terminated();
343 Igeteof_(fp, c, return badly_terminated();)
351 /* Function: reads a date prevdate; checks format
352 * Return 0 on error, lookahead character otherwise.
355 struct buf prevday, prevtime;
359 bufautobegin(&prevday);
360 if (getval(fp,&prevday,false)) {
361 bufautobegin(&prevtime);
362 if (getval(fp,&prevtime,false)) {
363 Igeteof_(fp, c, c=0;)
365 register char const *d = prevday.string, *t = prevtime.string;
366 bufalloc(&prevdate, strlen(d) + strlen(t) + 9);
367 VOID sprintf(prevdate.string, "%s%s %s%s",
368 /* Parse dates put out by old versions of RCS. */
369 isdigit(d[0]) && isdigit(d[1]) && !isdigit(d[2])
372 strchr(t,'-') || strchr(t,'+') ? "" : "+0000"
376 bufautoend(&prevtime);
378 bufautoend(&prevday);
387 /* Get previous identifier from C+FP into B. */
390 Igeteof_(fp, c, return false;)
391 if (!get0val(c, fp, b, false))
400 /* Get previous revision from FP into prevrev. */
402 return getval(fp,&prevrev,false) && checknum(prevrev.string);
410 register char const *sp;
411 register int dotcount = 0;
431 workerror("%s is not a revision number", s);
439 /* Print the keyword values found. */
441 char const cmdid[] ="keeptest";
445 int argc; char *argv[];
449 getoldkeys((RILE*)0);
450 VOID printf("%s: revision: %s, date: %s, author: %s, name: %s, state: %s\n",
451 *argv, prevrev.string, prevdate.string, prevauthor.string, prevname.string, prevstate.string);
453 exitmain(EXIT_SUCCESS);