home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
rtsi.com
/
2014.01.www.rtsi.com.tar
/
www.rtsi.com
/
OS9
/
TOP
/
USR
/
SRC
/
rcs.t.Z
/
rcs.t
/
RCS
/
SRC
/
snoop.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-08-24
|
3KB
|
108 lines
/*
* Logging of RCS commands co and ci
*/
#ifndef lint
static char rcsid[]=
"$Header: /usr/src/local/bin/rcs/src/RCS/snoop.c,v 4.3 87/12/18 11:46:52 narten Exp $ Purdue CS";
#endif
/*******************************************************************
* 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 4.3 87/12/18 11:46:52 narten
* more lint cleanups (Guy Harris)
*
* Revision 4.2 87/10/18 10:41:47 narten
* Changing version numbers. Changes relative to 1.1 actually relative to
* 4.1
*
* Revision 1.2 87/09/24 14:01:41 narten
* Sources now pass through lint (if you ignore printf/sprintf/fprintf
* warnings)
*
* Revision 1.1 84/01/23 14:50:49 kcs
* Initial revision
*
* Revision 4.1 83/03/28 13:23:42 wft
* No change; just new revision number.
*
* 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;
VOID strcpy(lockfname,(char *) SNOOPFILE);
lastslash = sp = lockfname;
while (*sp) if (*sp++ =='/') lastslash=sp; /* points beyond / */
VOID strcpy(lastslash,",lockfile");
tries=0;
while (((lockfile=creat(lockfname, 000)) == -1) && (tries<=MAXTRIES)) {
tries++;
sleep(5);
}
if (tries<=MAXTRIES) {
VOID close(lockfile);
if ((logfile=fopen(SNOOPFILE,"a")) ==NULL) {
VOID fprintf(stderr,"Can't open logfile %s\n",SNOOPFILE);
} else {
VOID fputs(argv[1],logfile);
VOID putc('\n',logfile);
VOID fclose(logfile);
}
VOID unlink(lockfname);
} else {
VOID fprintf(stderr,"RCS logfile %s seems permanently locked.\n",SNOOPFILE);
VOID fprintf(stderr,"Please alert system administrator\n");
}
}