/* $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 authors 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 "util2.h"
#include "cache.h"
#include "head.h"
#include "only.h"
#include "term.h"
#include "trn.h"
#include "ng.h"
#include "ngdata.h"
#include "artstate.h"
#include "intrp.h"
#include "rt-page.h"
#include "rt-util.h"
#include "charsubst.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);
	emptyOnly = TRUE;
    }
    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
	    export("SAVEDIR",  upordown ? "%p/%c" : "%p" );
	    export("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';
		export(tmpbuf,s);
	    }
	    else
		export(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 && (actfp || mode == 'i');
	    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 'J':
	    s++;
	    if (*s == '=') s++;
	    if (isdigit(*s)) {
		change_join_subject_len(atoi(s));
		do {
		    s++;
		} while (isdigit(*s));
	    } else
		change_join_subject_len(upordown? 30 : 0);
	    break;
	case 'k':
	    kill_thru_kludge = upordown;
	    break;
	case 'K':
	    keep_the_group_static = upordown;
	    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 (isdigit(*s)) {
		marking_areas = atoi(s);
		do {
		    s++;
		} while (isdigit(*s));
	    } else
		marking_areas = HALFPAGE_MARKING;
	    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 (isdigit(*s)) {
		olden_days = atoi(s);
		do {
		    s++;
		} while (isdigit(*s));
	    } 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':
	    s++;
	    if (*s == '=') s++;
	    if (!upordown)
		auto_select_postings = 0;
	    else {
		switch (*s) {
		case '+':  case '.':  case 'p':
		    auto_select_postings = *s;
		    break;
		default:
		    auto_select_postings = '.';
		    break;
		}
	    }
	    break;
	case 'q':
	    quickstart = upordown;
	    break;
#ifdef CHARSUBST
        case 'Q':
	    s++;
	    if (*s == '=') s++;
	    if (*s)
		charsets = savestr(s);
	    break;
#endif
	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 'U':
	    unsafe_rc_saves = upordown;
	    break;
	case 'v':
#ifdef VERIFY
	    verify = upordown;
#else
	    notincl("-v");
#endif
	    break;
	case 'V':
	    trn_version();
	    putchar('\n');
	    if (mode == 'i')
		exit(0);
	    break;
	case 'x':
	    s++;
	    if (*s == '=') s++;
	    if (isdigit(*s)) {
		if ((max_tree_lines = atoi(s)) > 11)
		    max_tree_lines = 11;
		do {
		    s++;
		} while (isdigit(*s));
	    } else
		max_tree_lines = 6;
	    if (*s)
		strncpy(select_order, s, 3);
	    use_threads = upordown;
	    break;
	case 'X':
	    s++;
	    if (*s == '=') s++;
	    if (isdigit(*s)) {
		select_on = atoi(s);
		do {
		    s++;
		} while (isdigit(*s));
	    } else
		select_on = upordown;
	    if (*s)
		end_select = *s++;
	    if (*s)
		page_select = *s;
	    break;
	case 'z':
	    s++;
	    if (*s == '=') s++;
	    if (*s)
		actFetchTime = atoi(s) * 60L;
	    else
		actFetchTime = upordown * 5L * 60L;
	    break;
	case 'Z':
	    s++;
	    if (*s == '=') s++;
	    if (try_mt > 0)
		try_mt = 0;
	    if (try_ov > 0)
		try_ov = 0;
	    if (upordown) {
		while (*s) {
		    switch (*s++) {
		    case 'o':
			if (try_ov == 0)
			    try_ov = ((mode == 'i' || ov_init())? 1 : -1);
			break;
		    case 't':
			if (try_mt == 0)
			    try_mt = ((mode == 'i' || mt_init())? 1 : -1);
			break;
		    }
		}
	    }
	    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+1);
#endif
#ifdef EDIT_DISTANCE
    printf("%cG", mp[fuzzyGet]);
#endif
    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]);
    if (join_subject_len)
	printf("-J%d ", join_subject_len);
    else
	printf("+J ");
    printf("%ck ", mp[kill_thru_kludge]);
    printf("%cK ", mp[keep_the_group_static]);
    printf("%cl ", mp[muck_up_clear]);
#ifdef CLEAREOL
    printf("%cL ", mp[can_home_clear]);
#endif /* CLEAREOL */
    if (marking)
	printf("-m%d%c ",marking_areas,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 ");
    if (auto_select_postings)
	printf("-p%c ", auto_select_postings);
    else
	printf("+p ");
    printf("%cq ", mp[quickstart]);
#ifdef CHARSUBST
    printf("-Q%s ", charsets);
#endif
    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
    putchar('\n');
#ifdef VERBOSE
#ifdef TERSE
    printf("%ct ", mp[!verbose]);
#endif
#endif
    printf("%cT ", mp[typeahead]);
    printf("%cu ", mp[unbroken_subjects]);
    printf("%cU ", mp[unsafe_rc_saves]);
#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 ");
    if (actFetchTime)
	printf("-z%ld ",(long)actFetchTime / 60);
    else
	printf("+z ");
    if (try_mt > 0 || try_ov > 0) {
	printf("-Z");
	if (try_ov > 0)
	    putchar('o');
	if (try_mt > 0)
	    putchar('t');
	putchar(' ');
    } else
	printf("+Z ");
    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);
}