DataMuseum.dk

top - download

    Length: 1052 (0x41c)
    Types: TextFile
    Names: »teachjove.c«

└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
    └─ ⟦this⟧ »EUUGD11/euug-87hel/sec1/jove/teachjove.c« 

TextFile

/************************************************************************
 * This program is Copyright (C) 1986 by Jonathan Payne.  JOVE is       *
 * provided to you without charge, and with no warranty.  You may give  *
 * away copies of JOVE, including sources, provided that this notice is *
 * included in all the files.                                           *
 ************************************************************************/

#include <sys/types.h>
#include <sys/file.h>

#ifndef TEACHJOVE
#    define TEACHJOVE	"/usr/lib/jove/teach-jove"
#endif

#ifndef W_OK
#   define W_OK	2
#   define F_OK	0
#endif

extern char	*getenv();

main()
{
	char	cmd[256],
		fname[256],
		*home;

	if ((home = getenv("HOME")) == 0) {
		printf("teachjove: cannot find your home!\n");
		exit(-1);
	}
	(void) sprintf(fname, "%s/teach-jove", home);
	if (access(fname, F_OK) != 0) {
		(void) sprintf(cmd, "cp %s %s", TEACHJOVE, fname);
		system(cmd);
	}
	(void) execlp("jove", "teachjove", fname, (char *) 0);
	printf("teachjove: cannot execl jove!\n");
}