#! /bin/sh # Make a new directory for the rn sources, cd to it, and run kits 1 thru 10 # through sh. When all 10 kits have been run, read README. echo "This is rn kit 3 (of 10). If kit 3 is complete, the line" echo '"'"End of kit 3 (of 10)"'" will echo at the end.' echo "" export PATH || (echo "You didn't use sh, you clunch." ; kill $$) echo Extracting rcstuff.c cat >rcstuff.c <<'!STUFFY!FUNK!' /* $Id: rcstuff.c,v 4.4 1991/09/09 20:27:37 sob Exp sob $ * * $Log: rcstuff.c,v $ * Revision 4.4 1991/09/09 20:27:37 sob * release 4.4 * * * */ /* 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 "ngdata.h" #include "term.h" #include "final.h" #include "rn.h" #include "intrp.h" #include "only.h" #include "rcln.h" #ifdef SERVER #include "server.h" #endif #include "autosub.h" #include "INTERN.h" #include "rcstuff.h" char *rcname INIT(Nullch); /* path name of .newsrc file */ char *rctname INIT(Nullch); /* path name of temp .newsrc file */ char *rcbname INIT(Nullch); /* path name of backup .newsrc file */ char *softname INIT(Nullch); /* path name of .rnsoft file */ FILE *rcfp INIT(Nullfp); /* .newsrc file pointer */ static void grow_rc_arrays ANSI((int)); #ifdef HASHNG static int hashsiz; static short *hashtbl = NULL; #endif bool rcstuff_init() { register NG_NUM newng; register char *s; register int i; register bool foundany = FALSE; char *some_buf; long length; #ifdef SERVER char *cp; #endif /* SERVER */ bool found = FALSE; maxrcline = 1500; /* make filenames */ #ifdef SERVER if (cp = getenv("NEWSRC")) rcname = savestr(filexp(cp)); else rcname = savestr(filexp(RCNAME)); #else /* not SERVER */ rcname = savestr(filexp(RCNAME)); #endif /* SERVER */ rctname = savestr(filexp(RCTNAME)); rcbname = savestr(filexp(RCBNAME)); softname = savestr(filexp(SOFTNAME)); /* make sure the .newsrc file exists */ newsrc_check(); /* open .rnsoft file containing soft ptrs to active file */ tmpfp = fopen(softname,"r"); if (tmpfp == Nullfp) writesoft = TRUE; /* allocate memory for rc file globals */ #ifdef CACHEFIRST abs1st = (ART_NUM *) safemalloc(maxrcline * sizeof(ART_NUM)); for (i=0; i= maxrcline) { /* check for overflow */ maxrcline += 500; grow_rc_arrays( maxrcline ); } if (tmpfp != Nullfp && fgets(tmpbuf,10,tmpfp) != Nullch) softptr[newng] = atol(tmpbuf); else softptr[newng] = 0; some_buf[--length] = '\0'; /* wipe out newline */ if (checkflag) /* no extra mallocs for -c */ rcline[newng] = some_buf; else if (some_buf == buf) { rcline[newng] = savestr(some_buf); /* make a semipermanent copy */ } else { /*NOSTRICT*/ #ifndef lint some_buf = saferealloc(some_buf,(MEM_SIZE)(length+1)); #endif /* lint */ rcline[newng] = some_buf; } #ifdef NOTDEF if (strnEQ(some_buf,"to.",3)) { /* is this a non-newsgroup? */ nextrcline--; /* destroy this line */ continue; } #endif if (*some_buf == ' ' || *some_buf == '\t' || strnEQ(some_buf,"options",7)) { /* non-useful line? */ toread[newng] = TR_JUNK; rcchar[newng] = ' '; rcnums[newng] = 0; continue; } for (s = rcline[newng]; *s && *s != ':' && *s != NEGCHAR; s++) ; if (!*s && !checkflag) { #ifndef lint rcline[newng] = saferealloc(rcline[newng],(MEM_SIZE)length+2); #endif /* lint */ s = rcline[newng] + length; *s = ':'; *(s+1) = '\0'; } rcchar[newng] = *s; /* salt away the : or ! */ rcnums[newng] = (char)(s - rcline[newng]); rcnums[newng]++; /* remember where it was */ *s = '\0'; /* null terminate newsgroup name */ if (rcchar[newng] == NEGCHAR) { toread[newng] = TR_UNSUB; continue; } /* now find out how much there is to read */ if (!inlist(buf) || (suppress_cn && foundany && !paranoid)) toread[newng] = TR_NONE; /* no need to calculate now */ else set_toread(newng); #ifdef VERBOSE if (!checkflag && softmisses == 1) { softmisses++; /* lie a little */ fputs("(Revising soft pointers--be patient.)\n",stdout) FLUSH; } #endif if (toread[newng] > TR_NONE) { /* anything unread? */ if (!foundany) { starthere = newng; foundany = TRUE; /* remember that fact*/ } if (suppress_cn) { /* if no listing desired */ if (checkflag) { /* if that is all they wanted */ finalize(1); /* then bomb out */ } } else { #ifdef VERBOSE IF(verbose) printf("Unread news in %-40s %5ld article%s\n", rcline[newng],(long)toread[newng], toread[newng]==TR_ONE ? nullstr : "s") FLUSH; ELSE #endif #ifdef TERSE printf("%s: %ld article%s\n", rcline[newng],(long)toread[newng], toread[newng]==TR_ONE ? nullstr : "s") FLUSH; #endif if (int_count) { countdown = 1; int_count = 0; } if (countdown) { if (! --countdown) { fputs("etc.\n",stdout) FLUSH; if (checkflag) finalize(1); suppress_cn = TRUE; } } } } } fclose(rcfp); /* close .newsrc */ if (tmpfp != Nullfp) fclose(tmpfp); /* close .rnsoft */ if (checkflag) { /* were we just checking? */ finalize(foundany); /* tell them what we found */ } if (paranoid) cleanup_rc(); #ifdef HASHNG /* find a good hash size given num of newsgroups */ hashsiz = maxrcline * 1.15; if ((hashsiz & 1) == 0) /* must be odd */ hashsiz++; if (hashsiz <= activeitems) hashsiz = activeitems * 1.15; /* find one that's prime */ while (! found) { for (i=3; ; i+=2) { if ( (float)(hashsiz)/i == hashsiz/i ) break; if ( i > hashsiz/i ) { found = TRUE; break; } } if (! found) hashsiz += 2; } hashtbl = (short *) safemalloc( hashsiz * sizeof(short) ); for (i=0; i= maxrcline) { /* check for overflow */ maxrcline += 25; grow_rc_arrays( maxrcline ); } if ((softptr[ng] = findact(buf,ngname,strlen(ngname),0L)) < 0 ) { #endif /* SERVER */ dingaling(); #ifdef VERBOSE IF(verbose) printf("\nNewsgroup %s does not exist!\n",ngname) FLUSH; ELSE #endif #ifdef TERSE printf("\nNo %s!\n",ngname) FLUSH; #endif sleep(2); return FALSE; } autosub = auto_subscribe(ngname); if (!autosub) autosub = addnewbydefault; if (autosub) { printf("\n(Adding %s to end of your .newsrc %ssubscribed)\n", ngname, (autosub == ADDNEW_SUB) ? "" : "un"); ng = add_newsgroup(ngname, autosub); do_reloc = FALSE; } else { #ifdef VERBOSE IF(verbose) sprintf(promptbuf,"\nNewsgroup %s not in .newsrc--subscribe? [ynYN] ",ngname); ELSE #endif #ifdef TERSE sprintf(promptbuf,"\nSubscribe %s? [ynY] ",ngname); #endif reask_add: in_char(promptbuf,'A'); setdef(buf,"y"); #ifdef VERIFY printcmd(); #endif putchar('\n') FLUSH; if (*buf == 'h') { #ifdef VERBOSE IF(verbose) printf("Type y or SP to add %s to your .newsrc.\nType Y to add all new groups to the end of your .newsrc.\nType N to add all new groups to the end of your .newsrc unsubscribed.\n", ngname) FLUSH; ELSE #endif #ifdef TERSE fputs("y or SP to add, Y to add all new groups, N to add all new groups unsubscribed\n",stdout) FLUSH; #endif fputs(ntoforget,stdout) FLUSH; goto reask_add; } else if (*buf == 'n' || *buf == 'q') { ng = add_newsgroup(ngname, '!'); return FALSE; } else if (*buf == 'y') { ng = add_newsgroup(ngname, ':'); do_reloc = TRUE; } else if (*buf == 'Y') { fputs( "(I'll add all new newsgroups (subscribed) to the end of your .newsrc.)\n", stdout); addnewbydefault = ADDNEW_SUB; printf("(Adding %s to end of your .newsrc subscribed)\n", ngname); ng = add_newsgroup(ngname, ':'); do_reloc = FALSE; } else if (*buf == 'N') { fputs( "(I'll add all new newsgroups (unsubscribed) to the end of your .newsrc.)\n", stdout); addnewbydefault = ADDNEW_UNSUB; printf("(Adding %s to end of your .newsrc unsubscribed)\n", ngname); ng = add_newsgroup(ngname, '!'); do_reloc = FALSE; } else { fputs(hforhelp,stdout) FLUSH; settle_down(); goto reask_add; } } } else if (rcchar[ng] == NEGCHAR) { /* unsubscribed? */ #ifdef VERBOSE IF(verbose) sprintf(promptbuf, "\nNewsgroup %s is currently unsubscribed to--resubscribe? [yn] ",ngname) FLUSH; ELSE #endif #ifdef TERSE sprintf(promptbuf,"\n%s unsubscribed--resubscribe? [yn] ",ngname) FLUSH; #endif reask_unsub: in_char(promptbuf,'R'); setdef(buf,"y"); #ifdef VERIFY printcmd(); #endif putchar('\n') FLUSH; if (*buf == 'h') { #ifdef VERBOSE IF(verbose) printf("Type y or SP to resubscribe to %s.\n", ngname) FLUSH; ELSE #endif #ifdef TERSE fputs("y or SP to resubscribe.\n",stdout) FLUSH; #endif fputs(ntoforget,stdout) FLUSH; goto reask_unsub; } else if (*buf == 'n' || *buf == 'q') { return FALSE; } else if (*buf == 'y') { rcchar[ng] = ':'; } else { fputs(hforhelp,stdout) FLUSH; settle_down(); goto reask_unsub; } } /* now calculate how many unread articles in newsgroup */ set_toread(ng); #ifdef RELOCATE if (do_reloc) ng = relocate_newsgroup(ng,-1); #endif return toread[ng] >= TR_NONE; } /* add a newsgroup to the .newsrc file (eventually) */ NG_NUM add_newsgroup(ngn, c) char *ngn, c; { register NG_NUM newng = nextrcline++; /* increment max rcline index */ if (newng >= maxrcline) { /* check for overflow */ maxrcline += 25; grow_rc_arrays( maxrcline ); } rcnums[newng] = strlen(ngn) + 1; rcline[newng] = safemalloc((MEM_SIZE)(rcnums[newng] + 1)); strcpy(rcline[newng],ngn); /* and copy over the name */ *(rcline[newng] + rcnums[newng]) = '\0'; rcchar[newng] = c; /* subscribe or unsubscribe */ toread[newng] = TR_NONE; /* just for prettiness */ #ifdef HASHNG sethash(newng); /* so we can find it again */ #endif return newng; } #ifdef RELOCATE NG_NUM relocate_newsgroup(ngx,newng) NG_NUM ngx; NG_NUM newng; { char *dflt = (ngx!=current_ng ? "$^.L" : "$^L"); char *tmprcline; ART_UNREAD tmptoread; char tmprcchar; char tmprcnums; ACT_POS tmpsoftptr; register NG_NUM i; #ifdef DEBUGGING ART_NUM tmpngmax; #endif #ifdef CACHEFIRST ART_NUM tmpabs1st; #endif starthere = 0; /* Disable this optimization */ writesoft = TRUE; /* Update soft pointer file */ if (ngx < nextrcline-1) { #ifdef HASHNG for (i=0; i ngx) --hashtbl[i]; else if (hashtbl[i] == ngx) hashtbl[i] = nextrcline-1; } #endif tmprcline = rcline[ngx]; tmptoread = toread[ngx]; tmprcchar = rcchar[ngx]; tmprcnums = rcnums[ngx]; tmpsoftptr = softptr[ngx]; #ifdef DEBUGGING tmpngmax = ngmax[ngx]; #endif #ifdef CACHEFIRST tmpabs1st = abs1st[ngx]; #endif for (i=ngx+1; i ngx) current_ng--; if (newng < 0) { reask_reloc: unflush_output(); /* disable any ^O in effect */ #ifdef VERBOSE IF(verbose) printf("\nPut newsgroup where? [%s] ", dflt); ELSE #endif #ifdef TERSE printf("\nPut where? [%s] ", dflt); #endif fflush(stdout); reinp_reloc: eat_typeahead(); getcmd(buf); if (errno || *buf == '\f') { /* if return from stop signal */ goto reask_reloc; /* give them a prompt again */ } setdef(buf,dflt); #ifdef VERIFY printcmd(); #endif if (*buf == 'h') { #ifdef VERBOSE IF(verbose) { printf("\n\n\ Type ^ to put the newsgroup first (position 0).\n\ Type $ to put the newsgroup last (position %d).\n", nextrcline-1); printf("\ Type . to put it before the current newsgroup (position %d).\n", current_ng); printf("\ Type -newsgroup name to put it before that newsgroup.\n\ Type +newsgroup name to put it after that newsgroup.\n\ Type a number between 0 and %d to put it at that position.\n", nextrcline-1); printf("\ Type L for a listing of newsgroups and their positions.\n") FLUSH; } ELSE #endif #ifdef TERSE { printf("\n\n\ ^ to put newsgroup first (pos 0).\n\ $ to put last (pos %d).\n", nextrcline-1); printf("\ . to put before current newsgroup (pos %d).\n", current_ng); printf("\ -newsgroup to put before newsgroup.\n\ +newsgroup to put after.\n\ number in 0-%d to put at that pos.\n", nextrcline-1); printf("\ L for list of .newsrc.\n") FLUSH; } #endif goto reask_reloc; } else if (*buf == 'L') { putchar('\n') FLUSH; list_newsgroups(); goto reask_reloc; } else if (isdigit(*buf)) { if (!finish_command(TRUE)) /* get rest of command */ goto reinp_reloc; newng = atol(buf); if (newng < 0) newng = 0; if (newng >= nextrcline) return nextrcline-1; } else if (*buf == '^') { putchar('\n') FLUSH; newng = 0; } else if (*buf == '$') { newng = nextrcline-1; } else if (*buf == '.') { putchar('\n') FLUSH; newng = current_ng; } else if (*buf == '-' || *buf == '+') { if (!finish_command(TRUE)) /* get rest of command */ goto reinp_reloc; newng = find_ng(buf+1); if (newng == nextrcline) { fputs("Not found.",stdout) FLUSH; goto reask_reloc; } if (*buf == '+') newng++; } else { printf("\n%s",hforhelp) FLUSH; settle_down(); goto reask_reloc; } } if (newng < nextrcline-1) { #ifdef HASHNG for (i=0; i= newng) ++hashtbl[i]; } #endif tmprcline = rcline[nextrcline-1]; tmptoread = toread[nextrcline-1]; tmprcchar = rcchar[nextrcline-1]; tmprcnums = rcnums[nextrcline-1]; tmpsoftptr = softptr[nextrcline-1]; #ifdef DEBUGGING tmpngmax = ngmax[nextrcline-1]; #endif #ifdef CACHEFIRST tmpabs1st = abs1st[nextrcline-1]; #endif for (i=nextrcline-2; i>=newng; i--) { rcline[i+1] = rcline[i]; toread[i+1] = toread[i]; rcchar[i+1] = rcchar[i]; rcnums[i+1] = rcnums[i]; softptr[i+1] = softptr[i]; #ifdef DEBUGGING ngmax[i+1] = ngmax[i]; #endif #ifdef CACHEFIRST abs1st[i+1] = abs1st[i]; #endif } rcline[newng] = tmprcline; toread[newng] = tmptoread; rcchar[newng] = tmprcchar; rcnums[newng] = tmprcnums; softptr[newng] = tmpsoftptr; #ifdef DEBUGGING ngmax[newng] = tmpngmax; #endif #ifdef CACHEFIRST abs1st[newng] = tmpabs1st; #endif } if (current_ng >= newng) current_ng++; return newng; } #endif /* List out the newsrc with annotations */ void list_newsgroups() { register NG_NUM i; char tmpbuf[2048]; static char *status[] = {"(READ)","(UNSUB)","(BOGUS)","(JUNK)"}; int cmd; page_init(); print_lines("\ # Status Newsgroup\n\ ",STANDOUT); for (i=0; i= 0) set_toread(i); *(rcline[i] + rcnums[i] - 1) = rcchar[i]; if (toread[i] > 0) sprintf(tmpbuf,"%3d %6ld ",i,(long)toread[i]); else sprintf(tmpbuf,"%3d %7s ",i,status[-toread[i]]); safecpy(tmpbuf+13,rcline[i],2034); *(rcline[i] + rcnums[i] - 1) = '\0'; if (cmd = print_lines(tmpbuf,NOMARKING)) { if (cmd > 0) pushchar(cmd); break; } } int_count = 0; } /* find a newsgroup in .newsrc */ NG_NUM find_ng(ngnam) char *ngnam; { register NG_NUM ngnum; #ifdef HASHNG register int hashix = hash(ngnam); register int incr = 1; while ((ngnum = hashtbl[hashix]) >= 0) { if (strEQ(rcline[ngnum], ngnam) && toread[ngnum] >= TR_UNSUB) return ngnum; hashix = (hashix + incr) % hashsiz; incr += 2; /* offsets from original are in n*2 */ } return nextrcline; /* = notfound */ #else /* just do linear search */ for (ngnum = 0; ngnum < nextrcline; ngnum++) { if (strEQ(rcline[ngnum],ngnam)) break; } return ngnum; #endif } void cleanup_rc() { register NG_NUM ngx; register NG_NUM bogosity = 0; #ifdef VERBOSE IF(verbose) fputs("Checking out your .newsrc--hang on a second...\n",stdout) FLUSH; ELSE #endif #ifdef TERSE fputs("Checking .newsrc--hang on...\n",stdout) FLUSH; #endif for (ngx = 0; ngx < nextrcline; ngx++) { if (toread[ngx] >= TR_UNSUB) { set_toread(ngx); /* this may reset newsgroup */ /* or declare it bogus */ } if (toread[ngx] == TR_BOGUS) bogosity++; } for (ngx = nextrcline-1; ngx >= 0 && toread[ngx] == TR_BOGUS; ngx--) bogosity--; /* discount already moved ones */ if (nextrcline > 5 && bogosity > nextrcline / 2) { fputs( "It looks like the active file is messed up. Contact your news administrator,\n\ ",stdout); fputs( "leave the \"bogus\" groups alone, and they may come back to normal. Maybe.\n\ ",stdout) FLUSH; } #ifdef RELOCATE else if (bogosity) { #ifdef VERBOSE IF(verbose) fputs("Moving bogus newsgroups to the end of your .newsrc.\n", stdout) FLUSH; ELSE #endif #ifdef TERSE fputs("Moving boguses to the end.\n",stdout) FLUSH; #endif for (; ngx >= 0; ngx--) { if (toread[ngx] == TR_BOGUS) relocate_newsgroup(ngx,nextrcline-1); } #ifdef DELBOGUS reask_bogus: in_char("Delete bogus newsgroups? [ny] ", 'D'); setdef(buf,"n"); #ifdef VERIFY printcmd(); #endif putchar('\n') FLUSH; if (*buf == 'h') { #ifdef VERBOSE IF(verbose) fputs("\ Type y to delete bogus newsgroups.\n\ Type n or SP to leave them at the end in case they return.\n\ ",stdout) FLUSH; ELSE #endif #ifdef TERSE fputs("y to delete, n to keep\n",stdout) FLUSH; #endif goto reask_bogus; } else if (*buf == 'n' || *buf == 'q') ; else if (*buf == 'y') { while (toread[nextrcline-1] == TR_BOGUS && nextrcline > 0) --nextrcline; /* real tough, huh? */ } else { fputs(hforhelp,stdout) FLUSH; settle_down(); goto reask_bogus; } #endif } #else #ifdef VERBOSE IF(verbose) fputs("You should edit bogus newsgroups out of your .newsrc.\n", stdout) FLUSH; ELSE #endif #ifdef TERSE fputs("Edit boguses from .newsrc.\n",stdout) FLUSH; #endif #endif paranoid = FALSE; } #ifdef HASHNG /* make an entry in the hash table for the current newsgroup */ void sethash(thisng) NG_NUM thisng; { register int hashix = hash(rcline[thisng]); register int incr = 1; #ifdef DEBUGGING static int hashhits = 0, hashtries = 0; #endif #ifdef DEBUGGING hashtries++; #endif while (hashtbl[hashix] >= 0) { #ifdef DEBUGGING hashhits++; if (debug & DEB_HASH) { printf(" Hash hits: %d / %d\n",hashhits, hashtries) FLUSH; } hashtries++; #endif hashix = (hashix + incr) % hashsiz; incr += 2; /* offsets from original are in n*2 */ } hashtbl[hashix] = thisng; } short prime[] = {1,2,-3,-5,7,11,-13,-17,19,23,-29,-31,37,41,-43,-47,53,57,-59, -61,67,71,-73,-79,83,89,-97,-101,1,1,1,1,1,1,1,1,1,1,1,1}; int hash(ngnam) register char *ngnam; { register int i = 0; register int ch; register int sum = 0; #ifdef DEBUGGING char *ngn = ngnam; #endif while (ch = *ngnam++) { sum += (ch + i) * prime[i]; /* gives ~ 10% hits at 25% full */ i++; } #ifdef DEBUGGING if (debug & DEB_HASH) printf("hash(%s) => %d => %d\n",ngn, sum, (sum<0?-sum:sum)%hashsiz) FLUSH; #endif if (sum < 0) sum = -sum; return (sum % hashsiz); } #endif void newsrc_check() { rcfp = fopen(rcname,"r"); /* open it */ if (rcfp == Nullfp) { /* not there? */ #ifdef VERBOSE IF(verbose) fputs("\nTrying to set up a .newsrc file--running newsetup...\n\n\ ",stdout) FLUSH; ELSE #endif #ifdef TERSE fputs("Setting up .newsrc...\n",stdout) FLUSH; #endif if (doshell(sh,filexp(NEWSETUP)) || (rcfp = fopen(rcname,"r")) == Nullfp) { #ifdef VERBOSE IF(verbose) fputs("\nCan't create a .newsrc--you must do it yourself.\n\ ",stdout) FLUSH; ELSE #endif #ifdef TERSE fputs("(Fatal)\n",stdout) FLUSH; #endif finalize(1); } } else { UNLINK(rcbname); /* unlink backup file name */ link(rcname,rcbname); /* and backup current name */ } } /* write out the (presumably) revised .newsrc */ void write_rc() { register NG_NUM tmpng; register char *delim; rcfp = fopen(rctname, "w"); /* open .newsrc */ if (rcfp == Nullfp) { printf("Can't recreate .newsrc\n") FLUSH; finalize(1); } if (stat(rcname,&filestat)>=0) { /* preserve permissions */ chmod(rctname,filestat.st_mode&0666); chown(rctname,filestat.st_uid,filestat.st_gid); /* if possible */ } /* write out each line*/ for (tmpng = 0; tmpng < nextrcline; tmpng++) { if (rcnums[tmpng]) { delim = rcline[tmpng] + rcnums[tmpng] - 1; *delim = rcchar[tmpng]; } else delim = Nullch; #ifdef DEBUGGING if (debug & DEB_NEWSRC_LINE) printf("%s\n",rcline[tmpng]) FLUSH; #endif if (fprintf(rcfp,"%s\n",rcline[tmpng]) < 0){ printf("Can't recreate .newsrc\n") FLUSH; fclose(rcfp); /* close .newsrc */ UNLINK(rctname); finalize(1); } ; if (delim) *delim = '\0'; /* might still need this line */ } fclose(rcfp); /* close .newsrc */ UNLINK(rcname); link(rctname,rcname); UNLINK(rctname); if (writesoft) { tmpfp = fopen(filexp(softname), "w"); /* open .rnsoft */ if (tmpfp == Nullfp) { printf(cantcreate,filexp(softname)) FLUSH; return; } for (tmpng = 0; tmpng < nextrcline; tmpng++) { fprintf(tmpfp,"%ld\n",(long)softptr[tmpng]); } fclose(tmpfp); } } void get_old_rc() { UNLINK(rctname); #ifdef RENAME rename(rcname,rctname); rename(rcbname,rcname); #else link(rcname,rctname); UNLINK(rcname); link(rcbname,rcname); UNLINK(rcbname); #endif } static void grow_rc_arrays( newsize ) int newsize; { #ifdef CACHEFIRST abs1st = (ART_NUM *) saferealloc(abs1st, newsize * sizeof(ART_NUM)); #endif #if defined(DEBUGGING) ngmax = (ART_NUM *) saferealloc(ngmax, newsize * sizeof(ART_NUM)); #endif rcline = (char **) saferealloc(rcline, newsize * sizeof(char*)); toread = (ART_UNREAD *) saferealloc(toread, newsize * sizeof(ART_UNREAD)); rcchar = (char *) saferealloc(rcchar, newsize * sizeof(char)); rcnums = (char *) saferealloc(rcnums, newsize * sizeof(char)); softptr = (ACT_POS *) saferealloc(softptr, newsize * sizeof(ACT_POS)); return; } !STUFFY!FUNK! echo Extracting common.h cat >common.h <<'!STUFFY!FUNK!' /* $Id: common.h,v 4.4 1991/09/09 20:18:23 sob Exp sob $ * * $Log: common.h,v $ * Revision 4.4 1991/09/09 20:18:23 sob * release 4.4 * * * */ /* 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 #include #include #include #include "config.h" /* generated by installation script */ #ifdef WHOAMI # include #endif #ifndef isalnum # define isalnum(c) (isalpha(c) || isdigit(c)) #endif #include #include #ifdef IOCTL #include #endif #ifdef SUNOS4 # ifdef sparc /* needed to support vfork call on sparc machines */ # include # endif #endif #ifdef FCNTL # include #endif #ifdef TERMIO # include #else # include #endif #ifdef GETPWENT # include #endif #ifdef PTEM #include #include #endif #define BITSPERBYTE 8 #ifdef pdp11 #define LBUFLEN 512 /* line buffer length */ #else #define LBUFLEN 1024 /* line buffer length */ #endif /* (don't worry, .newsrc lines can exceed this) */ #ifdef pdp11 # define CBUFLEN 256 /* command buffer length */ # define PUSHSIZE 128 #else # define CBUFLEN 512 /* command buffer length */ # define PUSHSIZE 256 #endif #ifdef pdp11 # define MAXFILENAME 128 #else # define MAXFILENAME 512 #endif #define LONGKEY 15 /* longest keyword: currently "posting-version" */ #define FINISHCMD 0177 /* some handy defs */ #define bool char #ifndef TRUE #define TRUE (1) #endif #ifndef FALSE #define FALSE (0) #endif #define Null(t) ((t)0) #define Nullch Null(char *) #define Nullfp Null(FILE *) #define Ctl(ch) (ch & 037) #define strNE(s1,s2) (strcmp(s1,s2)) #define strEQ(s1,s2) (!strcmp(s1,s2)) #define strnNE(s1,s2,l) (strncmp(s1,s2,l)) #define strnEQ(s1,s2,l) (!strncmp(s1,s2,l)) /* Things we can figure out ourselves */ #ifdef SIGTSTP # define BERKELEY /* include job control signals? */ #endif #ifdef FIONREAD # define PENDING #else # ifdef O_NDELAY # define PENDING # endif #endif #ifdef EUNICE # define LINKART /* add 1 level of possible indirection */ # define UNLINK(victim) while (!unlink(victim)) #else # define UNLINK(victim) unlink(victim) #endif /* Valid substitutions for strings marked with % comment are: * %a Current article number * %A Full name of current article (%P/%c/%a) * (if LINKART defined, is the name of the real article) * %b Destination of a save command, a mailbox or command * %B The byte offset to the beginning of the article for saves * with or without the header * %c Current newsgroup, directory form * %C Current newsgroup, dot form * %d %P/%c * %D Old Distribution: line * %f Old From: line or Reply-To: line * %F Newsgroups to followup to from Newsgroups: and Followup-To: * %h Name of header file to pass to mail or news poster * %H Host name (yours) * %i Old Message-I.D.: line, with <> * %I Inclusion indicator * %l News administrator login name * %L Login name (yours) * %M Number of articles markd with M * %n Newsgroups from source article * %N Full name (yours) * %o Organization (yours) * %O Original working directory (where you ran rn from) * %p Your private news directory (-d switch) * %P Public news spool directory (SPOOLDIR) * %r Last reference (parent article id) * %R New references list * %s Subject, with all Re's and (nf)'s stripped off * %S Subject, with one Re stripped off * %t New To: line derived from From: and Reply-To (Internet always) * %T New To: line derived from Path: * %u Number of unread articles * %U Number of unread articles disregarding current article * %x News library directory, usually /usr/lib/news * %X Rn library directory, usually %x/rn * %z Size of current article in bytes. * %~ Home directory * %. Directory containing . files * %$ current process number * %{name} Environment variable "name". %{name-default} form allowed. * %[name] Header line beginning with "Name: ", without "Name: " * %"prompt" * Print prompt and insert what is typed. * %`command` * Insert output of command. * %(test_text=pattern?if_text:else_text) * Substitute if_text if test_text matches pattern, otherwise * substitute else_text. Use != for negated match. * % substitutions are done on test_text, if_text, and else_text. * (Note: %() only works if CONDSUB defined.) * %digit Substitute the text matched by the nth bracket in the last * pattern that had brackets. %0 matches the last bracket * matched, in case you had alternatives. * * Put ^ in the middle to capitalize the first letter: %^C = Net.jokes * Put _ in the middle to capitalize last component: %_c = net/Jokes * * ~ interpretation in filename expansion happens after % expansion, so * you could put ~%{NEWSLOGNAME-news} and it will expand correctly. */ /* *** System Dependent Stuff *** */ /* NOTE: many of these are defined in the config.h file */ /* name of organization */ #ifndef ORGNAME # define ORGNAME "ACME Widget Company, Widget Falls, Southern North Dakota" #endif #ifndef MBOXCHAR # define MBOXCHAR 'F' /* how to recognize a mailbox by 1st char */ #endif #ifndef ROOTID # define ROOTID 0 /* uid of superuser */ #endif #ifdef NORMSIG # define sigset signal # define sigignore(sig) signal(sig,SIG_IGN) #endif #ifndef LOGDIRFIELD # define LOGDIRFIELD 6 /* Which field (origin 1) is the */ /* login directory in /etc/passwd? */ /* (If it is not kept in passwd, */ /* but getpwnam() returns it, */ /* define the symbol GETPWENT) */ #endif #ifndef GCOSFIELD # define GCOSFIELD 5 #endif #ifndef NEGCHAR # define NEGCHAR '!' #endif /* Space conservation section */ /* To save D space, cut down size of NGMAX and VARYSIZE. */ #define NGMAX 100 /* number of newsgroups allowed on command line */ /* undefine ONLY symbol to disable "only" feature */ #define VARYSIZE 256 /* this makes a block 1024 bytes long in DECville */ /* (used by virtual array routines) */ /* Undefine any of the following features to save both I and D space */ /* In general, earlier ones are easier to get along without */ /* Pdp11's without split I and D may have to undefine them all */ #define DEBUGGING /* include debugging code */ #define CUSTOMLINES /* include code for HIDELINE and PAGESTOP */ #define PUSHBACK /* macros and keymaps using pushback buffer */ #define SPEEDOVERMEM /* use more memory to run faster */ #define WORDERASE /* enable ^W to erase a word */ #define MAILCALL /* check periodically for mail */ #define CLEAREOL /* use clear to end-of-line instead of clear screen */ #define NOFIREWORKS /* keep whole screen from flashing on certain */ /* terminals such as older Televideos */ #define VERIFY /* echo the command they just typed */ #define HASHNG /* hash newsgroup lines for fast lookup-- */ /* linear search used if not defined */ #define CONDSUB /* allow %(cond?text:text) */ #define BACKTICK /* allow %`command` */ #define PROMPTTTY /* allow %"prompt" */ #define ULSMARTS /* catch _^H in text and do underlining */ #define TERMMOD /* allow terminal type modifier on switches */ #define BAUDMOD /* allow baudrate modifier on switches */ #define GETLOGIN /* use getlogin() routine as backup to environment */ /* variables USER or LOGNAME */ #define ORGFILE /* if organization begins with /, look up in file */ #define TILDENAME /* allow ~logname expansion */ #define SETENV /* allow command line environment variable setting */ #define MAKEDIR /* use our makedir() instead of shell script */ #define MEMHELP /* keep help messages in memory */ #define VERBOSE /* compile in more informative messages */ #define TERSE /* compile in shorter messages */ /* (Note: both VERBOSE and TERSE can be defined; -t * sets terse mode. One or the other MUST be defined. */ #ifndef pdp11 # define CACHESUBJ /* cache subject lines in memory */ /* without this ^N still works but runs really slow */ /* but you save lots and lots of D space */ # define CACHEFIRST /* keep absolute first article numbers in memory */ /* cost: about 2k */ #endif #define ROTATION /* enable x, X and ^X commands to work */ #define DELBOGUS /* ask if bogus newsgroups should be deleted */ #define RELOCATE /* allow newsgroup rearranging */ #define ESCSUBS /* escape substitutions in multi-character commands */ #define DELAYMARK /* allow articles to be temporarily marked as read */ /* until exit from current newsgroup or Y command */ #define MCHASE /* unmark xrefed articles on m or M */ #define MUNGHEADER /* allow alternate header formatting via */ /* environment variable ALTHEADER (not impl) */ #define ASYNC_PARSE /* allow parsing headers asyncronously to reading */ /* used by MCHASE and MUNGHEADER */ #define FINDNEWNG /* check for new newsgroups on startup */ #define FASTNEW /* do optimizations on FINDNEWNG for faster startup */ /* (this optimization can make occasional mistakes */ /* if a group is removed and another group of the */ /* same length is added, and if no softpointers are */ /* affected by said change.) */ #define INNERSEARCH /* search command 'g' with article */ #define CATCHUP /* catchup command at newsgroup level */ #define NGSEARCH /* newsgroup pattern matching */ #define ONLY /* newsgroup restrictions by pattern */ #define KILLFILES /* automatic article killer files */ #define ARTSEARCH /* pattern searches among articles */ /* /, ?, ^N, ^P, k, K */ /* some dependencies among options */ #ifndef ARTSEARCH # undef KILLFILES # undef INNERSEARCH # undef CACHESUBJ #endif #ifndef DELAYMARK # ifndef MCHASE # ifndef MUNGHEADER # undef ASYNC_PARSE # endif # endif #endif #ifndef SETUIDGID # define eaccess access #endif #ifdef ONLY /* idiot lint doesn't grok #if */ # define NGSORONLY #else # ifdef NGSEARCH # define NGSORONLY # endif #endif #ifdef VERBOSE # ifdef TERSE # define IF(c) if (c) # define ELSE else # else # define IF(c) # define ELSE # endif #else /* !VERBOSE */ # ifndef TERSE # define TERSE # endif # define IF(c) "IF" outside of VERBOSE??? # define ELSE "ELSE" outside of VERBOSE??? #endif #ifdef DEBUGGING # define assert(ex) {if (!(ex)){fprintf(stderr,"Assertion failed: file %s, line %d\n", __FILE__, __LINE__);sig_catcher(0);}} #else # define assert(ex) ; #endif #ifdef SPEEDOVERMEM # define OFFSET(x) (x) #else # define OFFSET(x) ((x)-absfirst) #endif /* If you're strapped for space use the help messages in shell scripts */ /* if {NG,ART,PAGER,SUBS}HELP is undefined, help messages are in memory */ #ifdef MEMHELP /* undef MEMHELP above to get them all as sh scripts */ # undef NGHELP # undef ARTHELP # undef PAGERHELP # undef SUBSHELP #else # ifndef NGHELP /* % and ~ */ # define NGHELP "%X/ng.help" # endif # ifndef ARTHELP /* % and ~ */ # define ARTHELP "%X/art.help" # endif # ifndef PAGERHELP /* % and ~ */ # define PAGERHELP "%X/pager.help" # endif # ifndef SUBSHELP /* % and ~ */ # define SUBSHELP "%X/subs.help" # endif #endif #ifdef CLEAREOL # define TCSIZE 512 /* capacity for termcap strings */ #else # ifdef pdp11 # define TCSIZE 256 /* capacity for termcap strings */ # else # define TCSIZE 512 /* capacity for termcap srings */ # endif #endif /* Additional ideas: * Make the do_newsgroup() routine a separate process. * Keep .newsrc on disk instead of in memory. * Overlays, if you have them. * Get a bigger machine. */ /* End of Space Conservation Section */ /* More System Dependencies */ /* news library */ #ifndef LIB /* ~ and %l only ("~%l" is permissable) */ # define LIB "/usr/lib/news" #endif /* path to private executables */ #ifndef RNLIB /* ~, %x and %l only */ # define RNLIB "%x/rn" #endif /* system-wide RNINIT switches */ #ifndef GLOBINIT # define GLOBINIT "%X/INIT" #endif /* where to find news files */ #ifndef SPOOL /* % and ~ */ # define SPOOL "/usr/spool/news" #endif /* file containing list of active newsgroups and max article numbers */ #ifndef ACTIVE /* % and ~ */ # define ACTIVE "%x/active" #endif /* location of history file */ #ifndef ARTFILE /* % and ~ */ # define ARTFILE "%x/history" #endif /* command to setup a new .newsrc */ #ifndef NEWSETUP /* % and ~ */ # define NEWSETUP "newsetup" #endif /* command to display a list of un-subscribed-to newsgroups */ #ifndef NEWSGROUPS /* % and ~ */ # define NEWSGROUPS "newsgroups" #endif /* preferred shell for use in doshell routine */ /* ksh or sh would be okay here */ #ifndef PREFSHELL # define PREFSHELL "/bin/csh" #endif /* path to fastest starting shell */ #ifndef SH # define SH "/bin/sh" #endif /* default unshar'ing program */ #ifndef UNSHAR # define UNSHAR "/bin/sh" #endif /* path to default editor */ #ifndef DEFEDITOR # define DEFEDITOR "/usr/ucb/vi" #endif /* location of macro file */ #ifndef RNMACRO # ifdef PUSHBACK # define RNMACRO "%./.rnmac" # endif #endif /* location of full name */ #ifndef FULLNAMEFILE # ifndef PASSNAMES # define FULLNAMEFILE "%./.fullname" # endif #endif /* virtual array file name template */ #ifndef VARYNAME /* % and ~ */ # define VARYNAME "/tmp/rnvary.%$" #endif /* where to compile a new newsgroup list */ #ifndef RNEWNAME # define RNEWNAME "/tmp/rnew.%$" #endif /* file to pass header to followup article poster */ #ifndef HEADNAME /* % and ~ */ # define HEADNAME "%./.rnhead" /* or alternately #define HEADNAME "/tmp/rnhead.%$" */ #endif #ifndef MAKEDIR /* shell script to make n-deep subdirectories */ # ifndef DIRMAKER /* % and ~ */ # define DIRMAKER "%X/makedir" # endif #endif /* location of newsrc file */ #ifndef RCNAME /* % and ~ */ # define RCNAME "%./.newsrc" #endif /* temporary newsrc file in case we crash while writing out */ #ifndef RCTNAME /* % and ~ */ # define RCTNAME "%./.newnewsrc" #endif /* newsrc file at the beginning of this session */ #ifndef RCBNAME /* % and ~ */ # define RCBNAME "%./.oldnewsrc" #endif /* if existent, contains process number of current or crashed rn */ #ifndef LOCKNAME /* % and ~ */ # define LOCKNAME "%./.rnlock" #endif /* information from last invocation of rn */ #ifndef LASTNAME /* % and ~ */ # define LASTNAME "%./.rnlast" #endif /* file with soft pointers into the active file */ #ifndef SOFTNAME /* % and ~ */ # define SOFTNAME "%./.rnsoft" #endif /* list of article numbers to mark as unread later (see M and Y cmmands) */ #ifndef RNDELNAME /* % and ~ */ # define RNDELNAME "%./.rndelay" #endif /* a motd-like file for rn */ #ifndef NEWSNEWSNAME /* % and ~ */ # define NEWSNEWSNAME "%X/newsnews" #endif /* command to send a reply */ #ifndef MAILPOSTER /* % and ~ */ # define MAILPOSTER "Rnmail -h %h" #endif #ifdef INTERNET # ifndef MAILHEADER /* % */ # ifdef CONDSUB # define MAILHEADER "To: %t\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\n%(%[references]!=^$?References\\: %[references]\n)Organization: %o\nCc: \nBcc: \n\n" # else # define MAILHEADER "To: %t\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\nReferences: %[references]\nCc: \nBcc: \n\n" # endif # endif #else # ifndef MAILHEADER /* % */ # ifdef CONDSUB # define MAILHEADER "To: %T\nSubject: %(%i=^$?:Re: %S\nNewsgroups: %n\nIn-Reply-To: %i)\n%(%[references]!=^$?References\\: %[references]\n)Organization: %o\nCc: \nBcc: \n\n" # else # define MAILHEADER "To: %T\nSubject: Re: %S\nNewsgroups: %n\nIn-Reply-To: %i\nReferences: %[references]\nCc: \nBcc: \n\n" # endif # endif #endif #ifndef YOUSAID /* % */ # define YOUSAID "In article %i you write:" #endif /* command to submit a followup article */ #ifndef NEWSPOSTER /* % and ~ */ # define NEWSPOSTER "Pnews -h %h" #endif #ifndef NEWSHEADER /* % */ # ifdef CONDSUB #ifdef INTERNET # define NEWSHEADER "Newsgroups: %(%F=^$?%C:%F)\nSubject: %(%S=^$?%\"\n\nSubject: \":Re: %S)\nSummary: \nExpires: \n%(%R=^$?:References: %R\n)Sender: \nFollowup-To: \nDistribution: %(%i=^$?%\"Distribution: \":%D)\nOrganization: %o\nKeywords: %[keywords]\n\n" #else # define NEWSHEADER "Newsgroups: %(%F=^$?%C:%F)\nSubject: %(%S=^$?%\"\n\nSubject: \":Re: %S)\nSummary: \nExpires: \n%(%R=^$?:References: %R\n)Sender: \nFollowup-To: \nDistribution: %(%i=^$?%\"Distribution: \":%D)\nOrganization: %o\nKeywords: %[keywords]\n\n" #endif # else # ifdef INTERNET # define NEWSHEADER "Newsgroups: %F\nSubject: Re: %S\nSummary: \nExpires: \nReferences: %R\nSender: \nFollowup-To: \nDistribution: %D\nOrganization: %o\nKeywords: %[keywords]\n\n" # else # define NEWSHEADER "Newsgroups: %F\nSubject: Re: %S\nSummary: \nExpires: \nReferences: %R\nSender: \nFollowup-To: \nDistribution: %D\nOrganization: %o\nKeywords: %[keywords]\n\n" # endif # endif #endif #ifndef ATTRIBUTION /* % */ # define ATTRIBUTION "In article %i %f writes:" #endif #ifndef PIPESAVER /* % */ # ifdef CONDSUB # ifdef SERVER # define PIPESAVER "%(%B=^0$?<%P/rrn%a.%$:tail +%Bc %P/rrn%a.%$ |) %b" # else # define PIPESAVER "%(%B=^0$?<%A:tail +%Bc %A |) %b" # endif # else # ifdef SERVER # define PIPESAVER "tail +%Bc %P/rrn%a.%$ | %b" # else # define PIPESAVER "tail +%Bc %A | %b" # endif # endif #endif #ifndef EXSAVER # ifdef SERVER # define EXSAVER "tail +%Bc %P/rrn%a.%$ | %e" # else # define EXSAVER "tail +%Bc %A | %e" # endif #endif #ifndef NORMSAVER /* % and ~ */ # ifdef SERVER # define NORMSAVER "%X/norm.saver %P/rrn%a.%$ %P %c %a %B %C \"%b\"" # else # define NORMSAVER "%X/norm.saver %A %P %c %a %B %C \"%b\"" # endif #endif #ifndef MBOXSAVER /* % and ~ */ # ifdef MININACT /* 2.10.2 site? */ # ifdef SERVER # define MBOXSAVER "%X/mbox.saver %P/rrn%a.%$ %P %c %a %B %C \"%b\" \"From %T %`date`\"" # else # define MBOXSAVER "%X/mbox.saver %A %P %c %a %B %C \"%b\" \"From %T %`date`\"" # endif # else # ifdef CONDSUB # ifdef SERVER # define MBOXSAVER "%X/mbox.saver %P/rrn%a.%$ %P %c %a %B %C \"%b\" \"From %T %(%[date]=^\\(\\w*\\), \\(\\w*\\)-\\(\\w*\\)-\\(\\w*\\) \\([^ ]*\\)?%1 %3 %(%2=..?%2: %2) %5 19%4)\"" # else # define MBOXSAVER "%X/mbox.saver %A %P %c %a %B %C \"%b\" \"From %T %(%[date]=^\\(\\w*\\), \\(\\w*\\)-\\(\\w*\\)-\\(\\w*\\) \\([^ ]*\\)?%1 %3 %(%2=..?%2: %2) %5 19%4)\"" # endif /* header munging with a vengeance */ # else # ifdef SERVER # define MBOXSAVER "%X/mbox.saver %P/rrn%a.%$ %P %c %a %B %C \"%b\" \"From %T %[posted]\"" # else # define MBOXSAVER "%X/mbox.saver %A %P %c %a %B %C \"%b\" \"From %T %[posted]\"" # endif # endif # endif #endif #ifdef MKDIRS # ifndef SAVEDIR /* % and ~ */ # define SAVEDIR "%p/%c" # endif # ifndef SAVENAME /* % */ # define SAVENAME "%a" # endif #else # ifndef SAVEDIR /* % and ~ */ # define SAVEDIR "%p" # endif # ifndef SAVENAME /* % */ # define SAVENAME "%^C" # endif #endif #ifndef KILLGLOBAL /* % and ~ */ # define KILLGLOBAL "%p/KILL" #endif #ifndef KILLLOCAL /* % and ~ */ # define KILLLOCAL "%p/%c/KILL" #endif /* how to cancel an article */ #ifndef CANCEL # ifdef MININACT /* 2.10.2 ? */ # define CANCEL "%x/inews -h < %h" # else # define CANCEL "inews -h < %h" # endif #endif /* how to cancel an article, continued */ #ifndef CANCELHEADER #ifdef INTERNET # define CANCELHEADER "From: %L@%H (%N)\nNewsgroups: %n\nSubject: cmsg cancel %i\nReferences: %R\nDistribution: %D\nOrganization: %o\n\n%i was cancelled from within rn.\n" #else # define CANCELHEADER "From:%L@%H.UUCP (%N)\nNewsgroups: %n\nSubject: cmsg cancel %i\nReferences: %R\nDistribution: %D\nOrganization: %o\n\n%i was cancelled from within rn.\n" #endif #endif /* how to supersede an article */ #ifndef SUPERSEDEHEADER #ifdef INTERNET # define SUPERSEDEHEADER "From: %L@%H (%N)\nNewsgroups: %n\nSupersedes: %i\nSubject: %S\nDistribution: %D\nOrganization: %o\n" #else # define SUPERSEDEHEADER "From:%L@%H.UUCP (%N)\nNewsgroups: %n\nSupersedes: %i\nSubject: %S\nDistribution: %D\nOrganization: %o\n" #endif #endif /* where to find the mail file */ #ifndef MAILFILE # define MAILFILE "/usr/spool/mail/%L" #endif /* how to open binary format files */ #ifndef FOPEN_RB # define FOPEN_RB "r" #endif #ifndef FOPEN_WB # define FOPEN_WB "w" #endif /* what to do with ansi prototypes -- '()' == ignore, 'x' == use */ #ifndef ANSI # define ANSI(x) () #endif /* how many characters is a newline in a text file? */ #ifndef NL_SIZE # define NL_SIZE 1 #endif /* some important types */ typedef int NG_NUM; /* newsgroup number */ typedef long ART_NUM; /* article number */ #ifdef pdp11 typedef short ART_UNREAD; /* ordinarily this should be long */ /* like ART_NUM, but assuming that */ /* we stay less than 32767 articles */ /* behind saves a lot of space. */ /* NOTE: do not make unsigned. */ #else typedef long ART_UNREAD; #endif #ifdef SERVER typedef int ART_PART; /* for passing to nntpopen() */ #endif typedef long ART_POS; /* char position in article file */ typedef int ART_LINE; /* line position in article file */ typedef long ACT_POS; /* char position in active file */ typedef unsigned int MEM_SIZE; /* for passing to malloc */ /* *** end of the machine dependent stuff *** */ /* GLOBAL THINGS */ /* file statistics area */ EXT struct stat filestat; /* various things of type char */ char *index(); char *rindex(); char *getenv(); char *strcat(); char *strcpy(); EXT char buf[LBUFLEN+1]; /* general purpose line buffer */ EXT char cmd_buf[CBUFLEN]; /* buffer for formatting system commands */ EXT char *indstr INIT(">"); /* indent for old article embedded in followup */ EXT char *cwd INIT(Nullch); /* current working directory */ EXT char *dfltcmd INIT(Nullch); /* 1st char is default command */ /* switches */ #ifdef DEBUGGING EXT int debug INIT(0); /* -D */ # define DEB_INNERSRCH 32 # define DEB_FILEXP 64 # define DEB_HASH 128 # define DEB_XREF_MARKER 256 # define DEB_CTLAREA_BITMAP 512 # define DEB_SOFT_POINTERS 1024 # define DEB_NEWSRC_LINE 2048 # define DEB_SEARCH_AHEAD 4096 # define DEB_CHECKPOINTING 8192 # define DEB_FEED_XREF 16384 #endif #ifdef ARTSEARCH EXT int scanon INIT(0); /* -S */ #endif EXT bool mbox_always INIT(FALSE); /* -M */ EXT bool norm_always INIT(FALSE); /* -N */ EXT bool checkflag INIT(FALSE); /* -c */ EXT bool suppress_cn INIT(FALSE); /* -s */ EXT int countdown INIT(5); /* how many lines to list before invoking -s */ EXT bool muck_up_clear INIT(FALSE); /* -loco */ EXT bool erase_screen INIT(FALSE); /* -e */ #ifdef CLEAREOL EXT bool can_home INIT(FALSE); #endif #ifdef CLEAREOL EXT bool can_home_clear INIT(FALSE); /* fancy -e */ #endif EXT bool findlast INIT(FALSE); /* -r */ EXT bool typeahead INIT(FALSE); /* -T */ #ifdef VERBOSE # ifdef TERSE EXT bool verbose INIT(TRUE); /* +t */ # endif #endif #ifdef VERIFY EXT bool verify INIT(FALSE); /* -v */ #endif EXT bool quickstart INIT(FALSE); /* -q */ #define NOMARKING 0 #define STANDOUT 1 #define UNDERLINE 2 EXT int marking INIT(NOMARKING); /* -m */ EXT ART_LINE initlines INIT(0); /* -i */ EXT bool initlines_specified INIT(FALSE); /* miscellania */ int fseek(); long atol(), ftell(); EXT bool in_ng INIT(FALSE); /* current state of rn */ EXT char mode INIT('i'); /* current state of rn */ EXT FILE *tmpfp INIT(Nullfp); /* scratch fp used for .rnlock, .rnlast, etc. */ EXT NG_NUM nextrcline INIT(0); /* 1st unused slot in rcline array */ /* startup to avoid checking twice in a row */ extern errno; /* Factored strings */ EXT char nullstr[] INIT(""); EXT char sh[] INIT(SH); EXT char defeditor[] INIT(DEFEDITOR); EXT char hforhelp[] INIT("Type h for help.\n"); #ifdef STRICTCR EXT char badcr[] INIT("\nUnnecessary CR ignored.\n"); #endif EXT char readerr[] INIT("rn read error"); EXT char unsubto[] INIT("\n\nUnsubscribed to newsgroup %s\n"); EXT char cantopen[] INIT("Can't open %s\n"); EXT char cantcreate[] INIT("Can't create %s\n"); #ifdef VERBOSE EXT char nocd[] INIT("Can't chdir to directory %s\n"); #else EXT char nocd[] INIT("Can't find %s\n"); #endif #ifdef NOLINEBUF #define FLUSH ,fflush(stdout) #else #define FLUSH #endif #ifdef lint #undef FLUSH #define FLUSH #undef putchar #define putchar(c) #endif !STUFFY!FUNK! echo Extracting rcln.c cat >rcln.c <<'!STUFFY!FUNK!' /* $Id: rcln.c,v 4.4 1991/09/09 20:27:37 sob Exp sob $ * * $Log: rcln.c,v $ * Revision 4.4 1991/09/09 20:27:37 sob * release 4.4 * * * */ /* 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 "rcstuff.h" #include "ngdata.h" #include "INTERN.h" #include "rcln.h" void rcln_init() { ; } #ifdef CATCHUP void catch_up(ngx) NG_NUM ngx; { char tmpbuf[128]; char *tmpp; #ifdef VERBOSE IF(verbose) printf("\nMarking %s as all read.\n",rcline[ngx]) FLUSH; ELSE #endif #ifdef TERSE fputs("\nMarked read\n",stdout) FLUSH; #endif sprintf(tmpbuf,"%s: 1-%ld", rcline[ngx],(long)getngsize(ngx)); free(rcline[ngx]); rcline[ngx] = savestr(tmpbuf); tmpp = rcline[ngx] + rcnums[ngx] - 1; *tmpp = '\0'; write_rc(); } #endif /* add an article number to a newsgroup, if it isn't already read */ int addartnum(artnum,ngnam) ART_NUM artnum; char *ngnam; { register NG_NUM ngnum = find_ng(ngnam); register char *s, *t, *maxt = Nullch; ART_NUM min = 0, max = -1, lastnum = 0; char *mbuf; bool morenum; if (!artnum) return 0; if (ngnum == nextrcline || !rcnums[ngnum]) /* not found in newsrc? */ return 0; #ifdef CACHEFIRST if (!abs1st[ngnum]) #else if (!toread[ngnum]) #endif /* now is a good time to trim down */ set_toread(ngnum); /* the list due to expires if we */ /* have not yet. */ #ifdef DEBUGGING if (artnum > ngmax[ngnum] + 100 /* allow for incoming articles */ ) { printf("\nCorrupt Xref line!!! %ld --> %s(1..%ld)\n", artnum,ngnam, ngmax[ngnum]) FLUSH; paranoid = TRUE; /* paranoia reigns supreme */ return -1; /* hope this was the first newsgroup */ } #endif if (toread[ngnum] == TR_BOGUS) return 0; #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("%ld->\n%s%c%s\n",(long)artnum,rcline[ngnum],rcchar[ngnum], rcline[ngnum] + rcnums[ngnum]) FLUSH; } #endif s = rcline[ngnum] + rcnums[ngnum]; while (*s == ' ') s++; /* skip spaces */ t = s; while (isdigit(*s) && artnum >= (min = atol(s))) { /* while it might have been read */ for (t = s; isdigit(*t); t++) ; /* skip number */ if (*t == '-') { /* is it a range? */ t++; /* skip to next number */ if (artnum <= (max = atol(t))) return 0; /* it is in range => already read */ lastnum = max; /* remember it */ maxt = t; /* remember position in case we */ /* want to overwrite the max */ while (isdigit(*t)) t++; /* skip second number */ } else { if (artnum == min) /* explicitly a read article? */ return 0; lastnum = min; /* remember what the number was */ maxt = Nullch; /* last one was not a range */ } while (*t && !isdigit(*t)) t++; /* skip comma and any spaces */ s = t; } /* we have not read it, so insert the article number before s */ morenum = isdigit(*s); /* will it need a comma after? */ *(rcline[ngnum] + rcnums[ngnum] - 1) = rcchar[ngnum]; mbuf = safemalloc((MEM_SIZE)(strlen(s) + (s-rcline[ngnum]) + 8)); strcpy(mbuf,rcline[ngnum]); /* make new rc line */ if (maxt && lastnum && artnum == lastnum+1) /* can we just extend last range? */ t = mbuf + (maxt-rcline[ngnum]);/* then overwrite previous max */ else { t = mbuf + (t-rcline[ngnum]); /* point t into new line instead */ if (lastnum) { /* have we parsed any line? */ if (!morenum) /* are we adding to the tail? */ *t++ = ','; /* supply comma before */ if (!maxt && artnum == lastnum+1 && *(t-1) == ',') /* adjacent singletons? */ *(t-1) = '-'; /* turn them into a range */ } } if (morenum) { /* is there more to life? */ if (min == artnum+1) { /* can we consolidate further? */ bool range_before = (*(t-1) == '-'); bool range_after; char *nextmax; for (nextmax = s; isdigit(*nextmax); nextmax++) ; range_after = *nextmax++ == '-'; if (range_before) *t = '\0'; /* artnum is redundant */ else sprintf(t,"%ld-",(long)artnum);/* artnum will be new min */ if (range_after) s = nextmax; /* *s is redundant */ /* else s = s */ /* *s is new max */ } else sprintf(t,"%ld,",(long)artnum); /* put the number and comma */ } else sprintf(t,"%ld",(long)artnum); /* put the number there (wherever) */ strcat(t,s); /* copy remainder of line */ #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("%s\n",mbuf) FLUSH; } #endif free(rcline[ngnum]); rcline[ngnum] = mbuf; /* pull the switcheroo */ *(rcline[ngnum] + rcnums[ngnum] - 1) = '\0'; /* wipe out : or ! */ if (toread[ngnum] > TR_NONE) /* lest we turn unsub into bogus */ --toread[ngnum]; return 0; } #ifdef MCHASE /* delete an article number from a newsgroup, if it is there */ void subartnum(artnum,ngnam) register ART_NUM artnum; char *ngnam; { register NG_NUM ngnum = find_ng(ngnam); register char *s, *t; register ART_NUM min, max; char *mbuf; int curlen; if (!artnum) return; if (ngnum == nextrcline || !rcnums[ngnum]) return; /* not found in newsrc? */ #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("%ld<-\n%s%c%s\n",(long)artnum,rcline[ngnum],rcchar[ngnum], rcline[ngnum] + rcnums[ngnum]) FLUSH; } #endif s = rcline[ngnum] + rcnums[ngnum]; while (*s == ' ') s++; /* skip spaces */ /* a little optimization, since it is almost always the last number */ for (t=s; *t; t++) ; /* find end of string */ curlen = t-rcline[ngnum]; for (t--; isdigit(*t); t--) ; /* find previous delim */ if (*t == ',' && atol(t+1) == artnum) { *t = '\0'; if (toread[ngnum] >= TR_NONE) ++toread[ngnum]; #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) printf("%s%c %s\n",rcline[ngnum],rcchar[ngnum],s) FLUSH; #endif return; } /* not the last number, oh well, we may need the length anyway */ while (isdigit(*s) && artnum >= (min = atol(s))) { /* while it might have been read */ for (t = s; isdigit(*t); t++) ; /* skip number */ if (*t == '-') { /* is it a range? */ t++; /* skip to next number */ max = atol(t); while (isdigit(*t)) t++; /* skip second number */ if (artnum <= max) { /* it is in range => already read */ if (artnum == min) { min++; artnum = 0; } else if (artnum == max) { max--; artnum = 0; } *(rcline[ngnum] + rcnums[ngnum] - 1) = rcchar[ngnum]; mbuf = safemalloc((MEM_SIZE)(curlen + (artnum?15:2))); *s = '\0'; strcpy(mbuf,rcline[ngnum]); /* make new rc line */ s = mbuf + (s-rcline[ngnum]); /* point s into mbuf now */ if (artnum) { /* split into two ranges? */ prange(s,min,artnum-1); s += strlen(s); *s++ = ','; prange(s,artnum+1,max); } else /* only one range */ prange(s,min,max); s += strlen(s); strcpy(s,t); /* copy remainder over */ #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("%s\n",mbuf) FLUSH; } #endif free(rcline[ngnum]); rcline[ngnum] = mbuf; /* pull the switcheroo */ *(rcline[ngnum] + rcnums[ngnum] - 1) = '\0'; /* wipe out : or ! */ if (toread[ngnum] >= TR_NONE) ++toread[ngnum]; return; } } else { if (artnum == min) { /* explicitly a read article? */ if (*t == ',') /* pick a comma, any comma */ t++; else if (s[-1] == ',') s--; else if (s[-2] == ',') /* (in case of space) */ s -= 2; strcpy(s,t); /* no need to realloc */ if (toread[ngnum] >= TR_NONE) ++toread[ngnum]; #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("%s%c%s\n",rcline[ngnum],rcchar[ngnum], rcline[ngnum] + rcnums[ngnum]) FLUSH; } #endif return; } } while (*t && !isdigit(*t)) t++; /* skip comma and any spaces */ s = t; } } void prange(where,min,max) char *where; ART_NUM min,max; { if (min == max) sprintf(where,"%ld",(long)min); else sprintf(where,"%ld-%ld",(long)min,(long)max); } #endif /* calculate the number of unread articles for a newsgroup */ void set_toread(ngnum) register NG_NUM ngnum; { register char *s, *c, *h; char tmpbuf[64], *mybuf = tmpbuf; char *nums; int length; #ifdef CACHEFIRST bool virgin_ng = (!abs1st[ngnum]); #endif ART_NUM ngsize = getngsize(ngnum); ART_NUM unread = ngsize; ART_NUM newmax; #ifdef DEBUGGING ngmax[ngnum] = ngsize; /* for checking out-of-range Xrefs */ #endif if (ngsize == TR_BOGUS) { printf("Warning! Bogus newsgroup: %s\n",rcline[ngnum]) FLUSH; paranoid = TRUE; toread[ngnum] = TR_BOGUS; return; } #ifdef CACHEFIRST if (virgin_ng) #else if (!toread[ngnum]) #endif { sprintf(tmpbuf," 1-%ld",(long)ngsize); if (strNE(tmpbuf,rcline[ngnum]+rcnums[ngnum])) checkexpired(ngnum,ngsize); /* this might realloc rcline */ } nums = rcline[ngnum]+rcnums[ngnum]; length = strlen(nums); if (length >= 60) mybuf = safemalloc((MEM_SIZE)(length+5)); strcpy(mybuf,nums); mybuf[length++] = ','; mybuf[length] = '\0'; for (s = mybuf; isspace(*s); s++) ; for ( ; (c = index(s,',')) != Nullch ; s = ++c) { /* for each range */ *c = '\0'; /* keep index from running off */ if ((h = index(s,'-')) != Nullch) /* find - in range, if any */ unread -= (newmax = atol(h+1)) - atol(s) + 1; else if (newmax = atol(s)) unread--; /* recalculate length */ if (newmax > ngsize) { /* paranoia check */ unread = -1; break; } } if (unread >= 0) /* reasonable number? */ toread[ngnum] = (ART_UNREAD)unread; /* remember how many are left */ else { /* SOMEONE RESET THE NEWSGROUP!!! */ toread[ngnum] = (ART_UNREAD)ngsize; /* assume nothing carried over */ printf("Warning! Somebody reset %s--assuming nothing read.\n", rcline[ngnum]) FLUSH; *(rcline[ngnum] + rcnums[ngnum]) = '\0'; paranoid = TRUE; /* enough to make a guy paranoid */ } if (mybuf != tmpbuf) free(mybuf); if (rcchar[ngnum] == NEGCHAR) toread[ngnum] = TR_UNSUB; } /* make sure expired articles are marked as read */ void checkexpired(ngnum,ngsize) register NG_NUM ngnum; ART_NUM ngsize; { register ART_NUM a1st = getabsfirst(ngnum,ngsize); register char *s, *t; register ART_NUM num, lastnum = 0; char *mbuf, *newnum; if (a1st<=1) return; #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("1-%ld->\n%s%c%s\n",(long)(a1st-1),rcline[ngnum],rcchar[ngnum], rcline[ngnum] + rcnums[ngnum]) FLUSH; } #endif for (s = rcline[ngnum] + rcnums[ngnum]; isspace(*s); s++); while (*s && (num = atol(s)) <= a1st) { while (isdigit(*s)) s++; while (*s && !isdigit(*s)) s++; lastnum = num; } if (*s) { if (s[-1] == '-') { /* landed in a range? */ if (lastnum != 1) { if (3 + strlen(s) > strlen(rcline[ngnum]+rcnums[ngnum])) { mbuf = safemalloc((MEM_SIZE)(rcnums[ngnum] + 3 + strlen(s) + 1)); strcpy(mbuf, rcline[ngnum]); sprintf(mbuf+rcnums[ngnum]," 1-%s",s); free(rcline[ngnum]); rcline[ngnum] = mbuf; } else { sprintf(rcline[ngnum]+rcnums[ngnum]," 1-%s",s); } } goto ret; } } /* s now points to what should follow first range */ if (s - rcline[ngnum] > rcnums[ngnum] + 10) mbuf = rcline[ngnum]; else { mbuf = safemalloc((MEM_SIZE)(rcnums[ngnum] + strlen(s) + 10)); strcpy(mbuf,rcline[ngnum]); } newnum = t = mbuf+rcnums[ngnum]; sprintf(t," 1-%ld",(long)(a1st - (lastnum != a1st))); if (*s) { t += strlen(t); *t++ = ','; strcpy(t,s); } if (!checkflag && mbuf == rcline[ngnum]) { rcline[ngnum] = saferealloc(rcline[ngnum], (MEM_SIZE)(rcnums[ngnum] + strlen(newnum) + 1)); } else { if (!checkflag) free(rcline[ngnum]); rcline[ngnum] = mbuf; } ret:; /* semicolon in case DEBUGGING undefined */ #ifdef DEBUGGING if (debug & DEB_XREF_MARKER) { printf("%s%c%s\n",rcline[ngnum],rcchar[ngnum], rcline[ngnum] + rcnums[ngnum]) FLUSH; } #endif } !STUFFY!FUNK! echo Extracting makedist cat >makedist <<'!STUFFY!FUNK!' #!/bin/sh # $Id: makedist,v 4.4 1991/09/09 20:23:31 sob Exp sob $ # # $Log: makedist,v $ # Revision 4.4 1991/09/09 20:23:31 sob # release 4.4 # # # rm -f kit*.list manifake kitlists manimake makekit kit*.list !STUFFY!FUNK! echo "" echo "End of kit 3 (of 10)" cat /dev/null >kit3isdone config=true for iskit in 1 2 3 4 5 6 7 8 9 10 ; do if test -f kit${iskit}isdone; then echo "You have run kit ${iskit}." else echo "You still need to run kit ${iskit}." config=false fi done case $config in true) echo "You have run all your kits. Please read README and then type Configure." chmod 755 Configure ;; esac : I do not append .signature, but someone might mail this. exit