v08i065: The VN news reader, Part02/03

[sources-request at mirror.UUCP]

Submitted by: rtech!rtech!bobm (Bob Mcqueer)
Mod.sources: Volume 8, Issue 65
Archive-name: vn/Part02

[  I forgot to point out that I repacked the archives because of a patch
   Bob sent me.  --r$  ]

#! /bin/sh
# This is a shell archive.  Remove anything before this line,
# then unpack it by saving it in a file and typing "sh file".
# If all goes well, you will see the message "End of archive 2 (of 3)."
# Contents:  reader.c strtok.c term_set.c tty.h tty_set.c tune.h
#   userlist.c vn.h vnglob.c
# Wrapped by rs at mirror on Tue Feb 17 12:10:31 1987
PATH=/bin:/usr/bin:/usr/ucb; export PATH
echo shar: extracting "'reader.c'" '(18610 characters)'
if test -f 'reader.c' ; then 
  echo shar: will not over-write existing file "'reader.c'"
else
sed 's/^X//' >reader.c <<'@//E*O*F reader.c//'
X/*
X** vn news reader.
X**
X** reader.c - article reading interface - "more" like.
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#include <stdio.h>
X#include <sys/types.h>
X#include "tty.h"
X#include "config.h"
X#include "vn.h"
X#include "head.h"
X#include "reader.h"
X
X#define PERTAB 8	/* tab expansion factor */
X#define BACKTRACK 24
X
Xextern char *Printer,*Editor,*Mailer,*Poster,*Orgdir,*Savefile,*Savedir,*Ccfile;
Xextern int L_allow;
Xextern int C_allow;
Xextern int Rot;
Xextern int Headflag;
Xextern int Digest;
Xextern char *No_msg;
Xextern char *Roton_msg;
Xextern char *Rotoff_msg;
Xextern char *Hdon_msg;
Xextern char *Hdoff_msg;
X
Xextern char *T_head, *FT_head, *N_head, *L_head, *RT_head, *DIS_head;
Xextern char *TO_head, *F_head, *P_head, *M_head, *R_head;
X
Xextern char Cxrtoi[], Cxitor[];
X
Xstatic FILE *Fpread;
Xstatic char *Fname;
Xstatic char *Lookahead;
Xstatic int Rlines;
Xstatic int Hlines;
X
X#ifdef ADDRMUNGE
Xstatic int Newaddr;
X#endif
X
X/*
X	readstr routine is the "funnel" to the reading state,
X	and controls signal setting.  Some "session" context is passed
X	along to allow jumping back to a different display
X
X	WARNING:
X
X	NOTHING below readstr should call strtok()
X*/
X
Xreadstr (s,crec,highrec,count)
Xchar *s;
Xint *crec, *highrec;
Xint count;
X{
X	char *fnext, *strtok();
X	int pc;
X	Fname = strtok(s,LIST_SEP);
X	if (Fname != NULL)
X	{
X		term_set (ERASE);
X		sig_set (BRK_READ,&Fpread);
X		fnext = strtok(NULL,LIST_SEP);
X		while (Fname != NULL && readfile(fnext,&pc) >= 0)
X		{
X			if (Digest)
X				unlink (Fname);
X			Fname = fnext;
X			fnext = strtok (NULL,LIST_SEP);
X		}
X		if (Digest && Fname != NULL)
X			unlink (Fname);
X		if (pc != 0)
X			forward (pc, crec, highrec);
X		else
X		{
X			*crec += count;
X			if (*crec >= *highrec)
X				*crec = *highrec - 1;
X		}
X		sig_set (BRK_RFIN);
X		show ();
X		term_set (MOVE, 0, *crec);
X	}
X	else
X	{
X		preinfo ("%s",No_msg);
X		term_set (MOVE, 0, *crec);
X	}
X}
X
X/*
X	readfile presents article:
X		sn - name of next article, NULL if last.
X		pages - pages to advance on return, if applicable
X	returns 0 for "continue", <0 for "quit"
X*/
Xstatic readfile (sn,pages)
Xchar *sn;
Xint *pages;
X{
X	FILE *fopen();
X	int lines,percent,artlin;
X	long rew_pos, ftell();
X	char c,  buf[RECLEN], mid[RECLEN], ngrp[RECLEN], dist[RECLEN];
X 	char from[RECLEN], title[RECLEN], flto[RECLEN], reply[RECLEN];
X 	char pstr[24], dgname[48], getpgch(), *index(), *digest_extract();
X	char *tgetstr();
X
X	*pages = 0;
X
X	term_set(ERASE);
X
X	if (Digest)
X	{
X		lines = atoi(Fname);
X		if ((Fname = digest_extract(dgname,lines)) == NULL)
X		{
X			printf ("couldn't extract article %d",lines);
X			return (0);
X		}
X	}
X
X	if ((Fpread = fopen(Fname,"r")) == NULL)
X	{
X		printf ("couldn't open article %s",Fname);
X		return (0);
X	}
X
X	Hlines = gethead (mid, from, title, ngrp, flto, reply, dist, &artlin);
X	printf (ANFORM,Fname,Cxrtoi[PG_HELP]);
X	lines = 1;
X	rew_pos = ftell(Fpread);
X	if (Headflag)
X	{
X		rewind(Fpread);
X		Rlines = 0;
X	}
X	else
X	{
X		/* use do_out to guard against control sequences */
X		Rlines = Hlines;
X		sprintf (buf,"%s%s\n",T_head,title);
X		lines += do_out(buf,1);
X		sprintf (buf,"%s%s\n",F_head,from);
X		lines += do_out(buf,1);
X		if (index(ngrp,',') != NULL)
X		{
X			sprintf (buf,"%s%s\n",N_head,ngrp);
X			lines += do_out(buf,1);
X		}
X		if (*flto != '\0')
X		{
X			sprintf (buf,"%s%s\n",FT_head,flto);
X			lines += do_out(buf,1);
X		}
X		printf ("%s%d\n",L_head,artlin);	/* no controls */
X		++lines;
X	}
X
X	/* will return out of outer while loop */
X	Lookahead = NULL;
X	while (1)
X	{
X		/*
X		** lines counts folded lines from do_out.
X		** globals Hlines and Rlines refer to records.
X		** If Lookahead is null after this loop, we've
X		** hit EOF.
X		*/
X		lines += do_out(Lookahead,L_allow-lines);
X		while (1)
X		{
X			if (Lookahead == NULL)
X			{
X				if (fgets(buf,RECLEN-1,Fpread) == NULL)
X					break;
X				Lookahead = buf;
X				if (Rot != 0 && Rlines >= Hlines)
X					rot_line(buf);
X				++Rlines;
X			}
X			if (lines >= L_allow)
X				break;
X			lines += do_out(buf,L_allow-lines);
X		}
X
X		if (Lookahead != NULL)
X		{
X			/*
X			** calculation is truncated rather than rounded,
X			** so we shouldn't get "100%".  Subtract 2 for
X			** 1 line lookahead and empty line at beginning
X			** of article.
X			*/
X			if (Headflag)
X				percent = ((Rlines-2)*100)/(artlin+Hlines);
X			else
X				percent = ((Rlines-Hlines-2)*100)/artlin;
X			sprintf (pstr,PAGE_MID,percent);
X		}
X		else
X		{
X			if (sn == NULL)
X				strcpy (pstr,PAGE_END);
X			else
X			strcpy (pstr,PAGE_NEXT);
X		}
X		c = getpgch(pstr,mid,from,reply,title,ngrp,flto,dist);
X
X		/*
X			handle user input:
X			CAUTION!!  return cases must close Fpread.
X		*/
X		switch (c)
X		{
X		case PG_NEXT:
X			fclose (Fpread);
X			return (0);
X		case PG_FLIP:
X			*pages = 1;	/* fall through */
X		case PG_QUIT:
X			fclose (Fpread);
X			return (-1);
X		case PG_REWIND:
X			if (Headflag)
X			{
X				Rlines = 0;
X				rewind (Fpread);
X			}
X			else
X			{
X				fseek (Fpread,rew_pos,0);
X				Rlines = Hlines;
X			}
X			Lookahead = NULL;
X			lines = 2 - RECBIAS;
X			break;
X		case PG_SEARCH:
X			searcher(buf);
X			lines = 2 - RECBIAS;
X			lines += do_out(buf,L_allow-lines);
X			break;
X		case PG_WIND:
X			fseek (Fpread,0L,2);
X			lines = 2 - RECBIAS;
X			Lookahead = NULL;
X			break;
X		case PG_STEP:
X			if (Lookahead == NULL)
X			{
X				fclose (Fpread);
X				return (0);
X			}
X			lines = L_allow - 1;
X			break;
X		default:
X			if (Lookahead == NULL)
X			{
X				fclose (Fpread);
X				return (0);
X			}
X			lines = 2 - RECBIAS;
X			break;
X		}
X	}
X}
X
X/*
X	gethead obtains subject, reply, message id, from, lines, newsgroup and
X	followup-to lines of article for later use in mailing replies and
X	posting followups, does not rewind, but leaves file at end of header
X	lines.  Returns number of header lines.
X*/
Xstatic gethead (mid, from, title, ngrp, flto, reply, dist, lin)
Xchar *mid, *from, *title, *ngrp, *flto, *reply, *dist;
Xint *lin;
X{
X	int count;
X	char buf [RECLEN], *index();
X	long pos,ftell();
X
X#ifdef ADDRMUNGE
X	Newaddr = 1;
X#endif
X
X	*lin = 0;
X	*dist = *mid = *from = *title = *ngrp = *flto = *reply = '\0';
X
X	/* for conditional is abnormal - expected exit is break */
X	for (count = 0; count < HDR_LINES && fgets(buf,RECLEN-1,Fpread) != NULL; ++count)
X	{
X
X		/* reset position and bail out at first non-header line */
X		if (index(buf,':') == NULL)
X		{
X			pos = ftell(Fpread);
X			pos -= strlen(buf);
X			fseek (Fpread,pos,0);
X			break;
X		}
X
X#ifdef MAILSMART
X		if (strncmp(buf,RT_head,RTHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (reply,buf+RTHDLEN);
X			continue;
X		}
X#else
X		if (strncmp(buf,P_head,PHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (reply,buf+PHDLEN);
X			continue;
X		}
X#endif
X		if (strncmp(buf,DIS_head,DISHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (dist,buf+DISHDLEN);
X			continue;
X		}
X		if (strncmp(buf,M_head,MHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (mid,buf+MHDLEN);
X			continue;
X		}
X		if (strncmp(buf,F_head,FHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (from,buf+FHDLEN);
X			continue;
X		}
X		if (strncmp(buf,T_head,THDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (title,buf+THDLEN);
X			continue;
X		}
X		if (strncmp(buf,N_head,NHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (ngrp,buf+NHDLEN);
X			continue;
X		}
X		if (strncmp(buf,FT_head,FTHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			strcpy (flto,buf+FTHDLEN);
X			continue;
X		}
X		if (strncmp(buf,L_head,LHDLEN) == 0)
X		{
X			buf [strlen(buf)-1] = '\0';
X			*lin = atoi(buf+LHDLEN);
X			continue;
X		}
X	}
X#ifdef MAILSMART
X	if (*reply == '\0')
X		strcpy(reply,from);
X#endif
X	return (count);
X}
X
X/*
X	getpgch prints prompt and gets command from user
X	handles "mail", "save" and "followup" internally
X	as well as flag resets.
X*/
Xstatic char getpgch(prompt,mid,from,reply,title,ngrp,flto,dist)
Xchar *prompt, *mid, *from, *reply, *title, *ngrp, *flto, *dist;
X{
X	char c;
X	int ic;
X	term_set (ONREVERSE);
X	printf("%s\015",prompt);
X	term_set (OFFREVERSE);
X	while ((ic=getnoctl()) != EOF)
X	{
X		switch (c = Cxitor[ic])
X		{
X		case SETROT:
X			term_set (ZAP,0,PPR_MAX);
X			if (Rot == 0)
X			{
X				Rot = 13;
X				printf ("%s\n",Roton_msg);
X			}
X			else
X			{
X				Rot = 0;
X				printf ("%s\n",Rotoff_msg);
X			}
X			if (Lookahead != NULL && Rlines > Hlines)
X				rot_line(Lookahead);
X			break;
X		case HEADTOG:
X			term_set (ZAP,0,PPR_MAX);
X			if (Headflag)
X			{
X				Headflag = FALSE;
X				printf ("%s\n",Hdoff_msg);
X			}
X			else
X			{
X				Headflag = TRUE;
X				printf ("%s\n",Hdon_msg);
X			}
X			break;
X		case PG_HELP:
X			term_set (ZAP,0,PPR_MAX);
X			help_pg ();
X			break;
X		case PG_REPLY:
X			mail (reply,title,from);
X			break;
X		case PG_FOLLOW:
X			followup (mid,title,ngrp,flto,from,dist);
X			break;
X		case SAVE:
X			saver ();
X			break;
X		case PRINT:
X			printr ();
X			break;
X		default:
X			term_set (ZAP,0,PPR_MAX);
X			return (c);
X		}
X
X		term_set (ONREVERSE);
X		printf("%s\015",prompt);
X		term_set (OFFREVERSE);
X	}
X	term_set (ZAP,0,PPR_MAX);
X	return (c);
X}
X
X/*
X	save article
X	Like the savestr routine, it "loses" some storage every time
X	the user specifies a new file, but this should not be significant
X*/
Xstatic saver ()
X{
X	char *fn,cmd[RECLEN],*str_store(),*rprompt();
X
X	tty_set (SAVEMODE);
X	sprintf (cmd,SAVFORM,Savefile);
X	fn = rprompt(cmd,cmd);
X	if (fn != NULL)
X		Savefile = str_store(fn);
X	if (*Savefile != '/' && *Savefile != '$')
X		sprintf (cmd,"cat %s >>%s/%s",Fname,Savedir,Savefile);
X	else
X		sprintf (cmd,"cat %s >>%s",Fname,Savefile);
X	system (cmd);
X	tty_set (RESTORE);
X}
X
X/*
X	invoke editor on new temp file, mail using reply line,
X	possibly first allowing user to overide the reply (not INLETTER)
X*/
Xstatic mail (p, t, f)
Xchar *p, *t, *f;
X{
X	char *new, fn[L_tmpnam], cmd [RECLEN+60], *rprompt ();
X	FILE *fp, *fopen();
X
X	tmpnam (fn);
X	if ((fp = fopen(fn,"w")) == NULL)
X		printex ("can't open %s\n",fn);
X
X	if ((new = index(p, '(')) != NULL)
X		*new = '\0';	/* a poor way of deleting comments */
X
X#ifdef ADDRMUNGE
X	if (Newaddr)
X	{
X		Newaddr = 0;
X		ADDRMUNGE(p);
X	}
X#endif
X
X	if (strncmp(t, FPFIX, FPFLEN) == 0)
X		t += FPFLEN;	/* don't add multiple Re:s */
X#ifdef INLETTER
X 	fprintf (fp,"%s%s\n%s%s%s\n\n%s:\n", TO_head, p, T_head, FPFIX, t, f);
X#else
X	fprintf (fp,"%s%s%s\n\n%s:\n", T_head, FPFIX, t, f);
X#endif
X
X	edcopy (fp);
X	fclose (fp);
X	tty_set (SAVEMODE);
X
X#ifndef INLETTER
X	sprintf (cmd,"ADDRESS: %s\nreturn to accept, or input new address: ",p);
X	if ((new = rprompt(cmd,cmd)) != NULL)
X		strcpy (p,new);
X#endif
X
X	sprintf (cmd,"%s %s", Editor, fn);
X	chdir (Orgdir);
X	system (cmd);
X	cd_group ();
X	new = rprompt ("still want to mail it ? ",cmd);
X	if (new != NULL && (*new == 'y' || *new == 'Y'))
X	{
X#ifndef INLETTER
X		sprintf (cmd,"%s '%s' <%s", Mailer, p, fn);
X#else
X		sprintf (cmd,"%s <%s", Mailer, fn);
X#endif
X		system (cmd);
X		printf ("given to mailer\n");
X	}
X	else
X		printf ("not mailed\n");
X	unlink (fn);
X	tty_set (RESTORE);
X	term_set (RESTART);
X}
X
X/*
X	post a followup article, invoking editor for user after creating
X	new temp file.  remove after posting.  Hack in ".followup" if posting
X	newsgroup ends in ".general" - similar hack for preventing mod &
X	announce groups - should really be more thorough and parse the
X	whole string.  User can change, anyway.
X*/
Xstatic followup (m,t,n,ft,oa,dist)
Xchar *m, *t, *n, *ft, *oa, *dist;
X{
X	char fn[L_tmpnam], *new, cmd [RECLEN], *rprompt();
X	FILE *f, *fopen();
X	char *rindex();
X
X	if (*ft != '\0')
X		strcpy (cmd,ft);
X	else
X		strcpy (cmd,n);
X	new = rindex(cmd,'.');
X	if (new != NULL && strcmp(new,".general") == 0)
X		strcpy (new,".followup");
X	if ( strncmp(cmd, "mod.", 4) == 0 || strcmp(new, ".announce") == 0)
X	{
X		term_set (ONREVERSE);
X		printf("Cannot post a follow-up to \"%s\", reply with mail to moderator\007\n",
X			cmd);
X		term_set (OFFREVERSE);
X		return;
X	}
X
X	tmpnam (fn);
X	if ((f = fopen(fn,"w")) == NULL)
X		printex ("can't open %s\n",fn);
X
X	if (strncmp(t, FPFIX, FPFLEN) == 0)
X		t += FPFLEN;	/* don't add multiple Re:s */
X	fprintf (f,"%s%s%s\n%s%s\n%s%s\n",T_head,FPFIX,t,N_head,cmd,R_head,m);
X	if (*dist != '\0')
X		fprintf(f,"%s%s\n",DIS_head,dist);
X	fprintf (f,"\nin article %s, %s says:\n",m,oa);
X	edcopy (f);
X	fclose (f);
X	tty_set (SAVEMODE);
X	sprintf (cmd,"%s %s", Editor, fn);
X	chdir (Orgdir);
X	system (cmd);
X	cd_group ();
X	new = rprompt("still want to post it ? ",cmd);
X	if (new != NULL && (*new == 'y' || *new == 'Y'))
X	{
X		sprintf (cmd,"%s <%s", Poster, fn);
X		system (cmd);
X		printf ("given to posting program\n");
X		save_article (fn);
X	}
X	else
X		printf ("not posted\n");
X	unlink (fn);
X	tty_set (RESTORE);
X	term_set (RESTART);
X}
X
X/*
X	get user buffer, return whitespace delimited token
X	without using strtok().  buffer is allowed to overwrite
X	prompt string.
X*/
Xstatic char *
Xrprompt(s,buf)
Xchar *s,*buf;
X{
X	printf("%s",s);
X	fgets (buf,RECLEN-1,stdin);
X	while (*buf == ' ' || *buf == '\t')
X		++buf;
X	if (*buf == '\n' || *buf == '\0')
X		return (NULL);
X	for (s = buf; *s != ' ' && *s != '\t' && *s != '\n' && *s != '\0'; ++s)
X		;
X	*s = '\0';
X	return (buf);
X}
X
X/*
X	edcopy copies article to file which user is editting for
X	a reply or followup, so it may be referenced.  It places
X	ED_MARK in the left hand margin.
X*/
Xedcopy(fp)
XFILE *fp;
X{
X	long current;
X	char buf[RECLEN];
X	int i;
X
X	/* save position, rewind and skip over header lines */
X	current = ftell(Fpread);
X	rewind (Fpread);
X	for (i=0; i < HDR_LINES; ++i)
X	{
X		if (fgets(buf,RECLEN-1,Fpread) == NULL)
X			break;
X		if (strncmp(buf,L_head,LHDLEN) == 0)
X			break;
X	}
X
X	/* if line already begins with ED_MARK, forget about the space */
X	while (fgets(buf,RECLEN-1,Fpread) != NULL)
X	{
X		if (buf[0] == ED_MARK)
X			fprintf(fp,"%c%s",ED_MARK,buf);
X		else
X			fprintf(fp,"%c %s",ED_MARK,buf);
X	}
X
X	/* restore position */
X	fseek(Fpread,current,0);
X}
X
X/*
X	help menus
X*/
Xstatic help_pg()
X{
X	h_print (Cxrtoi[PG_NEXT],HPG_NEXT);
X	h_print (Cxrtoi[PG_QUIT],HPG_QUIT);
X	h_print (Cxrtoi[PG_FLIP],HPG_FLIP);
X	h_print (Cxrtoi[PG_REWIND],HPG_REWIND);
X	h_print (Cxrtoi[PG_WIND],HPG_WIND);
X	h_print (Cxrtoi[PG_SEARCH],HPG_SEARCH);
X	h_print (Cxrtoi[PG_STEP],HPG_STEP);
X	h_print (Cxrtoi[PG_REPLY],HPG_REPLY);
X	h_print (Cxrtoi[PG_FOLLOW],HPG_FOLLOW);
X	h_print (Cxrtoi[SAVE],HPG_SAVE);
X	h_print (Cxrtoi[PRINT],HPG_PRINT);
X	h_print (Cxrtoi[SETROT],HPG_ROT);
X	h_print (Cxrtoi[HEADTOG],HPG_HEAD);
X	h_print (Cxrtoi[PG_HELP],HPG_HELP);
X	printf ("%s\n",HPG_DEF);
X}
X
Xrot_line (s)
Xunsigned char *s;
X{
X	for ( ; *s != '\0'; ++s)
X	{
X		if (*s >= 'A' && *s <= 'Z')
X		{
X			*s += Rot;
X			if (*s > 'Z')
X				*s -= 26;
X			continue;
X		}
X		if (*s >= 'a' && *s <= 'z')
X		{
X			*s += Rot;
X			if (*s > 'z')
X				*s -= 26;
X		}
X	}
X}
X
X/*
X** output record.  folds record to terminal width on word boundaries,
X** returning number of lines output.  If limit is reached, remainder
X** of buffer waiting to be output is returned.  Processes several
X** special characters:
X**	form-feed - return "lim" lines so we stop on that line
X**	tabs - counts "expanded" width
X**	backspace - assumes they work, -1 width unless in first col.
X**	bell - pass through with zero width
X**	newline - end of record.
X**	del - turns into '_'
X**	other control - 'A' - 1 added ('01' = ctl-A).  Makes escape = "[".
X**		(prevents "letter bombs" containing inappropriate control
X**			sequences for the terminal).
X**
X** Sets Lookahead pointer to remainder of line or NULL.
X*/
Xstatic do_out(s,lim)
Xchar *s;
Xint lim;
X{
X	int len,i;
X	char cs,*word,*start;
X
X	Lookahead = NULL;
X	if (s == NULL)
X		return(0);
X	len = 0;
X	start = word = s;
X
X	/*
X	** NOTE: "normal" return is buried inside switch, at newline
X	** ending record
X	*/
X	for (i=0; i < lim; ++i)
X	{
X		for ( ; len < C_allow; ++s)
X		{
X			switch (*s)
X			{
X			case '\n':
X				*s = '\0';	/* fall through */
X			case '\0':
X				printf("%s\n",start);
X				return(i+1);
X			case '\t':
X				len = ((len/PERTAB)+1)*PERTAB;
X				word = s;
X				break;
X			case '\b':
X				if (len > 0)
X					--len;
X				break;
X			case '\014':
X				*s = ' ';
X				i = lim-1;	/* fall through */
X			case ' ':
X				word = s+1;
X				++len;
X				break;
X			case '\177':
X				*s = '_';
X				++len;
X				break;
X			default:
X				if (*s < ' ')
X					*s += 'A' - 1;
X				++len;		/* fall through */
X			case '\07':
X				break;
X			}
X		}
X		cs = *s;
X		*s = '\0';
X		if ((len = strlen(word)) < BACKTRACK)
X		{
X			*s = cs;
X			s = word;
X			cs = *s;
X			*s = '\0';
X		}
X		else
X			len = 0;
X		printf("%s\n",start);
X		start = s;
X		*s = cs;
X	}
X	Lookahead = start;
X	return(lim);
X}
X
Xsave_article(tempfname)
Xchar *tempfname;
X{
X	FILE *in, *out;
X	int c;
X	time_t timenow, time();
X	char *today, *ctime();
X
X
X	if ((in = fopen(tempfname, "r")) == NULL)
X		return;
X	if ((out = fopen(Ccfile, "a")) == NULL)
X	{
X	    fclose(in);
X	    return;
X	}
X	timenow = time((time_t)0);
X	today = ctime(&timenow);
X	fprintf(out,"From vn %s",today);
X	while ((c=getc(in)) != EOF)
X		putc(c, out);
X	putc('\n', out);
X	fclose(in);
X	fclose(out);
X	printf ("a copy has been saved in %s\n", Ccfile);
X}
X
X/*
X	send article to printer
X*/
Xstatic printr ()
X{
X	char cmd[RECLEN];
X
X	tty_set (SAVEMODE);
X	printf("Sent to printer\n");
X	sprintf (cmd,"%s %s 2>/dev/null",Printer,Fname);
X	system (cmd);
X	tty_set (RESTORE);
X}
X
X/*
X	search article for specified search pattern, returning the line on which
X		it is found in buf, a null buffer otherwise. The input file will
X		be positioned either after the line on which the pattern is
X		found, or unaaltered if match fails.
X*/
Xsearcher (buf)
Xchar	*buf;
X{
X	static char	searchstr[RECLEN] = "";
X	char	lasave[RECLEN];
X	char	*s, *reg, *rprompt(), *regcmp(), *regex();
X	long	current;
X	int	orlines;
X
X	/* save position, then request search pattern */
X	current = ftell(Fpread);
X	orlines = Rlines;
X
X 	tty_set (SAVEMODE);
X 	sprintf (lasave,SEARCHFORM,searchstr);
X	s = rprompt(lasave,lasave);
X	tty_set (RESTORE);
X	if (s != NULL)
X		strcpy(searchstr, lasave);
X 
X	/* Now compile the search string */
X	if(( reg = regcmp(searchstr, (char *)0)) == NULL) {
X		printf("Invalid search string \"%s\"\n", searchstr);
X		*buf = '\0';
X		return;
X	}
X
X	/* try lookahead buffer first */
X	if (Lookahead != NULL && regex(reg,Lookahead) != NULL)
X	{
X		strcpy(buf,Lookahead);
X		regfree(reg);
X		return;
X	}
X
X	/* Lookahead can point into buf */
X	if (Lookahead != NULL)
X		strcpy(lasave,Lookahead);
X
X	/* now start reading lines, rotating if necessary and do search */
X	while (fgets(buf,RECLEN-1,Fpread) != NULL)
X	{
X		if (Rot != 0 && Rlines >= Hlines)
X			rot_line(buf);
X		++Rlines;
X		if( regex(reg, buf) != NULL ){	/* Got it */
X			term_set (ONREVERSE);
X			printf("\n\tSkipping ....\n\n");
X			term_set (OFFREVERSE);
X			regfree(reg);
X			return;
X		}
X	}
X
X	/* no dice, so restore position */
X	regfree(reg);
X	term_set (ONREVERSE);
X	printf("Cannot find string \"%s\" in remainder of article\007\n",
X		searchstr);
X	term_set (OFFREVERSE);
X	fseek(Fpread,current,0);
X	Rlines = orlines;
X	if (Lookahead != NULL)
X		strcpy(buf,lasave);
X	else
X		*buf = '\0';
X	return(0.0);
X}
@//E*O*F reader.c//
if test 18610 -ne "`wc -c <'reader.c'`"; then
    echo shar: error transmitting "'reader.c'" '(should have been 18610 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'strtok.c'" '(1082 characters)'
if test -f 'strtok.c' ; then 
  echo shar: will not over-write existing file "'strtok.c'"
else
sed 's/^X//' >strtok.c <<'@//E*O*F strtok.c//'
X/*
X** vn news reader.
X**
X** strtok.c - strtok() and strpbrk() string routines using UCB index().
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#include <stdio.h>
X
Xchar *strpbrk (s,del)
Xchar *s, *del;
X{
X	char *ptr,*index();
X	if (s == NULL)
X		return (NULL);
X	for (; *del != '\0'; ++del)
X		if ((ptr = index(s,*del)) != NULL)
X			return (ptr);
X	return (NULL);
X}
X
Xchar *strtok(str,delim)
Xchar *str, *delim;
X{
X	char *tokstart, *tokend, *first_ch (), *last_ch();
X	static char *save=NULL;
X
X	if (str != NULL)
X		save = str;
X
X	if (save == NULL)
X		return (NULL);
X
X	tokstart = first_ch (save, delim);
X	tokend = last_ch (tokstart, delim);
X	save = first_ch (tokend, delim);
X	*tokend = '\0';
X
X	if (*tokstart == '\0')
X		return (NULL);
X
X	return (tokstart);
X}
X
Xstatic char *first_ch (str,delim)
Xchar *str,*delim;
X{
X	char *index ();
X	char *f;
X
X	for (f = str; *f != '\0' && index(delim,*f) != NULL; ++f)
X		;
X
X	return (f);
X}
X
Xstatic char *last_ch (str,delim)
Xchar *str,*delim;
X{
X	char *index ();
X	char *f;
X
X	for (f = str; *f != '\0' && index(delim,*f) == NULL; ++f)
X		;
X
X	return (f);
X}
@//E*O*F strtok.c//
if test 1082 -ne "`wc -c <'strtok.c'`"; then
    echo shar: error transmitting "'strtok.c'" '(should have been 1082 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'term_set.c'" '(4914 characters)'
if test -f 'term_set.c' ; then 
  echo shar: will not over-write existing file "'term_set.c'"
else
sed 's/^X//' >term_set.c <<'@//E*O*F term_set.c//'
X/*
X** vn news reader.
X**
X** term_set.c - terminal control, hides termcap interface
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#include <stdio.h>
X#include "tty.h"
X#include "vn.h"
X
Xextern int L_allow, C_allow;
Xextern char *Ku, *Kd, *Kl, *Kr;	
X
Xstatic outc (c)
Xchar c;
X{
X	putchar (c);
X}
X
X/*
X	term_set controls terminal through termcap
X	START sets global parameters related to terminal also,
X	as well as allocating display buffer which depends on
X	terminal lines, and allocating escape strings.  RESTART
X	simply re-issues the initialization - used following system
X	calls that could have goofed up the terminal state.
X*/
X
X/*
X** Escape strings.
X*/
X
Xstatic char *Cm,*Cl,*So,*Se,*Te,*Bc,*Ce,*Ti,*Ks,*Ke;
X#ifdef USEVS
Xstatic char *Vs,*Ve;
X#endif
X
Xstatic int Backspace;		/* backspace works */
Xstatic int Overstrike;		/* terminal overstrikes */
X
Xstatic t_setup()
X{
X	int i;
X	char *tgetstr(), *getenv(), *str_store();
X	char *c, tc_buf[2048],optstr[2048];
X
X	c = optstr;
X	if (tgetent(tc_buf,getenv("TERM")) != 1)
X		printex ("%s - unknown terminal",getenv("TERM"));
X
X	/* get needed capabilities */
X	Cm = str_store(tgetstr("cm",&c));
X	Cl = str_store(tgetstr("cl",&c));
X	So = str_store(tgetstr("so",&c));
X	Se = str_store(tgetstr("se",&c));
X	Te = str_store(tgetstr("te",&c));
X	Ti = str_store(tgetstr("ti",&c));
X	Bc = str_store(tgetstr("bc",&c));
X	Ce = str_store(tgetstr("ce",&c));
X	Kd = str_store(tgetstr("kd",&c));
X	Ke = str_store(tgetstr("ke",&c));
X	Kl = str_store(tgetstr("kl",&c));
X	Kr = str_store(tgetstr("kr",&c));
X	Ks = str_store(tgetstr("ks",&c));
X	Ku = str_store(tgetstr("ku",&c));
X#ifdef USEVS
X	Vs = str_store(tgetstr("vs",&c));
X	Ve = str_store(tgetstr("ve",&c));
X#endif
X	Backspace = tgetflag("bs");
X	Overstrike = tgetflag("os");
X
X	if ( *Cm == '\0' || *Cl == '\0')
X	{
X		printex ("cursor control and erase capability needed");
X	}
X
X	/*
X	** Checks for arrow keys which don't issue something beginning
X	** with <ESC>.  This is more paranoid than we need to be, strictly
X	** speaking - we could get away with any string which didn't
X	** conflict with controls used for commands.  However, that would
X	** be a maintenance headache - we will simply reserve <ESC> as the
X	** only char not to be used for commands, and punt on terminals
X	** which don't send reasonable arrow keys.  It would be confusing
X	** to have keys work partially, also.  I know of no terminal with
X	** one arrow key beginning with an escape, and another beginning
X	** with something else, but let's be safe.  This also insists on
X	** definitions for all 4 arrows, which seems reasonable.
X	*/
X
X	if ((*Ku != '\0' && *Ku != '\033') || *Kl != *Ku || *Kr != *Ku || *Kd != *Ku)
X	{
X		fgprintf("WARNING: arrow keys will not work for this terminal");
X		Ku = Kd = Kl = Kr = Kd = Ke = "";
X	}
X
X	if (Overstrike)
X		fgprintf ("WARNING: terminal overstrikes - can't update display without erase\n");
X
X	i = RECBIAS+1 < HHLINES+2 ? HHLINES+2 : RECBIAS+1;
X	if ((L_allow = tgetnum("li")) < i)
X	{
X		if (L_allow < 0)
X			printex ("can't determine number of lines on terminal");
X		printex ("too few lines for display - %d needed", i);
X	}
X
X	/*
X	** C_allow set so as to not use extreme right column.
X	** Avoids "bad wraparound" problems - we're deciding it's best
X	** to ALWAYS assume no automargin, and take care of it ourselves
X	*/
X	if((C_allow = tgetnum("co")) > MAX_C)
X		C_allow = MAX_C;
X	else
X		--C_allow;
X	if (C_allow < MIN_C)
X	{
X		if (C_allow < 0)
X			printex("can't determine number of columns on terminal.");
X		printex ("too few columns for display - %d needed",MIN_C);
X	}
X
X	L_allow -= RECBIAS;
X	page_alloc();
X	tputs(Ti,1,outc);
X	tputs(Ks,1,outc);
X#ifdef USEVS
X	tputs(Vs,1,outc);
X#endif
X}
X
X/* VARARGS */
Xterm_set(cmd,x,y)
Xint cmd,x,y;
X{
X	char *tgoto();
X	int i;
X	switch (cmd)
X	{
X	case MOVE:
X		tputs (tgoto(Cm,x,y),1,outc);
X		break;
X	case ERASE:
X		tputs(Cl,1,outc);
X		break;
X	case ONREVERSE:
X		tputs(So,1,outc);
X		break;
X	case OFFREVERSE:
X		tputs(Se,1,outc);
X		break;
X	case START:
X		t_setup();
X		break;
X	case RESTART:
X		tputs(Ti,1,outc);
X		tputs(Ks,1,outc);
X#ifdef USEVS
X		tputs(Vs,1,outc);
X#endif
X		break;
X	case STOP:
X		term_set (MOVE,0,L_allow+RECBIAS-1);
X		printf ("\n");
X		tputs(Ke,1,outc);
X		tputs(Te,1,outc);
X#ifdef USEVS
X		tputs(Ve,1,outc);
X#endif
X		break;
X	case RUBSEQ:
X		if (Overstrike)
X		{
X			/* space overprint is futile */
X			if (Backspace)
X				putchar('\010');
X			else
X				tputs(Bc,1,outc);
X			break;
X		}
X		if (Backspace)
X			printf("%c %c",'\010','\010');
X		else
X		{
X			tputs(Bc,1,outc);  
X			putchar(' ');  
X			tputs(Bc,1,outc);
X		}
X		break;
X	case ZAP:
X		if (Ce != NULL && *Ce != '\0')
X			tputs(Ce,1,outc);
X		else
X		{
X			if (Overstrike)
X				break;		/* punt */
X			for (i=x; i < y; ++i)
X				putchar(' ');
X			if (Backspace)
X			{
X				for (i=x; i < y; ++i)
X					putchar('\010');
X			}
X			else
X			{
X				for (i=x; i < y; ++i)
X					tputs(Bc,1,outc);
X			}
X		}
X		break;
X	default:
X		printex ("term_set unknown code (%d)",cmd);
X		break;
X	}
X	return (0);
X}
@//E*O*F term_set.c//
if test 4914 -ne "`wc -c <'term_set.c'`"; then
    echo shar: error transmitting "'term_set.c'" '(should have been 4914 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tty.h'" '(404 characters)'
if test -f 'tty.h' ; then 
  echo shar: will not over-write existing file "'tty.h'"
else
sed 's/^X//' >tty.h <<'@//E*O*F tty.h//'
X/*
X** vn news reader.
X**
X** tty.h - codes for tty_set and term_set
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#define MOVE 100
X#define ERASE 101
X#define START 102
X#define STOP 103
X#define RUBSEQ 104
X#define ZAP 105
X#define ONREVERSE 106
X#define OFFREVERSE 107
X#define RESTART 108
X
X#define RAWMODE 200
X#define COOKED 201
X#define SAVEMODE 202
X#define RESTORE 203
X#define BACKSTOP 204
@//E*O*F tty.h//
if test 404 -ne "`wc -c <'tty.h'`"; then
    echo shar: error transmitting "'tty.h'" '(should have been 404 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tty_set.c'" '(2552 characters)'
if test -f 'tty_set.c' ; then 
  echo shar: will not over-write existing file "'tty_set.c'"
else
sed 's/^X//' >tty_set.c <<'@//E*O*F tty_set.c//'
X/*
X** vn news reader.
X**
X** tty_set.c - interface to ioctl (system tty interface)
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#ifdef SYSV
X#include <termio.h>
X#else
X#include <sgtty.h>
X#endif
X
X#include "tty.h"
X
Xextern char Erasekey,Killkey;
X
X#ifdef SYSV
Xstatic struct termio C_tp, O_tp;
X#else
Xstatic struct sgttyb C_tp;
Xstatic unsigned short O_lflag;
X#endif
X
Xstatic unsigned S_flag=0;
Xstatic int R_ignore=0;		/* up/down counter of reset calls to ignore */
X
X#define IO_GOT 1	/* have polled for original terminal mode */
X#define IO_RAW 2	/* in RAW (CBREAK actually) mode */
X
X/*
X	tty_set handles ioctl calls.  SAVEMODE, RESTORE are used around
X	system calls and interrupts to assure cooked mode, and restore
X	raw if raw on SAVEMODE.  The pair results in no calls to ioctl
X	if we are cooked already when SAVEMODE is called, and may be nested,
X	provided we desire no "restore" of cooked mode after restoring raw.
X
X	When we get the original terminal mode, we also save erase and kill.
X
X	sig_set makes an ioctl call to get process group leader.  Otherwise
X	ioctl calls should come through here.
X*/
Xtty_set(cmd)
Xint cmd;
X{
X	int rc;
X	unsigned mask;
X
X	switch (cmd)
X	{
X	case BACKSTOP:
X#ifdef JOBCONTROL
X		if ((rc = ioctl(1,TIOCLGET,&mask)) != 0)
X			break;
X		mask |= LTOSTOP;
X		rc = ioctl(1,TIOCLSET,&mask);
X#else
X		rc = 0;
X#endif
X		break;
X	case RAWMODE:
X		if ((S_flag & IO_RAW) != 0)
X		{
X			rc = 0;
X			break;
X		}
X		if ((S_flag & IO_GOT) == 0)
X		{
X			/* Save original modes, get erase / kill */
X#ifdef SYSV
X			rc = ioctl(0,TCGETA,&C_tp);
X			O_tp = C_tp;
X			Erasekey = C_tp.c_cc[VERASE];
X			Killkey = C_tp.c_cc[VKILL];
X#else
X			rc = ioctl(0,TIOCGETP,&C_tp);
X			O_lflag = C_tp.sg_flags;
X			Erasekey = C_tp.sg_erase;
X			Killkey = C_tp.sg_kill;
X#endif
X		}
X#ifdef SYSV
X		C_tp.c_lflag &= ~(ECHO | ICANON);
X		C_tp.c_cc[VMIN] = 1;
X		rc = ioctl(0,TCSETAW,&C_tp);
X#else
X		C_tp.sg_flags |= CBREAK;
X		C_tp.sg_flags &= ~ECHO;
X		rc = ioctl(0,TIOCSETP,&C_tp);
X#endif
X		S_flag = IO_GOT|IO_RAW;
X		break;
X	case COOKED:
X		if ((S_flag & IO_RAW) != 0)
X		{
X#ifdef SYSV
X			C_tp = O_tp;
X			rc = ioctl(0,TCSETAW,&C_tp);
X#else
X			C_tp.sg_flags = O_lflag;
X			rc = ioctl(0,TIOCSETP,&C_tp);
X#endif
X			S_flag &= ~IO_RAW;
X		}
X		else
X			rc = 0;
X		break;
X	case SAVEMODE:
X		if ((S_flag & IO_RAW) != 0)
X		{
X			tty_set(COOKED);
X			R_ignore = 0;
X		}
X		else
X			++R_ignore;
X		rc = 0;
X		break;
X	case RESTORE:
X		if (R_ignore <= 0)
X		{
X			tty_set(RAWMODE);
X		}
X		else
X			--R_ignore;
X		rc = 0;
X		break;
X	default:
X		rc = -1;
X	}
X	if (rc < 0)
X		printex ("ioctl failure, tty_set: %d",cmd);
X}
@//E*O*F tty_set.c//
if test 2552 -ne "`wc -c <'tty_set.c'`"; then
    echo shar: error transmitting "'tty_set.c'" '(should have been 2552 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'tune.h'" '(2613 characters)'
if test -f 'tune.h' ; then 
  echo shar: will not over-write existing file "'tune.h'"
else
sed 's/^X//' >tune.h <<'@//E*O*F tune.h//'
X/*
X** vn news reader.
X**
X** tune.h - system tuning parameters
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X/*
X**	buffer size needed for tmpnam()
X*/
X#ifndef L_tmpnam
X#define L_tmpnam 48
X#endif
X
X/*
X** hash table size.  linked list type of table which can expand to
X** arbitrary density, including densities > 100%.  Number of entries
X** will be number of newsgroups in active list.  This should be a prime
X** number ("long division" of string modulo table size hash function).
X*/
X#define HASHSIZE 809
X
X/*
X**	maximum number of columns on terminal.  If made smaller, there
X**	will be a savings in the size of the temporary file used
X**	for holding displays, at the penalty of not being able to use
X**	the entire screen width on terminals actually possessing more
X**	columns than this.  A block roughly on the order of this value
X**	times the number of lines the terminal has is maintained per page in
X**	the temp file, and read / written as displays are interacted
X**	with.  MIN_C put here because MAX_C > MIN_C.  MIN_C is the minumum
X**	number of columns for which a "reasonable" display can be produced.
X**	before making it smaller, look at all uses of C_allow and variable
X**	to see that a setting that small won't screw up array bounds.
X*/
X#define MAX_C 132
X#define MIN_C 36
X
X/*
X**	large size for general purpose local buffers.  only used in automatic
X**	variable declarations.  Used with fgets for buffer size when reading
X**	file records, to hold pathnames, commands, etc.  Reduce if you blow
X**	out stack storage.  If reduced too far, will eventually show up
X**	as syntax errors on reading .newsrc's and the active list, and
X**	scrozzled article information arising from truncated header lines.
X**	The reply path line will probably be the first thing to cause trouble.
X**	Look through the reader to find the worst case chain of declarations
X**	(on the order of 12 or so is probably the max).
X*/
X#define RECLEN 1200
X
X/*
X**	to protect against reading entire articles to find non-existent header
X**	lines if an article should be hosed, only a limited number of records
X**	are searched.  Should be big enough to get down to the last header
X**	entry on legitimate articles.
X*/
X#define HDR_LINES 24	/* records of article to search for header line */
X
X/* these determine some static array sizes */
X#define OPTLINES 60	/* maximum number of option lines in .newsrc */
X#define NUMFILTER 24	/* max number of filters on articles */
X
X/* block sizes for allocation routines */
X#define STRBLKSIZE 1800	/* string storage allocation block */
X#define NDBLKSIZE 50	/* NODE structures to allocate at a time */
@//E*O*F tune.h//
if test 2613 -ne "`wc -c <'tune.h'`"; then
    echo shar: error transmitting "'tune.h'" '(should have been 2613 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'userlist.c'" '(1923 characters)'
if test -f 'userlist.c' ; then 
  echo shar: will not over-write existing file "'userlist.c'"
else
sed 's/^X//' >userlist.c <<'@//E*O*F userlist.c//'
X/*
X** vn news reader.
X**
X** userlist.c - generate user's list of articles
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#include <stdio.h>
X#include "vn.h"
X
Xextern PAGE Page;
X
X/*
X	generate user list of articles - either article numbers
X	are input directly (numeric list), or input is a search
X	string - invoke regular expression library and examine titles
X	search string "*" reserved for marked articles.  Strings may
X	be prefixed with '!' for negation.
X*/
Xuserlist (list)
Xchar *list;
X{
X	int i,j,anum[RECLEN/2],acount;
X	char neg, *s, sbuf[MAX_C+1], *reg, *regex(), *regcmp(), *index(), *strtok();
X
X	user_str (sbuf,"Articles or title search string : ",1);
X	if (sbuf[0] == '!')
X	{
X		neg = '!';
X		s = sbuf+1;
X	}
X	else
X	{
X		neg = '\0';
X		s = sbuf;
X	}
X	for (i=0; s[i] != '\0'; ++i)
X	{
X		if (index(LIST_SEP,s[i]) == NULL)
X		{
X			if (s[i] < '0' || s[i] > '9')
X				break;
X		}
X	}
X	acount = 0;
X
X	if (s[i] == '\0')
X	{
X		for (s = strtok(s,LIST_SEP); s != NULL; s = strtok(NULL,LIST_SEP))
X		{
X			anum[acount] = atoi(s);
X			++acount;
X		}
X	}
X	else
X	{
X		if (s[0] == ART_MARK)
X		{
X			for (i=0; i < Page.h.artnum; ++i)
X			{
X				if (Page.b[i].art_mark == ART_MARK)
X				{
X					anum[acount] = Page.b[i].art_id;
X					++acount;
X				}
X			}
X		}
X		else
X		{
X			reg = regcmp(s,(char *) 0);
X			if (reg != NULL)
X			{
X				for (i=0; i < Page.h.artnum; ++i)
X				{
X					if (regex(reg,Page.b[i].art_t) != NULL)
X					{
X						anum[acount] = Page.b[i].art_id;
X						++acount;
X					}
X				}
X				regfree (reg);
X			}
X			else
X				preinfo ("bad regular expression syntax");
X		}
X	}
X
X	/* algorithm is inefficient, but we're only handling a few numbers */
X	*list = '\0';
X	for (i=0; i < Page.h.artnum; ++i)
X	{
X		for (j=0; j < acount && anum[j] != Page.b[i].art_id; ++j)
X			;
X		if (neg == '!')
X		{
X			if (j < acount)
X				continue;
X		}
X		else
X		{
X			if (j >= acount)
X				continue;
X		}
X		sprintf (list,"%d ",Page.b[i].art_id);
X		list += strlen(list);
X	}
X}
@//E*O*F userlist.c//
if test 1923 -ne "`wc -c <'userlist.c'`"; then
    echo shar: error transmitting "'userlist.c'" '(should have been 1923 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'vn.h'" '(4278 characters)'
if test -f 'vn.h' ; then 
  echo shar: will not over-write existing file "'vn.h'"
else
sed 's/^X//' >vn.h <<'@//E*O*F vn.h//'
X/*
X** vn news reader.
X**
X** vn.h - general parameters
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#include "tune.h"
X
X#define TRUE 1
X#define FALSE 0
X
X#ifdef OLDRC
X#define NARGOPT "lprxfuMs"
X#else
X#define NARGOPT "lprxfuMsi"
X#endif
X
X#define FIL_AUTHOR 'w'
X#define FIL_TITLE 't'
X
X/*
X	newsrc states
X*/
X#define NEWS_ON ':'
X#define NEWS_OFF '!'
X
X/* bit flags for state of newsgroup */
X#define FLG_SCAN 1
X#define FLG_SUB 2
X#define FLG_PAGE 4
X#define FLG_WRIT 8
X#define FLG_SPEC 16
X
X#define LIST_SEP " 	,"
X#define ED_MARK '>'
X#define ART_MARK '*'
X#define ART_WRITTEN '_'
X#define ART_UNWRITTEN ' '
X
X#define FPFIX "Re: "
X#define FPFLEN 4
X
X#define ANFORM ":%s - %c for help:\n"
X#define ANFLINES 1
X#define NOFORM "can't open article %s\n"
X#define NEWGFORM "groups not mentioned in %s:\n"
X#define SAVFORM "save file (%s) ? "
X#define UDKFORM "undefined key - %c for help"
X#define HELPFORM "%c for help"
X
X/*
X	page display format and dependent parameters
X*/
X#define HFORMAT "\n%s (page %d of %d):"
X#define DHFORMAT "\n%s (DIGEST EXTRACTION):"
X#define TFORMAT "%s ~ %s %s"
X#define AFORMAT "\n%c%c%d) "	/* begin with newline - see show routine */
X#define CFORMAT "page %d of %d (%d shown), newsgroup %d of %d"
X#define RECBIAS 2	/* lines before articles - depends on HFORMAT */
X#define AFLEN 5		/* min. char. in article id - depends on AFORMAT */
X#define WRCOL 1		/* column of written mark.  depends on AFORMAT */
X#define INFOLINE 0	/* HFORMAT TFORMAT leaves for use */
X
X/*
X	command characters - don't use numerics or <ESC>
X	ALTSAVE is a hack to avoid having to use ctl-s - XON/XOFF.
X	Wanted to preserve "s" pneumonic and lower / control /cap
X	convention.
X*/
X#define DIGEST 'd'
X#define UP 'k'
X#define DOWN 'j'
X#define FORWARD '\012'
X#define BACK '\010'
X#define READ 'r'
X#define ALTREAD ' '
X#define READALL 'R'
X#define READSTRING '\022'
X#define SAVE 's'
X#define SAVEALL 'S'
X#define SAVESTRING '\023'
X#define ALTSAVE '\024'
X#define PRINT 'p'
X#define PRINTALL 'P'
X#define PRINTSTRING '\020'
X#define MARK 'x'
X#define UNMARK 'X'
X#define REDRAW '\014'
X#define QUIT 'q'
X#define SSTAT '#'
X#define GRPLIST '%'
X#define ORGGRP 'o'
X#define ORGSTAT 'O'
X#define UPDATE 'w'
X#define UNSUBSCRIBE 'u'
X#define UPALL 'W'
X#define UPSEEN '\027'
X#define UNESC '!'
X#define NEWGROUP 'n'
X#define HEADTOG 'h'
X#define SETROT 'z'
X#define HELP '?'
X#define HELP_HEAD "[...] = effect of optional number preceding command\n\
Xpipes are specified by filenames beginning with |\n\
Xarticles specified as a list of numbers, title search string, or\n\
X	* to specify marked articles.  ! may be used to negate any\n"
X
X#define HHLINES 5	/* lines (CRs + 1) contained in HELP_HEAD */
X
X/*
X	state flags for handling breaks / values for sig_set calls.
X	BRK_IN, BRK_SESS, BRK_READ and BRK_OUT are the states.  All
X	but BRK_INIT are used as calls to sig_set.  BRK_RFIN indicates
X	a return from BRK_READ to BRK_SESS (no jump location passed),
X*/
X#define BRK_INIT 0		/* initial value, indicating uncaught signals */
X#define BRK_IN 1		/* in NEWSRC / article scanning phase */
X#define BRK_SESS 2		/* in page interactive session */
X#define BRK_READ 3		/* reading articles */
X#define BRK_RFIN 4		/* finished reading, return to old mode */
X#define BRK_OUT 5		/* NEWSRC updating phase */
X
X#define BRK_PR "really quit ? "
X#define BRK_MSG "\nQUIT (signal %d)"
X
X/*
X	newsgroup structure (node of hash table)
X	next - hashtable link
X	nd_name - name of newsgroup (key to reach node by)
X	pnum - page number, initially used to establish Newsorder
X	pages - number of pages for news display
X	rdnum - articles read
X	orgrd - original articles read number
X	pgshwn - pages shown mask
X	pgrd - article number on highest conecutively shown page
X	art - articles in group
X	state - status
X*/
Xtypedef struct _node
X{
X	struct _node *next;
X	char *nd_name;
X	int pnum,pages,art,rdnum,orgrd,pgrd;
X	unsigned long pgshwn;
X	unsigned state;
X} NODE;
X
X/*
X	newsgroup information for page display
X	name - of group
X	group - pointer to table entry
X	artnum - number of articles
X*/
Xtypedef struct
X{
X	char *name;
X	NODE *group;
X	int artnum;
X} HEAD;
X
X/*
X	article information - id (spool) number, title string, mark, written.
X*/
Xtypedef struct
X{
X	int art_id;
X	char art_mark;
X	char art_written;
X	char art_t[MAX_C-AFLEN];
X} BODY;
X
Xtypedef struct
X{
X	HEAD h;
X	BODY *b;
X} PAGE;
@//E*O*F vn.h//
if test 4278 -ne "`wc -c <'vn.h'`"; then
    echo shar: error transmitting "'vn.h'" '(should have been 4278 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'vnglob.c'" '(1613 characters)'
if test -f 'vnglob.c' ; then 
  echo shar: will not over-write existing file "'vnglob.c'"
else
sed 's/^X//' >vnglob.c <<'@//E*O*F vnglob.c//'
X/*
X** vn news reader.
X**
X** vnglob.c - global variables - see string.c also
X**
X** see copyright disclaimer / history in vn.c source file
X*/
X
X#include <stdio.h>
X#include "config.h"
X#include "vn.h"
X#include "head.h"
X
X/*
X	global data structure
X*/
XNODE **Newsorder;		/* .newsrc file order */
X
Xchar *Editor,*Ps1,*Mailer,*Printer,*Poster;
X
Xchar Erasekey, Killkey;		/* user keys from stty */
Xchar *Newsrc, *Orgdir;		/* .newsrc file, and original pwd */
Xchar *Onews;			/* temp. file for backing up .newsrc */
Xchar *Savefile = DEF_SAVE;	/* file in which to save articles */
Xchar *Savedir;			/* default directory for saved articles */
Xchar *Ccfile;			/* author_copy file, stored /bin/mail fmt */
X
Xint Rot;	/* rotation */
Xint Headflag;	/* header printing flag */
Xint Digest;	/* if non-zero, digest article */
X
Xchar *Ku, *Kd, *Kl, *Kr;	/* Cursor movement capabilities */
X
X/* character translation arrays for commands */
Xchar Cxitop[128], Cxitor[128], Cxrtoi[128], Cxptoi[128];
X
X/*
X	cur_page - current page displayed;
X	lrec - last record
X	l_allow - lines allowed for article display
X	c_allow - columns allowed
X	ncount = newsorder index
X	nfltr - number of filters
X*/
Xint Cur_page, Lrec, L_allow, C_allow, Ncount, Nfltr;
X
X/*
X	article filtration options.
X*/
Xchar *Wopt[NUMFILTER];		/* regular expressions for -w options */
Xchar *Topt[NUMFILTER];		/* regular expressions for -t options */
Xchar *Negwopt[NUMFILTER];	/* regular expressions for negated -w options */
Xchar *Negtopt[NUMFILTER];	/* regular expressions for negated -t options */
X
Xint Nwopt, Ntopt, Nnwopt, Nntopt;
X
Xint Nounsub, Listfirst;
X/*
X	current page
X*/
XPAGE Page;
@//E*O*F vnglob.c//
if test 1613 -ne "`wc -c <'vnglob.c'`"; then
    echo shar: error transmitting "'vnglob.c'" '(should have been 1613 characters)'
fi
fi # end of overwriting check
echo shar: "End of archive 2 (of 3)."
cp /dev/null ark2isdone
DONE=true
for I in 1 2 3; do
    if test -! f ark${I}isdone; then
        echo "You still need to run archive ${I}."
        DONE=false
    fi
done
case $DONE in
    true)
        echo "You have run all 3 archives."
        echo 'Now read the README'
        ;;
esac
##  End of shell archive.
exit 0