DataMuseum.dk

Presents historical artifacts from the history of:

DKUUG/EUUG Conference tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about DKUUG/EUUG Conference tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download
Index: T f

⟦59a24fbc7⟧ TextFile

    Length: 1277 (0x4fd)
    Types: TextFile
    Names: »flock.c«

Derivation

└─⟦2d1937cfd⟧ Bits:30007241 EUUGD22: P.P 5.0
    └─⟦dc59850a2⟧ »EurOpenD22/pp5.0/pp-5.tar.Z« 
        └─⟦e5a54fb17⟧ 
            └─⟦this⟧ »pp-5.0/Uip/misc/flock.c« 

TextFile

/* flock.c: lock a file and execute a command */

# ifndef lint
static char Rcsid[] = "@(#)$Header: /cs/research/pp/hubris/pp-beta/Uip/misc/RCS/flock.c,v 5.0 90/09/20 16:33:18 pp Exp Locker: pp $";
# endif

/*
 * $Header: /cs/research/pp/hubris/pp-beta/Uip/misc/RCS/flock.c,v 5.0 90/09/20 16:33:18 pp Exp Locker: pp $
 *
 * $Log:	flock.c,v $
 * Revision 5.0  90/09/20  16:33:18  pp
 * rcsforce : 5.0 public release
 * 
 */



#include "util.h"
#include <sys/wait.h>

main (argc, argv)
int	argc;
char	**argv;
{
	FILE	*fp;
	extern int errno;
	int	pid, cpid;
	union wait status;

	uip_init (argv[0]);
	if (argc < 3) {
		fprintf (stderr, "Usage: %s file commands...\n", argv[0]);
		exit (1);
	}

	if ((fp = flckopen (argv[1], "a")) == NULL) {
		fprintf (stderr, "%s: Can't open file %s: %s\n",
			 argv[0], argv[1], sys_errname (errno));
		exit (1);
	}

	if ((pid = tryfork () ) == NOTOK) {
		fprintf (stderr, "%s: can't fork: %s\n", argv[0],
			 sys_errname (errno));
		exit (1);
	}

	if (pid == 0) {
		fclose (fp);

		execv (argv[2], &argv[2]);
		_exit (1);
	}

	while ((cpid = wait( &status)) != pid && cpid != NOTOK)
		continue;

	if (cpid == NOTOK)	/* ??? */
		exit (1);

	if (WIFSIGNALED(status))
		exit (1);

	if (WIFEXITED(status))
		exit (status.w_retcode);

	exit (1);
}