Re: Franz, Eunice, 4.0

[KASHTAN@SRI-AI.ARPA]

Here is a VERY simple "C" program that will patch the VMS image header to
make the "hdrblkcnt" 1 instead of 0.  You can use this program any time
you do a dumplisp and want to run it on VMS 4.0 (without having to recompile
the basic Franz Lisp):

main(argc,argv)
char *argv[];
{
	int i;
	for(i = 1; i < argc; i++) patch(argv[i]);
}

patch(filename)
char *filename;
{
	int fd;
	char hdrblkcnt = 1;

	fd = open(filename,2);
	if (fd < 0) {perror("open"); return;}
	lseek(fd,16,0);
	write(fd,&hdrblkcnt,1);
	close(fd);
}


David
-------