home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Usenet 1994 January
/
usenetsourcesnewsgroupsinfomagicjanuary1994.iso
/
sources
/
unix
/
volume19
/
nn
/
part07
< prev
next >
Wrap
Text File
|
1989-06-22
|
50KB
|
2,291 lines
Subject: v19i068: NN, a Usenet news reader, Part07/15
Newsgroups: comp.sources.unix
Sender: sources
Approved: rsalz@uunet.UU.NET
Submitted-by: storm@texas.dk (Kim F. Storm)
Posting-number: Volume 19, Issue 68
Archive-name: nn/part07
#!/bin/sh
# this is part 7 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file master.c continued
#
CurArch=7
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
exit 1; fi
( read Scheck
if test "$Scheck" != $CurArch
then echo "Please unpack part $Scheck next!"
exit 1;
else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file master.c"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' >> master.c
X write_error();
X fflush(master_file);
X}
X
X
Xclean_group(gh)
Xregister group_header *gh;
X{
X if (trace)
X log_entry('T', "CLEAN %s", gh->group_name);
X
X gh->first_l_article = 0;
X gh->last_l_article = 0;
X
X gh->index_write_offset = (off_t)0;
X gh->data_write_offset = (off_t)0;
X
X gh->group_flag &= ~G_EXPIRE;
X gh->group_flag |= G_BLOCKED;
X
X save_group(gh);
X}
X
X/*
X * Build initial master file ; calls Initialize script and
X * reads info from its standard output
X */
X
Xbuild_master()
X{
X char command[512];
X char groupname[512];
X group_header group;
X FILE *group_file, *src;
X int lcount, use_group_file;
X
X
X printf("Confirm initialization by typing 'OK': ");
X fl;
X gets(command);
X if (strcmp(command, "OK")) {
X printf("No initialization\n");
X nn_exit(0);
X }
X
X printf("Initializing master data base...");
X fl;
X
X if (chdir(lib_directory) < 0) /* so we can use open_file */
X sys_error("lib");
X
X#ifdef NNTP
X if (use_nntp && nntp_get_active() < 0)
X sys_error("Can't get active file");
X#endif
X /* check active file for duplicates */
X
X sprintf(command, "awk 'NF>0{print $1}' %s | sort | uniq -d", news_active);
X
X src = popen(command, "r");
X
X for (lcount = 0; fgets(groupname, 512, src); lcount++) {
X if (lcount == 0)
X printf("\n%s contains duplicate entries for the following groups:",
X news_active);
X
X fputs(groupname, stdout);
X }
X
X pclose(src);
X
X if (lcount > 0) {
X printf("Do you want to repair this file before continuing ? (y)");
X gets(command);
X if (command[0] == NUL || command[0] == 'y' || command[0] == 'Y')
X nn_exit(0);
X }
X
X /* if a "GROUPS" file exist offer to use that, else */
X /* read group names from active file */
X
X use_group_file = 0;
X
X if (src = open_groups(OPEN_READ)) {
X printf("\nA GROUPS file already exist -- reuse it? (y)");
X fl;
X gets(command);
X if (command[0] == NUL || command[0] == 'y' || command[0] == 'Y') {
X use_group_file = 1;
X } else
X fclose(src);
X }
X
X if (!use_group_file) {
X strcpy(command, "awk 'NF>0{print $1}' ");
X strcat(command, news_active);
X strcat(command, " | sort -u");
X
X src = popen(command, "r");
X
X group_file = open_groups(OPEN_CREATE|MUST_EXIST);
X }
X
X open_master(OPEN_CREATE);
X
X fseek(master_file, sizeof(master), 0);
X
X master.number_of_groups = 0;
X
X while (fgets(groupname, 512, src)) {
X
X group.group_num = master.number_of_groups++;
X
X group.group_name_length = strlen(groupname) - 1; /* strip NL */
X groupname[group.group_name_length] = NUL;
X group.group_name = groupname;
X
X init_group(&group);
X
X clean_group(&group);
X
X group.group_flag = 0;
X
X /* moderation flag will be set by first visit_active_file call */
X
X if (strcmp(groupname, "control") == 0)
X group.group_flag |= G_CONTROL;
X
X save_group(&group);
X
X if (!use_group_file) {
X groupname[group.group_name_length] = NL;
X Fwrite(groupname, sizeof(char),
X group.group_name_length + 1, group_file);
X }
X }
X
X if (use_group_file) {
X master.next_group_write_offset = ftell(src);
X fclose(src);
X } else {
X master.next_group_write_offset = ftell(group_file);
X fclose(group_file);
X pclose(src);
X }
X
X master.last_scan = 0;
X
X save_master();
X
X close_master();
X
X printf("done\n");
X
X log_entry('M', "Master data base initialized");
X
X fl;
X}
X
X
X/*
X * receive commands from administrator
X */
X
Xreceive_admin()
X{
X FILE *gate;
X char buffer[128], *bp;
X char command, *user_date;
X long arg1, arg2;
X int must_collect;
X register group_header *gh;
X
X gate = open_file(relative(lib_directory, "GATE"), OPEN_READ | OPEN_UNLINK);
X if (gate == NULL) return 0;
X
X sleep(2); /* give administrator time to flush buffers */
X
X must_collect = 0;
X
X while (fgets(buffer, 128, gate)) {
X bp = buffer;
X command = *bp;
X if ((bp = strchr(bp, ';')) == NULL) continue;
X arg1 = atol(++bp);
X if ((bp = strchr(bp, ';')) == NULL) continue;
X arg2 = atol(++bp);
X if ((bp = strchr(bp, ';')) == NULL) continue;
X user_date = ++bp;
X if ((bp = strchr(bp, ';')) == NULL) continue;
X *bp++ = NUL;
X if (*bp != NL) continue;
X
X log_entry('A', "RECV %c %ld %ld (%s)",
X command, arg1, arg2, user_date);
X
X if (arg1 >= 0 && arg1 < master.number_of_groups)
X gh = &active_groups[arg1];
X else
X gh = NULL;
X
X switch (command) {
X
X case 'r':
X repeat_delay = arg1;
X continue;
X
X case 'e':
X expire_level = arg1;
X continue;
X
X case 'X': /* expire */
X if (gh) {
X gh->group_flag |= G_EXPIRE | G_BLOCKED;
X save_group(gh);
X break;
X }
X visit_active_file(); /* just in case */
X Loop_Groups_Header(gh) {
X if (gh->first_l_article + arg2 < gh->first_article) {
X gh->group_flag |= G_EXPIRE;
X save_group(gh); /* could block here */
X }
X }
X break;
X
X case 'S': /* set flag */
X gh->group_flag |= arg2;
X save_group(gh);
X continue;
X
X case 'C': /* clear flag */
X gh->group_flag |= arg2;
X save_group(gh);
X continue;
X
X case 'R': /* recollect */
X if (gh) {
X clean_group(gh);
X } else
X Loop_Groups_Header(gh)
X clean_group(gh);
X break;
X
X case 'U': /* unconditional pass */
X unconditional++;
X break;
X
X case 'T': /* toggle trace flag */
X trace = !trace;
X continue;
X
X default:
X continue;
X }
X must_collect++;
X }
X
X fclose(gate);
X
X return must_collect;
X}
X
X
X/*
X * disk write with check -- halt if no space on disk
X */
X
X
XFwrite(buf, size, nitems, stream)
Xchar *buf;
Xint size;
Xint nitems;
XFILE *stream;
X{
X if (fwrite(buf, size, nitems, stream) != nitems)
X write_error();
X}
X
Xwrite_error()
X{
X /*
X * should wait for problems to clear out rather than die...
X */
X sys_error("DISK WRITE ERROR");
X}
X
X/*
X * dummy routines - should never be called by master
X */
X
X/*VARARGS*/
Xuser_error()
X{
X dummy_error("user_error");
X}
X
Xdummy_error(name)
Xchar *name;
X{
X sys_error("Dummy routine called by master: %s", name);
X}
X
X
X#ifdef NNTP /* XXX */
Xmsg() {}
X#endif /* NNTP Bogus */
NO_NEWS_IS_GOOD_NEWS
echo "File master.c is complete"
chmod 0644 master.c || echo "restore of master.c fails"
set `wc -c master.c`;Sum=$1
if test "$Sum" != "15145"
then echo original size 15145, current size $Sum;fi
echo "x - extracting match.c (Text)"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' > match.c &&
X#define NUL '\0'
X#define NULL ((char *)0)
X
X
X#ifdef notdef
X
X/* use this table for creating input to the match.h routines */
X
Xchar match_xxx[128] = {
X
X/* NUL SOH STX ETX EOT ENQ ACK BEL BS TAB NL VT FF CR SO SI */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* DLE DC1 DC2 DC3 DC4 NAK SYN ETB CAN EM SUB ESC FS GS RS US */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* SP ! " # $ % & ' ( ) * + , - . / */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* 0 1 2 3 4 5 6 7 8 9 : ; < = > ? */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* @ A B C D E F G H I J K L M N O */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* P Q R S T U V W X Y Z [ \ ] ^ _ */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* ` a b c d e f g h i j k l m n o */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00,
X
X/* p q r s t u v w x y z { | } ~ DEL */
X 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00, 00
X
X};
X#endif
X
X
X/*
X * the following routines only works for ASCII !!!!
X *
X * they are a quick hack to check for the occurrence of a word
X * (regardless of case) in a string
X */
X
X#define UNIFY 040
X
Xinit_quick_match(mask)
Xchar *mask;
X{
X register char *m;
X
X for (m = mask; *m; m++) *m |= UNIFY;
X}
X
Xchar *quick_match(subject, mask)
Xregister char *subject;
Xchar *mask;
X{
X register char *q, *m;
X register char m1 = *mask;
X
X for (; *subject; subject++) {
X if ((*subject | UNIFY) != m1) continue;
X
X q = subject; m = mask;
X do
X if (*++m == NUL) return subject;
X while ((*++q | UNIFY) == *m);
X }
X return NULL;
X}
NO_NEWS_IS_GOOD_NEWS
chmod 0644 match.c || echo "restore of match.c fails"
set `wc -c match.c`;Sum=$1
if test "$Sum" != "1884"
then echo original size 1884, current size $Sum;fi
echo "x - extracting match.h (Text)"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' > match.h &&
X/* usage:
X * MATCH_DROP(t, a) and MATCH_DROP(t, b) must both be proven false
X * before MATCH_EQ(t, a, b) is used.
X */
X
X#define MATCH_DROP(table, c) ( c & 0200 || table[c] == 0 )
X
X#define MATCH_EQ(table, a, b) ( a == b || table[a] == table[b] )
X
X#define MATCH_LS_EQ(table, a, b) ( a <= b || table[a] <= table[b] )
X
X#define MATCH_LS(table, a, b) ( a < b || table[a] < table[b] )
X
X#define MATCH_CMP(table, a, b) (table[a] - table[b])
NO_NEWS_IS_GOOD_NEWS
chmod 0644 match.h || echo "restore of match.h fails"
set `wc -c match.h`;Sum=$1
if test "$Sum" != "439"
then echo original size 439, current size $Sum;fi
echo "x - extracting menu.c (Text)"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' > menu.c &&
X/*
X * selection mode menu
X */
X
X#include "config.h"
X#include "articles.h"
X#include "term.h"
X#include "keymap.h"
X#include "menu.h"
X
X
Xexport int preview_window = 0; /* size of preview window */
Xexport int fmt_linenum = 1; /* menu line format */
Xexport int fmt_rptsubj = 0; /* repeat identical subjects if !0 */
Xexport int novice = 1; /* novice mode -- use extended prompts */
Xexport int long_menu = 0; /* don't put empty lines around menu lines */
Xexport int delay_redraw = 0; /* prompt again if :-command clears screen */
X
Xexport char *delayed_msg = NULL; /* give to msg() after redraw */
X
Ximport also_read_articles;
Ximport merged_menu;
X
Xextern group_completion();
X
Xstatic int firstl; /* first menu line */
X
Xstatic int firsta; /* first article on menu (0 based) */
Xstatic int cura; /* current article */
Xstatic int next_cura; /* article to become cura if >= 0 */
Xstatic int numa; /* no of articles on menu - 1 */
X
X#define INTERVAL1 ('z' - 'a' + 1)
X#define INTERVAL2 ('9' - '0' + 1)
X
Xchar ident[] = "abcdefghijklmnopqrstuvwxyz0123456789";
Xchar Ident[] = "ABCDEFGHIJKLMNOPQRSTUVWXYZ&&&&&&&&&&";
X
X/* mark commands */
X
X#define OFF 0
X#define ON 1
X#define TOGGLE 2
X#define INIT 3
X#define SAVED 4
X#define REMOVE 5
X#define CANCEL 6
X
Xstatic int how;
X
Xstatic mark()
X{
X register article_header *ah;
X int lno, curhow, must_print, lnum, lsubj, lname;
X
X ah = articles[firsta + cura];
X curhow = (ah->flag & A_SELECT) ? ON : OFF;
X if (how == curhow) return;
X
X lno = firstl + cura;
X must_print = STANDOUT;
X
X toggle:
X
X switch (how) {
X
X case TOGGLE:
X how = (curhow == ON) ? OFF : ON;
X goto toggle;
X
X case ON:
X if (ah->flag & A_CANCEL) {
X if (curhow == OFF) return;
X how = OFF;
X goto toggle;
X }
X ah->flag |= A_SELECT;
X break;
X
X case OFF:
X ah->flag &= ~A_SELECT;
X break;
X
X case INIT:
X gotoxy(0, lno);
X putchar(ident[cura]);
X how = curhow;
X must_print = 1;
X break;
X
X case SAVED:
X gotoxy(0, lno);
X putchar(Ident[cura]);
X return;
X
X case REMOVE:
X gotoxy(0, lno);
X clrline();
X return;
X
X case CANCEL:
X gotoxy(1, lno);
X if (ah->flag & A_SELECT) {
X ah->flag &= ~A_SELECT;
X break;
X }
X putchar((ah->flag & A_CANCEL) ? '#' : ' ');
X return;
X }
X
X if (cura < 0 || cura > numa) return;
X
X /* menu line formats:
X 1 3 8 10 20 22 xx
X : : : : : : :
X 0 id name subject +lines
X 1 id name lines subject
X 2 id lines subject
X 3 id subject
X 4 id name:8 subject
X */
X
X if (must_print) {
X
X if (fmt_linenum > 4) fmt_linenum = 1;
X
X if (ah->flag & A_CANCEL) {
X gotoxy(1, lno);
X putchar('#');
X } else
X if (how == ON) {
X if (so_gotoxy(1, lno, 1) == 0) putchar('*');
X } else {
X gotoxy(1, lno);
X putchar(' ');
X }
X
X if (fmt_linenum > 1) lnum = 0; else
X if (ah->lines < 10) lnum = 1; else
X if (ah->lines < 100) lnum = 2; else
X if (ah->lines < 1000) lnum = 3; else
X if (ah->lines < 10000) lnum = 4; else lnum = 5;
X
X lsubj = Columns - cookie_size - 2; /* ident char + space */
X
X switch (fmt_linenum) {
X
X case 0:
X lsubj -= NAME_LENGTH + 1 + 2 + lnum; /* name. .subj. +.lines */
X so_printf("%-*s ", NAME_LENGTH, ah->sender);
X break;
X
X case 1:
X lsubj -= NAME_LENGTH + 4;
X /* name.lines. .subj (name may be shortened) */
X lname = NAME_LENGTH + 2 - lnum;
X lsubj -= 4; /* 2 columns for the number + 2 spaces */
X so_printf("%-*.*s ", lname, lname, ah->sender);
X so_printf(ah->lines >= 0 ? "%d " : "? ", ah->lines);
X break;
X
X case 2:
X lsubj -= 6;
X so_printf("%5d ", ah->lines);
X break;
X
X case 3:
X break;
X
X case 4:
X lsubj -= 9;
X so_printf("%-8.8s ", ah->sender);
X break;
X }
X
X if (!fmt_rptsubj && lno > firstl && ah->flag & A_SAME) {
X if (ah->replies == 0)
X so_printf("-");
X else
X prt_replies(ah->replies);
X } else {
X lsubj -= prt_replies(ah->replies);
X so_printf("%-.*s", lsubj, ah->subject);
X }
X
X if (fmt_linenum == 0)
X so_printf(ah->lines >= 0 ? " +%d" : " +?", ah->lines);
X
X so_end();
X } else
X putchar((how == OFF) ? ' ' : '*');
X
X fl;
X
X return;
X}
X
X
Xstatic prt_replies(level)
X{
X if (level == 0) return 0;
X
X if (level < 10) {
X so_printf("%-.*s", level, ">>>>>>>>>");
X return level;
X }
X
X so_printf(">>>%3d >>>>", level);
X return 11;
X}
X
X
Xstatic int article_id;
X
Xstatic int get_k_cmd()
X{
X register int c, map;
X
X loop:
X
X article_id = -1;
X
X if ((c = get_c()) & GETC_COMMAND)
X map = c & ~GETC_COMMAND;
X else
X map = menu_key_map[c];
X
X if (s_hangup) map = K_QUIT;
X
X if (map & K_MACRO) {
X m_invoke(map & ~K_MACRO);
X goto loop;
X }
X
X if (map & K_ARTICLE_ID) {
X article_id = map & ~K_ARTICLE_ID;
X map = K_ARTICLE_ID;
X
X if (article_id < 0 || article_id > numa) {
X ding();
X goto loop;
X }
X }
X
X return map;
X}
X
X
Xchar *pct(start, end, first, last)
Xlong start, end, first, last;
X{
X long n = end - start;
X static char buf[16];
X char *fmt;
X
X if (first <= start || n <= 0)
X if (last >= end)
X return "All";
X else
X fmt = "Top %d%%";
X else
X if (last >= end)
X return "Bot";
X else
X fmt = "%d%%";
X
X sprintf(buf, fmt, ((last - start) * 100)/n);
X return buf;
X}
X
Xmenu(print_header)
Xint (* print_header)();
X{
X register k_cmd, cur_k_cmd;
X register article_header *ah;
X int last_k_cmd, last_how, was_selected;
X int seen_all, menu_cmd, temp;
X int save_selected, last_save;
X int doing_unshar, did_unshar;
X char *fname, *savemode, *init_save();
X int nexta; /* first article on next menu */
X int maxa; /* max no of articles per menu page */
X int o_firsta, o_mode; /* for recursive calls */
X static menu_level = 0;
X char purpose[80], pr_fmt[60];
X extern int enable_stop, file_completion();
X extern int alt_cmd_key, in_menu_mode, slow_mode, any_message;
X
X#define menu_return(cmd) \
X { menu_cmd = (cmd); goto menu_exit; }
X
X o_firsta = firsta;
X o_mode = in_menu_mode;
X in_menu_mode = 1;
X
X menu_level++;
X
X sprintf(pr_fmt,
X menu_level == 1 ?
X "\1\2-- SELECT %s-----%%s-----\1" :
X "\1\2-- SELECT %s-----%%s-----<%s%d>--\1",
X novice ? "-- help:? " : "",
X novice ? "level " : "",
X menu_level);
X
X purpose[0] = NUL;
X if (!merged_menu && current_group->group_flag & G_NEW)
X get_purpose(purpose);
X
X seen_all = 0;
X firsta = 0;
X while (firsta < n_articles && articles[firsta]->flag & A_SEEN)
X firsta++;
X
X if (firsta == n_articles) {
X seen_all++;
X firsta = 0;
X }
X
X next_cura = -1;
X cur_k_cmd = K_UNBOUND;
X
X#ifdef HAVE_JOBCONTROL
X#define REDRAW_CHECK if (s_redraw) goto do_redraw
X
X do_redraw:
X /* safe to clear here, because we are going to redraw anyway */
X s_redraw = 0;
X#else
X#define REDRAW_CHECK
X#endif
X
X redraw:
X s_keyboard = 0;
X
X empty_menu_hack: /* do: "s_keyboard=1; goto empty_menu_hack;" */
X if (!slow_mode) s_keyboard = 0;
X
X nexta = firsta;
X
X clrdisp();
X
X firstl = (*print_header)();
X maxa = Lines - preview_window - firstl - 2;
X if (!long_menu) firstl++, maxa -= 2;
X
X if (maxa > (INTERVAL1 + INTERVAL2))
X maxa = INTERVAL1 + INTERVAL2;
X
X nextmenu:
X
X no_raw();
X gotoxy(0, firstl);
X clrpage(firstl);
X
X if (nexta > 0) {
X while (firsta < nexta)
X articles[firsta++]->flag |= A_SEEN;
X } else
X if (purpose[0]) {
X msg(purpose);
X }
X
X firsta = nexta;
X numa = Lines; /* for mark; is set correctly below */
X cura = 0;
X
X REDRAW_CHECK;
X
X if (!s_keyboard)
X while (nexta < n_articles && cura < maxa) {
X
X REDRAW_CHECK;
X
X how = INIT;
X mark(); fl;
X
X if (s_keyboard) { /* Signal may have corrupted output. */
X if (cura == 0)
X mark(); /* redraw first entry */
X else {
X how = REMOVE; /* We delete the last entry (the user */
X mark(); /* wanted to stop the output anyway) */
X cura--;
X nexta--;
X }
X break;
X }
X
X nexta++; cura++;
X }
X
X s_keyboard = 0;
X
X prompt_line = firstl + cura;
X if (!long_menu || cura < maxa) prompt_line++;
X
X numa = nexta - firsta - 1;
X if (numa < 0) prompt_line++;
X
X if (next_cura >= 0) {
X cura = next_cura;
X next_cura = -1;
X } else {
X cura = 0;
X for (article_id = firsta; cura < numa; article_id++, cura++)
X if ((articles[article_id]->flag & A_SELECT) == 0) break;
X }
X
X how = TOGGLE;
X
X build_prompt:
X
X raw();
X
X Prompt:
X
X prompt(pr_fmt,
X pct(0L, (long)(n_articles-1), (long)firsta, (long)(firsta+numa)));
X
X if (delayed_msg != NULL) {
X msg(delayed_msg);
X delayed_msg = NULL;
X }
X
X same_prompt:
X
X if (cura < 0 || cura > numa) cura = 0;
X
X if (numa >= 0) {
X gotoxy(0, firstl + cura);
X fl; /* place cursor at current article id */
X }
X
X last_k_cmd = cur_k_cmd;
X cur_k_cmd = k_cmd = get_k_cmd();
X if (any_message) clrmsg(-1);
X
X alt_key:
X
X switch (k_cmd) {
X
X case K_UNBOUND:
X ding();
X flush_input();
X goto same_prompt;
X
X case K_REDRAW:
X goto redraw;
X
X case K_LAST_MESSAGE:
X msg((char *)NULL);
X goto same_prompt;
X
X case K_HELP:
X if (numa < 0) goto nextmenu; /* give specific help here */
X display_help("menu");
X goto redraw;
X
X case K_SHELL:
X if (group_file_name) *group_file_name = NUL;
X if (shell_escape()) goto redraw;
X goto Prompt;
X
X case K_VERSION:
X prompt(P_VERSION);
X goto same_prompt;
X
X case K_EXTENDED_CMD:
X switch (alt_command()) {
X
X case AC_QUIT:
X menu_return( ME_QUIT );
X
X case AC_PROMPT:
X goto Prompt;
X
X case AC_REORDER:
X firsta = 0;
X /* fall thru */
X case AC_REDRAW:
X goto redraw;
X
X case AC_KEYCMD:
X k_cmd = alt_cmd_key;
X goto alt_key;
X
X case AC_HEADER:
X home();
X (*print_header)();
X goto Prompt;
X }
X
X case K_QUIT:
X menu_return(ME_QUIT);
X
X case K_SAVE_NO_HEADER:
X case K_SAVE_SHORT_HEADER:
X case K_SAVE_FULL_HEADER:
X case K_PRINT:
X case K_UNSHAR:
X case K_PATCH:
X
X if (numa < 0) goto nextmenu;
X
X fname = init_save(k_cmd, &savemode);
X if (fname == NULL) goto Prompt;
X
X enable_stop = 0;
X save_selected = 0;
X doing_unshar = k_cmd == K_UNSHAR || k_cmd == K_PATCH;
X did_unshar = 0;
X
X m_startinput();
X
X while (!save_selected && !did_unshar) {
X prompt("\1%s\1 %.*s Article (* +): ",
X savemode, Columns - 25, fname);
X
X k_cmd = get_k_cmd();
X
X if (k_cmd == K_SELECT_SUBJECT) {
X save_selected = 1;
X cura = 0;
X article_id = firsta;
X last_save = firsta + numa;
X } else
X if (k_cmd == K_AUTO_SELECT) {
X save_selected = 2;
X cura = -firsta;
X article_id = 0;
X last_save = n_articles - 1;
X } else
X if (k_cmd == K_ARTICLE_ID) {
X cura = article_id;
X article_id += firsta;
X last_save = article_id;
X } else
X break;
X
X for ( ; article_id <= last_save ; article_id++, cura++) {
X ah = articles[article_id];
X if (save_selected && (ah->flag & A_SELECT) == 0) continue;
X
X if (doing_unshar) {
X did_unshar++;
X } else
X if (cura >= 0 && cura <= numa)
X prompt("Processing %c...", ident[cura]);
X else
X prompt("Processing entry %d...", article_id);
X
X if (save(ah)) {
X if (doing_unshar) {
X if (save_selected)
X ah->flag &= ~A_SELECT;
X } else
X if (cura >= 0 && cura <= numa) {
X how = save_selected ? OFF : SAVED;
X mark();
X how = TOGGLE;
X } else
X if (save_selected)
X ah->flag &= ~A_SELECT;
X }
X }
X }
X
X if (save_selected) cura = 0;
X how = TOGGLE;
X
X m_endinput();
X
X enable_stop = 1;
X end_save();
X
X if (did_unshar) {
X any_key(0);
X goto redraw;
X }
X goto Prompt;
X
X case K_REPLY:
X case K_FOLLOW_UP:
X if (numa < 0) goto nextmenu;
X
X prompt(k_cmd == K_REPLY ?
X "\1Reply to author\1 of article: " :
X "\1Follow Up\1 to article: ");
X
X if (get_k_cmd() == K_ARTICLE_ID)
X if (answer(articles[firsta+article_id], k_cmd, -1))
X goto redraw;
X
X goto Prompt;
X
X case K_POST:
X if (post_menu()) goto redraw;
X goto Prompt;
X
X case K_MAIL_OR_FORWARD:
X if (numa < 0) goto nextmenu;
X
X prompt("\1Article to be forwarded\1 (SP if none): ");
X
X if ((k_cmd = get_k_cmd()) == K_ARTICLE_ID) {
X if (answer(articles[firsta+article_id], K_MAIL_OR_FORWARD, 1))
X goto redraw;
X } else
X if (k_cmd == K_CONTINUE)
X if (answer((article_header *)NULL, K_MAIL_OR_FORWARD, 0))
X goto redraw;
X
X goto Prompt;
X
X case K_CANCEL:
X if (numa < 0) goto nextmenu;
X
X if (current_group->group_flag & G_FOLDER) {
X prompt("\1Cancel Folder\1 Article: ");
X if (get_k_cmd() == K_ARTICLE_ID) {
X cura = article_id;
X fcancel(articles[firsta+article_id]);
X how = CANCEL;
X mark();
X }
X goto Prompt;
X }
X
X prompt("\1Cancel\1 Article: ");
X
X if (get_k_cmd() == K_ARTICLE_ID)
X if (cancel(articles[firsta+article_id]) & 1) goto redraw;
X goto Prompt;
X
X case K_UNSUBSCRIBE:
X if (unsubscribe(current_group)) {
X if (!(current_group->group_flag & G_SUBSCRIPTION))
X menu_return(ME_NEXT);
X home();
X (*print_header)();
X }
X goto Prompt;
X
X case K_GROUP_OVERVIEW:
X group_overview(0);
X goto redraw;
X
X case K_KILL_HANDLING:
X kill_menu((article_header *)NULL);
X goto Prompt;
X
X case K_CONTINUE: /* goto next menu page or show the articles */
X if (nexta < n_articles && !seen_all) goto nextmenu;
X /* fall thru */
X
X case K_READ_GROUP_UPDATE:
X case K_READ_GROUP_THEN_SAME:
X no_raw();
X clrdisp();
X
X switch (show_articles()) {
X
X case SH_MENU:
X goto redraw;
X
X case SH_QUIT:
X menu_return(ME_QUIT);
X
X case SH_NO_SELECT:
X break;
X
X case SH_NEXT:
X menu_return(ME_NEXT);
X
X case SH_READ:
X if (k_cmd == K_READ_GROUP_THEN_SAME || also_read_articles) goto redraw;
X break;
X
X default:
X user_error("show_articles returned improper value");
X }
X
X menu_return(ME_READ);
X
X case K_NEXT_GROUP_NO_UPDATE:
X menu_return(ME_NEXT);
X
X case K_PREVIOUS:
X menu_return(ME_PREV);
X
X case K_ADVANCE_GROUP:
X case K_BACK_GROUP:
X if (merged_menu) {
X msg("No possible on merged menu");
X goto same_prompt;
X }
X /* FALL THRU */
X
X case K_GOTO_GROUP:
X
X switch (goto_group(k_cmd, (article_header *)NULL)) {
X
X case ME_REDRAW:
X firsta = 0;
X goto redraw;
X
X case ME_NO_ARTICLES:
X msg("No selections made.");
X
X case ME_NO_REDRAW:
X goto Prompt;
X
X case ME_QUIT:
X menu_return( ME_QUIT );
X
X case ME_PREV:
X goto redraw;
X
X case ME_NEXT:
X case ME_READ:
X s_keyboard = 1;
X goto empty_menu_hack;
X }
X
X case K_ARTICLE_ID:
X if (numa < 0) goto nextmenu;
X
X cura = article_id;
X how = TOGGLE;
X mark();
X last_how = how;
X cura++;
X
X goto same_prompt;
X
X case K_SELECT_INVERT:
X if (numa < 0) goto nextmenu;
X
X temp = cura;
X
X no_raw(); /* for x-on/x-off */
X for (cura = 0; cura <= numa; cura++) {
X how = TOGGLE;
X mark();
X }
X fl;
X
X REDRAW_CHECK;
X raw();
X
X how = TOGGLE; cura = temp;
X goto same_prompt;
X
X
X case K_SELECT:
X if (numa < 0) goto nextmenu;
X
X how = TOGGLE;
X mark();
X last_how = how;
X cura++;
X goto same_prompt;
X
X case K_UNSELECT_ALL:
X for (cura = -firsta; cura < n_articles - firsta; cura++) {
X how = OFF;
X mark();
X }
X fl;
X cura = 0;
X goto same_prompt;
X
X case K_NEXT_LINE:
X if (numa < 0) goto nextmenu;
X
X cura++;
X how = TOGGLE;
X goto same_prompt;
X
X case K_PREV_LINE:
X if (numa < 0) goto nextmenu;
X
X if (--cura < 0) cura = numa;
X how = TOGGLE;
X goto same_prompt;
X
X case K_SELECT_SUBJECT:
X if (numa < 0) goto nextmenu;
X
X mark();
X
X while (firsta+cura > 0 && articles[firsta+cura]->flag & A_SAME)
X cura--;
X
X do {
X mark();
X cura++;
X if (firsta+cura >= n_articles) break;
X } while (articles[firsta+cura]->flag & A_SAME);
X
X how = TOGGLE;
X goto same_prompt;
X
X case K_SELECT_RANGE:
X if (numa < 0) goto nextmenu;
X
X if (last_k_cmd == K_ARTICLE_ID || last_k_cmd == K_SELECT) {
X how = last_how;
X cura--;
X if (cura < 0) cura = numa;
X } else
X how = articles[firsta+cura]->flag & A_SELECT ? OFF : ON;
X
X range_again:
X
X prompt("\1%select range\1 %c-", how == ON ? "S" : "Des", ident[cura]);
X
X k_cmd = get_k_cmd();
X if (k_cmd == K_SELECT_RANGE) {
X how = !how;
X goto range_again;
X }
X
X if (k_cmd != K_ARTICLE_ID) goto Prompt;
X
X if (last_k_cmd != K_ARTICLE_ID && last_k_cmd != K_SELECT)
X mark();
X
X if (article_id <= cura) {
X while (--cura >= article_id) mark();
X if (cura < 0) cura = 0;
X } else {
X while (++cura <= article_id) mark();
X if (cura > numa) cura = numa;
X }
X
X how = TOGGLE;
X goto Prompt;
X
X case K_AUTO_SELECT:
X do_auto_select();
X goto same_prompt;
X
X case K_NEXT_PAGE:
X if (nexta < n_articles) goto nextmenu;
X if (firsta == 0) goto same_prompt;
X
X seen_all++;
X nexta = 0;
X goto nextmenu;
X
X case K_PREV_PAGE:
X if (firsta == 0 && nexta == n_articles) goto same_prompt;
X
X nexta = (firsta > 0 ? firsta : n_articles) - maxa;
X if (nexta <= 1) nexta = 0;
X goto nextmenu;
X
X case K_FIRST_PAGE:
X if (firsta == 0) goto same_prompt;
X
X nexta = 0;
X goto nextmenu;
X
X case K_LAST_PAGE:
X if (nexta == n_articles) goto same_prompt;
X
X nexta = n_articles - maxa;
X if (nexta <= 1) nexta = 0;
X goto nextmenu;
X
X case K_PREVIEW:
X if (numa < 0) goto nextmenu;
X
X preview_other:
X
X prompt("\1Preview article\1");
X k_cmd = get_k_cmd();
X
X if (k_cmd != K_ARTICLE_ID) {
X if (k_cmd != K_PREVIEW)
X goto Prompt;
X article_id = cura;
X }
X
X temp = prompt_line;
X
X preview_next:
X ah = articles[firsta+article_id];
X cura = article_id + 1;
X was_selected = (ah->flag & A_SELECT);
X
X switch (more(ah, MM_PREVIEW, prompt_line)) {
X
X case MC_REDRAW:
X next_cura = cura;
X goto redraw;
X
X case MC_NO_REDRAW:
X break;
X
X case MC_QUIT:
X menu_return( ME_QUIT );
X
X case MC_NEXT: /* article not found -- preview next */
X if (prompt_line == temp)
X break; /* not redrawn -- return to menu instead */
X user_delay(1);
X /* FALL THRU */
X
X case MC_PREVIEW_NEXT:
X if (prompt_line < 0) { /* redrawn screen ! */
X if ((firsta + cura) >= n_articles) goto redraw;
X prompt_line = Lines;
X } else {
X if ((ah->flag & A_SELECT) && was_selected == 0) {
X cura--;
X ah->flag &= ~A_SELECT;
X how = ON;
X mark();
X cura++;
X }
X if (cura > numa) break;
X prompt_line = temp;
X }
X article_id = cura;
X goto preview_next;
X
X case MC_PREVIEW_OTHER:
X prompt_line = temp;
X raw();
X goto preview_other;
X
X default:
X break;
X }
X
X prompt_line = temp;
X goto build_prompt;
X
X case K_LAYOUT:
X if (++fmt_linenum > 3) fmt_linenum = 0;
X goto redraw;
X
X default:
X msg("Command %d not supported", k_cmd);
X goto same_prompt;
X }
X
X
X menu_exit:
X
X firsta = o_firsta;
X in_menu_mode = o_mode;
X menu_level--;
X
X no_raw();
X return menu_cmd;
X}
X
X
Xstatic show_articles()
X{
X register cur, next, mode;
X int cmd, prev = -1, again;
X
X do {
X again = 0;
X
X for (cur = 0; cur < n_articles; cur++) {
X if (articles[cur]->flag & A_SELECT) break;
X }
X
X while (cur < n_articles) {
X
X for (next = cur+1; next < n_articles; next++) {
X if (articles[next]->flag & A_SELECT) break;
X }
X
X articles[cur]->flag &= ~A_SELECT;
X
X show:
X mode = 0;
X if (prev >= 0) mode |= MM_PREVIOUS;
X if (next == n_articles) mode |= MM_LAST_ARTICLE;
X
X cmd = more(articles[cur], mode, 0);
X
X switch(cmd) {
X
X case MC_PREV:
X if (prev == next) break;
X
X next = cur; cur = prev; prev = next;
X goto show;
X
X case MC_NEXTSUBJ:
X for (next = cur+1; next < n_articles; next++) {
X if ((articles[next]->flag & A_SAME) == 0) break;
X articles[next]->flag &= ~A_SELECT;
X }
X for (; next < n_articles; next++) {
X if (articles[next]->flag & A_SELECT) break;
X }
X break;
X
X case MC_ALLSUBJ:
X for (next = cur+1; next < n_articles; next++) {
X if ((articles[next]->flag & A_SAME) == 0) break;
X articles[next]->flag |= A_SELECT;
X }
X for (next = cur+1; next < n_articles; next++)
X if (articles[next]->flag & A_SELECT) break;
X break;
X
X case MC_MENU:
X articles[cur]->flag |= A_SELECT;
X firsta = cur - 5;
X if (firsta < 0) firsta = 0;
X next_cura = cur - firsta;
X
X return SH_MENU;
X
X case MC_QUIT:
X return SH_QUIT;
X
X case MC_NEXT:
X if (articles[cur]->flag & A_SELECT) again++;
X break;
X
X case MC_NEXTGROUP:
X return SH_NEXT;
X
X case MC_READGROUP:
X return SH_READ;
X }
X
X prev = cur; cur = next;
X }
X
X if (again > 1)
X delayed_msg = "Showing this and the following articles again";
X else
X if (again == 1)
X delayed_msg = "Showing article again";
X
X } while (again);
X
X return prev < 0 ? SH_NO_SELECT : SH_READ;
X}
X
X/*
X * return article header for article on menu
X */
X
Xarticle_header *get_menu_article()
X{
X register article_header *ah;
X
X fputs(" from article: ", stdout); fl;
X
X if (get_k_cmd() == K_ARTICLE_ID) {
X ah = articles[firsta + article_id];
X if (ah->a_group) init_group(ah->a_group);
X return ah;
X }
X
X return NULL;
X}
X
X
Xstatic get_purpose(purpose)
Xchar *purpose;
X{
X#ifdef NNTP
X return; /* newsgroups file is not available */
X#else
X FILE *f;
X char line[256], group[80];
X register char *cp, *pp;
X register int len;
X extern char news_active[];
X
X strcpy(line, news_active);
X if ((cp = strrchr(line, '/')) == NULL) return;
X strcat(cp + 1, "newsgroups");
X
X if ((f = fopen(line, "r")) == NULL) return;
X
X sprintf(group, "%s\t", current_group->group_name);
X len = current_group->group_name_length + 1;
X
X while (fgets(line, 256, f) != NULL) {
X if (strncmp(line, group, len)) continue;
X cp = line + len;
X while (*cp && isspace(*cp)) cp++;
X for (pp = purpose, len = 76; --len >= 0 && *cp && *cp != NL; )
X *pp++ = *cp++;
X *pp = NUL;
X }
X
X fclose(f);
X#endif
X}
X
X/*
X * perform auto selections that are not already selected
X * if article is in range firsta..firsta+numa (incl) mark article
X */
X
Xstatic do_auto_select()
X{
X register int i;
X register article_header *ah, **ahp;
X int count = 0, o_cura;
X
X o_cura = cura;
X
X for (i = 0, ahp = articles; i < n_articles; i++, ahp++) {
X ah = *ahp;
X if (auto_select_article(ah)) {
X count++;
X if (ah->flag & A_SELECT) continue;
X if (firsta <= i && i <= (firsta+numa)) {
X cura = i - firsta;
X how = ON;
X mark();
X } else
X ah->flag |= A_SELECT;
X }
X }
X
X msg(count == 0 ? "No selections" : "Selected %d article%s",
X count, count > 1 ? "s" : "");
X cura = o_cura;
X}
X
X
X
X/*
X * read command from command line
X */
X
Xalt_command()
X{
X int ok_val, macro_cmd;
X char *cmd;
X extern char erase_key;
X extern int get_from_macro;
X extern int alt_completion();
X
X prompt(":");
X ok_val = AC_PROMPT;
X
X again:
X
X cmd = "?? ";
X cmd[1] = erase_key;
X
X cmd = get_s(NONE, NONE, cmd, alt_completion);
X if (cmd == NULL ||
X *cmd == NUL || *cmd == SP || *cmd == erase_key)
X return ok_val;
X
X macro_cmd = get_from_macro;
X
X if (*cmd == '?') {
X display_file("help.extended", CLEAR_DISPLAY);
X ok_val = AC_REDRAW;
X goto new_prompt;
X }
X
X ok_val = parse_command(cmd, ok_val, (FILE *)NULL);
X if (ok_val != AC_REDRAW || !delay_redraw) return ok_val;
X
X new_prompt:
X if (macro_cmd) return ok_val;
X
X prompt_line = -1;
X printf("\n\r:");
X fl;
X goto again;
X}
NO_NEWS_IS_GOOD_NEWS
chmod 0644 menu.c || echo "restore of menu.c fails"
set `wc -c menu.c`;Sum=$1
if test "$Sum" != "23564"
then echo original size 23564, current size $Sum;fi
echo "x - extracting menu.h (Text)"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' > menu.h &&
X/* menu commands */
X
X#define ME_QUIT 0 /* quit nn */
X#define ME_NEXT 1 /* continue to next group */
X#define ME_READ 2 /* read this group, cont to next */
X#define ME_PREV 3 /* previous group */
X#define ME_NO_ARTICLES 4 /* no articles in group */
X#define ME_REDRAW 5 /* redraw screen after return */
X#define ME_NO_REDRAW 6 /* screen is not corrupted */
X
X/* show_articles commands */
X
X#define SH_QUIT 0 /* quit nn */
X#define SH_NEXT 1 /* goto next group, no read */
X#define SH_READ 2 /* articles has been read */
X#define SH_MENU 3 /* redraw menu */
X#define SH_NO_SELECT 4 /* no articles was selected */
X
X
X/* more commands */
X
X#define MC_QUIT 0 /* quit nn */
X#define MC_NEXT 1 /* next article */
X#define MC_MENU 2 /* return to menu */
X#define MC_PREV 3 /* previous article */
X#define MC_NEXTSUBJ 4 /* show next subject */
X#define MC_ALLSUBJ 5 /* show all with same subject */
X#define MC_NEXTGROUP 6 /* next group, no read */
X#define MC_READGROUP 7 /* next group, mark as read */
X#define MC_PREVIEW_NEXT 8 /* preview next article */
X#define MC_PREVIEW_OTHER 9 /* preview another article */
X#define MC_REDRAW 10 /* redraw screen after return */
X#define MC_NO_REDRAW 11 /* screen is not corrupted */
X
X/* more modes */
X
X#define MM_NORMAL 0 /* show article */
X#define MM_DIGEST 1 /* show full digest */
X#define MM_PREVIOUS 0x10 /* previous article exists */
X#define MM_LAST_ARTICLE 0x20 /* last article in group */
X#define MM_LAST_GROUP 0x40 /* last group */
X#define MM_PREVIEW 0x80 /* preview mode flag */
X
X/* alt_command return values */
X
X#define AC_QUIT 0 /* quit nn */
X#define AC_PROMPT 1 /* just redraw prompt line */
X#define AC_REDRAW 2 /* redraw screen */
X#define AC_REORDER 3 /* articles have been reordered */
X#define AC_HEADER 4 /* update header line + Prompt */
X#define AC_KEYCMD 5 /* alt_cmd_key contains command */
NO_NEWS_IS_GOOD_NEWS
chmod 0644 menu.h || echo "restore of menu.h fails"
set `wc -c menu.h`;Sum=$1
if test "$Sum" != "1853"
then echo original size 1853, current size $Sum;fi
echo "x - extracting mk_online_man (Text)"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' > mk_online_man &&
X# convert a manual to a folder
X
Xsed -e 's/\\f[BPI]//g' \
X -e 's/\\-/-/g' \
X -e 's/\\&//' \
X -e '/^\.\\"/d' \
X -e '/^\.nf/d' \
X -e '/^\.fi/d' \
X -e 's/^\.[BI] //' "$@" |
Xawk '
XBEGIN {
X l=""
X o=""
X m=72
X a=0
X h=""
X}
X/^\.SH / {
X if (a) printf("%s\n\n", l)
X a++
X l=o=""
X z=u=0
X printf("From: %s\nSubject:", h);
X for (i = 2; i <= NF; i++) printf(" %s", $i);
X printf("\n\n");
X next
X}
X/^\.TH / {
X h=$2
X next
X}
X/^\.UC / {
X next
X}
X/^\.br/ {
X if (l != o) printf("%s\n", l)
X l=o
X z=u
X next
X}
X/^\.PP/ {
X if (l != o) printf("%s\n", l)
X printf("\n")
X l=" "
X z=3
X o=""
X u=0
X next
X}
X/^\.LP/ || /^\.sp/ {
X if (l != o) printf("%s\n", l)
X printf("\n")
X l=""
X o=""
X z=u=0
X next
X}
X/^\.TP/ {
X if (l != o) printf("%s\n", l)
X printf("\n")
X getline
X l=$0
X z=u=5
X o=" "
X if (length(l) >= 5) {
X printf("%s\n", l)
X l=o
X } else while (length(l) < 4) l=l " "
X next
X}
X{
X s=1
X p=" "
X q=1
X}
X/^[ ]/ {
X if (l != o) printf("%s\n",l)
X l=o " "
X z=u+5
X}
X/^\.[IB] / {
X s=2
X}
X/^\.[IB]R / {
X s=2
X p=""
X q=0
X}
X{
X r=" "
X while (s <= NF) {
X k=length($s)
X if ((z+k) > m) {
X printf("%s\n", l)
X l=o
X z=u
X }
X if (l != o)
X l=l r $s
X else
X l=l $s
X z=z + q + k
X r=p
X s++
X }
X}
XEND {
X if (l != o) printf("%s\n\n", l)
X}'
NO_NEWS_IS_GOOD_NEWS
chmod 0644 mk_online_man || echo "restore of mk_online_man fails"
set `wc -c mk_online_man`;Sum=$1
if test "$Sum" != "1198"
then echo original size 1198, current size $Sum;fi
echo "x - extracting more.c (Text)"
sed 's/^X//' << 'NO_NEWS_IS_GOOD_NEWS' > more.c &&
X#include "config.h"
X#include "news.h"
X#include "term.h"
X#include "menu.h"
X#include "keymap.h"
X#include "regexp.h"
X
Xexport int monitor_mode = 0;
Xexport int show_article_date = 1;
Xexport int first_page_lines = 0;
Xexport int overlap = 2;
Xexport int mark_overlap = 0;
Xexport char *header_lines = NULL;
X
Ximport int preview_window;
Ximport int novice;
X
Ximport char *delayed_msg;
X
Xextern char *init_save();
X
Xstatic char rot13tab[128];
Xstatic int norot13 = 1, rot13;
Xstatic int compress_space;
X
Xstatic regexp *regular_expr = NULL;
X
X#define LINEMAX 5000 /* max no of lines backed up */
X
Xstatic struct header_def {
X char field;
X char *text;
X char **news;
X char **digest;
X} header_defs[] = {
X 'A', "Approved", &news.ng_appr, 0,
X 'B', "Distribution",&news.ng_dist, 0,
X 'D', "Date", &news.ng_date, &digest.dg_date,
X 'F', "From", &news.ng_from, &digest.dg_from,
X 'I', "Message-Id", &news.ng_ident, 0,
X 'K', "Keywords", &news.ng_keyw, 0,
X 'L', "Lines", &news.ng_xlines, 0,
X 'N', "Newsgroups", &news.ng_groups, 0,
X 'O', "Organization",&news.ng_org, 0,
X 'P', "Path", &news.ng_path, 0,
X 'R', "Reply-To", &news.ng_reply, 0,
X 'S', "Subject", &news.ng_subj, &digest.dg_subj,
X 'W', "Followup-To", &news.ng_follow, 0,
X 'X', "References", &news.ng_ref, 0,
X 0
X};
X
X
Xmore(ah, mode, screen_offset)
Xarticle_header *ah;
Xint mode, screen_offset;
X{
X register c, col, lno;
X register FILE *art;
X int more_cmd, eof, skip_spaces, has_space, window_lines;
X int form_feed, ignore_nl;
X off_t firstl, lastl;
X off_t linepos[LINEMAX];
X char linebuf[200], *lp;
X int linenum, maxline, topline, print_lines, lno1;
X int underline_line, fake_underline;
X int match_lines, match_redraw, match_topline, match_botline;
X int goto_line, prev_goto, stop_line, extra_lines;
X int in_digest = ah->flag & A_DIGEST;
X article_header digestah;
X char *fname, *hdrline;
X extern STANDOUT;
X char pr_fmt[60], send_date[40];
X int match_expr;
X char *match_start, *match_end;
X int open_modes, hdr_mode, o_mode;
X struct header_def *hdef;
X extern int alt_cmd_key, in_menu_mode, any_message;
X#ifdef RESIZING
X int entry_col = Columns;
X#endif
X extern char *pct();
X
X#define more_return(cmd) \
X { more_cmd = cmd; goto more_exit; }
X
X if (ah->a_group != NULL) init_group(ah->a_group);
X
X open_modes = SKIP_HEADER;
X if (show_article_date || header_lines) {
X open_modes |= FILL_NEWS_HEADER;
X if (header_lines == NULL)
X open_modes |= GET_DATE_ONLY;
X else
X open_modes |= GET_ALL_FIELDS;
X if (in_digest) open_modes |= FILL_DIGEST_HEADER;
X }
X
X /* temporary use of linepos array as header buffers... */
X
X art = open_news_article(ah, open_modes, (char *)&linepos[100], (char *)&linepos[LINEMAX/2]);
X
X if (art == NULL) {
X msg("Expired: \"%s: %-.50s\"", ah->sender, ah->subject);
X if ((mode & MM_PREVIEW) == 0) user_delay(1);
X return MC_NEXT;
X }
X
X o_mode = in_menu_mode;
X in_menu_mode = 0;
X
X if (screen_offset)
X if (preview_window < 1 && Lines - screen_offset < 6)
X screen_offset = 0;
X else {
X so_printxy(0, screen_offset++, "%s: %s ", ah->sender, ah->subject);
X if (!STANDOUT) screen_offset++;
X clrline();
X }
X
X if (show_article_date) {
X if (in_digest && digest.dg_date)
X strncpy(send_date, digest.dg_date, 40);
X else
X if (news.ng_date) {
X strncpy(send_date, news.ng_date, 40);
X } else
X send_date[0] = NUL;
X send_date[39] = NUL;
X if (lp = strrchr(send_date, ':')) *lp = NUL;
X }
X
X linepos[0] = ah->hpos;
X linepos[1] = firstl = ah->fpos;
X maxline = 1;
X topline = 1;
X hdrline = screen_offset == 0 ? header_lines : "";
X
X lastl = (ah->lpos - firstl + 99)/100;
X if (lastl == 0) lastl = 1; /* impossible ? */
X
X rot13 = 0;
X compress_space = 0;
X goto_line = -1, prev_goto = 1;
X match_lines = match_redraw = match_expr = 0;
X underline_line = -1;
X fake_underline = 0;
X
X stop_line = first_page_lines ? first_page_lines : -1;
X
X sprintf(pr_fmt,
X "\1\2-- %s%s %s-----%%s-----\1",
X (mode & MM_PREVIEW) ? "PREVIEW " : "",
X (mode & MM_DIGEST) ? "FULL DIGEST" :
X (mode & MM_LAST_ARTICLE) ? "LAST ARTICLE" : "ARTICLE",
X novice ? "-- help:? " : "");
X
X if (screen_offset) goto safe_redraw;
X
X redraw: /* redraw that will destroy whole screen */
X screen_offset = 0;
X
X safe_redraw: /* redraw of "more window" only */
X linenum = topline;
X
X next_page:
X no_raw();
X
X s_keyboard = 0;
X
X if (stop_line) {
X
X if (lno = screen_offset) {
X gotoxy(0, lno);
X clrpage(lno);
X } else
X clrdisp();
X
X print_header:
X if (hdrline == NULL || *hdrline == '*') {
X if (hdrline && *++hdrline == NUL) hdrline = NULL;
X
X if (linenum <= 1) {
X if (linenum == 0 || (mode & MM_DIGEST)) {
X if (screen_offset) {
X lno--;
X if (!STANDOUT) lno--;
X gotoxy(0, lno);
X clrpage(lno);
X }
X so_printxy(0, lno,
X "Newsgroup: %s, article: %ld%s",
X current_group->group_name,
X (long)(ah->a_number),
X ((mode & MM_DIGEST) || in_digest)
X ? " *DIGEST*" : "");
X/* fseek(art, linepos[0], 0); */
X
X lno++;
X if (!STANDOUT) lno++;
X } else {
X if (screen_offset == 0 && linenum == 1) {
X if (show_article_date) so_printxy(-1, 0, send_date);
X
X /* so_printxy will cut subject */
X so_printxy(0, lno, "%s: %s ", ah->sender, ah->subject);
X lno++;
X if (!STANDOUT) lno++;
X }
X }
X }
X }
X
X if (hdrline && screen_offset == 0) {
X
X hdr_mode = 0;
X while (*hdrline) {
X
X if (*hdrline == '*') goto print_header;
X
X if (*hdrline == '=') {
X hdr_mode = 1;
X hdrline++;
X continue;
X }
X if (*hdrline == '_') {
X hdr_mode = 2;
X hdrline++;
X continue;
X }
X for (hdef = header_defs; hdef->field; hdef++) {
X if (hdef->field != *hdrline) continue;
X if (in_digest) {
X if (hdef->digest == NULL) break;
X if ((lp = *(hdef->digest)) == NULL)
X break;
X } else
X if ((lp = *(hdef->news)) == NULL)
X break;
X gotoxy(0, lno++);
X c = strlen(hdef->text) + 2;
X col = c + strlen(lp);
X if (col > Columns) lp[Columns - c] = 0;
X printf("%s: ", hdef->text);
X switch (hdr_mode) {
X case 0:
X break;
X case 1:
X highlight(1);
X break;
X case 2:
X underline(1);
X break;
X }
X printf("%s", lp);
X switch (hdr_mode) {
X case 0:
X break;
X case 1:
X highlight(0);
X break;
X case 2:
X underline(0);
X break;
X }
X break;
X }
X hdr_mode = 0;
X hdrline++;
X }
X
X hdrline = NULL;
X putchar(NL);
X lno++;
X }
X
X lno1 = lno;
X topline = linenum;
X
X window_lines = Lines - lno - 2;
X print_lines = window_lines;
X
X ignore_nl = 1; /* ignore blank lines at top op screen */
X } else
X print_lines = extra_lines; /* LINT complaints here -- ignore */
X
X if (stop_line > 0) {
X if (print_lines > stop_line) {
X extra_lines = print_lines - stop_line;
X print_lines = stop_line;
X underline_line = -1;
X }
X stop_line = 0;
X } else
X stop_line = -1;
X
X next_line:
X
X if (linenum == LINEMAX) {
X /* THIS IS EXTREMELY DIRTY (like most quick hacks) */
X /* the following definitions assume that LINEMAX >> START+SIZE */
X#define HACK_START 1000 /* line numbers > START_POS are wrong */
X#define HACK_SIZE 1000 /* we simply delete HACK_SIZE lines */
X for (linenum = HACK_START; linenum < (LINEMAX-HACK_SIZE); linenum++)
X linepos[linenum] = linepos[linenum+HACK_SIZE];
X maxline = linenum - 1;
X if (goto_line > 0) goto_line -= HACK_SIZE;
X if (prev_goto > HACK_START)
X if (prev_goto > (HACK_START + HACK_SIZE))
X prev_goto -= HACK_SIZE;
X else
X prev_goto = HACK_START;
X }
X
X if (goto_line == linenum) {
X goto_line = -1;
X goto next_page;
X }
X
X eof = 0;
X
X if (linenum > maxline)
X linepos[++maxline] = ftell(art);
X else
X if (linenum > 0)
X fseek(art, linepos[linenum], 0);
X
X
X if (linepos[linenum] >= ah->lpos) {
X if (match_expr) {
X match_expr = 0;
X topline = match_topline; /* LINT complaints here -- ignore */
X linenum = match_botline; /* LINT complaints here -- ignore */
X fseek(art, linepos[linenum], 0);
X msg("Not found");
X goto Prompt;
X }
X eof++;
X if (goto_line > 0) {
X goto_line = -1;
X linenum -= window_lines/2;
X goto next_page;
X }
X goto Prompt;
X }
X
X if (linenum == 0) {
X if (ftell(art) >= linepos[1]) {
X linenum = 2; /* current line is 1st line ! */
X lno1 = lno;
X }
X } else
X linenum++;
X
X lp = linebuf;
X col = 0;
X form_feed = 0;
X
X next_char:
X
X c = getc(art);
X if (c == EOF) {
X eof++;
X if (lp == linebuf) goto Prompt;
X goto end_line;
X }
X
X if (c & 0200) {
X col += 4;
X if (col > Columns) { /* then there is no room for M-^X */
X ungetc(c, art);
X goto long_line;
X }
X c &= 0177;
X *lp++ = 'M';
X *lp++ = '-';
X if (c < SP) {
X *lp++ = '^';
X c += '@';
X } else
X col--;
X } else
X if (c < SP) {
X if (monitor_mode) {
X if (c == NL) {
X *lp++ = '$';
X goto end_line;
X }
X if (col + 2 > Columns) {
X *lp++ = '\\';
X ungetc(c, art);
X goto end_line;
X }
X *lp++ = '^';
X c += '@';
X col++;
X } else
X switch (c) {
X
X case '\f':
X if (lp == linebuf) {
X if (goto_line && lno == lno1) goto next_line;
X form_feed = 1;
X goto Prompt;
X }
X form_feed = 1;
X goto end_line;
X
X case CR:
X if (lp == linebuf || ignore_nl) goto next_char;
X ignore_nl = 1;
X goto end_line;
X
X case NL:
X if (ignore_nl) {
X ignore_nl = 0;
X if (lp == linebuf) {
X if (lno == lno1) {
X ignore_nl = 1;
X goto next_line;
X }
X goto next_char;
X }
X }
X goto end_line;
X
X case BS:
X if (col) {
X lp--;
X col--;
X }
X goto next_char;
X
X case TAB:
X if (col + 8 - (col & 07) >= Columns)
X goto long_line;
X
X do {
X *lp++ = SP;
X col++;
X } while (col & 07);
X goto next_char;
X
X default:
X if (col + 2 > Columns) {
X ungetc(c, art);
X goto long_line;
X }
X *lp++ = '^';
X c += '@';
X col++;
X break;
X }
X }
X
X *lp++ = c;
X col++;
X ignore_nl = 0;
X
X if (col < Columns) goto next_char;
X
Xlong_line:
X ignore_nl = 1;
X
X end_line:
X /* if we are seaching for a specific line, repeat until it is found */
X if (goto_line >= linenum) goto next_line;
X
X *lp++ = NUL;
X
X if (match_expr) {
X if (!regexec(regular_expr, linebuf))
X goto next_line;
X match_expr = 0;
NO_NEWS_IS_GOOD_NEWS
echo "End of part 7"
echo "File more.c is continued in part 8"
echo "8" > s2_seq_.tmp
exit 0
---
Kim F. Storm storm@texas.dk Tel +45 429 174 00
Texas Instruments, Marielundvej 46E, DK-2730 Herlev, Denmark
No news is good news, but nn is better!
