4.4BSD/usr/src/contrib/news/trn3/sw.c
/* $Id: sw.c,v 3.0 1992/02/01 03:09:32 davison Trn $
*/
/* This software is Copyright 1991 by Stan Barber.
*
* Permission is hereby granted to copy, reproduce, redistribute or otherwise
* use this software as long as: there is no monetary profit gained
* specifically from the use or reproduction of this software, it is not
* sold, rented, traded or otherwise marketed, and this copyright notice is
* included prominently in any copy made.
*
* The author make no claims as to the fitness or correctness of this software
* for any use whatsoever, and it is provided as is. Any use of this software
* is at the user's own risk.
*/
#include "EXTERN.h"
#include "common.h"
#include "util.h"
#include "cache.h"
#include "head.h"
#include "only.h"
#include "term.h"
#include "ng.h"
#include "intrp.h"
#include "rt-page.h"
#include "rt-util.h"
#include "INTERN.h"
#include "sw.h"
void
sw_init(argc,argv,tcbufptr)
int argc;
char *argv[];
char **tcbufptr;
{
register int i;
if (argc >= 2 && strEQ(argv[1],"-c"))
checkflag=TRUE; /* so we can optimize for -c */
interp(*tcbufptr,1024,GLOBINIT);
sw_file(tcbufptr,FALSE);
if (!use_threads || !*safecpy(*tcbufptr,getenv("TRNINIT"),1024))
safecpy(*tcbufptr,getenv("RNINIT"),1024);
if (**tcbufptr) {
if (**tcbufptr == '/') {
sw_file(tcbufptr,TRUE);
}
else
sw_list(*tcbufptr);
}
for (i = 1; i < argc; i++)
decode_switch(argv[i]);
}
void
sw_file(tcbufptr,bleat)
char **tcbufptr;
bool_int bleat;
{
int initfd = open(*tcbufptr,0);
if (initfd >= 0) {
fstat(initfd,&filestat);
if (filestat.st_size > 1024)
*tcbufptr = saferealloc(*tcbufptr,(MEM_SIZE)filestat.st_size);
if (filestat.st_size) {
read(initfd,*tcbufptr,(int)filestat.st_size);
(*tcbufptr)[filestat.st_size-1] = '\0';
/* wipe out last newline */
sw_list(*tcbufptr);
}
else
**tcbufptr = '\0';
close(initfd);
}
else {
if (bleat)
printf(cantopen,*tcbufptr) FLUSH;
**tcbufptr = '\0';
}
}
/* decode a list of space separated switches */
void
sw_list(swlist)
char *swlist;
{
char *tmplist = safemalloc((MEM_SIZE) strlen(swlist) + 2);
/* semi-automatic string */
register char *s, *p, inquote = 0;
strcpy(tmplist,swlist);
p = tmplist;
for (s = p;;) {
while (isspace(*s)) s++; /* skip any initial spaces */
if (*s != '#') {
if (s != p)
strcpy(p, s);
break;
}
while (*s && *s++ != '\n') ; /* skip comments */
}
while (*p) { /* "String, or nothing" */
if (!inquote && isspace(*p)) { /* word delimiter? */
*p++ = '\0'; /* chop here */
for (s = p;;) {
while (isspace(*s)) s++;
if (*s != '#') {
if (s != p)
strcpy(p, s);
break;
}
while (*s && *s++ != '\n') ;
}
}
else if (inquote == *p) {
strcpy(p,p+1); /* delete trailing quote */
inquote = 0; /* no longer quoting */
}
else if (!inquote && (*p == '"' || *p == '\'')) {
/* OK, I know when I am not wanted */
inquote = *p; /* remember single or double */
strcpy(p,p+1); /* delete the quote */
} /* (crude, but effective) */
else if (*p == '\\') { /* quoted something? */
if (p[1] == '\n') /* newline? */
strcpy(p,p+2); /* "I didn't see anything" */
else {
strcpy(p,p+1); /* delete the backwhack */
p++; /* leave the whatever alone */
}
}
else
p++; /* normal char, leave it alone */
}
*++p = '\0'; /* put an extra null on the end */
if (inquote)
printf("Unmatched %c in switch\n",inquote) FLUSH;
for (p = tmplist; *p; /* p += strlen(p)+1 */ ) {
decode_switch(p);
while (*p++) ; /* point at null + 1 */
}
free(tmplist); /* this oughta be in Ada */
}
/* decode a single switch */
void
decode_switch(s)
register char *s;
{
while (isspace(*s)) /* ignore leading spaces */
s++;
#ifdef DEBUG
if (debug)
printf("Switch: %s\n",s) FLUSH;
#endif
if (*s != '-' && *s != '+') { /* newsgroup pattern */
setngtodo(s);
}
else { /* normal switch */
bool upordown = *s == '-' ? TRUE : FALSE;
char tmpbuf[LBUFLEN];
s++;
switch (*s) {
#ifdef TERMMOD
case '=': {
char *beg = s+1;
while (*s && *s != '-' && *s != '+') s++;
cpytill(tmpbuf,beg,*s);
if (upordown ? strEQ(getenv("TERM"),tmpbuf)
: strNE(getenv("TERM"),tmpbuf) ) {
decode_switch(s);
}
break;
}
#endif
#ifdef BAUDMOD
case '0': case '1': case '2': case '3': case '4':
case '5': case '6': case '7': case '8': case '9':
if (upordown ? (just_a_sec*10 <= atoi(s))
: (just_a_sec*10 >= atoi(s)) ) {
while (isdigit(*s)) s++;
decode_switch(s);
}
break;
#endif
case '/':
if (checkflag)
break;
#ifdef SETENV
setenv("SAVEDIR", upordown ? "%p/%c" : "%p" );
setenv("SAVENAME", upordown ? "%a" : "%^C");
#else
notincl("-/");
#endif
break;
case 'a':
thread_always = upordown;
break;
case 'A':
auto_arrow_macros = upordown;
break;
case 'b':
breadth_first = upordown;
break;
case 'B':
bkgnd_spinner = upordown;
break;
case 'c':
checkflag = upordown;
break;
case 'C':
s++;
if (*s == '=') s++;
docheckwhen = atoi(s);
break;
case 'd': {
if (checkflag)
break;
s++;
if (*s == '=') s++;
if (cwd) {
chdir(cwd);
free(cwd);
}
cwd = savestr(s);
break;
}
#ifdef DEBUG
case 'D':
s++;
if (*s == '=') s++;
if (*s)
if (upordown)
debug |= atoi(s);
else
debug &= ~atoi(s);
else
if (upordown)
debug |= 1;
else
debug = 0;
break;
#endif
case 'e':
erase_screen = upordown;
break;
case 'E':
#ifdef SETENV
s++;
if (*s == '=')
s++;
strcpy(tmpbuf,s);
s = index(tmpbuf,'=');
if (s) {
*s++ = '\0';
setenv(tmpbuf,s);
}
else
setenv(tmpbuf,nullstr);
#else
notincl("-E");
#endif
break;
case 'f':
novice_delays = !upordown;
break;
case 'F':
s++;
indstr = savestr(s);
break;
#ifdef INNERSEARCH
case 'g':
gline = atoi(s+1)-1;
break;
#endif
#ifdef EDIT_DISTANCE
case 'G':
fuzzyGet = upordown;
break;
#endif
case 'H':
case 'h': {
register int len, i;
char *t;
int flag = (*s == 'h' ? HT_HIDE : HT_MAGIC);
if (checkflag)
break;
s++;
len = strlen(s);
for (t=s; *t; t++)
if (isupper(*t))
*t = tolower(*t);
for (i=HEAD_FIRST; i<HEAD_LAST; i++)
if (!len || strnEQ(s,htype[i].ht_name,len))
if (upordown)
htype[i].ht_flags |= flag;
else
htype[i].ht_flags &= ~flag;
break;
}
case 'i':
s++;
if (*s == '=') s++;
initlines = atoi(s);
initlines_specified = TRUE;
break;
case 'I':
append_unsub = upordown;
break;
case 'j':
dont_filter_control = TRUE;
break;
case 'l':
muck_up_clear = upordown;
break;
case 'L':
#ifdef CLEAREOL
can_home_clear = upordown;
#else
notincl("-L");
#endif
break;
case 'M':
mbox_always = upordown;
break;
case 'm':
s++;
if (*s == '=') s++;
if (!upordown)
marking = NOMARKING;
else if (*s == 'u')
marking = UNDERLINE;
else {
marking = STANDOUT;
}
break;
case 'N':
norm_always = upordown;
break;
#ifdef VERBOSE
case 'n':
fputs("This isn't readnews. Don't use -n.\n\n",stdout) FLUSH;
break;
#endif
case 'o':
s++;
if (*s == '=') s++;
if (*s <= '9' && *s >= '0') {
olden_days = atoi(s);
do {
s++;
} while (*s <= '9' && *s >= '0');
} else
olden_days = upordown;
break;
case 'O':
s++;
if (*s == '=') s++;
if (!*s)
break;
if (!set_sel_mode(*s)
|| (*++s && !set_sel_sort(*s))) {
#ifdef VERBOSE
IF(verbose)
printf("\nIgnoring unrecognized -O option: %c\n", *s) FLUSH;
ELSE
#endif
#ifdef TERSE
printf("\nIgnoring -O with %c\n", *s) FLUSH;
#endif
break;
}
break;
case 'p':
auto_select_postings = upordown;
break;
case 'r':
findlast = upordown;
break;
case 's':
s++;
if (*s == '=') s++;
if (*s) {
countdown = atoi(s);
suppress_cn = FALSE;
}
else {
if (!upordown)
countdown = 5;
suppress_cn = upordown;
}
break;
case 'S':
#ifdef ARTSEARCH
s++;
if (*s == '=') s++;
if (*s)
scanon = atoi(s);
else
scanon = upordown*3;
#else
notincl("-S");
#endif
break;
case 't':
#ifdef VERBOSE
#ifdef TERSE
verbose = !upordown;
if (!verbose)
novice_delays = FALSE;
#else
notincl("+t");
#endif
#else
notincl("+t");
#endif
break;
case 'T':
typeahead = upordown;
break;
case 'u':
unbroken_subjects = upordown;
break;
case 'v':
#ifdef VERIFY
verify = upordown;
#else
notincl("-v");
#endif
break;
case 'x':
s++;
if (*s == '=') s++;
if (*s <= '9' && *s >= '0') {
if ((max_tree_lines = atoi(s)) > 11)
max_tree_lines = 11;
do {
s++;
} while (*s <= '9' && *s >= '0');
} else
max_tree_lines = 6;
if (*s)
strncpy(select_order, s, 3);
use_threads = upordown;
break;
case 'X':
s++;
if (*s == '=') s++;
if (*s <= '9' && *s >= '0') {
select_on = atoi(s);
do {
s++;
} while (*s <= '9' && *s >= '0');
} else
select_on = upordown;
if (*s)
end_select = *s++;
if (*s)
page_select = *s;
break;
/*
* People want a way to avoid checking for new newsgroups on startup.
*/
case 'q':
quickstart = upordown;
break;
default:
#ifdef VERBOSE
IF(verbose)
printf("\nIgnoring unrecognized switch: -%c\n", *s) FLUSH;
ELSE
#endif
#ifdef TERSE
printf("\nIgnoring -%c\n", *s) FLUSH;
#endif
break;
}
}
}
/* print current switch values */
void
pr_switches()
{
static char mp[2] = {'+','-'};
register int i;
fputs("\nCurrent switch settings:\n",stdout);
printf("%c/ ", mp[strEQ(getval("SAVEDIR",SAVEDIR),"%p/%c")]);
printf("%ca ", mp[thread_always]);
printf("%cA ", mp[auto_arrow_macros]);
printf("%cb ", mp[breadth_first]);
printf("%cB ", mp[bkgnd_spinner]);
printf("%cc ", mp[checkflag]);
printf("-C%d ", docheckwhen);
printf("-d%s ", cwd);
#ifdef DEBUG
if (debug)
printf("-D%d ", debug);
#endif
printf("%ce ", mp[erase_screen]);
printf("%cf ", mp[!novice_delays]);
printf("-F\"%s\" ", indstr);
#ifdef INNERSEARCH
printf("-g%d ", gline);
#endif
printf("%cG", mp[fuzzyGet]);
putchar('\n');
#ifdef VERBOSE
if (verbose) {
for (i=HEAD_FIRST; i<HEAD_LAST; i++)
printf("%ch%s%c",
mp[htype[i].ht_flags & HT_HIDE], htype[i].ht_name,
(! (i % 5) ? '\n' : ' ') );
putchar('\n');
}
#endif
printf("-i%d ", initlines);
printf("%cI ", mp[append_unsub]);
printf("%cj ", mp[dont_filter_control]);
printf("%cl ", mp[muck_up_clear]);
#ifdef CLEAREOL
printf("%cL ", mp[can_home_clear]);
#endif /* CLEAREOL */
if (marking)
printf("-m%c ",marking==UNDERLINE?'u':'s');
else
printf("+m ");
printf("%cM ", mp[mbox_always]);
printf("%cN ", mp[norm_always]);
if (olden_days)
printf("-o%d ", olden_days);
else
printf("+o ");
printf("%cp ", mp[auto_select_postings]);
printf("%cr ", mp[findlast]);
if (countdown)
printf("-s%d ", countdown);
else
printf("%cs ", mp[suppress_cn]);
#ifdef ARTSEARCH
if (scanon)
printf("-S%d ",scanon);
else
printf("+S ");
#endif
#ifdef VERBOSE
#ifdef TERSE
printf("%ct ", mp[!verbose]);
#endif
#endif
printf("%cT ", mp[typeahead]);
printf("%cu ", mp[unbroken_subjects]);
#ifdef VERIFY
printf("%cv ", mp[verify]);
#endif
if (use_threads)
printf("-x%d%s ",max_tree_lines,select_order);
else
printf("+x ");
if (select_on)
printf("-X%d%c%c ",select_on,end_select,page_select);
else
printf("+X ");
fputs("\n\n",stdout) FLUSH;
#ifdef ONLY
if (maxngtodo) {
#ifdef VERBOSE
IF(verbose)
fputs("Current restriction:",stdout);
ELSE
#endif
#ifdef TERSE
fputs("Only:",stdout);
#endif
for (i=0; i<maxngtodo; i++)
printf(" %s",ngtodo[i]);
fputs("\n\n",stdout) FLUSH;
}
#ifdef VERBOSE
else if (verbose)
fputs("No restriction.\n\n",stdout) FLUSH;
#endif
#endif
}
void
cwd_check()
{
char tmpbuf[LBUFLEN];
if (!cwd)
cwd = savestr(filexp("~/News"));
strcpy(tmpbuf,cwd);
if (chdir(cwd)) {
safecpy(tmpbuf,filexp(cwd),sizeof tmpbuf);
if (makedir(tmpbuf,MD_DIR) < 0 || chdir(tmpbuf) < 0) {
interp(cmd_buf, (sizeof cmd_buf), "%~/News");
if (makedir(cmd_buf,MD_DIR) < 0)
strcpy(tmpbuf,homedir);
else
strcpy(tmpbuf,cmd_buf);
chdir(tmpbuf);
#ifdef VERBOSE
IF(verbose)
printf("\
Cannot make directory %s--\n\
articles will be saved to %s\n\
\n\
",cwd,tmpbuf) FLUSH;
ELSE
#endif
#ifdef TERSE
printf("\
Can't make %s--\n\
using %s\n\
\n\
",cwd,tmpbuf) FLUSH;
#endif
}
}
free(cwd);
getwd(tmpbuf);
if (eaccess(tmpbuf,2)) {
#ifdef VERBOSE
IF(verbose)
printf("\
Current directory %s is not writeable--\n\
articles will be saved to home directory\n\n\
",tmpbuf) FLUSH;
ELSE
#endif
#ifdef TERSE
printf("%s not writeable--using ~\n\n",tmpbuf) FLUSH;
#endif
strcpy(tmpbuf,homedir);
}
cwd = savestr(tmpbuf);
}