h55138
s 00045/00000/00000
d D 1.1 82/08/02 15:55:12 cecily 1 0
e
u
U
t
T
I 1
# 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);
		}
	}
}
E 1
