Ultrix-3.1/src/cmd/refer/deliv1.c

/**********************************************************************
 *   Copyright (c) Digital Equipment Corporation 1984, 1985, 1986.    *
 *   All Rights Reserved. 					      *
 *   Reference "/usr/src/COPYRIGHT" for applicable restrictions.      *
 **********************************************************************/

static char Sccsid[] = "@(#)deliv1.c	3.0	4/22/86";
# include "stdio.h"
main(argc,argv)
	char *argv[];
{
/* goes from file:begin,l to actual characters */
char line[750], *p, name[100];
FILE *fa NULL;
long lp;
int len;

if (argc>1 && argv[1] && argv[1][0])
	chdir (argv[1]);
name[0]="";
while (gets(line))
	{
	if (line[0]=='$' && line[1]=='$') 
		{
		chdir(line+2);
		continue;
		}
	for(p=line; *p!= ':'; p++)
		;
	*p++ = 0;
	sscanf(p, "%ld,%d", &lp, &len);
	if (p==line)
		fa = stdin;
	else
	if (strcmp (name, line) != 0)
		{
		if (fa != NULL)
			fclose(fa);
		fa = fopen(line, "r");
		if (fa == NULL)
			err("Can't open %s", line);
		strcpy(name, line);
		}
	if (fa != NULL)
		{
		fseek (fa, lp, 0);
		fread (line, 1, len, fa);
		line[len] = 0;
		fputs(line, stdout);
		}
	}
}