From: CSRG <csrg@ucbvax.Berkeley.EDU>
Date: Thu, 12 May 1983 00:38:00 +0000 (-0800)
Subject: BSD 4_3 development
X-Git-Tag: BSD-4_3~1826
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/0133c7f25182c133d760dd22858f1495122a8112

BSD 4_3 development
Work on file usr/contrib/rcs/src/snoop.c

Synthesized-from: CSRG/cd1/4.3
---

diff --git a/usr/contrib/rcs/src/snoop.c b/usr/contrib/rcs/src/snoop.c
new file mode 100644
index 0000000000..e4f1da6a5c
--- /dev/null
+++ b/usr/contrib/rcs/src/snoop.c
@@ -0,0 +1,88 @@
+/*
+ *                     Logging of RCS commands co and ci
+ */
+ static char rcsid[]=
+ "$Header: /usr/wft/RCS/SRC/RCS/snoop.c,v 3.2 82/12/04 17:14:31 wft Exp $ Purdue CS";
+/*******************************************************************
+ * This program appends argv[1] to the file SNOOPFILE.
+ * To avoid overlaps, it creates a lockfile with name lock in the same
+ * directory as SNOOPFILE. SNOOPFILE must be defined in the cc command. 
+ * Prints an error message if lockfile doesn't get deleted after
+ * MAXTRIES tries.
+ *******************************************************************
+ *
+ * Copyright (C) 1982 by Walter F. Tichy
+ *                       Purdue University
+ *                       Computer Science Department
+ *                       West Lafayette, IN 47907
+ *
+ * All rights reserved. No part of this software may be sold or distributed
+ * in any form or by any means without the prior written permission of the 
+ * author.
+ * Report problems and direct all inquiries to Tichy@purdue (ARPA net).
+ */
+
+
+/* $Log:	snoop.c,v $
+ * Revision 3.2  82/12/04  17:14:31  wft
+ * Added rcsbase.h, changed SNOOPDIR to SNOOPFILE, reintroduced
+ * error message in case of permanent locking.
+ * 
+ * Revision 3.1  82/10/18  21:22:03  wft
+ * Number of polls now 20, no error message if critical section can't
+ * be entered.
+ * 
+ * Revision 2.3  82/07/01  23:49:28  wft
+ * changed copyright notice only.
+ * 
+ * Revision 2.2  82/06/03  20:00:10  wft
+ * changed name from rcslog to snoop, replaced LOGDIR with SNOOPDIR.
+ * 
+ * Revision 2.1  82/05/06  17:55:54  wft
+ * Initial revision
+ *
+ */
+
+
+#include "rcsbase.h"
+#define fflsbuf _flsbuf
+/* undo redefinition of putc in rcsbase.h */
+
+char  lockfname[NCPPN];
+FILE * logfile;
+int lockfile;
+
+#define MAXTRIES 20
+
+main(argc,argv)
+int argc; char * argv[];
+/* writes argv[1] to SNOOPFILE and appends a newline. Invoked as follows:
+ * rcslog logmessage
+ */
+{       int tries;
+        register char * lastslash, *sp;
+
+        strcpy(lockfname,SNOOPFILE);
+        lastslash = sp = lockfname;
+        while (*sp) if (*sp++ =='/') lastslash=sp; /* points beyond / */
+        strcpy(lastslash,",lockfile");
+        tries=0;
+        while (((lockfile=creat(lockfname, 000)) == -1) && (tries<=MAXTRIES)) {
+                tries++;
+                sleep(5);
+        }
+        if (tries<=MAXTRIES) {
+                close(lockfile);
+                if ((logfile=fopen(SNOOPFILE,"a")) ==NULL) {
+                        fprintf(stderr,"Can't open logfile %s\n",SNOOPFILE);
+                } else {
+                        fputs(argv[1],logfile);
+                        putc('\n',logfile);
+                        fclose(logfile);
+                }
+                unlink(lockfname);
+        } else {
+                fprintf(stderr,"RCS logfile %s seems permanently locked.\n",SNOOPFILE);
+                fprintf(stderr,"Please alert system administrator\n");
+        }
+}